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 | ) |
|