File [ivy]<Satterthwaite>Mimosa>DebugTab.mesa!1

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

      }.