massive reorganization

sources/FILESETS

@@ -0,0 +1,175 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "29-Jan-98 16:26:53" {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>FILESETS.;2
 7340   
+
+      changes to%:  (VARS RENAMETYPES)
+
+      previous date%: " 9-Apr-90 16:57:44" 
+{DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>FILESETS.;1)
+
+
+(* ; "
+Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1998 by Xerox Corporation.  All rights reserved.
+")
+
+(PRETTYCOMPRINT FILESETSCOMS)
+
+(RPAQQ FILESETSCOMS
 (
+
+(* ;;; "contains all of the lists of files which are used in various ways")

+
+                         
+                         (* ;; "I took out the EXPORT of the filesets because it led to inconsistency when one had loaded ABC.  -- Pavel")

+
+                         (VARS * FILESETS)
+                         (VARS EXPORTFILES)
+                         (VARS MAKEINITFILES MAKEINITTYPES RENAMETYPES ABCFILES READSYSFILES 
+                               DATABASEFILES)
+                         (VARS DEADFNS)))
+
+
+
+(* ;;; "contains all of the lists of files which are used in various ways")

+
+
+
+
+(* ;; 
+"I took out the EXPORT of the filesets because it led to inconsistency when one had loaded ABC.  -- Pavel"
+)

+
+
+(RPAQQ FILESETS
 (0LISPSET 1LISPSET 2LISPSET 3LISPSET 4LISPSET 5LISPSET 6LISPSET 7LISPSET 8LISPSET
+                           9LISPSET))
+
+(RPAQQ 0LISPSET
 
+       (PACKAGE-CONVERSION-TABLE LLFAULT LLSUBRS LLBFS LLNEW FILEIO IMAGEIO LLBASIC LLGC LLARRAYELT 
+              LLINTERP LLMVS DEFSTRUCT-RUN-TIME SETF-RUNTIME CMLSEQBASICS LLARITH LLFLOAT LLBIGNUM 
+              LLREAD LLCHAR LLSTK LLDATATYPE IOCHAR LLKEY LLTIMER))
+
+(RPAQQ 1LISPSET
 
+       (ASTACK DTDECLARE ATBL LLCODE ACODE COREIO AOFD ADIR PMAP VANILLADISK MOD44IO ATERM APRINT 
+              ABASIC AERROR AINTERRUPT MISC BOOTSTRAP CMLMACROS CMLEVAL CMLPROGV CMLSPECIALFORMS 
+              LLRESTART LLERROR LLSYMBOL LLPACKAGE PACKAGE-STARTUP CONDITION-PACKAGE XCL-PACKAGE PROC
+              CMLARRAY DSK UFS UFSCALLC LLETHER PUP LEAF PASSWORDS FONT SUNFONT LLDISPLAY APUTDQ 
+              COMPATIBILITY DMISC CMLMACROS CMLLIST CMLCHARACTER CMLREADTABLE MAIKOLOADUPFNS 
+              MAIKOBITBLT MAIKOINIT))
+
+(RPAQQ 2LISPSET
 (MACHINEINDEPENDENT POSTLOADUP))
+
+(RPAQQ 3LISPSET
 (MACROS DLAP BYTECOMPILER COMPILE))
+
+(RPAQQ 4LISPSET
 (EDIT WEDIT HELPDL PRETTY COMMENT BREAK ADVISE LOADFNS FILEPKG DFILE DMISC))
+
+(RPAQQ 5LISPSET
 (HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD ASSIST))
+
+(RPAQQ 6LISPSET
 (MSANALYZE MSPARSE MASTERSCOPE HPRINT BRKDWN MATCH))
+
+(RPAQQ 7LISPSET
 
+       (ADISPLAY DEXEC AARITH AFONT HARDCOPY PRESS HLDISPLAY MENU WINDOW WBREAK INSPECT 
+              INSPECT-CLOSURE BSP CHAT TRSERVER 10MBDRIVER LLNS DISKDLION SPP COURIER NSPRINT 
+              CLEARINGHOUSE NSFILING INTERPRESS ADDARITH MACROAUX DEDIT DSPRINTDEF NEWPRINTDEF TTYIN
+              DPUPFTP FLOPPY))
+
+(RPAQQ 8LISPSET
 (MAKEINIT MEM RENAMEFNS))
+
+(RPAQQ 9LISPSET
 (LLFCOMPILE VMEM READSYS APS PCALLSTATS UPCSTATS REMOTEVMEM))
+
+(RPAQQ EXPORTFILES
 
+       (FILESETS MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW 
+              LLBASIC LLCHAR LLSTK PMAP LLGC ATBL FILEIO LLARITH LLFLOAT FONT LLKEY LLDISPLAY 
+              ADISPLAY AINTERRUPT PUP RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER
+              LLETHER IMAGEIO PROC LLREAD PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS))
+
+(RPAQQ MAKEINITFILES
 (MAKEINIT MEM I-NEW))
+
+(RPAQQ MAKEINITTYPES
 
+       ((NIL INIT (0 1)
+             2LISPSET 1600)
+        (SMALLINIT SMALLINIT (LLFAULT LLSUBRS LLNEW FILEIO LLBASIC LLGC LLINTERP LLARITH LLREAD 
+                                    LLCHAR TINYPATCH))
+        (MACROTEST MACROTEST ((MACROTEST)
+                              0 1)
+               2LISPSET)
+        (MICROTEST MICROTEST ((MICROTEST LLFAULT LLSTK LLSUBRS LLKEY LLBFS)))
+        (NANOTEST NANOTEST ((MICROTEST LLSUBRS)))
+        (NULL NULL ((DUMMY)))
+        (MILLITEST MILLITEST
+               ((MACROTEST LLFAULT LLSUBRS LLNEW LLBASIC LLGC LLINTERP LLARITH LLFLOAT LLARRAYELT 
+                       LLSTK LLDATATYPE LLKEY ABASIC LLCHAR ASTACK MISC APUTDQ)))
+        (CHECKARRAYS CHECKARRAYS (CHECKARRAYSPACE 0 1)
+               2LISPSET)))
+
+(RPAQQ RENAMETYPES
 
+       ((I (FILES LLPARAMS LLCODE LLARRAYELT LLCHAR LLNEW LLBASIC LLDATATYPE LLGC LLSTK RENAMEMACROS
+                  MODARITH LLFAULT LLKEY LLBFS LLTIMER)
+           (RENAMEDFILE . I-NEW)
+           (SUBNAME . MKI.SUBFNS)
+           (COMSNAME . INEWCOMS)
+           (EXTRACOMS (VARS INITPTRS INITVALUES)
+                  (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
+                                                          MAKEINIT)))
+           (MKI.SUBFNS)
+           (INEWCOMS)
+           (VALUES . INITVALUES)
+           (PTRS . INITPTRS)
+           (PREFIX . I.)
+           (VAG2FN . I.VAG2))
+        (R (FILES LLCODE LLPARAMS LLBASIC LLDATATYPE LLNEW ACODE LLARRAYELT LLCHAR LLINTERP LLSTK 
+                  RENAMEMACROS MODARITH LLFAULT)
+           (RENAMEDFILE . RDSYS)
+           (SUBNAME . RD.SUBFNS)
+           (COMSNAME . RDCOMS)
+           (EXTRACOMS 
+
+                  (* ;; "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)")

+
+                  (FILES VMEM)
+                  (VARS RDVALS RDPTRS)
+                  (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
+                                                          VMEM)))
+           (RD.SUBFNS (\CALLME . *))
+           (RDCOMS)
+           (PTRS . RDPTRS)
+           (PREFIX . V)
+           (VAG2FN . VVAG2)
+           (VALUES . RDVALS)
+           (RDPTRS)
+           (RDVALUES))))
+
+(RPAQQ ABCFILES
 (LOADABC COMPILEBANG SAMEDIR WHEREIS COMPILEFORMSLIST CHECKSET CMACROS DCODEFOR10
+                           DTDECLARE BYTECOMPILER DLAP LLCODE ACODE MACROAUX))
+
+(RPAQQ READSYSFILES
 (RDSYS READSYS VMEM REMOTEVMEM))
