-- file DebugTab.Mesa
-- last modified by Bruce, September 30, 1980  8:17 PM

DIRECTORY
  Symbols: TYPE USING [TransferMode, TypeClass],
  Tree: TYPE USING [NodeName];

DebugTab: PROGRAM =
BEGIN

NodePrintName: ARRAY Tree.NodeName OF STRING =
   ["list", "item",
    "decl", "typedecl",
    "basicTC", "enumeratedTC", "recordTC", "monitoredTC", "variantTC",
    "refTC", "pointerTC", "listTC", "arrayTC", "arraydescTC", "sequenceTC",
    "procTC", "processTC", "portTC", "signalTC", "errorTC", "programTC",
    "anyTC", "definitionTC", "unionTC", "relativeTC", "subrangeTC", "longTC",
    "opaqueTC", "zoneTC", "?", "?", "implicitTC", "frameTC", "discrimTC",
    "entry", "conditionalBreak",
    "arrayInt", "diritem", "module", "body", "inline", "lambda", "block",
    "assign", "extract",
    "if", "case", "casetest", "caseswitch", "bind",
    "do", "forseq", "upthru", "downthru",
    "return", "result", "goto", "exp", "loop", "free",
    "resume", "reject", "continue", "retry", "catchmark",
    "restart", "stop",
    "lock", "wait", "notify", "broadcast", "unlock",
    "null", "reps", "memoryInt", "enable", "catch",
    "dst", "lst", "lstf",
    "syscall", "?", "?", "?",
    "subst", "call", "portcall", "signal", "error", "syserror", "xerror",
    "start", "join",
    "apply",
    "callx", "portcallx", "signalx", "errorx", "syserrorx",
    "startx", "fork", "joinx",
    "frameDollar", "dindex", "seqindex", "reloc",
    "construct", "union", "eol", "sequence", "listcons",
    "substx",
    "ifx", "casex", "bindx", "assignx", "extractx",
    "or", "and",
    "relE", "relN", "relL", "relGE", "relG", "relLE", "in", "notin",
    "plus", "minus", "times", "div", "mod",
    "dot", "fileDollar", "typeDollar",
    "create", "not", "uminus", "addr", "uparrow",
    "min", "max", "lengthen", "abs", "all",
    "size", "first", "last", "pred", "succ", 
    "arraydesc", "length", "base", "loophole", "nil", "new", "void",
    "clit", "llit", "bang", "check", "float", "pad", "chop", "safen",
    "syscallx", "?", "?",
    "memory",
    "mwconst", "mergecons",
    "atom", "typecode",
    "card", "lcard", "int", "lint",
    "intOO", "intOC", "intCO", "intCC",
    "thread", "none",
    "exlist", "initlist"];


TypePrintName: ARRAY Symbols.TypeClass OF STRING =
   ["mode", "basic", "enumerated", "record", "ref", "array",
    "arraydesc", "transfer", "definition", "union", "sequence",
    "relative", "subrange", "long", "real", "opaque", "zone", "any", "NIL"];

ModePrintName: ARRAY Symbols.TransferMode OF STRING =
   ["proc", "port", "signal", "error", "process", "program", "none"];

END.