mim/development/mim/vax/mimlib/rf.mud

   1 <PACKAGE "RF">
   2
   3 <ENTRY RFRAMES RFR& RFRATM PARGS>
   4
   5 <USE "PP" "AMP">
   6
   7 <DEFINE RFRAMES ("OPT" (M:FIX 1000) (OUTCHAN:CHANNEL .OUTCHAN)
   8                  "AUX" (F:<OR FRAME FALSE> <FRAME>))
   9    <RRFRAMES .F 0 .M .OUTCHAN>>
  10
  11 <DEFINE RRFRAMES (F:<OR FRAME FALSE> N:FIX M:FIX OUTCHAN:CHANNEL)
  12    <COND (<NOT .F>
  13           <PRINC !\[ .OUTCHAN>
  14           <PRINC .N .OUTCHAN>
  15           <PRINC !\] .OUTCHAN>
  16           <INDENT-TO 6 .OUTCHAN>
  17           <PRINC TOPLEVEL .OUTCHAN>
  18           <CRLF .OUTCHAN>)
  19          (<OR <L? .M .N> <RRFRAMES <FRAME .F> <+ .N 1> .M .OUTCHAN>>
  20           <PRINC !\[ .OUTCHAN>
  21           <PRINC .N .OUTCHAN>
  22           <PRINC !\] .OUTCHAN>
  23           <INDENT-TO 6 .OUTCHAN>
  24           <PRINC <FUNCT .F> .OUTCHAN>
  25           <INDENT-TO 20 .OUTCHAN>
  26           <COLPP <ARGS .F> .OUTCHAN 20 80>)>>
  27
  28 <DEFINE RFR& ("OPT" (M:FIX 1000) (OUTCHAN:CHANNEL .OUTCHAN)
  29               "AUX" (F:<OR FRAME FALSE> <FRAME>))
  30    <RRFR& .F 0 .M .OUTCHAN>>
  31
  32 <DEFINE RRFR& (F:<OR FRAME FALSE> N:FIX M:FIX OUTCHAN:CHANNEL)
  33    <COND (<NOT .F>
  34           <PRINC !\[ .OUTCHAN>
  35           <PRINC .N .OUTCHAN>
  36           <PRINC !\] .OUTCHAN>
  37           <INDENT-TO 6 .OUTCHAN>
  38           <PRINC TOPLEVEL .OUTCHAN>
  39           <CRLF .OUTCHAN>)
  40          (<OR <L? .M .N> <RRFR& <FRAME .F> <+ .N 1> .M .OUTCHAN>>
  41           <PRINC !\[ .OUTCHAN>
  42           <PRINC .N .OUTCHAN>
  43           <PRINC !\] .OUTCHAN>
  44           <INDENT-TO 6 .OUTCHAN>
  45           <PRINC <FUNCT .F> .OUTCHAN>
  46           <INDENT-TO 20 .OUTCHAN>
  47           <&1 <ARGS .F> 60>
  48           <CRLF .OUTCHAN>)>>
  49
  50 <DEFINE RFRATM ("OPT" (M:FIX 1000) (OUTCHAN:CHANNEL .OUTCHAN)
  51                 "AUX" (F:<OR FRAME FALSE> <FRAME>))
  52    <RRFRATM .F 0 .M .OUTCHAN>>
  53
  54 <DEFINE RRFRATM (F:<OR FRAME FALSE> N:FIX M:FIX OUTCHAN:CHANNEL)
  55    <COND (<NOT .F>
  56           <PRINC !\[ .OUTCHAN>
  57           <PRINC .N .OUTCHAN>
  58           <PRINC !\] .OUTCHAN>
  59           <INDENT-TO 6 .OUTCHAN>
  60           <PRINC TOPLEVEL .OUTCHAN>
  61           <CRLF .OUTCHAN>)
  62          (<OR <L? .M .N> <RRFRATM <FRAME .F> <+ .N 1> .M .OUTCHAN>>
  63           <PRINC !\[ .OUTCHAN>
  64           <PRINC .N .OUTCHAN>
  65           <PRINC !\] .OUTCHAN>
  66           <INDENT-TO 6 .OUTCHAN>
  67           <PRINC <FUNCT .F> .OUTCHAN>
  68           <CRLF .OUTCHAN>)>>
  69
  70 <DEFINE PARGS (N:FIX "AUX" (OUTCHAN:CHANNEL .OUTCHAN))
  71    <PPRINT <ARGS <FRM .N>> .OUTCHAN>>
  72
  73 <ENDPACKAGE>