0bdf95967e
* harbour.y
+ added TOKEN MACROALIAS and rules to support MemVar aliased macro and non aliased macro variables assignments.
* harbour.l
+ added rules to support new TOKEN MACROALIAS
+tests/tstmacro.prg
sample program to demonstarte new macro assigments support.
20 lines
227 B
Plaintext
20 lines
227 B
Plaintext
Function nMyFunc( )
|
|
|
|
LOCAL n := 'cVar1'
|
|
|
|
PRIVATE cVar1
|
|
|
|
&n = 'Simple '
|
|
? M->cVar1
|
|
|
|
&( 'cVar' + '1' ) := 'Macro'
|
|
?? M->cVar1
|
|
|
|
M->&n = 'Aliased'
|
|
? M->cVar1
|
|
|
|
MEMVAR->&( 'cVar' + '1' ) := ' Macro'
|
|
?? M->cVar1
|
|
|
|
return NIL
|