summaryrefslogtreecommitdiff
path: root/support/ltx2x/l2xisftc.h
blob: 95e7471cc5fd99b5c2d8eefc8e32a4be74673879 (plain)
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,        "")