0caff16650
- doc/en/hashes.txt
- doc/en/rdddb.txt
* .gitattributes
* contrib/3rd/sqlite3/sqlite3.hbp
* contrib/hbbz2/3rd/bz2/bz2.hbp
* contrib/hbexpat/3rd/expat/expat.hbp
* contrib/hbfimage/hbfimage.hbp
* contrib/hbhpdf/3rd/libhpdf/libhpdf.hbp
* contrib/hblzf/3rd/liblzf/lzf.hbp
* contrib/hbmxml/3rd/minixml/mxml.hbp
* contrib/hbmzip/3rd/minizip/minizip.hbp
* contrib/hbodbc/hbodbc.hbp
* contrib/hbtinymt/3rd/tinymt/tinymt.hbp
* contrib/hbxdiff/3rd/libxdiff/xdiff.hbp
* contrib/sddsqlt3/tests/test.prg
* ChangeLog.txt
* doc/Makefile
* doc/oldnews.txt
* extras/ps32/readme.txt
* extras/superlib/readme.txt
* src/3rd/jpeg/Makefile
* src/3rd/pcre/Makefile
* src/3rd/png/Makefile
* src/3rd/tiff/Makefile
* src/3rd/zlib/Makefile
+ contrib/hbsms/DEPRECATED.txt
+ contrib/hbtpathy/DEPRECATED.txt
+ contrib/xhb/WARNING.txt
* contrib/3rd/sqlite3/sqlite3.dif -> contrib/3rd/sqlite3/sqlite3.diff
* contrib/hbbz2/3rd/bz2/bz2.dif -> contrib/hbbz2/3rd/bz2/bz2.diff
* contrib/hbexpat/3rd/expat/expat.dif -> contrib/hbexpat/3rd/expat/expat.diff
* contrib/hbhpdf/3rd/libhpdf/libhpdf.dif -> contrib/hbhpdf/3rd/libhpdf/libhpdf.diff
* contrib/hblzf/3rd/liblzf/liblzf.dif -> contrib/hblzf/3rd/liblzf/liblzf.diff
* contrib/hbmxml/3rd/minixml/minixml.dif -> contrib/hbmxml/3rd/minixml/minixml.diff
* contrib/hbmzip/3rd/minizip/minizip.dif -> contrib/hbmzip/3rd/minizip/minizip.diff
* contrib/hbtinymt/3rd/tinymt/tinymt.dif -> contrib/hbtinymt/3rd/tinymt/tinymt.diff
* contrib/hbxdiff/3rd/libxdiff/libxdiff.dif -> contrib/hbxdiff/3rd/libxdiff/xdiff.diff
* contrib/sddsqlt3/tests/test.sq3 -> contrib/sddsqlt3/tests/test.sqlite3
* extras/dbu/dbu52.dif -> extras/dbu/dbu52.patch
* extras/dbu/dbu53.dif -> extras/dbu/dbu53.patch
* extras/ps32/ps32.dif -> extras/ps32/ps32.patch
* extras/rl/rl.dif -> extras/rl/rl.patch
* extras/superlib/superlib.dif -> extras/superlib/superlib.patch
* extras/template/readme.txt -> extras/template/README.md
* src/3rd/hbdossrl/README -> src/3rd/hbdossrl/README.txt
* src/3rd/jpeg/jpeg.dif -> src/3rd/jpeg/jpeg.diff
* src/3rd/pcre/pcre.dif -> src/3rd/pcre/pcre.diff
* src/3rd/png/png.dif -> src/3rd/png/png.diff
* src/3rd/tiff/tiff.dif -> src/3rd/tiff/tiff.diff
* src/3rd/zlib/zlib.dif -> src/3rd/zlib/zlib.diff
* tests/hbpptest/_pp_test.prg -> tests/hbpp/_pp_test.prg
* tests/hbpptest/compare.hb -> tests/hbpp/compare.hb
* tests/hbpptest/hbpptest.hbp -> tests/hbpp/hbpptest.hbp
* tests/hbpptest/hbpptest.prg -> tests/hbpp/hbpptest.prg
* tests/tflock.prg -> tests/flock.prg
* contrib/hbfimage/fi_wrp.c -> contrib/hbfimage/core.c
* contrib/hbodbc/browodbc.prg -> contrib/hbodbc/browse.prg
* doc/cmdline.txt -> doc/cmdline.md
* extras/dbu/readme.txt -> extras/dbu/README.md
* extras/rl/readme.txt -> extras/rl/README.md
* some file renames synced with 3.4 fork, plus the content of
some of them. Some new text files added as well.
Note, 3rd party code rediffing won't work anymore on 8.3
filesystems.
1251 lines
46 KiB
Plaintext
1251 lines
46 KiB
Plaintext
#ifndef __HARBOUR__
|
|
#xtranslate hb_eol() => ( Chr( 13 ) + Chr( 10 ) )
|
|
#endif
|
|
|
|
/* #command TEXT TO VAR <v> => #pragma __stream|<v>:=%s */
|
|
#command TEXT TO VAR <v> => #pragma __text|<v>+=%s;<v>:=""
|
|
#command CTEXT TO VAR <v> => #pragma __cstream|<v>:=%s
|
|
#command XTEXT TO VAR <v> => #pragma __text|<v>+=%s+hb_eol();<v>:=""
|
|
|
|
/* Testing preprocessor */
|
|
|
|
PROCEDURE Main()
|
|
LOCAL in, pre
|
|
LOCAL nCnt := 0
|
|
LOCAL nRes := 0
|
|
LOCAL pp
|
|
|
|
pp := __pp_init()
|
|
|
|
/* ---------------------------------------------------------------------*/
|
|
in := "#xtranslate CCC <v> => QOUT( <v>[2] [, <v>\[<v>\]\[3\]] )"+hb_eol()+;
|
|
"CCC b"
|
|
pre := "QOUT(b[2] ,bb[3] )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
/*------------*/
|
|
in := "#xtranslate AAA [A <a> [B <b>] ] => Qout([<a>][, <b>])"
|
|
__pp_process( pp, in )
|
|
/*------------*/
|
|
in:= "AAA"
|
|
pre :="Qout()"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
in:= "AAA A a"
|
|
pre :="Qout(a )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
in:= "AAA A a B b"
|
|
pre :="Qout(a ,b )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
XTEXT TO VAR in
|
|
#define RED {255,0,0}
|
|
#xcommand SET TOOLTIP TO <color> OF <form> => SM( TTH (<"form">), 1, RGB(<color>\[1], <color>\[2\], <color>[, <color>\[ 3 \] ]), 0)
|
|
SET TOOLTIP TO RED OF form1
|
|
ENDTEXT
|
|
TEXT TO VAR pre
|
|
SM(TTH ("form1"),1,RGB({255,0,0}[1],{255,0,0}[2],{255,0,0},{255,0,0}[ 3 ] ),0)
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
in :="#command ZZZ [<v>] => QOUT([<v>\[1\]])"
|
|
__pp_process( pp, in )
|
|
in :="ZZZ a"
|
|
pre :="QOUT(a[1] )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
in :="ZZZ"
|
|
pre :="QOUT()"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
in := "ZZZ a[1]+2"
|
|
pre := "QOUT(a[1]+2[1] )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
XTEXT TO VAR in
|
|
#xtranslate _HMG_a => _HMG\[137\]
|
|
v:= _bro[ a( _HMG_a [i] ) ]
|
|
ENDTEXT
|
|
pre :="v:= _bro[ a( _HMG[137] [i] ) ]"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
XTEXT TO VAR in
|
|
#define clas( x ) (x)
|
|
#xtranslate ( <!name!>{ [<p,...>] } => (<name>():New(<p>)
|
|
a :=clas( TEST{ 1,2,3} )
|
|
ENDTEXT
|
|
pre := "a :=(TEST():New(1,2,3) )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
XTEXT TO VAR in
|
|
#define DATENEW 1
|
|
#define DATEOLD(x) x
|
|
#define datediff(x,y) ( DATEOLD(x) - DATENEW )
|
|
|
|
#command datediff1(<x>,<y>) => ( DATEOLD(<x>) - DATENEW )
|
|
x := datediff( x, y )
|
|
ENDTEXT
|
|
pre := "x := (x - 1 )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/*------------*/
|
|
//REGULAR
|
|
in := "#command _REGULAR_(<z>) => rm( <z> )"
|
|
__pp_process( pp, in )
|
|
|
|
in := "_REGULAR_(a)"
|
|
pre :="rm(a )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '_REGULAR_("a")'
|
|
pre :='rm("a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_REGULAR_('a')"
|
|
pre :='rm("a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_REGULAR_(["'a'"])
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
rm(["'a'"] )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_REGULAR_(&a.1)"
|
|
pre :="rm(&a.1 )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_REGULAR_(&a)"
|
|
pre :="rm(&a )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_REGULAR_(&a.)"
|
|
pre :="rm(&a. )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_REGULAR_(&(a))"
|
|
pre :="rm(&(a) )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_REGULAR_(&a[1])"
|
|
pre :="rm(&a[1] )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_REGULAR_(a[1])"
|
|
pre :="rm(a[1] )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_REGULAR_("['']")
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
rm("['']" )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
//NORMAL
|
|
in := '#command _NORMAL_M(<z>) => nm( <"z"> )'
|
|
__pp_process( pp, in )
|
|
|
|
in := "_NORMAL_M(a)"
|
|
pre :='nm("a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '_NORMAL_M("a")'
|
|
pre :=[nm('"a"' )]
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_NORMAL_M('a')"
|
|
pre :=[nm('"a"' )]
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_NORMAL_M(["'a'"])
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
nm([["'a'"]] )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_NORMAL_M(&a.1)"
|
|
pre :='nm("&a.1" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_NORMAL_M(&a)"
|
|
pre :="nm(a )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_NORMAL_M(&a.)"
|
|
pre :="nm(a )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_NORMAL_M(&(a))"
|
|
pre :="nm((a) )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_NORMAL_M(&a[1])"
|
|
pre :='nm("&a[1]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_NORMAL_M(a[1])"
|
|
pre :='nm("a[1]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_NORMAL_M("['']")
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
nm(["['']"] )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
//SMART
|
|
in := '#command _SMART_M(<z>) => sm( <(z)> )'
|
|
__pp_process( pp, in )
|
|
|
|
in := "_SMART_M(a)"
|
|
pre :='sm("a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '_SMART_M("a")'
|
|
pre :='sm("a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_SMART_M('a')"
|
|
pre :='sm("a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_SMART_M(["'a'"])
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
sm(["'a'"] )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_SMART_M(&a.1)"
|
|
pre :='sm("&a.1" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_SMART_M(&a)"
|
|
pre :='sm(a )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_SMART_M(&a.)"
|
|
pre :='sm(a )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_SMART_M(&(a))"
|
|
pre :='sm((a) )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_SMART_M(&a[1])"
|
|
pre :='sm("&a[1]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_SMART_M(a[1])"
|
|
pre :='sm("a[1]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_SMART_M("['']")
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
sm("['']" )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
|
|
//DUMB
|
|
in := '#command _DUMB_M(<z>) => dm( #<z> )'
|
|
__pp_process( pp, in )
|
|
|
|
in := "_DUMB_M(a)"
|
|
pre :='dm("a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '_DUMB_M("a")'
|
|
pre :=[dm('"a"' )]
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_DUMB_M('a')"
|
|
pre :=[dm('"a"' )]
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_DUMB_M(["'a'"])
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
dm([["'a'"]] )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_DUMB_M(&a.1)"
|
|
pre :='dm("&a.1" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_DUMB_M(&a)"
|
|
pre :='dm("&a" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_DUMB_M(&a.)"
|
|
pre :='dm("&a." )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_DUMB_M(&(a))"
|
|
pre :='dm("&(a)" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_DUMB_M(&a[1])"
|
|
pre :='dm("&a[1]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "_DUMB_M(a[1])"
|
|
pre :='dm("a[1]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
CTEXT TO VAR in
|
|
_DUMB_M("['']")
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
dm(["['']"] )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
// REGULAR list
|
|
XTEXT TO VAR in
|
|
#command _REGULAR_L(<z,...>) => rl( <z> )
|
|
_REGULAR_L(a,"a",'a',["'a'"],"['a']",'["a"]',&a.1,&a,&a.,&a. ,&(a),&a[1],&a.[1],&a. [2],&a&a, &a.a, a, a)
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
rl(a,"a","a",["'a'"],"['a']",'["a"]',&a.1,&a,&a.,&a. ,&(a),&a[1],&a.[1],&a. [2],&a&a, &a.a, a, a )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
// NORMAL list
|
|
XTEXT TO VAR in
|
|
#command _NORMAL_L(<z,...>) => nl( <"z"> )
|
|
_NORMAL_L(n,"n",'a',["'a'"],"['a']",'["a"]',&a.1,&a,&a.,&a. ,&(a),&a[1],&a.[1],&a. [2],&a&a, &.a, &a.a, a, a)
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
nl("n",'"n"','"a"',[["'a'"]],["['a']"],['["a"]'],"&a.1",a,a,a,(a),"&a[1]","&a.[1]","&a. [2]","&a&a","&.a","&a.a","a","a" )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
// SMART list
|
|
XTEXT TO VAR in
|
|
#command _SMART_L(<z,...>) => sl( <(z)> )
|
|
_SMART_L(a,"a",'a',["'a'"],"['a']",'["a"]',&a.1,&a,&a.,&a. ,&(a),&a[1],&a.[1],&a. [2],&a&a, &.a, &a.a, a, a)
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
sl("a","a","a",["'a'"],"['a']",'["a"]',"&a.1",a,a,a,(a),"&a[1]","&a.[1]","&a. [2]","&a&a","&.a","&a.a","a","a" )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
// DUMB list
|
|
XTEXT TO VAR in
|
|
#command _DUMB_L(<z,...>) => dl( #<z> )
|
|
_DUMB_L(a,"a",'a',["'a'"],"['a']",'["a"]',&a.1,&a,&a.,&a. ,&(a),&a[1],&a.[1],&a. [2],&a&a, &.a, &a.a, a, a)
|
|
ENDTEXT
|
|
CTEXT TO VAR pre
|
|
dl([a,"a","a",["'a'"],"['a']",'["a"]',&a.1,&a,&a.,&a. ,&(a),&a[1],&a.[1],&a. [2],&a&a, &.a, &a.a, a, a] )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "index on LEFT( f1 , 10 ) to _tst"
|
|
CTEXT TO VAR pre
|
|
dbCreateIndex( "_tst", "LEFT( f1 , 10 )", {|| LEFT( f1 , 10 )}, if( .F., .T., NIL ) )
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#xcommand SET <var1> [, <varN>] WITH <val> =>
|
|
<var1>:=<val>[; <varN>:=<val>]
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
in := "SET v1, v2, v3 WITH 0"
|
|
pre := "v1:=0; v2:=0 ; v3:=0 "
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#xcommand INSERT INTO <table> ( <uField1> [, <uFieldN> ] ) VALUES ( <uVal1> [, <uValN> ] ) => if <table>->( dbappend() ) <table>-><uField1> := <uVal1> [ <table>-><uFieldN> := <uValN> ] <table>->( dbunlock() ) endif
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
TEXT TO VAR in
|
|
insert into test ( FIRST, LAST, STREET ) values ( "first", "last", "street" )
|
|
ENDTEXT
|
|
TEXT TO VAR pre
|
|
if test->(dbappend() ) test->FIRST := "first" test->LAST := "last" test->STREET := "street" test->(dbunlock() ) endif
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#xcommand INSERT2 INTO <table> ( <uField1> [, <uFieldN> ] ) VALUES ( <uVal1> [, <uValN> ] ) =>
|
|
if <table>->( dbappend() ) ;
|
|
<table>-><uField1> := <uVal1> ;
|
|
[ <table>-><uFieldN> := <uValN> ; ]
|
|
<table>->( dbunlock() ) ;
|
|
endif
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
TEXT TO VAR in
|
|
insert2 into test ( FIRST, LAST, STREET )
|
|
values ( "first", "last", "street" )
|
|
ENDTEXT
|
|
TEXT TO VAR pre
|
|
if test->(dbappend() ) ; test->FIRST := "first" ; test->LAST := "last" ; test->STREET := "street" ; test->(dbunlock() ) ;endif
|
|
ENDTEXT
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "#define F1( n ) F2( n, N )"
|
|
__pp_process( pp, in )
|
|
in := "F1( 1 )"
|
|
pre := "F2(1 ,N )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "#define F3( nN, Nn ) F2( nN, Nn, NN, nn, N, n )"
|
|
__pp_process( pp, in )
|
|
in := "F3( 1, 2 )"
|
|
pre := "F2(1,2 ,NN,nn,N,n )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#command MYCOMMAND [<mylist,...>] [MYCLAUSE <myval>] =>
|
|
MyFunction( {<mylist>} [, <myval>] )
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
in := 'MYCOMMAND MYCLAUSE 321 "HELLO"'
|
|
pre := 'MyFunction({"HELLO"} ,321 )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND MYCLAUSE 321 "HELLO","all"'
|
|
pre := 'MyFunction({"HELLO","all"} ,321 )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND "HELLO","all" MYCLAUSE 321'
|
|
pre := 'MyFunction({"HELLO","all"} ,321 )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#command MYCOMMAND2 [<mylist,...>] [MYCLAUSE <myval>] [ALL] =>
|
|
MyFunction( {<mylist>} [, <myval>] )
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
pre := 'MyFunction({"HELLO"} ,321 )'
|
|
in := 'MYCOMMAND2 MYCLAUSE 321 "HELLO"'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
in := 'MYCOMMAND2 MYCLAUSE 321 "HELLO" ALL'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND2 ALL MYCLAUSE 321 "HELLO"'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND2 MYCLAUSE 321 "HELLO" ALL'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND2 MYCLAUSE 321 ALL "HELLO"'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
TEXT TO VAR in
|
|
#command MYCOMMAND3 [<mylist,...>] [MYCLAUSE <myval>] [<all:ALL>] =>
|
|
MyFunction( {<mylist>} [, <myval>] [,<.all.>] )
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
in := 'MYCOMMAND3 ALL MYCLAUSE 321 "HELLO","WORLD"'
|
|
pre := 'MyFunction({"HELLO","WORLD"} ,321 ,.T. )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND3 MYCLAUSE 321 ALL "HELLO"'
|
|
pre := 'MyFunction({"HELLO"} ,321 ,.T. )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND3 MYCLAUSE 321 "HELLO" ALL'
|
|
pre := 'MyFunction({"HELLO"} ,321 ,.T. )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := 'MYCOMMAND3 MYCLAUSE 321 "HELLO"'
|
|
pre := 'MyFunction({"HELLO"} ,321 )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#command MYCOMMAND2 [<myList,...>]
|
|
[MYCLAUSE <myVal>] [MYOTHER <myOther>] => MyFunction( {<myList>}, <myVal>, <myOther> )
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
|
|
/* Special restricted macro match marker (used in SET FILTER TO command */
|
|
in := "SET FILTER TO &cVar."
|
|
pre := "if ( Empty(cVar) ) ; dbClearFilter() ; else ; dbSetFilter({|| &cVar.},cVar) ; end"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "SET FILTER TO &(cVar .AND. &cVar)"
|
|
pre := "if ( Empty((cVar .AND. &cVar)) ) ; dbClearFilter() ; else ; dbSetFilter({|| &(cVar .AND. &cVar)},(cVar .AND. &cVar)) ; end"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "SET FILTER TO &cVar. .AND. cVar"
|
|
pre := 'dbSetFilter( {|| &cVar. .AND. cVar}, "&cVar. .AND. cVar" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
XTEXT TO VAR in
|
|
#xtranslate XTRANS(<x>( => normal( <(x)> )
|
|
#xtranslate XTRANS(<x:&>( => macro( <(x)> )
|
|
ENDTEXT
|
|
PrePrepare( pp, in )
|
|
|
|
in := "XTRANS( cVar ("
|
|
pre := 'normal("cVar" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar ("
|
|
pre := 'macro(cVar )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar+1 ("
|
|
pre := 'normal("&cVar+1" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar. ("
|
|
pre := 'macro(cVar )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( (&cVar.) ("
|
|
pre := 'XTRANS( (&cVar.) ('
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &(cVar) ("
|
|
pre := 'macro((cVar) )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar[3] ("
|
|
pre := 'normal("&cVar[3]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar. [3] ("
|
|
pre := 'normal("&cVar. [3]" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &(cVar [3],&cvar) ("
|
|
pre := 'macro((cVar [3],&cvar) )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( (&cVar. [3],&cvar) ("
|
|
pre := 'XTRANS( (&cVar. [3],&cvar) ('
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar.1+5 ("
|
|
pre := 'normal("&cVar.1+5" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar .AND. cVar ("
|
|
pre := 'normal("&cVar .AND. cVar" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "XTRANS( &cVar. .AND. cVar ("
|
|
pre := 'normal("&cVar. .AND. cVar" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
XTEXT TO VAR in
|
|
#xtranslate MXCALL <x:&> => (<x>)
|
|
#xtranslate MYCALL <x:&> <y> => <x>( <y>, 'mycall' )
|
|
#xtranslate MZCALL <x> <y> => <x>( <y>, "mzcall" )
|
|
#command FOO <x:&> FOO <y:&> => <(x)>+<(y)>
|
|
#translate BAR <x:&> BAR <y:&> => <(x)>+<(y)>
|
|
ENDTEXT
|
|
PrePrepare( pp, in )
|
|
|
|
in := "MYCALL &cVar ++cVar"
|
|
pre := '&cVar(++cVar,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MZCALL &cVar ++cVar"
|
|
pre := '&cVar ++(cVar,"mzcall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar+1 &cVar"
|
|
pre := '&cVar(+1,"mycall" ) &cVar'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MZCALL &cVar+1 &cVar"
|
|
pre := '&cVar+1(&cVar,"mzcall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar"
|
|
pre := '(&cVar)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar."
|
|
pre := '(&cVar.)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar.1"
|
|
pre := '(&cVar.1)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar + 1"
|
|
pre := '(&cVar) + 1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar &cVar"
|
|
pre := '&cVar(&cVar,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar. &cVar."
|
|
pre := '&cVar.(&cVar.,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar.1 &cVar.1"
|
|
pre := '&cVar.1(&cVar.1,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar ++cVar"
|
|
pre := '&cVar(++cVar,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar. --cVar"
|
|
pre := '&cVar.(--cVar,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar.1 !cVar"
|
|
pre := '&cVar.1(!cVar,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar+1 &cVar"
|
|
pre := '&cVar(+1,"mycall" ) &cVar'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar.+1 &cVar."
|
|
pre := '&cVar.(+1,"mycall" ) &cVar.'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar.1+1 &cVar.1"
|
|
pre := '&cVar.1(+1,"mycall" ) &cVar.1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar +1 &cVar"
|
|
pre := '&cVar(+1,"mycall" ) &cVar'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar. +1 &cVar."
|
|
pre := '&cVar.(+1,"mycall" ) &cVar.'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar.1 +1 &cVar.1"
|
|
pre := '&cVar.1(+1,"mycall" ) &cVar.1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar +1"
|
|
pre := '&cVar(+1,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar. +1"
|
|
pre := '&cVar.(+1,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MYCALL &cVar.1 +1"
|
|
pre := '&cVar.1(+1,"mycall" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "FOO &cVar FOO &var."
|
|
pre := 'cVar+var'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "BAR &cVar BAR &var."
|
|
pre := 'cVar+var'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "FOO &cVar FOO &var.+1"
|
|
pre := 'FOO &cVar FOO &var.+1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "BAR &cVar BAR &var.+1"
|
|
pre := 'cVar+var+1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar()"
|
|
pre := '(&cVar)()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar++"
|
|
pre := '(&cVar)++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "(MXCALL &cVar)++"
|
|
pre := '((&cVar))++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar.()"
|
|
pre := '(&cVar.)()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar.++"
|
|
pre := '(&cVar.)++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "(MXCALL &cVar.)++"
|
|
pre := '((&cVar.))++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar.1 ()"
|
|
pre := '(&cVar.1) ()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MXCALL &cVar.1 ++"
|
|
pre := '(&cVar.1) ++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "(MXCALL &cVar.1) ++"
|
|
pre := '((&cVar.1)) ++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
XTEXT TO VAR in
|
|
#translate MTRANSLATE <x> => normal_t(<"x">)
|
|
#translate MTRANSLATE <x:&> => macro_t(<(x)>)
|
|
#command MCOMMAND <x> => normal_c(<"x">)
|
|
#command MCOMMAND <x:&> => macro_c(<(x)>)
|
|
ENDTEXT
|
|
PrePrepare( pp, in )
|
|
|
|
in := "MTRANSLATE &cVar"
|
|
pre :='macro_t(cVar)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar."
|
|
pre :='macro_t(cVar)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &(cVar)"
|
|
pre :='macro_t((cVar))'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE & (cVar)"
|
|
pre :='macro_t((cVar))'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar&cVar"
|
|
pre :='macro_t("&cVar&cVar")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar+1"
|
|
pre :='macro_t(cVar)+1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar.+1"
|
|
pre :='macro_t(cVar)+1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar. .AND. .T."
|
|
pre :='macro_t(cVar) .AND. .T.'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar++"
|
|
pre :='macro_t(cVar)++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar.++"
|
|
pre :='macro_t(cVar)++'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar+=1"
|
|
pre :='macro_t(cVar)+=1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar.-=2"
|
|
pre :='macro_t(cVar)-=2'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar*=1"
|
|
pre :='macro_t(cVar)*=1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar/=2"
|
|
pre :='macro_t(cVar)/=2'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar%=1"
|
|
pre :='macro_t(cVar)%=1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar^=2"
|
|
pre :='macro_t(cVar)^=2'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar:=1"
|
|
pre :='macro_t(cVar):=1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar. .AND. .T."
|
|
pre :='macro_t(cVar) .AND. .T.'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar .AND. .T."
|
|
pre :='macro_t(cVar) .AND. .T.'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &(cVar) +1"
|
|
pre :='macro_t((cVar)) +1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE & (cVar) +1"
|
|
pre :='macro_t((cVar)) +1'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar.&cVar."
|
|
pre :='macro_t("&cVar.&cVar.")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar.&cVar.&cVar&cVar"
|
|
pre :='macro_t("&cVar.&cVar.&cVar&cVar")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MTRANSLATE &cVar.&(cVar)"
|
|
pre :='macro_t("&cVar.&")(cVar)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
/* command */
|
|
in := "MCOMMAND &cVar"
|
|
pre :='macro_c(cVar)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar."
|
|
pre :='macro_c(cVar)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &(cVar)"
|
|
pre :='macro_c((cVar))'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND & (cVar)"
|
|
pre :='macro_c((cVar))'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar&cVar"
|
|
pre :='macro_c("&cVar&cVar")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar+1"
|
|
pre :='normal_c("&cVar+1")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar.+1"
|
|
pre :='normal_c("&cVar.+1")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar. .AND. .T."
|
|
pre :='normal_c("&cVar. .AND. .T.")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar++"
|
|
pre :='normal_c("&cVar++")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar.++"
|
|
pre :='normal_c("&cVar.++")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar+=1"
|
|
pre :='normal_c("&cVar+=1")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar.-=2"
|
|
pre :='normal_c("&cVar.-=2")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar*=1"
|
|
pre :='normal_c("&cVar*=1")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar/=2"
|
|
pre :='normal_c("&cVar/=2")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar%=12"
|
|
pre :='normal_c("&cVar%=12")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar^=2"
|
|
pre :='normal_c("&cVar^=2")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar:=1"
|
|
pre :='normal_c("&cVar:=1")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar. .AND. .T."
|
|
pre :='normal_c("&cVar. .AND. .T.")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar .AND. .T."
|
|
pre :='normal_c("&cVar .AND. .T.")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &(cVar) +1"
|
|
pre :='normal_c((cVar) +1)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND & (cVar) +1"
|
|
pre :='normal_c( (cVar) +1)'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar.&cVar."
|
|
pre :='macro_c("&cVar.&cVar.")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar.&cVar.&cVar&cVar2"
|
|
pre :='macro_c("&cVar.&cVar.&cVar&cVar2")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "MCOMMAND &cVar.&(cVar)"
|
|
pre :='normal_c("&cVar.&(cVar)")'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/* repeated optional clauses */
|
|
TEXT TO VAR in
|
|
#xcommand SET <var1> [, <varN>] WITH <val> =>
|
|
<var1>:=<val> [; <varN>:=<val>]
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
in := "SET v1 WITH 0"
|
|
pre := "v1:=0 "
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "SET v1, v2 WITH 0"
|
|
pre := "v1:=0 ; v2:=0 "
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "SET v1, v2, v3 WITH 0"
|
|
pre := "v1:=0 ; v2:=0 ; v3:=0 "
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "SET v1, v2, v3, v4 WITH 0"
|
|
pre := "v1:=0 ; v2:=0 ; v3:=0 ; v4:=0 "
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#command AVG <x1> [, <xn>] TO <v1> [, <vn>] =>
|
|
AVERAGE( {||<v1>:=<v1>+<x1>} [, {||<vn>:=<vn>+<xn>} ] )
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
in := "AVG f1 TO s1"
|
|
pre := "AVERAGE({||s1:=s1+f1} )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "AVG f1, f2 TO s1, s2"
|
|
pre := "AVERAGE({||s1:=s1+f1} ,{||s2:=s2+f2} )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := "AVG f1, f2, f3 TO s1, s2, s3"
|
|
pre := "AVERAGE({||s1:=s1+f1} ,{||s2:=s2+f2} ,{||s3:=s3+f3} )"
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/* ---------------------------------------------------------------------*/
|
|
in := "COPY STRUCTURE EXTENDED TO teststru"
|
|
pre := '__dbCopyXStruct( "teststru" )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/* ---------------------------------------------------------------------*/
|
|
TEXT TO VAR in
|
|
#command @ <row>, <col> GET <var>
|
|
[PICTURE <pic>]
|
|
[VALID <valid>]
|
|
[WHEN <when>]
|
|
[CAPTION <caption>]
|
|
[MESSAGE <message>]
|
|
[SEND <msg>]
|
|
|
|
=> SetPos( <row>, <col> )
|
|
; AAdd( GetList,
|
|
_GET_( <var>, <"var">, <pic>, <{valid}>, <{when}> ) )
|
|
[; ATail(GetList):Caption := <caption>]
|
|
[; ATail(GetList):CapRow := ATail(Getlist):row
|
|
; ATail(GetList):CapCol := ATail(Getlist):col -
|
|
__CapLength(<caption>) - 1]
|
|
[; ATail(GetList):message := <message>]
|
|
[; ATail(GetList):<msg>]
|
|
; ATail(GetList):Display()
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
|
|
in := '@ 0,1 GET a'
|
|
pre := 'SetPos(0,1 ) ; AAdd(GetList,_GET_(a,"a",,, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '@ 0,2 GET a PICTURE "X"'
|
|
pre := 'SetPos(0,2 ) ; AAdd(GetList,_GET_(a,"a","X",, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '@ 0,3 GET a PICTURE "X" VALID .T.'
|
|
pre := 'SetPos(0,3 ) ; AAdd(GetList,_GET_(a,"a","X",{|| .T.}, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '@ 0,4 GET a PICTURE "X" VALID .T. WHEN .T.'
|
|
pre := 'SetPos(0,4 ) ; AAdd(GetList,_GET_(a,"a","X",{|| .T.},{|| .T.} ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '@ 0,5 GET a PICTURE "X" VALID .T. WHEN .T. CAPTION "myget"'
|
|
pre := 'SetPos(0,5 ) ; AAdd(GetList,_GET_(a,"a","X",{|| .T.},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '@ 0,6 GET a PICTURE "X" VALID .T. WHEN .T. CAPTION "myget" MESSAGE "mymess"'
|
|
pre := 'SetPos(0,6 ) ; AAdd(GetList,_GET_(a,"a","X",{|| .T.},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):message := "mymess" ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in := '@ 0,7 GET a PICTURE "X" VALID .T. WHEN .T. CAPTION "myget" MESSAGE "mymess" SEND send()'
|
|
pre := 'SetPos(0,7 ) ; AAdd(GetList,_GET_(a,"a","X",{|| .T.},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):message := "mymess" ; ATail(GetList):send() ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/* ---------------------------------------------------------------------*/
|
|
in :='@ 1,1 GET a RANGE 0,100'
|
|
pre := 'SetPos(1,1 ) ; AAdd(GetList,_GET_(a,"a",,{|_1| RangeCheck(_1,, 0, 100)}, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 1,2 GET a PICTURE "X" RANGE 0,100'
|
|
pre := 'SetPos(1,2 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)}, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
/* NOTE: Clipper fails here */
|
|
in :='@ 1,3 GET a PICTURE "X" VALID .T. RANGE 0,100'
|
|
pre := 'SetPos(1,3 ) ; AAdd(GetList,_GET_(a,"a","X",{|| .T.}, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 1,4 GET a PICTURE "X" WHEN .T. RANGE 0,100'
|
|
pre := 'SetPos(1,4 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 1,5 GET a PICTURE "X" WHEN .T. CAPTION "myget" RANGE 0,100'
|
|
pre := 'SetPos(1,5 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 1,6 GET a PICTURE "X" WHEN .T. CAPTION "myget" MESSAGE "mymess" RANGE 0,100'
|
|
pre := 'SetPos(1,6 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):message := "mymess" ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 1,7 GET a PICTURE "X" WHEN .T. CAPTION "myget" MESSAGE "mymess" SEND send() RANGE 0,100'
|
|
pre := 'SetPos(1,7 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):message := "mymess" ; ATail(GetList):send() ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 2,1 GET a'
|
|
pre := 'SetPos(2,1 ) ; AAdd(GetList,_GET_(a,"a",,, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 2,2 GET a RANGE 0,100 PICTURE "X"'
|
|
pre := 'SetPos(2,2 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)}, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 2,3 GET a PICTURE "X" RANGE 0,100'
|
|
pre := 'SetPos(2,3 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)}, ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 2,4 GET a PICTURE "X" RANGE 0,100 WHEN .T.'
|
|
pre := 'SetPos(2,4 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 2,5 GET a PICTURE "X" RANGE 0,100 WHEN .T. CAPTION "myget"'
|
|
pre := 'SetPos(2,5 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 2,6 GET a PICTURE "X" RANGE 0,100 WHEN .T. CAPTION "myget" MESSAGE "mymess"'
|
|
pre := 'SetPos(2,6 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):message := "mymess" ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 2,7 GET a PICTURE "X" RANGE 0,100 WHEN .T. CAPTION "myget" MESSAGE "mymess" SEND send()'
|
|
pre := 'SetPos(2,7 ) ; AAdd(GetList,_GET_(a,"a","X",{|_1| RangeCheck(_1,, 0, 100)},{|| .T.} ) ) ; ATail(GetList):Caption := "myget" ; ATail(GetList):CapRow := ATail(Getlist):row ; ATail(GetList):CapCol := ATail(Getlist):col - __CapLength("myget") - 1 ; ATail(GetList):message := "mymess" ; ATail(GetList):send() ; ATail(GetList):Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
/* ---------------------------------------------------------------------*/
|
|
TEXT TO VAR in
|
|
#command @ <row>, <col> GET <var>
|
|
PUSHBUTTON
|
|
[VALID <valid>]
|
|
[WHEN <when>]
|
|
[CAPTION <caption>]
|
|
[MESSAGE <message>]
|
|
[COLOR <color>]
|
|
[FOCUS <fblock>]
|
|
[STATE <sblock>]
|
|
[STYLE <style>]
|
|
[SEND <msg>]
|
|
[GUISEND <guimsg>]
|
|
[SIZE X <sizex> Y <sizey>]
|
|
[CAPOFF X <capxoff> Y <capyoff>]
|
|
[BITMAP <bitmap>]
|
|
[BMPOFF X <bmpxoff> Y <bmpyoff>]
|
|
|
|
=> SetPos( <row>, <col> )
|
|
; AAdd( GetList,
|
|
_GET_( <var>, <(var)>, NIL, <{valid}>, <{when}> ) )
|
|
; ATail(GetList):Control := _PushButt_( <caption>, <message>,
|
|
<color>, <{fblock}>, <{sblock}>, <style>,
|
|
<sizex>, <sizey>, <capxoff>, <capyoff>,
|
|
<bitmap>, <bmpxoff>, <bmpyoff> )
|
|
; ATail(GetList):reader := { | a, b, c, d |
|
|
GuiReader( a, b, c, d ) }
|
|
[; ATail(GetList):<msg>]
|
|
[; ATail(GetList):Control:<guimsg>]
|
|
; ATail(GetList):Control:Display()
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,, ) ) ; ATail(GetList):Control := _PushButt_(,,,,,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()}, ) ) ; ATail(GetList):Control := _PushButt_(,,,,,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_(,,,,,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap"'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap",,,,,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes"'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",,,,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),,,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state() STYLE style()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},style(),,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state() STYLE style() SEND send()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},style(),,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):send() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state() STYLE style() SEND send() GUISEND guisend()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},style(),,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):send() ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state() STYLE style() SEND send() GUISEND guisend() SIZE X 100 Y 100'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},style(),100,100,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):send() ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state() STYLE style() SEND send() GUISEND guisend() SIZE X 100 Y 100 CAPOFF X 10 Y 10'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},style(),100,100,10,10,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):send() ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state() STYLE style() SEND send() GUISEND guisend() SIZE X 100 Y 100 CAPOFF X 10 Y 10 BITMAP bitmap()'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},style(),100,100,10,10,bitmap(),, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):send() ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON VALID valid() WHEN when() CAPTION "cap" MESSAGE "mes" COLOR color() FOCUS focus() STATE state() STYLE style() SEND send() GUISEND guisend() SIZE X 100 Y 100 CAPOFF X 10 Y 10 BITMAP bitmap() BMPOFF X 2 Y 2'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes",color(),{|| focus()},{|| state()},style(),100,100,10,10,bitmap(),2,2 ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):send() ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON COLOR "W/N"'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,, ) ) ; ATail(GetList):Control := _PushButt_(,,"W/N",,,,,,,,,, ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON COLOR "W/N" SIZE X 100 Y 100 BMPOFF X 2 Y 2 VALID valid() GUISEND guisend() WHEN when() MESSAGE "mes"'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_(,"mes","W/N",,,,100,100,,,,2,2 ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON SIZE X 100 Y 100 BMPOFF X 2 Y 2 VALID valid() GUISEND guisend() WHEN when() MESSAGE "mes" COLOR "W/N"'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_(,"mes","W/N",,,,100,100,,,,2,2 ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
in :='@ 4,1 GET a PUSHBUTTON SIZE X 100 Y 100 BMPOFF X 2 Y 2 VALID valid() GUISEND guisend() WHEN when() MESSAGE "mes" COLOR "W/N" CAPOFF X 10 Y 10 FOCUS focus() STATE state() STYLE style() SEND send() BITMAP bitmap() CAPTION "cap"'
|
|
pre := 'SetPos(4,1 ) ; AAdd(GetList,_GET_(a,"a",NIL,{|| valid()},{|| when()} ) ) ; ATail(GetList):Control := _PushButt_("cap","mes","W/N",{|| focus()},{|| state()},style(),100,100,10,10,bitmap(),2,2 ) ; ATail(GetList):reader := { | a,b,c,d | GuiReader(a,b,c,d ) } ; ATail(GetList):send() ; ATail(GetList):Control:guisend() ; ATail(GetList):Control:Display()'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
TEXT TO VAR in
|
|
#command DEFINE CLIPBOARD <oClp>
|
|
[ FORMAT <format:TEXT,OEMTEXT,BITMAP,DIF> ]
|
|
[ OF <oWnd> ]
|
|
=>
|
|
<oClp> := TClipboard():New( [UPPER(<(format)>)], <oWnd> )
|
|
ENDTEXT
|
|
__pp_process( pp, in )
|
|
in:= "DEFINE CLIPBOARD oC OF oD FORMAT TEXT"
|
|
pre :='oC := TClipboard():New(UPPER("TEXT") ,oD )'
|
|
nRes += PreResult( pre, PreRun( pp, in, pre ), @nCnt )
|
|
|
|
|
|
|
|
/* ---------------------------------------------------------------------*/
|
|
|
|
OutStd( "Total count =", nCnt, hb_eol() )
|
|
OutStd( "Valid results =", nRes, hb_eol() )
|
|
OutStd( "Failed results=", nCnt - nRes, hb_eol() )
|
|
|
|
RETURN
|
|
|
|
PROCEDURE PrePrepare( pp, in )
|
|
LOCAL len, i, cin
|
|
|
|
len := MLCOUNT( in )
|
|
FOR i := 1 TO len
|
|
cin := ALLTRIM( MEMOLINE( in, 192, i ) )
|
|
__pp_process( pp, cin )
|
|
NEXT
|
|
|
|
RETURN
|
|
|
|
FUNCTION PreRun( pp, in, pre )
|
|
LOCAL len, i, cin
|
|
LOCAL out := ''
|
|
|
|
#ifdef __HARBOUR__
|
|
HB_SYMBOL_UNUSED( pre )
|
|
#endif
|
|
|
|
len := MLCOUNT( in, 1024 )
|
|
FOR i := 1 TO len
|
|
cin := ALLTRIM( MEMOLINE( in, 1024, i ) )
|
|
out += __pp_process( pp, cin )
|
|
NEXT
|
|
|
|
RETURN out
|
|
|
|
FUNCTION PreResult( pre, out, pCnt )
|
|
LOCAL i
|
|
|
|
pCnt++
|
|
pre := strtran( pre," " ); out := strtran( out," " )
|
|
IF pre == out
|
|
RETURN 1
|
|
ELSE
|
|
OutStd( pre, hb_eol() )
|
|
OutStd( out, hb_eol() )
|
|
OutStd( " => FAILED in LINE: ", PROCLINE( 1 ), hb_eol() )
|
|
i := 1
|
|
DO WHILE SUBSTR( pre, i, 1 ) == SUBSTR( out, i, 1 )
|
|
i++
|
|
ENDDO
|
|
OutStd( SUBSTR( pre, i ), hb_eol() )
|
|
OutStd( SUBSTR( out, i ), hb_eol() )
|
|
ENDIF
|
|
|
|
RETURN 0
|