f4d02db8f1
* tests/ac_test.prg
* tests/ac_test2.prg
* tests/begin.prg
* tests/box.prg
* tests/byref.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/ifinline.prg
* tests/memvar.prg
* tests/menutest.prg
* tests/readhrb.prg
* tests/speed.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/switch.prg
* tests/testbrw.prg
* tests/testcdx.prg
* tests/testdecl.prg
* tests/testhrb.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/tstalias.prg
* tests/tstmacro.prg
* tests/varparam.prg
* more cleanups. (assignment operator and string quote usage)
27 lines
581 B
Plaintext
27 lines
581 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL Program := { , }, Condition := 1, body := 2, Counter := 1, TheEnd := 1000000, stop, start
|
|
|
|
Program[ condition ] := {|| Counter == TheEnd }
|
|
Program[ body ] := {|| Counter ++ }
|
|
? start := Second()
|
|
|
|
// in Clipper :
|
|
// WHILE ! Program[ condition ]:Eval() ; Program[ body ]:Eval()
|
|
// why Harbour CodeBlocks don't have Eval() method ?!
|
|
|
|
// Now It is supported.
|
|
|
|
DO WHILE ! Eval( Program[ condition ] )
|
|
Eval( Program[ body ] )
|
|
ENDDO
|
|
? stop := Second()
|
|
? "==============="
|
|
? stop - start
|
|
|
|
RETURN
|