/* 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,        "")