<mdl.comp>/caseld.mud.1

   1
   2
   3 <USE "MACROS" "SORTX">
   4
   5 <SET REDEFINE T>
   6
   7 <PACKAGE "CC">
   8
   9 <BEGIN-HACK "BTB">
  10
  11 <BEGIN-MHACK>
  12
  13 <COND (<NOT <GASSIGNED? CASE-CODE>> <SETG CASE-CODE ,SPARE1-CODE>)>
  14
  15 <BLOCK (<ROOT>)>
  16
  17 PRIMTYPE?
  18
  19 <COND (<NOT <GASSIGNED? CASE>>
  20        <SETG CASE (1)>)>
  21
  22 <ENDBLOCK>
  23
  24 <PROG ((CH <OR <OPEN "READB" "COMPIL;CASE FBIN">
  25                <OPEN "READB" "COMPIL;CASE NBIN">>))
  26         <COND (.CH <PRINC "Using Compiled CASE."> <CRLF>
  27                <LOAD .CH><CLOSE .CH>)
  28               (ELSE <GROUP-LOAD "COMPIL;CASE >">)>>
  29
  30 <PUT ,CASE PAPPLY-OBJECT ,CASE-FCN>
  31
  32 <PUT ,ANALYZERS ,CASE-CODE ,CASE-ANA>
  33
  34 <PUT ,GENERATORS ,CASE-CODE ,CASE-GEN>
  35
  36 <ENDPACKAGE>
  37 \f\ 3