35 lines
319 B
Plaintext
35 lines
319 B
Plaintext
'EQUATES
|
|
|
|
% half 0.5
|
|
$ title "My Metaprogram"
|
|
|
|
'CONDITIONAL BLOCKS
|
|
|
|
#ifdef ...
|
|
...
|
|
#elseif ...
|
|
...
|
|
#else
|
|
...
|
|
#endif
|
|
|
|
'MACROS
|
|
|
|
'msdos-like
|
|
def sum
|
|
%1 + %2
|
|
end def
|
|
|
|
'C-like
|
|
#define sum(a,b) a + b
|
|
|
|
'native
|
|
macro sum(a,b)
|
|
a + b
|
|
end macro
|
|
|
|
'native macro functions
|
|
macro sum int(r,a,b)
|
|
r = a + b
|
|
end macro
|