<mdl.comp>/prntyp.mud.5

   1 <PACKAGE "PRNTYP">
   2
   3 <ENTRY SYMTAB-PRINT AC-PRINT>
   4
   5 <USE "COMPDEC">
   6
   7 <DEFINE SYMTAB-PRINT (SYM "AUX" TT TEM (OUTCHAN .OUTCHAN))
   8         #DECL ((SYM) SYMTAB)
   9         <PRINC "#SYMTAB [">
  10         <PRIN1 <NAME-SYM .SYM>>
  11         <PRINC " ">
  12         <COND (<SET TT <INACS .SYM>>
  13                <PRINC "#DATUM (">
  14                <COND (<TYPE? <SET TEM <DATTYP .TT>> AC>
  15                       <PRIN1 <ACSYM .TEM>>)
  16                      (<TYPE? .TEM ATOM> <PRIN1 .TEM>)
  17                      (<TYPE? .TEM TEMP>
  18                       <PRIN1 <TMPNO .TEM>>)
  19                      (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
  20                <PRINC " ">
  21                <COND (<TYPE? <SET TEM <DATVAL .TT>> AC>
  22                       <PRIN1 <ACSYM .TEM>>)
  23                      (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
  24                <PRINC ")">)>
  25         <PRINC "]">>
  26
  27 <DEFINE AC-PRINT (AC "AUX" TT TEM (OUTCHAN .OUTCHAN))
  28         #DECL ((AC) AC)
  29         <PRINC "#AC [">
  30         <PRIN1 <ACSYM .AC>>
  31         <PRINC " ">
  32         <OR <ACLINK .AC> <DATUM-PRINT <ACLINK .AC>>>
  33         <MAPF <> <FUNCTION (S)
  34                         <PRINC " ">
  35                         <COND (<TYPE? .S SYMTAB> <PRIN1 <NAME-SYM .S>>)
  36                               (ELSE <PRIN1 <TYPE .S>>)>>
  37                  <ACRESIDUE .AC>>
  38         <PRINC "]">>
  39
  40 <DEFINE DATUM-PRINT (TT "AUX" TEM)
  41         <COND (.TT
  42                <PRINC "#DATUM (">
  43                <COND (<TYPE? <SET TEM <DATTYP .TT>> AC>
  44                       <PRIN1 <ACSYM .TEM>>)
  45                      (<TYPE? .TEM ATOM> <PRIN1 .TEM>)
  46                      (<TYPE? .TEM TEMP>
  47                       <PRIN1 <TMPNO .TEM>>)
  48                      (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
  49                <PRINC " ">
  50                <COND (<TYPE? <SET TEM <DATVAL .TT>> AC>
  51                       <PRIN1 <ACSYM .TEM>>)
  52                      (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
  53                <PRINC ")">)>>\f
  54 <PRINTTYPE AC ,AC-PRINT>
  55
  56 <PRINTTYPE SYMTAB ,SYMTAB-PRINT>
  57
  58 <ENDPACKAGE>
  59 \f\ 3