8c77111447
* tests/mathtest.prg
* tests/testcgi.prg
* tests/speedold.prg
* tests/testhtml.prg
* tests/wvtext.prg
* tests/testpre.prg
* tests/testfor.prg
* doc/en-EN/string.txt
* doc/en-EN/memvar2.txt
* source/rtl/gtdos/gtdos.c
* source/rtl/gtsln/keytrans.c
* source/rtl/gtsln/mousesln.c
* source/rtl/gtsln/gtsln.c
* source/rtl/gtsln/kbsln.c
* source/rdd/dbfntx/dbfntx1.c
* source/rdd/dbfnsx/dbfnsx1.c
* source/compiler/genc.c
* contrib/gtalleg/ssf.c
* contrib/hbct/strdiff.c
* contrib/hbct/tests/csetarge.prg
* contrib/hbct/dattime2.c
* contrib/xhb/fparse.c
* contrib/xhb/ttable.prg
* contrib/xhb/freadlin.c
* contrib/xhb/cstruct.prg
* contrib/hbgt/strasint.c
* contrib/hbfbird/tests/testapi.c
* contrib/hbxbp/xbpsle.prg
* contrib/hbxbp/xbpmenubar.prg
* contrib/hbxbp/xbpfiledialog.prg
* contrib/hbxbp/xbpwindow.prg
* contrib/hbxbp/xbpdialog.prg
* contrib/hbxbp/xbp3state.prg
* contrib/hbnf/scancode.prg
* contrib/hbnf/vidmode.prg
* contrib/hbnf/vidcur.prg
* contrib/hbnf/proper.c
* contrib/hbnf/rand1.prg
* contrib/hbnf/fttext.c
* contrib/hbnf/settime.prg
* contrib/hbnf/page.prg
* contrib/hbnf/findith.prg
* contrib/hbnf/at2.prg
* contrib/hbnf/dispc.c
* contrib/hbnf/gcd.prg
* contrib/hbnf/dosver.prg
* contrib/hbnf/nooccur.prg
* contrib/hbnf/asum.prg
* contrib/hbnf/sleep.prg
* contrib/hbnf/wda.prg
* contrib/hbnf/any2any.prg
* contrib/hbnf/setdate.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/blink.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/xbox.prg
* contrib/hbnf/ftround.prg
* contrib/hbnf/hex2dec.prg
* contrib/hbnf/nwuid.prg
* contrib/hbnf/aemaxlen.prg
* contrib/hbnf/nwlstat.prg
* contrib/hbnf/invclr.prg
* contrib/hbnf/diskfunc.prg
* contrib/hbnf/scregion.prg
* contrib/hbnf/d2e.prg
* contrib/hbnf/anomatch.prg
* contrib/hbnf/cntryset.prg
* contrib/hbnf/ntow.prg
* contrib/hbnf/aeminlen.prg
* contrib/hbnf/savesets.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/calendar.prg
* contrib/hbnf/e2d.prg
* contrib/hbnf/sysmem.prg
* contrib/hbnf/aading.prg
* contrib/hbnf/pending.prg
* contrib/gtqtc/tests/demoqtc.prg
* contrib/gtqtc/gtqtc.cpp
* contrib/gtwvg/wvgscrlb.prg
* contrib/gtwvg/wvgclass.prg
* contrib/gtwvg/wvgax.prg
* contrib/gtwvg/wvgpaint.prg
* contrib/gtwvg/wvgdarea.prg
* contrib/gtwvg/wvgmle.prg
* contrib/gtwvg/wvglistb.prg
* contrib/gtwvg/wvggui.c
* contrib/gtwvg/wvgpushb.prg
* contrib/gtwvg/wvgsle.prg
* contrib/gtwvg/tests/demowvg.prg
* contrib/gtwvg/wincallb.c
* contrib/gtwvg/wvgmenub.prg
* contrib/gtwvg/wvgphdlr.prg
* contrib/gtwvg/wvgcheck.prg
* contrib/gtwvg/wvgstatb.prg
* contrib/gtwvg/wvgstatc.prg
* contrib/gtwvg/wvgcore.c
* contrib/gtwvg/wvgtabpg.prg
* contrib/gtwvg/wvg3stat.prg
* contrib/gtwvg/wvgsink.c
* contrib/gtwvg/wvgwing.c
* contrib/hbmisc/hb_f.c
* contrib/hbmisc/nconvert.prg
* contrib/hbmisc/doc/en/ht_file.txt
* contrib/hbvpdf/hbvpdf.prg
* contrib/hbvpdf/hbvpdft.prg
* examples/hbdoc/examples/core_es/memvar2.txt
* examples/hbmake/hbmake.prg
* examples/hbsqlit2/tests/hbsqlite.prg
* examples/guestbk/testcgi.prg
* examples/guestbk/guestbk.prg
* examples/pe/editorhi.prg
* examples/terminal/trm_cli.prg
* examples/terminal/terminal.prg
* examples/hscript/dir.hs
* examples/hscript/ugly.hs
* Minor formatting.
84 lines
1.7 KiB
Plaintext
84 lines
1.7 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
FUNCTION Main()
|
|
|
|
LOCAL cString
|
|
LOCAL i, j, aScript
|
|
|
|
CLS
|
|
|
|
qOut( "Testing Harbour run-time preprocessing" )
|
|
qOut( "======================================" )
|
|
qOut( "" )
|
|
|
|
cString := "@ 10, 10 SAY 'Hello!'"
|
|
qOut( cString )
|
|
qOut( __Preprocess( cString ) )
|
|
qOut( "" )
|
|
|
|
cString := "? 'Hello mom'"
|
|
qOut( cString )
|
|
qOut( __Preprocess( cString ) )
|
|
qOut( "" )
|
|
|
|
cString := 'SET RELATION TO Something INTO MySelf'
|
|
qOut( cString )
|
|
qOut( __Preprocess( cString ) )
|
|
qOut( "" )
|
|
|
|
cString := 'SET RELATION ADDITIVE TO Something INTO YourSelf'
|
|
qOut( cString )
|
|
qOut( __Preprocess( cString ) )
|
|
qOut( "" )
|
|
|
|
cString := "#xcommand DEFAULT <v1> := <x1> => IF <v1> == NIL ; <v1> := <x1> ; END"
|
|
qOut( cString )
|
|
IF __ppAddRule( cString )
|
|
qOut( "Rule added successfully !" )
|
|
ELSE
|
|
qOut( "Rule addition failed ..." )
|
|
ENDIF
|
|
|
|
cString := 'DEFAULT x := 100'
|
|
qOut( cString )
|
|
qOut( __Preprocess( cString ) )
|
|
qOut( "" )
|
|
|
|
qOut( "Press <Enter>..." )
|
|
__Accept( "" )
|
|
|
|
CLS
|
|
|
|
aScript := { 'cMyDatabase := "dontknow.dbf"', ;
|
|
'USE (cMyDatabase)', ;
|
|
'GO TOP', ;
|
|
'', ;
|
|
'? MYFIELD, YOURFIELD', ;
|
|
'', ;
|
|
'WAIT "Press <Enter> key..."', ;
|
|
'', ;
|
|
'CLOSE ALL' }
|
|
|
|
FOR j := 1 TO 2
|
|
qOut( iif( j = 1, "Before", "After" ) + " __Preprocess()" )
|
|
qOut( "===================" )
|
|
qOut( "" )
|
|
FOR i := 1 TO len( aScript )
|
|
|
|
? iif( j = 1, aScript[i], __Preprocess( aScript[i] ) )
|
|
|
|
NEXT
|
|
qOut( "" )
|
|
qOut( "Press <Enter> key..." )
|
|
__Accept( "" )
|
|
CLS
|
|
NEXT
|
|
|
|
RETURN NIL
|
|
|
|
Exit PROCEDURE ExitTest
|
|
__PP_Free()
|
|
Return
|