Go to the source code of this file.
|
#define | L1(t) L2(t, 0) |
|
#define | L2(t1, t2) ((t1 << 16) | (t2)) |
|
#define | DECODE_L2(a, t1, t2) t1 = (a) >> 16; t2 = (a) & ((1 << 16) - 1) |
|
#define | Add_Arg(ptr, type, val) (*((type *) (ptr)) = (val) , (ptr)++) |
|
#define | Get_Arg(ptr, type, val) ((val) = *((type *) (ptr)) , (ptr)++) |
|
|
enum | ArgTyp {
IDENTIFIER = 256,
INTEGER,
FLOAT,
MEM,
X_REG,
Y_REG,
FL_ARRAY,
FD_ARRAY,
STRING,
ATOM = 256,
INTEGER,
FLOAT,
X_Y,
F_N,
MP_N,
LABEL,
ANY,
LIST_INST
} |
|
#define Add_Arg |
( |
|
ptr, |
|
|
|
type, |
|
|
|
val |
|
) |
| (*((type *) (ptr)) = (val) , (ptr)++) |
#define DECODE_L2 |
( |
|
a, |
|
|
|
t1, |
|
|
|
t2 |
|
) |
| t1 = (a) >> 16; t2 = (a) & ((1 << 16) - 1) |
#define Get_Arg |
( |
|
ptr, |
|
|
|
type, |
|
|
|
val |
|
) |
| ((val) = *((type *) (ptr)) , (ptr)++) |
#define L2 |
( |
|
t1, |
|
|
|
t2 |
|
) |
| ((t1 << 16) | (t2)) |
Enumerator |
---|
IDENTIFIER |
|
INTEGER |
|
FLOAT |
|
MEM |
|
X_REG |
|
Y_REG |
|
FL_ARRAY |
|
FD_ARRAY |
|
STRING |
|
ATOM |
|
INTEGER |
|
FLOAT |
|
X_Y |
|
F_N |
|
MP_N |
|
LABEL |
|
ANY |
|
LIST_INST |
|
int Parse_Wam_File |
( |
char * |
file_name_in, |
|
|
int |
comment |
|
) |
| |
void Syntax_Error |
( |
char * |
s | ) |
|