<mdl.comp>/mobyg.mud.8

   1 <BLOAT 150000 5000 100 1500 100>
   2 <SET REDEFINE T>
   3 <RSUBR-LINK <>>
   4 <GC-MON T>
   5
   6 <USE "MLOAD">
   7
   8 <SETG DUMMY-FILE!-IMLOAD!-MLOAD!-PACKAGE "PS:<MDLLIB>DUMMY.NBIN">
   9
  10 <SETG LOAD-GBINS? T>
  11
  12 <USE "MCLEAN">
  13
  14 <OR <LOOKUP "GLUE" <ROOT>>
  15     <INSERT "GLUE" <ROOT>>>
  16 <SET GLUE T>
  17
  18 <FLOAD "PS:<MDLLIB>ELMER.FBIN">
  19 <USE "GLUE">
  20 <SETG GLUE-MAX-SPACE T>
  21
  22 <SETG L-SEARCH-PATH (["SRC:<MDL.COMP>"] !,L-SEARCH-PATH)>
  23 <FLOAD "SRC:<MDL.COMP>HELP.COMPIL">
  24
  25 <GUNASSIGN L-LOADER>
  26
  27 <MOBY-LOAD "SRC:<MDL.COMP>SYMANA.NBIN">
  28
  29
  30 <MOBY-CLEAN SYMANA <>>
  31
  32 <USE "CLEAN" "PURITY">
  33 <CLEANUP>
  34 <FLUSH-CLEANUP>
  35 <KILL:PURITY>
  36
  37 <SETG PKGS ("SYMANA" "CARANA" "MAPANA" "NOTANA" "STRANA" "BITANA"
  38             "BACKAN" "ADVMESS")>
  39
  40 <PRINT <GC 0 T>>
  41 <PRINT <GC 0 T>>
  42
  43 <SETG SURVIVERS (SPEC-FLUSH!-ISYMANA!-SYMANA!-PACKAGE
  44                  TYPE-OK?!-CHKDCL!-PACKAGE
  45 SUBR-ANA!-ISYMANA!-SYMANA!-PACKAGE
  46 QUOTE-ANA!-ISYMANA!-SYMANA!-PACKAGE
  47 FUNC-ANA!-ISYMANA!-SYMANA!-PACKAGE
  48 SEGMENT-ANA!-ISYMANA!-SYMANA!-PACKAGE
  49 FORM-AN!-ISYMANA!-SYMANA!-PACKAGE
  50 PRG-REP-ANA!-ISYMANA!-SYMANA!-PACKAGE
  51 SUBR-ANA!-ISYMANA!-SYMANA!-PACKAGE
  52 COND-ANA!-ISYMANA!-SYMANA!-PACKAGE
  53 COPY-AN!-ISYMANA!-SYMANA!-PACKAGE
  54 RSUBR-ANA!-ISYMANA!-SYMANA!-PACKAGE
  55 ISTRUC-ANA!-ISYMANA!-SYMANA!-PACKAGE
  56 ISTRUC2-ANA!-ISYMANA!-SYMANA!-PACKAGE
  57 READ-ANA!-ISYMANA!-SYMANA!-PACKAGE
  58 READ2-ANA!-ISYMANA!-SYMANA!-PACKAGE
  59 GET-ANA!-ISYMANA!-SYMANA!-PACKAGE
  60 GET2-ANA!-ISYMANA!-SYMANA!-PACKAGE
  61 MAPPER-AN!-ISYMANA!-SYMANA!-PACKAGE
  62 MARGS-ANA!-ISYMANA!-SYMANA!-PACKAGE
  63 ARITH-ANA!-ISYMANA!-SYMANA!-PACKAGE
  64 ARITHP-ANA!-ISYMANA!-SYMANA!-PACKAGE
  65 ARITHP-ANA!-ISYMANA!-SYMANA!-PACKAGE
  66 ARITHP-ANA!-ISYMANA!-SYMANA!-PACKAGE
  67 ARITH-ANA!-ISYMANA!-SYMANA!-PACKAGE
  68 ABS-ANA!-ISYMANA!-SYMANA!-PACKAGE
  69 FIX-ANA!-ISYMANA!-SYMANA!-PACKAGE
  70 FLOAT-ANA!-ISYMANA!-SYMANA!-PACKAGE
  71 MOD-ANA!-ISYMANA!-SYMANA!-PACKAGE
  72 LENGTH-ANA!-ISYMANA!-SYMANA!-PACKAGE
  73 EMPTY?-ANA!-ISYMANA!-SYMANA!-PACKAGE
  74 NTH-ANA!-ISYMANA!-SYMANA!-PACKAGE
  75 REST-ANA!-ISYMANA!-SYMANA!-PACKAGE
  76 PUT-ANA!-ISYMANA!-SYMANA!-PACKAGE
  77 PUTREST-ANA!-ISYMANA!-SYMANA!-PACKAGE
  78 UNWIND-ANA!-ISYMANA!-SYMANA!-PACKAGE
  79 FORM-F-ANA!-ISYMANA!-SYMANA!-PACKAGE
  80 COPY-AN!-ISYMANA!-SYMANA!-PACKAGE
  81 BACK-ANA!-ISYMANA!-SYMANA!-PACKAGE
  82 TOP-ANA!-ISYMANA!-SYMANA!-PACKAGE
  83 SUBSTRUC-ANA!-ISYMANA!-SYMANA!-PACKAGE
  84 DEFAULT-GEN!-ICODGEN!-CODGEN!-PACKAGE
  85 FORM-GEN!-ICODGEN!-CODGEN!-PACKAGE
  86 PROG-REP-GEN!-ICODGEN!-CODGEN!-PACKAGE
  87 SUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
  88 COND-GEN!-ICODGEN!-CODGEN!-PACKAGE
  89 LVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
  90 SET-GEN!-ICODGEN!-CODGEN!-PACKAGE
  91 OR-GEN!-ICODGEN!-CODGEN!-PACKAGE
  92 AND-GEN!-ICODGEN!-CODGEN!-PACKAGE
  93 RETURN-GEN!-ICODGEN!-CODGEN!-PACKAGE
  94 COPY-GEN!-ICODGEN!-CODGEN!-PACKAGE
  95 AGAIN-GEN!-ICODGEN!-CODGEN!-PACKAGE
  96 GO-GEN!-ICODGEN!-CODGEN!-PACKAGE
  97 ARITH-GEN!-ICODGEN!-CODGEN!-PACKAGE
  98 RSUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
  99 0-TEST!-ICODGEN!-CODGEN!-PACKAGE
 100 NOT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 101 1?-GEN!-ICODGEN!-CODGEN!-PACKAGE
 102 TEST-GEN!-ICODGEN!-CODGEN!-PACKAGE
 103 ==-GEN!-ICODGEN!-CODGEN!-PACKAGE
 104 TYPE?-GEN!-ICODGEN!-CODGEN!-PACKAGE
 105 LNTH-GEN!-ICODGEN!-CODGEN!-PACKAGE
 106 MT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 107 REST-GEN!-ICODGEN!-CODGEN!-PACKAGE
 108 NTH-GEN!-ICODGEN!-CODGEN!-PACKAGE
 109 PUT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 110 PUTREST-GEN!-ICODGEN!-CODGEN!-PACKAGE
 111 FLVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
 112 FSET-GEN!-ICODGEN!-CODGEN!-PACKAGE
 113 FGVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
 114 FSETG-GEN!-ICODGEN!-CODGEN!-PACKAGE
 115 STACKFORM-GEN!-ICODGEN!-CODGEN!-PACKAGE
 116 MIN-MAX!-ICODGEN!-CODGEN!-PACKAGE
 117 CHTYPE-GEN!-ICODGEN!-CODGEN!-PACKAGE
 118 FIX-GEN!-ICODGEN!-CODGEN!-PACKAGE
 119 FLOAT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 120 ABS-GEN!-ICODGEN!-CODGEN!-PACKAGE
 121 MOD-GEN!-ICODGEN!-CODGEN!-PACKAGE
 122 ID-GEN!-ICODGEN!-CODGEN!-PACKAGE
 123 ASSIGNED?-GEN!-ICODGEN!-CODGEN!-PACKAGE
 124 ISTRUC-GEN!-ICODGEN!-CODGEN!-PACKAGE
 125 ISTRUC-GEN!-ICODGEN!-CODGEN!-PACKAGE
 126 BITS-GEN!-ICODGEN!-CODGEN!-PACKAGE
 127 GETBITS-GEN!-ICODGEN!-CODGEN!-PACKAGE
 128 BITLOG-GEN!-ICODGEN!-CODGEN!-PACKAGE
 129 PUTBITS-GEN!-ICODGEN!-CODGEN!-PACKAGE
 130 ISUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
 131 ID-GEN!-ICODGEN!-CODGEN!-PACKAGE
 132 READ2-GEN!-ICODGEN!-CODGEN!-PACKAGE
 133 SUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
 134 IPUT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 135 IREMAS-GEN!-ICODGEN!-CODGEN!-PACKAGE
 136 GET-GEN!-ICODGEN!-CODGEN!-PACKAGE
 137 GET2-GEN!-ICODGEN!-CODGEN!-PACKAGE
 138 IRSUBR-GEN!-ICODGEN!-CODGEN!-PACKAGE
 139 MAPFR-GEN!-ICODGEN!-CODGEN!-PACKAGE
 140 MPARGS-GEN!-ICODGEN!-CODGEN!-PACKAGE
 141 MAPLEAVE-GEN!-ICODGEN!-CODGEN!-PACKAGE
 142 MAPRET-STOP-GEN!-ICODGEN!-CODGEN!-PACKAGE
 143 UNWIND-GEN!-ICODGEN!-CODGEN!-PACKAGE
 144 GVAL-GEN!-ICODGEN!-CODGEN!-PACKAGE
 145 SETG-GEN!-ICODGEN!-CODGEN!-PACKAGE
 146 TAG-GEN!-ICODGEN!-CODGEN!-PACKAGE
 147 PRINT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 148 MEMQ-GEN!-ICODGEN!-CODGEN!-PACKAGE
 149 LENGTH?-GEN!-ICODGEN!-CODGEN!-PACKAGE
 150 FORM-F-GEN!-ICODGEN!-CODGEN!-PACKAGE
 151 INFO-GEN!-ICODGEN!-CODGEN!-PACKAGE
 152 OBLIST?-GEN!-ICODGEN!-CODGEN!-PACKAGE
 153 AS-NXT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 154 ASSOC-FIELD-GET!-ICODGEN!-CODGEN!-PACKAGE
 155 ALL-REST-GEN!-ICODGEN!-CODGEN!-PACKAGE
 156 LIST-BUILD!-ICODGEN!-CODGEN!-PACKAGE
 157 SPEC-PUT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 158 BACK-GEN!-ICODGEN!-CODGEN!-PACKAGE
 159 TOP-GEN!-ICODGEN!-CODGEN!-PACKAGE
 160 SUBSTRUC-GEN!-ICODGEN!-CODGEN!-PACKAGE
 161 ROT-GEN!-ICODGEN!-CODGEN!-PACKAGE
 162 LSH-GEN!-ICODGEN!-CODGEN!-PACKAGE
 163 BIT-TEST-GEN!-ICODGEN!-CODGEN!-PACKAGE
 164 ENTROPY!-SYMANA!-PACKAGE
 165 NORM-BAN!-SYMANA!-PACKAGE
 166 NAUX-BAN!-SYMANA!-PACKAGE
 167 TUP-BAN!-SYMANA!-PACKAGE
 168 ARGS-BAN!-SYMANA!-PACKAGE
 169 MENTROPY!-MAPANA!-PACKAGE
 170 MAUX!-MAPANA!-PACKAGE
 171 MAUX1!-MAPANA!-PACKAGE
 172 MTUPLE!-MAPANA!-PACKAGE
 173 MBAD!-MAPANA!-PACKAGE
 174 MOPT!-MAPANA!-PACKAGE
 175 MOPT2!-MAPANA!-PACKAGE
 176 MNORM!-MAPANA!-PACKAGE
 177 )>
 178
 179
 180 <REPEAT ((A <ASSOCIATIONS>) RSB)
 181         <COND (<==? <INDICATOR .A> ANALYSIS!-SYMANA!-PACKAGE>
 182                <COND (<TYPE? <SET RSB <AVALUE .A>> RSUBR RSUBR-ENTRY>
 183                       <COND (<NOT <MEMQ <3 .RSB> ,SURVIVERS>>
 184                              <SETG SURVIVERS (<3 .RSB> !,SURVIVERS)>)>)>)>
 185         <OR <SET A <NEXT .A>> <RETURN>>>
 186
 187
 188
 189 <GROUP-GLUE SYMANA
 190             <>
 191             .OUTCHAN
 192             ,PKGS
 193             ,SURVIVERS>
 194
 195 <MOBY-CLEAN SYMANA>
 196