a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
27 lines
579 B
Plaintext
27 lines
579 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
|