9f0c672127
* tests/cursrtst.prg
* tests/db_brows.prg
* tests/debugtst.prg
* tests/dirtest.prg
* tests/foreach.prg
* tests/funcarr.prg
* tests/memvar.prg
* tests/objarr.prg
* tests/onidle.prg
* tests/speedstr.prg
* tests/speedtst.prg
* tests/switch.prg
* tests/testdbf.prg
* tests/testdecl.prg
* tests/testget.prg
* formatting
76 lines
1.3 KiB
Plaintext
76 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Test for DECLARE statement
|
|
|
|
#include "hbclass.ch"
|
|
|
|
#translate AS NEW <ClassName> => AS CLASS <ClassName> := <ClassName>():New()
|
|
|
|
DECLARE nMyFun() AS NUMERIC
|
|
|
|
/*
|
|
DECLARE MyClass ;
|
|
NEW AS CLASS MyClass ;
|
|
While AS String ;
|
|
cVar AS String
|
|
*/
|
|
|
|
DECLARE MyFun( Var1 AS STRING, OPTIONAL Var1 ) AS LOGICAL
|
|
|
|
DECLARE SomeFunc( OPTIONAL SomeVar AS STRING )
|
|
|
|
//DECLARE SomeFunc( OPTIONAL SomeVar AS STRING, OPTIONAL OtherVar )
|
|
|
|
CLASS MyClass
|
|
METHOD New() Constructor
|
|
VAR While AS STRING
|
|
VAR cVar AS STRING
|
|
END CLASS
|
|
|
|
INIT PROCEDURE Main()
|
|
|
|
MEMVAR Var1, Var2, aVar
|
|
MEMVAR Var3, aVar5, aVar8, Var7
|
|
LOCAL MyObj AS NEW MyClass
|
|
|
|
DECLARE Var1
|
|
DECLARE Var2 := 2
|
|
DECLARE aVar[ 2 ]
|
|
DECLARE Var3 := "Var9", Var4, aVar5[ 1 ]
|
|
DECLARE Var6, Var7:=7, aVar8[ 8 ]
|
|
DECLARE Var9
|
|
DECLARE &var3
|
|
DECLARE &Var3.
|
|
DECLARE &Var3. ; DECLARE &Var3.&Var3
|
|
DECLARE &Var3.var3
|
|
DECLARE Var3&Var3
|
|
DECLARE Var3&Var3.
|
|
DECLARE Var3&Var3&Var3
|
|
|
|
M->Var1 := nMyFun()
|
|
? M->Var1
|
|
|
|
? M->Var2
|
|
|
|
M->aVar[ 1 ] := "Array Element"
|
|
? M->aVar[ 1 ]
|
|
|
|
MyObj:cVar := "Hello"
|
|
? MyObj:cVar
|
|
|
|
M->Var1 := MyClass():New()
|
|
? M->Var1:While
|
|
|
|
RETURN
|
|
|
|
METHOD New() CLASS MyClass
|
|
|
|
::While := 2 // TODO: Should produce RT Error.
|
|
|
|
RETURN Self
|
|
|
|
FUNCTION nMyFun()
|
|
RETURN 1
|