04837b2eaa
* include/hbvmpub.h
* Modified HB_FS_FIRST to ( ( HB_SYMBOLSCOPE ) 0x04 )
* source/compiler/harbour.c
* Minor optimization when storing HB_FS_FIRST
* source/pp/pptable.c
- Removed built-in rule, for STRUCTURE support
* source/vm/runner.c
! Fixed bug when there is no startup procedure
* source/rtl/tclass.prg
- Removed HB_Structure()
* include/hbextern.ch
* Moved EXTERNAL HB_STRUCTURE to separate section
* tests/teststru.prg
+ added #INCLUDE "..\Include\HBSTRUC.CH"
+ include/hbstruc.ch
+ source/rtl/hbstruc.prg
* makefile.bc
+ Added rules for hbstruc.prg
11 lines
557 B
Plaintext
11 lines
557 B
Plaintext
#ifndef HB_STRUCTURE
|
|
|
|
#define HB_STRUCTURE
|
|
|
|
#COMMAND STRUCTURE <StruName> <Var1> <x1:AS CLASS,AS STRUCTURE,AS STRU,AS ARRAY OF,AS> <Type1> [, <VarN> <xN:AS CLASS,AS STRUCTURE,AS STRU,AS ARRAY OF,AS> <TypeN> ] => ;
|
|
STATIC __<StruName> := {|| IF( __<StruName> == NIL, , ) , HB_Structure( <"StruName">, { <"Var1"> [, <"VarN">] } )} ;;
|
|
DECLARE <StruName> <Var1> <x1> <Type1> [ <VarN> <xN> <TypeN> ] ;;
|
|
#TRANSLATE AS NEW <StruName> => AS STRUCTURE <StruName> := ( Eval( __<StruName> ), HB_Structure( <"StruName"> ) )
|
|
|
|
#endif
|