fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2016-03-25 17:05 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* include/hbclass.ch
    ! use more restrictive PP rules to avoid possible wrong
      interactions with code using 'var' and 'data' identifiers
    * force class name to be valid identifier
    * commented unused rules

  * include/std.ch
    ! fixed CODEPAGE clause in COPY TO and APPEND FROM commands
    + added VIA and CODEPAGE clauses to JOIN command

  * src/rdd/dbcmd.c
    * updated comments with some function syntax
This commit is contained in:
Przemysław Czerpak
2016-03-25 17:05:31 +01:00
parent 0d57fdacfa
commit 3b77191f9f
4 changed files with 83 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
include/std.ch
View File

@@ -395,7 +395,7 @@
#command COPY [TO <(f)>] [FIELDS <fields,...>] ;
[FOR <for>] [WHILE <while>] [NEXT <next>] ;
[RECORD <rec>] [<rest:REST>] [ALL] ;
[DELIMITED [WITH <*delim*>]] [CODEPAGE <cp>] => ;
[CODEPAGE <cp>] [DELIMITED [WITH <*delim*>]] => ;
__dbDelim( .T., <(f)>, <(delim)>, { <(fields)> }, ;
<{for}>, <{while}>, <next>, <rec>, <.rest.>, <cp> )
@@ -414,7 +414,7 @@
#command APPEND [FROM <(f)>] [FIELDS <fields,...>] ;
[FOR <for>] [WHILE <while>] [NEXT <next>] ;
[RECORD <rec>] [<rest:REST>] [ALL] ;
[DELIMITED [WITH <*delim*>]] [CODEPAGE <cp>] => ;
[CODEPAGE <cp>] [DELIMITED [WITH <*delim*>]] => ;
__dbDelim( .F., <(f)>, <(delim)>, { <(fields)> }, ;
<{for}>, <{while}>, <next>, <rec>, <.rest.>, <cp> )
@@ -450,9 +450,10 @@
__dbUpdate( <(alias)>, <{key}>, <.rand.>, ;
{|| _FIELD-><f1> := <x1>[, _FIELD-><fN> := <xN>] } )
#command JOIN [WITH <(alias)>] [TO <f>] [FIELDS <fields,...>] [FOR <for>] => ;
#command JOIN [WITH <(alias)>] [TO <f>] [FIELDS <fields,...>] [FOR <for>] ;
[VIA <rdd>] [CODEPAGE <cp>] => ;
__dbJoin( <(alias)>, <(f)>, { <(fields)> }, ;
iif( Empty( #<for> ), {|| .T. }, <{for}> ) )
iif( Empty( #<for> ), {|| .T. }, <{for}> ), <rdd>,, <cp> )
#command COUNT [TO <v>] ;
[FOR <for>] [WHILE <while>] [NEXT <next>] ;