abe158c8d0
* include/hbapi.h
* source/rtl/empty.c
* source/rtl/idle.c
* source/vm/arrays.c
* source/vm/estack.c
* source/vm/extend.c
* source/vm/itemapi.c
* added missing code to use HB_IT_POINTER just like
other value's type
You can use:
hb_retptr( void * pointer )
hb_parptr( ) -> void *
hb_storptr( void * pointer, ...... )
to return/manage pointers from low level functions.
For example:
p = GET_SOME_POINTER()
? VALTYPE(p) //prints: 'P'
? p //prints: 0x12345678
* tests/onidle.prg
* fixed to use values of pointer type
* tests/tstmacro.prg
* added code to test TYPE() function
167 lines
3.9 KiB
Plaintext
167 lines
3.9 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "hbclass.ch"
|
|
|
|
MEMVAR cStr, cStr_1, cVar_1, aVar, oVar, OtherVar, SomeVar, Private
|
|
MEMVAR cMainPrivate, GlobalPrivate, BornInRunTimeVar, Public
|
|
|
|
Function Main( )
|
|
|
|
PRIVATE cStr := 'cVar', cStr_1 := 'cVar_1', aVar := { 'cVar_1' }, oVar
|
|
|
|
PRIVATE cVar_1, cMainPrivate := 'cVar_1', GlobalPrivate := 'BornInRunTimeVar'
|
|
|
|
&cStr_1 = 'Simple '
|
|
? M->cVar_1
|
|
|
|
&( 'cVar' + '_1' ) := 'Macro'
|
|
?? M->cVar_1
|
|
|
|
M->&cStr_1 = 'Aliased'
|
|
? M->cVar_1
|
|
|
|
MEMVAR->&( 'cVar' + '_1' ) := ' Macro'
|
|
?? M->cVar_1
|
|
|
|
cStr := 'cVar_'
|
|
&cStr.1 = 'Concatenated Macro (Numeric)'
|
|
? M->cVar_1
|
|
|
|
cStr := 'cVar'
|
|
&cStr._1 = 'Concatenated Macro (String)'
|
|
? M->cVar_1
|
|
|
|
&( aVar[1] ) := 'Array Macro'
|
|
? M->cVar_1
|
|
|
|
oVar := TValue():New()
|
|
oVar:cVal := 'cVar_1'
|
|
&( oVar:cVal ) := 'Class Macro'
|
|
? M->cVar_1
|
|
|
|
SubFun()
|
|
|
|
? '"cVar_1" = [' + M->cVar_1 + '] AFTER SubFun() PRIVATE'
|
|
|
|
? M->NewPublicVar
|
|
|
|
TEST_TYPE()
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION TValue
|
|
|
|
STATIC oClass
|
|
|
|
IF oClass == NIL
|
|
oClass = HBClass():New( "TValue" )
|
|
|
|
oClass:AddData( "cVal" )
|
|
oClass:AddMethod( "New", @New() ) // New Method
|
|
|
|
oClass:Create()
|
|
|
|
ENDIF
|
|
|
|
RETURN( oClass:Instance() )
|
|
|
|
STATIC FUNCTION New()
|
|
|
|
LOCAL Self := QSelf()
|
|
|
|
RETURN Self
|
|
|
|
Function SubFun()
|
|
|
|
? '"cVar_1" = [' + M->cVar_1 + '] BEFORE SubFun() PRIVATE'
|
|
|
|
// Testing conflict with KEY WORDS
|
|
PRIVATE PRIVATE := 'I am a Var named PRIVATE ', &cMainPrivate, SomeVar, OtherVar := 1, &GlobalPrivate := 'I was born in Run Time'
|
|
PUBLIC PUBLIC := 'NewPublicVar'
|
|
PUBLIC &PUBLIC
|
|
|
|
? M->NewPublicVar
|
|
|
|
M->NewPublicVar := 'Still Alive because I am PUBLIC'
|
|
|
|
? M->PRIVATE + PRIVATE
|
|
? PRIVATE + M->PRIVATE
|
|
|
|
? BornInRunTimeVar
|
|
|
|
&cMainPrivate := 'In SubFun()'
|
|
|
|
? '"cVar_1" = [' + M->cVar_1 + '] in SubFun() PRIVATE'
|
|
|
|
RETURN NIL
|
|
|
|
STATIC PROCEDURE TEST_TYPE()
|
|
LOCAL v1, v2, v1a, v2a
|
|
LOCAL bErr:=ERRORBLOCK({|e|BREAK(e)}), oE
|
|
|
|
?
|
|
? "=========== TYPE() function ================="
|
|
v1 := "UDF()"
|
|
? "Test for TYPE('UDF()') - should be 'UI': ", TYPE(v1)
|
|
v2 := "UDF_STATIC()"
|
|
? "Test for TYPE('UDF_STATIC()') - should be 'U': ", TYPE(v2)
|
|
? "Test for &"+"'UDF()' - should print 'udf': ", &v1
|
|
? "Test for &"+"'UDF_STATIC()' - should print 'ERROR: undefined function': "
|
|
BEGIN SEQUENCE
|
|
?? &v2
|
|
RECOVER USING oE
|
|
? "ERROR: "+oE:Description
|
|
END SEQUENCE
|
|
ERRORBLOCK(bErr)
|
|
|
|
v1 := "UDF"
|
|
? "Test for TYPE('UDF') - should be 'U': ", TYPE(v1)
|
|
v2 := "UDF_STATIC"
|
|
? "Test for TYPE('UDF_STATIC') - should be 'U': ", TYPE(v2)
|
|
|
|
v1a := "UDF:=1"
|
|
? "Test for TYPE('UDF:=1') - should be 'N': ", TYPE(v1a)
|
|
v2a := "UDF_STATIC:=1"
|
|
? "Test for TYPE('UDF_STATIC:=1') - should be 'N': ", TYPE(v2a)
|
|
|
|
? "=== after the assignment ==="
|
|
v1 := "UDF"
|
|
? "Test for TYPE('UDF') - should be 'N': ", TYPE(v1)
|
|
v2 := "UDF_STATIC"
|
|
? "Test for TYPE('UDF_STATIC') - should be 'N': ", TYPE(v2)
|
|
|
|
v1 := "UDF()"
|
|
? "Test for TYPE('UDF()') - should be 'UI': ", TYPE(v1)
|
|
v2 := "UDF_STATIC()"
|
|
? "Test for TYPE('UDF_STATIC()') - should be 'U': ", TYPE(v2)
|
|
|
|
|
|
? "=== declared public variable ==="
|
|
PUBLIC UDF2, UDF2_STATIC
|
|
v1 := "UDF2()"
|
|
? "Test for TYPE('UDF2()') - should be 'UI': ", TYPE(v1)
|
|
v2 := "UDF2_STATIC()"
|
|
? "Test for TYPE('UDF2_STATIC()') - should be 'U': ", TYPE(v2)
|
|
|
|
v1 := "UDF2"
|
|
? "Test for TYPE('UDF') - should be 'L': ", TYPE(v1)
|
|
v2 := "UDF2_STATIC"
|
|
? "Test for TYPE('UDF_STATIC') - should be 'L': ", TYPE(v2)
|
|
|
|
?
|
|
RETURN
|
|
|
|
STATIC FUNCTION UDF_STATIC()
|
|
RETURN "udf_static"
|
|
|
|
FUNCTION UDF()
|
|
RETURN "udf"
|
|
|
|
STATIC FUNCTION UDF2_STATIC()
|
|
RETURN "udf2_static"
|
|
|
|
FUNCTION UDF2()
|
|
RETURN "udf2"
|