From 09fec6ac5684151c0b6a7f62ee559a6b8afc5add Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Fri, 1 Oct 2021 12:22:02 -0700 Subject: [PATCH] Add FILESETS back For some reason, in going back and forth, the hard link between the versioned and the unversioned got lost, and the unversioned was effectively deleted. I did a copyfile to get things back in order --- sources/FILESETS | 169 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 169 insertions(+) create mode 100644 sources/FILESETS diff --git a/sources/FILESETS b/sources/FILESETS new file mode 100644 index 00000000..42828dca --- /dev/null +++ b/sources/FILESETS @@ -0,0 +1,169 @@ +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(FILECREATED "11-Sep-2021 00:01:52"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;10 6469 + + changes to%: (VARS MAKEINITTYPES 0LISPSET EXPORTFILES) + + previous date%: "10-Sep-2021 19:53:14" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;8) + + +(* ; " +Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation. +") + +(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") + + + (* ;; "The file with the default EXTERNALFORMAT should come right after FILEIO, and particularly before ATERM.") + + (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" +) + + + + +(* ;; +"The file with the default EXTERNALFORMAT should come right after FILEIO, and particularly before ATERM." +) + + +(RPAQQ FILESETS (0LISPSET 1LISPSET 2LISPSET 3LISPSET)) + +(RPAQQ 0LISPSET (PACKAGE-CONVERSION-TABLE LLFAULT LLSUBRS LLBFS LLNEW FILEIO EXTERNALFORMAT + IMAGEIO LLBASIC LLGC LLARRAYELT LLINTERP LLMVS DEFSTRUCT-RUN-TIME + SETF-RUNTIME CMLSEQBASICS LLARITH LLFLOAT LLBIGNUM LLREAD XCCS LLCHAR + LLSTK LLDATATYPE IOCHAR LLKEY LLTIMER)) + +(RPAQQ 1LISPSET + (ASTACK DTDECLARE ATBL LLCODE ACODE COREIO AOFD ADIR PMAP VANILLADISK 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 PASSWORDS FONT LLDISPLAY APUTDQ COMPATIBILITY DMISC CMLMACROS CMLLIST + CMLCHARACTER CMLREADTABLE MAIKOLOADUPFNS MAIKOBITBLT MAIKOINIT)) + +(RPAQQ 2LISPSET (MACHINEINDEPENDENT POSTLOADUP)) + +(RPAQQ 3LISPSET (MACROS DLAP BYTECOMPILER COMPILE)) + +(RPAQQ EXPORTFILES + (MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW LLBASIC LLCHAR + LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY + ADISPLAY AINTERRUPT RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER + IMAGEIO PROC XCCS 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 EXTERNALFORMAT 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 2021)) +(DECLARE%: DONTCOPY + (FILEMAP (NIL))) +STOP