<mdl.comp>/pcomp.load.13

   1 <SNAME "MDL.COMP">
   2
   3 <LINK '<ERRET T> "\ 5" <ROOT>>
   4
   5 <PACKAGE "COMPDEC">
   6 <OR <ASSIGNED? PURE!-> <SET PURE!- T>>
   7 <ENTRY BEGIN-HACK BEGIN-MHACK>
   8 <LINK OP!-PACKAGE!- "OP" <2 .OBLIST>>
   9
  10 <FLOAD "PS:<COMPIL>NEWOP.MUD">
  11 <FLOAD "PS:<COMPIL>BOPHAC.MUD">
  12 <FLOAD "PS:<COMPIL>MUDHAK.MUD">
  13
  14 <BEGIN-HACK "BTB">
  15
  16 <BEGIN-MHACK>
  17
  18 <REMOVE "OP" <1 .OBLIST>>
  19
  20 <ENDPACKAGE>
  21
  22 <BLOCK (<ROOT>)>
  23
  24 <SETG EXPERIMENTAL T>
  25 <SET TEMPLATE-DATA T>
  26
  27 GLUE PGLUE
  28
  29 <COND (<NOT <ASSIGNED? SILENT!->><SET SILENT!- <>>)>
  30
  31 <COND (<NOT .SILENT> <PRINC " LOADING MUDDLE COMPILER "> <TERPRI>)>
  32 <ENDBLOCK>
  33
  34 <BLOAT 100000 5000 100 1500 100>
  35
  36 <PROG ((GLUE <COND (<ASSIGNED? GLUE> .GLUE)>)) #DECL ((GLUE) <SPECIAL ANY>)
  37 <FLOAD "PS:<COMPIL>ASSEM.FBIN">>
  38
  39 <PACKAGE "CODING" "IC">
  40
  41 <FLOAD "PS:<COMPIL>ATOSQ.NBIN">
  42 <SETG ONLY-FAST-OUTPUT T>
  43
  44 <ENDPACKAGE>
  45
  46 <SETG L-NOISY <>>
  47 <SETG L-NO-DEFER T>
  48
  49 <FLOAD "PS:<COMPIL>CONNECT-DIR.NBIN">
  50
  51 <CONNECT-DIR "PS:<COMPIL>">
  52
  53 <USE "MACROS" "SORTX" "DOW" "DATIME" "TIMFCN" "NOW" "DFL" "FINDATOM">
  54
  55 <CONNECT-DIR "SRC:<MDL.COMP>">
  56
  57 <PACKAGE "COMPDEC">
  58
  59 <LINK ASSEMBLE1!-CODING!-PACKAGE "ASSEMBLE1" <1 .OBLIST>>
  60
  61 <FLOAD "PS:<COMPIL>WOFCH.FBIN">
  62 <FLOAD "PS:<COMPIL>POPWR2.FBIN">
  63
  64 <SETG DEATH T>
  65
  66 <ENDPACKAGE>
  67
  68 <FLOAD "COMPDE.FBIN">
  69 <FLOAD "BIGANA.FBIN">
  70
  71 <USE "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
  72      "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
  73      "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
  74      "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
  75      "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH">
  76
  77
  78 <MAPF <> <FUNCTION (ATM "AUX" (O <OBLIST? .ATM>)) <INSERT <REMOVE .ATM> .O>>
  79         '(LOGOUT ERROR ERRET QUIT COND AGAIN REP TAG REDEFINE VALRET T)>
  80
  81 <PACKAGE "DUMP-C">
  82
  83 <USE "COMPDEC">
  84
  85 <DEFINE DUMP-COMP!- (N
  86                    "OPTIONAL" (GCQ T) (SN <SNAME>)  UNM
  87                     "AUX" CH (SR .READ-TABLE))
  88         <UNASSIGN <GUNASSIGN READ-TABLE>>
  89         <SETG OQ ,QUIT>
  90         <SNAME "">
  91         <COND (<=? <FSAVE .N .GCQ> "SAVED">
  92                <SNAME .SN>
  93                <SET READ-TABLE <SETG READ-TABLE .SR>>)
  94               (<AND <OR <=? <SET UNM <UNAME>> "CLR">
  95                         <=? .UNM "BTB">
  96                         <=? .UNM "BKD">
  97                         <=? .UNM "LIM">
  98                         <=? .UNM "TAA">>
  99                     <OR <=? <SET SN <SNAME>> "COMPIL">
 100                         <=? .SN "MDL.COMP">>>
 101                <BEGIN-HACK "COMPIL"><BEGIN-MHACK> <RSUBR-LINK <>>
 102                <PRINC "` and | hacks enabled. Rsubr-Link <>"> <CRLF>)
 103               (ELSE
 104                <SET SN <SNAME>>
 105                <COND (<SET CH <OPEN "READ" <COND (<=? .UNM "COMBAT">
 106                                                   "PCOMP.PLAN.-2")
 107                                                  ("PCOMP.PLAN")>>>
 108                        <LOAD .CH>
 109                        <QUIT>)
 110                      (ELSE
 111                       <CRLF>)>)>
 112         <PRINC "MUDDLE COMPILER NOW READY.">
 113         <CRLF>
 114         T>
 115
 116 <ENDPACKAGE>
 117
 118 <INSERT <REMOVE COMPILE> <ROOT>>
 119
 120 <INSERT <REMOVE COMPILE-GROUP> <ROOT>>
 121
 122 <PACKAGE "COMPDEC">
 123
 124 <ENTRY DC UDC>
 125 <LINK '<DC> "\ 1" <ROOT>>
 126
 127 <DEFINE DC ()
 128 <USE-TOTAL "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
 129          "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
 130          "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
 131         "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
 132          "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH" "COMPDEC">>
 133
 134 <DC>
 135
 136 <DEFINE C ("OPTIONAL" (N 0)) <PRT <REST .CODE:TOP .N>>>
 137
 138 <PRIN-SET>
 139
 140
 141 <FLOAD "PS:<COMPIL>PRIMHK.NBIN">
 142
 143 <FLOAD "PS:<COMPIL>PRNTYP">
 144
 145 <SETG EXPERIMENTAL T>
 146
 147 <DEFINE UDC ()
 148 <DROP "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
 149          "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
 150          "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
 151         "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
 152          "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH" "COMPDEC">>
 153
 154 <ENDPACKAGE>
 155
 156 <FLOAD "NCOMFI.MUD">
 157
 158 <PROG () <PRINC "Peep Hole optimizer enabled?">
 159         <SET PEEP!-PEEPH!-PACKAGE <ERROR>>
 160         <CRLF>
 161         <PRINC "KILL-COMP disabled">
 162         <CRLF>
 163         <SETG KILL-COMP!-IFCOMPIL!-FCOMPIL!-PACKAGE ,TIME>>
 164
 165 <DROP "MACROS" "SORTX" "DOW" "DATIME" "TIMFCN">
 166
 167 <DROP "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
 168      "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
 169      "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
 170      "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
 171      "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH">
 172
 173 <RSUBR-LINK <>>
 174 <USE "FCOMPIL">
 175 <SET DISOWN <>>
 176 \f