1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/* l2xisftc.h Interpreter stack and form codes */
/* fotc = FORM only *
/* sotc = STACK only */
/* sftc = STACK and FORM correspond */
/* STACK string FORM string */
sftc(STKNOF, "", NO_FORM, "no form")
sotc(STKADD, "address", NO_FORM, "")
sftc(STKARY, "array", ARRAY_FORM, "array")
sftc(STKBAG, "bag", BAG_FORM, "bag")
fotc(STKNOF, "", BOUND_FORM, "bound")
sftc(STKENT, "entity", ENTITY_FORM, "entity")
fotc(STKINT, "integer", ENUM_FORM, "enumeration")
sotc(STKINT, "integer", SCALAR_FORM, "scalar")
sftc(STKLST, "list", LIST_FORM, "list")
sotc(STKLOG, "logical", ENUM_FORM, "enumeration")
sotc(STKREA, "real", SCALAR_FORM, "scalar")
fotc(STKNOF, "", SCALAR_FORM, "scalar")
sftc(STKSET, "set", SET_FORM, "set")
sftc(STKSTR, "string", STRING_FORM, "string")
fotc(STKNOF, "", SUBRANGE_FORM, "subrange")
sotc(STKUDF, "indeterminate", NO_FORM, "")
|
