(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "29-Oct-87 18:57:31" {PHYLUM}<CTAMARIN>EMULATOR>RELOAD.;18
 10089  

      changes to%:  (FNS Saveit)

      previous date%: " 9-Oct-87 12:40:01" {PHYLUM}<CTAMARIN>EMULATOR>RELOAD.;17)


(* "
Copyright (c) 1986, 1987 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT RELOADCOMS)

(RPAQQ RELOADCOMS
 ((FNS RELOADEMULATOR LOADLATEST LOADTAMOPCODES MAKETAMOPCODEARRAY2 PUTTAM DOMAKE 
                        MAKETAMFILES Startup Saveit Compileit ChangedFiles s AUnGo AUnSave)))
(DEFINEQ

(RELOADEMULATOR

  [LAMBDA (NOSRC)
                                            (* ; "Edited  5-Jun-87 12:28 by rtk")

                                                             (* LOAD? (QUOTE 

                                                             {eris}<Lisp>Koto>Library) >EXPORTS.ALL)

    (CNDIR '{PHYLUM}<CTamarin>Emulator>)
    (LOADLATEST
 'TAMARINEMULATOR NOSRC)
    (LOADLATEST
 'EMULATORSUPPORT NOSRC)
    (LOADLATEST
 'MICROASSEMBLER NOSRC)
    (LOADLATEST
 'OPCODEASSEMBLER NOSRC)
    (LOADLATEST
 'CEDARGENS NOSRC)                            (* LOADLATEST (QUOTE GENERATETAM) T)

    (LOADLATEST
 'EMULATORCONTROL NOSRC)
    (LOADLATEST
 'TSIMULATE T)
    (LOAD? 'TESTOPS)                                         (* CNDIR (QUOTE {ERIS}<tamarin>Ucode>))

                                                             (* LOAD? (QUOTE LLB.DCOM))

    (LOADLATEST
 'TOPEDIT T)
    (LOADTAMOPCODES
)
    (MAKETAMOPCODEARRAY2
)                                    (* LOADLATEST (QUOTE NoRefCount) T)

    ])

(LOADLATEST

  [LAMBDA (FNAME NOSRC)
                                      (* ; "Edited 21-May-87 13:30 by rtk")


    (PROG [(DN (MKATOM (CONCAT FNAME ".LCOM")))
           (DFASL (MKATOM (CONCAT FNAME ".DFASL"]
          (PROG ((DCOMDATE NIL)
                 (SRCDATE NIL)
                 (FSRCNAME (INFILEP FNAME))
                 (FDCOMNAME (INFILEP DN))
                 (DFASLNAME (INFILEP DFASL))
                 (CURRSRCDATE NIL)
                 (CURRDCOMDATE NIL)
                 (DCOMLOADNAME NIL)
                 (SRCLOADNAME NIL)
                 (DFASLDATE NIL)
                 DCOMFLAG)
                [if
 FDCOMNAME
                    then
 (SETQ DCOMDATE (GETFILEINFO DN 'ICREATIONDATE]
                [if
 DFASLNAME
                    then
 (SETQ DFASLDATE (GETFILEINFO DFASL 'ICREATIONDATE]
                (if
 (OR DCOMDATE DFASLDATE)
                    then
 (SETQ DCOMDATE (MAX (OR DCOMDATE 0)
                                             (OR DFASLDATE 0)))
                         (if
 (EQ DCOMDATE DFASLDATE)
                             then
 (SETQ DN DFASL)
                                  (SETQ FDCOMNAME DFASLNAME)))
                [if
 FSRCNAME
                    then
 (SETQ SRCDATE (GETFILEINFO FNAME 'ICREATIONDATE]
                (if
 (FMEMB FSRCNAME LOADEDFILELST)
                    then
 (SETQ SRCLOADNAME FSRCNAME))
                (if
 (AND (FMEMB FDCOMNAME LOADEDFILELST)
                         DCOMDATE SRCDATE (GREATERP DCOMDATE SRCDATE))
                    then
 (SETQ DCOMLOADNAME FDCOMNAME))
                (SETQ DCOMFLAG NIL)
                (if
 [AND DCOMDATE (OR (NOT SRCDATE)
                                      (AND (GREATERP DCOMDATE SRCDATE)
                                           (NOT DCOMLOADNAME]
                    then
 (PRINTOUT T "Loading Dcom: " DN T)
                         (LOAD DN)
                         (SETQ DCOMLOADNAME FDCOMNAME)
                         (SETQ DCOMFLAG 'PROP))
                (if
 [OR (EQ NOSRC 'ALL)
                        (AND DCOMFLAG (NOT NOSRC))
                        (AND SRCDATE (NOT (EQUAL FSRCNAME SRCLOADNAME))
                             (OR (NOT NOSRC)
                                 (NOT DCOMFLAG]
                    then
 (if
 DCOMLOADNAME
                             then
 (SETQ DCOMFLAG 'PROP))
                         (PRINTOUT T "Loading Source: " FNAME)
                         (if
 DCOMFLAG
                             then
 (PRINTOUT T " Prop"))
                         (PRINTOUT T T)
                         (LOAD FNAME DCOMFLAG)
                         (SETQ SRCLOADNAME FSRCNAME])

(LOADTAMOPCODES

  [LAMBDA NIL
                                                (* rtk " 3-Nov-86 15:37")

    (PROG (PROP (THEFILE ""))
          (PRINT "READING TAMARIN OPCODES")
          (SETQ THEFILE (OPENFILE 'TAMOPS 'INPUT))
          (SETQ PROP (READ THEFILE))
          (SETQ \TAMOPCODES (HREAD THEFILE))
          (CLOSEF THEFILE)
          (PRINTOUT T "SETTING PROP: " PROP T)
          (for
 I in
 \TAMOPCODES do
 (PUTPROP (fetch
 (TOPCODE OPCODENAME) of
 I)
                                          PROP I])

(MAKETAMOPCODEARRAY2

  [LAMBDA NIL
                                                (* rtk "22-Oct-86 10:13")

    (LET (OPNUM LOCARR)
         (SETQ LOCARR (ARRAY 256 'POINTER NIL 0))
         (PRINT "MAKEING   \TAMOPCODEARRAY")
         (for
 I in
 \TAMOPCODES do
 (PUTPROP (fetch
 (TOPCODE OPCODENAME) of
 I)
                                         'TamarinOp I)
                                  (SETQ OPNUM (fetch
 (TOPCODE OP#) of
 I))
                                  (if
 (LISTP OPNUM)
                                      then
 (for
 J from
 (CAR OPNUM) to
 (CADR OPNUM)
                                              do
 (SETA LOCARR J I))
                                    else
 (SETA LOCARR OPNUM I)))
         (SETQ \TAMOPCODEARRAY LOCARR])

(PUTTAM

  [LAMBDA (logot)
                                         (* ; "Edited 30-Sep-87 14:09 by Krivacic")


    (PROG ((DUMPFILES (ChangedFiles
 FILELST)))
          (CLOSEALL)
          (CNDIR '{ERIS}<TAMARIN>WORK>SIMULATE>)
          (DOMAKE
 DUMPFILES 'TSIMULATE '(C ST))
          (DOMAKE
 DUMPFILES 'TACCESS '(C ST))
          (CNDIR '{ERIS}<TAMARIN>TSIM)
          (DOMAKE
 DUMPFILES 'SIMCOMPARES '(C ST))
          (DOMAKE
 DUMPFILES 'SIM '(C ST))
          (DOMAKE
 DUMPFILES 'SIMSUPPORT '(C ST))
          (CNDIR '{ERIS}<TAMARIN>UCODE)
          (DOMAKE
 DUMPFILES 'TESTOPS)
          (DOMAKE
 DUMPFILES 'MICROASSEMBLER '(C ST))
          (InitEmulator T)
          (AUCode)
          (DOMAKE
 DUMPFILES 'TAMARINEMULATOR '(C ST))
          (DOMAKE
 DUMPFILES 'EMULATORSUPPORT '(C ST))
          (DOMAKE
 DUMPFILES 'GENERATETAM))
    (if
 logot
        then
 (LOGOUT])

(DOMAKE

  [LAMBDA (DUMPFILES FNAME OPTIONS)
                          (* rtk "17-Jun-86 10:42")

    (if
 (FMEMB FNAME DUMPFILES)
        then
 (MAKEFILE FNAME OPTIONS])

(MAKETAMFILES

  [LAMBDA (files options)
                                    (* rtk "13-Oct-86 18:08")

    (for
 i in
 files do
 (PRINTOUT T "Making " i T)
                       (MAKEFILE i options])

(Startup

  [LAMBDA NIL
                                             (* ; "Edited 30-Sep-87 15:16 by Krivacic")


    (InitEmulat)
    (AUCode)
    (AssembleOps test1 T)
    (DefineSections T)
    (DoCycle])

(Saveit

  [LAMBDA (redefine withcompile logout)
                   (* ; "Edited 28-Oct-87 18:45 by Krivacic")


    [WithRadix 8 (LET (compilelist compilefilelist changedlist)
                      [SETQ changedlist (ChangedFiles
 '(TAMARINEMULATOR CEDARGENS OPCODEASSEMBLER 
                                                              EMULATORCONTROL EMULATORSUPPORT TESTOPS 
                                                              MICROASSEMBLER TSIMULATE RELOAD]
                      (SETQ compilelist (for
 i in
 '(TAMARINEMULATOR CEDARGENS)
                                           when
 (FMEMB i changedlist) collect
 i))
                      (SETQ compilefilelist (for
 i in
 '(OPCODEASSEMBLER EMULATORCONTROL 
                                                              EMULATORSUPPORT MICROASSEMBLER 
                                                              TSIMULATE)
                                               when
 (FMEMB i changedlist) collect
 i))
                      (SETQ makelist (for
 i in
 '(TESTOPS RELOAD) when
 (FMEMB i changedlist)
                                        collect
 i))
                      (CNDIR '{Phylum}<CTamarin>Emulator>)
                      (MAKETAMFILES
 makelist)
                      (MAKETAMFILES
 compilelist '(C ST))
                      (MAKETAMFILES
 compilefilelist)
                      (Compileit
 compilefilelist)
                      (if
 redefine
                          then
 (DefineSections withcompile]
    (if
 logout
        then
 (LOGOUT])

(Compileit

  [LAMBDA (file)
                                          (* ; "Edited 30-Sep-87 14:27 by Krivacic")


    (if
 (LISTP file)
        then
 (for
 f in
 file do
 (Compileit
 f))
      else
 (if
 file
               then
 (PRINTOUT T "Compile-File of " file T)
                    (CL:COMPILE-FILE file])

(ChangedFiles

  [LAMBDA (names)
                                         (* ; "Edited 30-Sep-87 14:25 by Krivacic")


    (for
 I in
 names when
 (GREATERP (LENGTH (GETPROP I 'FILE))
                                1) collect
 I])

(s

  [LAMBDA (name)
                                          (* ; "Edited 21-Jul-87 18:15 by Krivacic")


    (fetch
 (WireRec value) of
 (EVAL (U-CASE name])

(AUnGo

  [LAMBDA NIL
                                             (* ; "Edited 29-Sep-87 19:48 by Krivacic")


    (AUCode)
    (DoCycle T])

(AUnSave

  [LAMBDA NIL
                                             (* ; "Edited 24-Sep-87 15:04 by Krivacic")


    (AUCode)
    (MakeUCodeInfo])
)
(PUTPROPS RELOAD COPYRIGHT ("Xerox Corporation" 1986 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (582 10006 (RELOADEMULATOR 592 . 1671) (LOADLATEST 1673 . 4385) (LOADTAMOPCODES 4387 . 
4931) (MAKETAMOPCODEARRAY2 4933 . 5741) (PUTTAM 5743 . 6672) (DOMAKE 6674 . 6859) (MAKETAMFILES 6861
 . 7080) (Startup 7082 . 7298) (Saveit 7300 . 8911) (Compileit 8913 . 9263) (ChangedFiles 9265 . 9517)
 (s 9519 . 9694) (AUnGo 9696 . 9846) (AUnSave 9848 . 10004)))))
STOP