<mdl.comp>/advmes.mud.9

   1 <PACKAGE "ADVMESS">
   2
   3 <ENTRY VMESS ANA-MESS ADDVMESS>
   4
   5 <USE "NPRINT" "COMPDEC">
   6
   7 <DEFINE VMESS ("TUPLE" MSG)
   8         #DECL ((MSG) TUPLE)
   9         <PRINC "===== ">
  10         <MAPF <>
  11               <FUNCTION (O)
  12                       <COND (<TYPE? .O STRING> <PRINC .O>) (ELSE <PRIN1 .O>)>>
  13               .MSG>
  14         <CRLF>>
  15
  16 <DEFINE ANA-MESS (L)
  17         #DECL ((L) <LIST ANY [REST NODE LIST]>)
  18         <REPEAT ((LL <REST .L>))
  19                 #DECL ((LL) <LIST [REST NODE LIST]>)
  20                 <COND (<EMPTY? .LL> <RETURN>)>
  21                 <PRINC "===== ">
  22                 <MAPF <>
  23                       <FUNCTION (O)
  24                               <COND (<TYPE? .O NODE> <NODE-COMPLAIN .O>)
  25                                     (<TYPE? .O STRING> <PRINC .O>)
  26                                     (ELSE <PRIN1 .O>)>>
  27                       <2 .LL>>
  28                 <CRLF>
  29                 <NODE-COMPLAIN <1 .LL>>
  30                 <SET LL <REST .LL 2>>>>
  31
  32 <DEFINE ADDVMESS (N L "AUX" LL)
  33         #DECL ((N) NODE (L) LIST (VERBOSE) <LIST [REST NODE LIST]>)
  34         <COND (<SET LL <MEMQ .N .VERBOSE>>
  35                <PUTREST <REST <SET LL <2 .LL>> <- <LENGTH .LL> -1>> .L>)
  36               (ELSE
  37                <SET VERBOSE <REST <PUTREST .VERBOSE (.N .L)> 2>>)>>
  38
  39 <ENDPACKAGE>
  40 \ 3\ 3\ 3