mim/development/mim/vax/mimlib/debugrdefs.mud

   1 <DEFINITIONS "DEBUGRDEFS">
   2
   3 <USE "NEWSTRUC">
   4
   5 <MSETG PRED-CHAR !\\10>
   6 <MSETG NEXXT-CHAR !\\ e>
   7 <MSETG FAST-CHAR !\\ 6>
   8 <MSETG WEER-CHAR !\\v>
   9 <MSETG BODY-CHAR !\\ 2>
  10 <MSETG FLUSH-CHAR !\\18>
  11 <MSETG CHAR-LIST
  12        <STRING ,PRED-CHAR ,NEXXT-CHAR ,FAST-CHAR
  13                ,WEER-CHAR ,BODY-CHAR ,FLUSH-CHAR <ASCII 27>>>
  14
  15 <MSETG OPHF 0>
  16 <MSETG NEXXT 1>
  17 <MSETG BODY 2>
  18 <MSETG FAST 3>
  19 <MSETG WEER 4>
  20 <MSETG PRED 5>
  21 <MSETG FLUSH-STATE 6>
  22
  23 <GDECL (DEBSTATE DEB-LEVEL REPEAT-COUNT MACRO-LEVEL
  24         INDENT-INC INDENT-DIF INDENT-DIF) FIX
  25        (DEB-IN DEB-OUT LO PREDICATE) ANY
  26        (EVAL-IN EVAL-OUT) ATOM
  27        (SAVED-DEB-LEVEL) FIX
  28        (SAVED-EXPR) ANY
  29        (LAST-CHAR) CHARACTER
  30        (MACRO-FLAG INFULL? FORM-FAST SELF-FAST OUT-FAST OUT-UNIQUE)
  31        <OR !<FALSE!> ATOM>>
  32
  33 <END-DEFINITIONS>