diff --git a/ChangeLog.txt b/ChangeLog.txt index 8fc642b3a6..36f5c16214 100644 --- a/ChangeLog.txt +++ b/ChangeLog.txt @@ -10,6 +10,11 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2015-03-23 21:02 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) + * include/hbsix.ch + * include/std.ch + * formatting + 2015-03-23 16:21 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) * include/std.ch + added VIA and CODEPAGE parameters to SORT TO and TOTAL TO commands diff --git a/include/hbsix.ch b/include/hbsix.ch index a4c7c17181..2b5c146052 100644 --- a/include/hbsix.ch +++ b/include/hbsix.ch @@ -76,8 +76,8 @@ [] [] [] ; [CODEPAGE ] [INDEX <(index1)> [, <(indexN)>]] ; [TRIGGER ] [PASSWORD ] => ; - [sx_SetTrigger( TRIGGER_PENDING, , ); ] <-trig-> ; - [sx_SetPass( , 1, ); ] <-pass-> ; + [sx_SetTrigger( TRIGGER_PENDING, , );] <-trig-> ; + [sx_SetPass( , 1, );] <-pass-> ; dbUseArea( <.nw.>, , <(db)>, <(a)>, ; iif( <.sh.> .OR. <.ex.>, ! <.ex.>, NIL ), <.ro.> [, ] ) ; [; dbSetIndex( <(index1)> )] ; @@ -93,7 +93,7 @@ [CODEPAGE ] [] [NOOPTIMIZE] => ; sx_SortOption(<.cur.>); ; __dbSort( <(f)>, { <(fields)> }, ; - <{for}>, <{while}>, , , <.rest.>, , , ) + <{for}>, <{while}>, , , <.rest.>, ,, ) /* @@ -117,7 +117,7 @@ #command REINDEX OPTION [STEP ] => ; REINDEX EVAL [EVERY ] #command DELETE TAG <(tag1)> [OF <(bag1)>] [, <(tagN)> [OF <(bagN)>]] => ; - ordDestroy( <(tag1)>, <(bag1)> )[ ; ordDestroy( <(tagN)>, <(bagN)> ) ] + ordDestroy( <(tag1)>, <(bag1)> )[ ; ordDestroy( <(tagN)>, <(bagN)> )] #command DELETE TAG ALL [OF <(bag)>] => sx_KillTag( .T., <(bag)> ) diff --git a/include/std.ch b/include/std.ch index 635296c92e..fdb2c9054b 100644 --- a/include/std.ch +++ b/include/std.ch @@ -89,9 +89,9 @@ #command SET PROCEDURE TO => #command SET PROCEDURE TO => _ProcReq_( <(f)> ) #command SET FORMAT TO => ; - _ProcReq_( <(id)> + ".fmt" ) ; __SetFormat( {|| ()} ) + _ProcReq_( <(id)> + ".fmt" ) ; __SetFormat( {|| () } ) #command SET FORMAT TO . => ; - _ProcReq_( <(id)> + "." + <(ext)> ) ; __SetFormat( {|| ()} ) + _ProcReq_( <(id)> + "." + <(ext)> ) ; __SetFormat( {|| () } ) #command SET FORMAT TO => ; if ( Empty( <(id)> ) ) ; SET FORMAT TO ; else ;; __SetFormat( &( "{||" + <(id)> + "()}" ) ) ; end @@ -180,11 +180,11 @@ #command SET MESSAGE TO => Set( _SET_MESSAGE, 0 ) ;; Set( _SET_MCENTER, .f. ) #command SET TYPEAHEAD TO => Set( _SET_TYPEAHEAD, ) -#command SET KEY TO => SetKey( , {|p, l, v| ( p, l, v ) } ) +#command SET KEY TO => SetKey( , {| p, l, v | ( p, l, v ) } ) #command SET KEY TO ([]) => SET KEY TO #command SET KEY TO => ; if ( Empty( <(f)> ) ) ; SetKey( , NIL ) ; else ;; - SetKey( , {|p, l, v| ( p, l, v ) } ) ; end + SetKey( , {| p, l, v | ( p, l, v ) } ) ; end #command SET KEY [TO] => SetKey( , NIL ) #command SET FUNCTION [TO] [] => __SetFunction( , ) @@ -255,7 +255,7 @@ #command @ , PROMPT [MESSAGE ] => ; __AtPrompt( , , , ) #command MENU TO => ; - := __MenuTo( {|_1| iif( PCount() == 0, , := _1 ) }, # ) + := __MenuTo( {| _1 | iif( PCount() == 0, , := _1 ) }, # ) #command WAIT [] => __Wait( ) #command WAIT [] TO => := __Wait( ) @@ -289,7 +289,7 @@ #command COPY FILE <(src)> TO <(dst)> => __CopyFile( <(src)>, <(dst)> ) #command DIR [<(mask)>] => __Dir( <(mask)> ) #command TYPE <(f)> [] [TO FILE <(dst)>] => ; - __TypeFile( <(f)>, <.prn.> ) [ ; COPY FILE <(f)> TO <(dst)> ] + __TypeFile( <(f)>, <.prn.> )[ ; COPY FILE <(f)> TO <(dst)>] #command TYPE <(f)> [] => __TypeFile( <(f)>, <.prn.> ) #command REQUEST => EXTERNAL @@ -368,22 +368,22 @@ #command SET FILTER TO => dbSetFilter( <{exp}>, <"exp"> ) #command SET FILTER TO => if ( Empty( <(x)> ) ) ; dbClearFilter() ;; else ; dbSetFilter( <{x}>, <(x)> ) ; end -#command REPLACE [ WITH [, WITH ] ] ; +#command REPLACE [ WITH [, WITH ]] ; [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] => ; - DBEval( {|| _FIELD-> := [, _FIELD-> := ]}, ; + DBEval( {|| _FIELD-> := [, _FIELD-> := ] }, ; <{for}>, <{while}>, , , <.rest.> ) -#command REPLACE WITH [, WITH ] => ; +#command REPLACE WITH [, WITH ] => ; _FIELD-> := [; _FIELD-> := ] #command DELETE [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] => ; - DBEval( {|| dbDelete()}, <{for}>, <{while}>, , , <.rest.> ) + DBEval( {|| dbDelete() }, <{for}>, <{while}>, , , <.rest.> ) #command DELETE => dbDelete() #command RECALL [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] => ; - DBEval( {|| dbRecall()}, <{for}>, <{while}>, , , <.rest.> ) + DBEval( {|| dbRecall() }, <{for}>, <{while}>, , , <.rest.> ) #command RECALL => dbRecall() #command CREATE <(db)> [FROM <(src)>] [VIA ] [ALIAS ] ; @@ -411,7 +411,7 @@ [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] [VIA ] [CODEPAGE ] => ; __dbCopy( <(f)>, { <(fields)> }, ; - <{for}>, <{while}>, , , <.rest.>, , , ) + <{for}>, <{while}>, , , <.rest.>, ,, ) #command APPEND [FROM <(f)>] [FIELDS ] ; [FOR ] [WHILE ] [NEXT ] ; @@ -431,26 +431,26 @@ [RECORD ] [] [ALL] [VIA ] ; [CODEPAGE ] => ; __dbApp( <(f)>, { <(fields)> }, ; - <{for}>, <{while}>, , , <.rest.>, , , ) + <{for}>, <{while}>, , , <.rest.>, ,, ) #command SORT [TO <(f)>] [ON ] ; [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] [VIA ] ; [CODEPAGE ] => ; __dbSort( <(f)>, { <(fields)> }, ; - <{for}>, <{while}>, , , <.rest.>, , , ) + <{for}>, <{while}>, , , <.rest.>, ,, ) #command TOTAL [TO <(f)>] [ON ] [FIELDS ] ; [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] [VIA ] ; [CODEPAGE ] => ; __dbTotal( <(f)>, <{key}>, { <(fields)> }, ; - <{for}>, <{while}>, , , <.rest.>, , , ) + <{for}>, <{while}>, , , <.rest.>, ,, ) #command UPDATE [FROM <(alias)>] [ON ] [] ; [REPLACE WITH [, WITH ]] => ; __dbUpdate( <(alias)>, <{key}>, <.rand.>, ; - {|| _FIELD-> := [, _FIELD-> := ]} ) + {|| _FIELD-> := [, _FIELD-> := ] } ) #command JOIN [WITH <(alias)>] [TO ] [FIELDS ] [FOR ] => ; __dbJoin( <(alias)>, <(f)>, { <(fields)> }, ; @@ -459,24 +459,24 @@ #command COUNT [TO ] ; [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] => ; - := 0 ; DBEval( {|| := + 1}, ; + := 0 ; DBEval( {|| := + 1 }, ; <{for}>, <{while}>, , , <.rest.> ) -#command SUM [ [, ] TO [, ] ] ; +#command SUM [ [, ] TO [, ]] ; [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] => ; - := [ := ] 0 ;; - DBEval( {|| := + [, := + ]}, ; + :=[ :=] 0 ;; + DBEval( {|| := + [, := + ] }, ; <{for}>, <{while}>, , , <.rest.> ) -#command AVERAGE [ [, ] TO [, ] ] ; +#command AVERAGE [ [, ] TO [, ]] ; [FOR ] [WHILE ] [NEXT ] ; [RECORD ] [] [ALL] => ; - M->__Avg := := [ := ] 0 ;; + M->__Avg := :=[ :=] 0 ;; DBEval( {|| M->__Avg := M->__Avg + 1, ; - := + [, := + ] }, ; + := + [, := + ] }, ; <{for}>, <{while}>, , , <.rest.> ) ;; - := / M->__Avg [ ; := / M->__Avg ] + := / M->__Avg[ ; := / M->__Avg] #command LIST [] [] [] [TO FILE <(f)>] ; [FOR ] [WHILE ] [NEXT ] ; @@ -507,7 +507,7 @@ <{for}>, <{while}>, , , <.rest.>, <.smp.> ) #command DELETE TAG <(tag1)> [IN <(bag1)>] [, <(tagN)> [IN <(bagN)>]] => ; - ordDestroy( <(tag1)>, <(bag1)> )[ ; ordDestroy( <(tagN)>, <(bagN)> ) ] + ordDestroy( <(tag1)>, <(bag1)> )[ ; ordDestroy( <(tagN)>, <(bagN)> )] #command INDEX ON [TAG <(tag)>] TO <(bag)> ; [FOR ] [WHILE ] [NEXT ] ; @@ -518,7 +518,7 @@ [] [] ; [] [] => ; ordCondSet( <"for">, <{for}>, [<.all.>], <{while}>, ; - <{eval}>, , RECNO(), , , ; + <{eval}>, , RecNo(), , , ; [<.rest.>], [<.descend.>],, ; [<.add.>], [<.cur.>], [<.cust.>], [<.noopt.>], ; <"while">, [<.mem.>], [<.filter.>], [<.ex.>] ) ;; @@ -533,7 +533,7 @@ [] [] ; [] [] => ; ordCondSet( <"for">, <{for}>, [<.all.>], <{while}>, ; - <{eval}>, , RECNO(), , , ; + <{eval}>, , RecNo(), , , ; [<.rest.>], [<.descend.>],, ; [<.add.>], [<.cur.>], [<.cust.>], [<.noopt.>], ; <"while">, [<.mem.>], [<.filter.>], [<.ex.>] ) ;; @@ -560,7 +560,7 @@ #command @ , GET [] RANGE , [] => ; @ , GET [ ] ; - VALID {|_1| RangeCheck( _1, , , ) } [ ] + VALID {| _1 | RangeCheck( _1,, , ) } [ ] #command @ , GET [] COLOR [] => ; @ , GET [ ] SEND colorDisp( ) [ ] @@ -618,7 +618,7 @@ [CAPTION ] [MESSAGE ] [COLOR ] ; [FOCUS ] [STATE ] [STYLE ] ; [SEND ] [GUISEND ] [BITMAP ] ; - [SIZE X Y ] [CAPOFF X Y ] ; + [SIZE X Y ] [CAPOFF X Y ] ; [BMPOFF X Y ] => ; SetPos( , ) ;; AAdd( GetList, _GET_( , <(v)>, NIL, <{valid}>, <{when}> ) ) ;;