2c5ad9f51d
* include/hbapi.h
* source/rtl/idle.c
+ Added hb_idleReset()
* source/rtl/inkey.c
* Replaced direct idle flags reset with call to hb_idleReset()
* tests/testidle.prg
+ Added 2nd block test.
+ tests/testget.prg
+ Added test for plain gets, array gets, macro gets, and object data gets.
* hb_slex.bc
* include/hbver.h
* source/common/hbver.c
* source/compiler/genc.c
* source/compiler/genjava.c
* source/compiler/genobj32.c
* source/compiler/hbusage.c
+ Added HB_VER_LEX macro and added to Build Info.
* config/dos/djgpp.cf
* config/linux/gcc.cf
* config/w32/bcc32.cf
* config/w32/gcc.cf
+ Added -DSIMPLEX to C[LIB]FLAGS of SimpLex build
31 lines
676 B
Plaintext
31 lines
676 B
Plaintext
Procedure Main()
|
|
|
|
LOCAL GetList := {}, cVar := "Hello"
|
|
MEMVAR aVar, nIndex, cMacro
|
|
PRIVATE aVar := { "World", "Again" }, nIndex := 1, cMacro := "cEarly", cEarly := "Early", cLate := "Late!"
|
|
|
|
CLS
|
|
|
|
? "2nd GET should say 'Early'."
|
|
|
|
@ 10,10 SAY "cVar :" GET cVar PICTURE "@K!"
|
|
@ 12,10 SAY "cMacro :" GET &cMacro
|
|
nIndex := 2
|
|
@ 14,10 SAY "aVar :" GET aVar[nIndex]
|
|
@ 16,10 SAY "Picture of GET-1:" GET GetList[1]:Picture
|
|
nIndex := 3
|
|
cMacro := "cLate"
|
|
READ
|
|
|
|
CLS
|
|
|
|
? "This GET should say 'Late!'."
|
|
cMacro := "cEarly"
|
|
@ 10,10 SAY "cMacro :" GET &(cMacro)
|
|
cMacro := "cLate"
|
|
READ
|
|
|
|
RETURN
|
|
|
|
|