+
+(RPAQQ DATABASEFILES
 (0LISPSET 1LISPSET (2LISPSET ACODE)
+                                (3LISPSET DLAP)
+                                (4LISPSET DFILE DMISC)
+                                7LISPSET
+                                (8LISPSET MAKEINIT MEM)
+                                9LISPSET
+                                (10LISPSET LLPARAMS)
+                                (NIL CHECKARRAYSPACE MAKEINEW PMEMSTATS PPAGESTATS LLFCOMPILE)))
+
+(RPAQQ DEADFNS
 ((PUTBASE \PUTBASE)
+                    (GETBASE \GETBASE)
+                    (ADDBASE \ADDBASE)
+                    (GETBASEBYTE \GETBASEBYTE)
+                    (PUTBASEBYTE \PUTBASEBYTE)
+                    (PUTBASEPTR \PUTBASEPTR)
+                    (HILOC \HILOC)
+                    (LOLOC \LOLOC)
+                    (VAG2 \VAG2)
+                    (PAGEBASE NIL)
+                    (PAGELOC NIL)
+                    (WordsPerPage WORDSPERPAGE)
+                    (ALTOMACRO DMACRO)
+                    (\STACKSPACE ??)
+                    (GETBASEPTR \GETBASEPTR)
+                    (FPLUS2)
+                    (FTIMES2)
+                    (CREATECELL \CREATECELL)))
+(PUTPROPS FILESETS COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 
+1998))
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL)))
+STOP