harbour-core/harbour/tests/testdecl.prg

/*
 * $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 )

CREATE 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