232f180695
* tests/arrayidx.prg
* tests/brwpos.prg
* tests/clasinit.prg
* tests/clsicast.prg
* tests/clsscast.prg
* tests/clsscope.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/cpinfo.prg
* tests/db_brows.prg
* tests/destruct.prg
* tests/dynobj.prg
* tests/flink.prg
* tests/fortest.prg
* tests/fsplit.prg
* tests/inherit.prg
* tests/keywords.prg
* tests/multiarg.prg
* tests/newrdd.prg
* tests/onidle.prg
* tests/overload.prg
* tests/rto_get.prg
* tests/setkeys.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/tb1.prg
* tests/testbrw.prg
* tests/testdbf.prg
* tests/testhtml.prg
* tests/testwarn.prg
* tests/tstblock.prg
* tests/tstmacro.prg
* tests/wvtext.prg
* more cleanups
54 lines
763 B
Plaintext
54 lines
763 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL i, bBlock[ 3 ]
|
|
|
|
MEMVAR Var1, Var2, Var3, Macro
|
|
PRIVATE Var1, Var2, Var3, Macro
|
|
|
|
M->Var1 := "Var1"
|
|
M->Var2 := "Var2"
|
|
M->Var3 := "Var3"
|
|
|
|
CLS
|
|
|
|
FOR i := 1 TO 3
|
|
M->Macro := "Var" + Str( i, 1 )
|
|
bBlock[ i ] := {|| &Macro }
|
|
NEXT
|
|
|
|
? "Early (Simple):"
|
|
|
|
FOR i := 1 TO 3
|
|
? Eval( bBlock[ i ] )
|
|
NEXT
|
|
|
|
FOR i := 1 TO 3
|
|
M->Macro := "Var" + Str( i, 1 )
|
|
bBlock[ i ] := {|| &Macro + "!" }
|
|
NEXT
|
|
|
|
?
|
|
? "Early (Complex):"
|
|
|
|
FOR i := 1 TO 3
|
|
? Eval( bBlock[ i ] )
|
|
NEXT
|
|
|
|
FOR i := 1 TO 3
|
|
M->Macro := "Var" + Str( i, 1 )
|
|
bBlock[ i ] := {|| &( Macro ) }
|
|
NEXT
|
|
|
|
?
|
|
? "Late:"
|
|
|
|
FOR i := 1 TO 3
|
|
? Eval( bBlock[ i ] )
|
|
NEXT
|
|
|
|
RETURN
|