-- file DebugTab.Mesa
-- last modified by Satterthwaite, February 3, 1983 3:16 pm
-- last modified by Donahue, 11-Dec-81 14:37:06

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

DebugTab: PROGRAM = {

  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", "linkTC", "varTC", "implicitTC", "frameTC", "discrimTC",
    "paintTC", "?",
    "unit", "diritem", "module", "body", "inline", "lambda", "block",
    "assign", "extract",
    "if", "case", "casetest", "caseswitch", "bind",
    "do", "forseq", "upthru", "downthru",
    "return", "result", "goto", "exit", "loop", "free",
    "resume", "reject", "continue", "retry", "catchmark",
    "restart", "stop",
    "lock", "wait", "notify", "broadcast", "unlock",
    "null", "label", "open", "enable", "catch",
    "dst", "lste", "lstf",
    "syscall", "checked", "lst", "?",
    "subst", "call", "portcall", "signal", "error", "syserror", "xerror",
    "start", "join",
    "apply",
    "callx", "portcallx", "signalx", "errorx", "syserrorx",
    "startx", "fork", "joinx",
    "index", "dindex", "seqindex", "reloc",
    "construct", "union", "rowcons", "sequence", "listcons",
    "substx",
    "ifx", "casex", "bindx", "assignx", "extractx",
    "or", "and",
    "relE", "relN", "relL", "relGE", "relG", "relLE", "in", "notin",
    "plus", "minus", "times", "div", "mod",
    "dot", "cdot", "dollar",
    "create", "not", "uminus", "addr", "uparrow",
    "min", "max", "lengthen", "abs", "all",
    "size", "first", "last", "pred", "succ", 
    "arraydesc", "length", "base", "loophole", "nil", "new", "void",
    "clit", "llit", "cast", "check", "float", "pad", "chop", "safen",
    "syscallx", "narrow", "istype",
    "openx",
    "mwconst", "cons",
    "atom", "typecode",
    "stringinit", "textlit", "signalinit", "procinit",
    "intOO", "intOC", "intCO", "intCC",
    "thread", "none",
    "exlist", "initlist", "ditem",
    "shorten", "self", "gcrt", "proccheck", "ord", "val",
    "entry", "internal", "mergecons"];


  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"];

  }.