github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-01 22:16:57 +00:00
Code Issues Projects Releases Wiki Activity

initial checkin for library

Browse Source
This commit is contained in:
Larry Masinter
2020-08-29 18:34:00 -07:00
parent b58c88bda3
commit d6580ff010
177 changed files with 6498 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
internal/library/ABC Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

1
internal/library/ARCLEANUP Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/ARCLEANUP.TEDIT Normal file
View File

@@ -0,0 +1 @@

1
internal/library/AREDIT Normal file
View File

File diff suppressed because one or more lines are too long

14
internal/library/AREDIT.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/ARHACK Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/ARINDEX Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/ARQUERY Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/ARSREPORT Normal file
View File

File diff suppressed because one or more lines are too long

222
internal/library/CALENDARHACKS Normal file
View File

@@ -0,0 +1,222 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "23-Mar-94 17:45:59" |{DSK}<king>export>lispcore>internal>library>CALENDARHACKS.;3| 11258
|changes| |to:| (FNS PRINTMONTHIMAGE PRINT-NOTEBOOK-YEAR PRINT-SUMMARY-YEAR PRINT-SCALED-MONTH
)
|previous| |date:| "15-Jun-90 11:46:01"
|{DSK}<king>export>lispcore>internal>library>CALENDARHACKS.;1|)
; Copyright (c) 1987, 1990, 1994 by Venue & Xerox Corporation. All rights reserved.
(PRETTYCOMPRINT CALENDARHACKSCOMS)
(RPAQQ CALENDARHACKSCOMS
(
(* |;;| "Hacks for making reminder-book pages for calendars.")
(FILES CALENDAR)
(COMS
(* |;;| "User level functions")
(FNS PRINT-LAND-MONTH PRINT-LAND-YEAR PRINT-NOTEBOOK-MONTH PRINT-NOTEBOOK-YEAR
PRINT-SUMMARY-YEAR PRINT-NARROW-MONTH))
(COMS
(* |;;| "Internal functions and macros")
(FNS PRINT-SCALED-MONTH PRINTMONTHIMAGE)
(FUNCTIONS CAL-X CAL-Y))))
(* |;;| "Hacks for making reminder-book pages for calendars.")
(FILESLOAD CALENDAR)
(* |;;| "User level functions")
(DEFINEQ
(PRINT-LAND-MONTH
(LAMBDA (MONTH YEAR STREAM) (* \; "Edited 17-Oct-87 17:45 by jds")
(* |;;| "Print a single month's calendar landscape on letter paper.")
(LET ((PRINTSTREAM (OR STREAM (OPENIMAGESTREAM "{LPT}" 'INTERPRESS '(LANDSCAPE T)))))
(PRINT-SCALED-MONTH MONTH YEAR 635 635 1.0 1.0 PRINTSTREAM 12 18 6)
(CLOSEF PRINTSTREAM))))
(PRINT-LAND-YEAR
(LAMBDA (YEAR STREAM) (* \; "Edited 17-Oct-87 17:49 by jds")
(* |;;| "Print a single month's calendar landscape on letter paper.")
(LET ((PRINTSTREAM (OR STREAM (OPENIMAGESTREAM "{LPT}" 'INTERPRESS '(LANDSCAPE T)))))
(|for| MONTH |from| 1 |to| 12
|do| (PRINT-SCALED-MONTH MONTH YEAR 635 635 1.0 1.0 PRINTSTREAM 12 18 6)
(DSPNEWPAGE PRINTSTREAM))
(CLOSEF PRINTSTREAM))))
(PRINT-NOTEBOOK-MONTH
(LAMBDA (MONTH YEAR STREAM) (* \; "Edited 17-Sep-87 21:55 by jds")
(* |;;| "Print a single month's calendar on a half-sheet, suitable for punching and putting in a Time-Design notebook or a 5 1/2 x 8 1/2\" reminder book.")
(* |;;| "If you leave STREAM NIL, you'll get one page on the printer.")
(PRINT-SCALED-MONTH MONTH YEAR 0 0 0.75 0.6 STREAM)))
(PRINT-NOTEBOOK-YEAR
(LAMBDA (YEAR STREAM) (* \; "Edited 23-Mar-94 17:22 by turpiN:mv:envos")
(* |;;| "Print a year's worth of month-calendar pages in half-sheet size.")
(LET ((PRINTSTREAM (OR STREAM (OPENIMAGESTREAM "{LPT}" 'POSTSCRIPT))))
(|for| MONTH |from| 1 |to| 12 |do| (PRINT-SCALED-MONTH MONTH YEAR 0
(COND
((EVENP MONTH 2)
13970)
(T 0))
0.75 0.6 PRINTSTREAM)
(COND
((EVENP MONTH 2)
(DSPNEWPAGE PRINTSTREAM))))
(CLOSEF PRINTSTREAM))))
(PRINT-SUMMARY-YEAR
(LAMBDA (YEAR STREAM) (* \; "Edited 23-Mar-94 17:36 by turpiN:mv:envos")
(* |;;| "Print a year's worth of small months on 1 sheet of paper that will fit into a 8.25 x 10.5 format (for Time-Design books).")
(LET ((PRINTSTREAM (OR STREAM (OPENIMAGESTREAM "{LPT}" 'POSTSCRIPT '(LANDSCAPE T)))))
(|for| MONTH |from| 1 |to| 4 |as| YOFFSET |from| 44500 |by| -14800
|do| (PRINT-SCALED-MONTH MONTH YEAR 227 YOFFSET 0.33 0.23 PRINTSTREAM 6 8 6))
(|for| MONTH |from| 5 |to| 8 |as| YOFFSET |from| 44500 |by| -14800
|do| (PRINT-SCALED-MONTH MONTH YEAR 25427 YOFFSET 0.33 0.23 PRINTSTREAM 6 8 6))
(|for| MONTH |from| 9 |to| 12 |as| YOFFSET |from| 44500 |by| -14800
|do| (PRINT-SCALED-MONTH MONTH YEAR 50627 YOFFSET 0.33 0.23 PRINTSTREAM 6 8 6))
(CLOSEF PRINTSTREAM))))
(PRINT-NARROW-MONTH
(LAMBDA (MONTH YEAR STREAM) (* \; "Edited 17-Sep-87 22:32 by jds")
(PRINT-SCALED-MONTH MONTH YEAR 0 0 0.45 0.95 STREAM NIL NIL NIL '(LANDSCAPE T))))
)
(* |;;| "Internal functions and macros")
(DEFINEQ
(PRINT-SCALED-MONTH
(LAMBDA (MONTH YEAR X-OFFSET Y-OFFSET X-SCALE Y-SCALE STREAM DAYSIZE DATESIZE TINYSIZE OPTIONS)
(* \; "Edited 23-Mar-94 17:24 by turpiN:mv:envos")
(* |;;|
 "Print a month's calendar on STREAM. MONTH is a number 1-12, Year is the year, 19-- and all.")
(PROG ((STREAM-EXISTED STREAM)
PBIGFONT PCALFONT PLITTLEFONT)
(SETCURSOR WAITINGCURSOR)
(PRINTOUT PROMPTWINDOW T "Formatting for print...")
(SETQ STREAM (OR STREAM (OPENIMAGESTREAM "{LPT}" 'POSTSCRIPT OPTIONS)))
(SETQ PBIGFONT (FONTCREATE 'MODERN (OR DAYSIZE 8)
NIL 0 STREAM))
(SETQ PCALFONT (FONTCREATE 'CLASSIC (OR DATESIZE 12)
NIL 0 STREAM))
(SETQ PLITTLEFONT (FONTCREATE 'MODERN (OR TINYSIZE 6)
NIL 0 STREAM))
(PRINTMONTHIMAGE MONTH YEAR STREAM X-OFFSET Y-OFFSET X-SCALE (OR Y-SCALE X-SCALE)
PBIGFONT PCALFONT PLITTLEFONT) (* \; "Print horizontal lines")
(OR STREAM-EXISTED (CLOSEF STREAM))
(PRINTOUT PROMPTWINDOW "done." T)
(CURSOR T))))
(PRINTMONTHIMAGE
(LAMBDA (MONTH YEAR STREAM XOFFSET YOFFSET X-SCALE Y-SCALE DAYFONT DATEFONT TINYDATEFONT)
(* \; "Edited 23-Mar-94 17:42 by turpiN:mv:envos")
(* |;;|
 "Print a month's calendar on STREAM. MONTH is a number 1-12, Year is the year, 19-- and all.")
(* |;;|
 " X-SCALE & XOFFSET, and Y-SCALE & YOFFSET are used in the CAL-X and CAL-Y macros, resp.")
(* |;;| "DAYFONT and DATEFONT are used for printing the day names and dates/month title resp.")
(DSPRESET STREAM)
(DSPRIGHTMARGIN 65535 STREAM)
(LET ((TITLESTRING (CONCAT (MONTHNAME MONTH)
" " YEAR)))
(MOVETO (- (CAL-X 37559)
(IQUOTIENT (STRINGWIDTH TITLESTRING DATEFONT)
2))
(CAL-Y 57827)
STREAM))
(DSPFONT DATEFONT STREAM)
(PRINTOUT STREAM (MONTHNAME MONTH)
" " YEAR)
(LET ((DAYLABELS (APPEND (|for| N |from| 1 |to| (DAYOF MONTH 1 YEAR)
|collect| '\ )
(|for| N |from| 1 |to| (DAYSIN MONTH YEAR) |collect|
N)))
(X 1559)
(Y 47339)
(CT 0))
(|for| I |in| DAYLABELS |do|
(* |;;| "Print blanks up to the first day of the month (to allow for not starting on Sunday), then print the dates.")
(MOVETO (CAL-X X)
(CAL-Y Y)
STREAM)
(PRIN1 I STREAM)
(|add| X 10630)
(|add| CT 1)
(COND
((EQ (IREMAINDER CT 7)
0)
(SETQ X 1701)
(|add| Y -8974)))))
(|for| X |from| 850 |to| 75968 |by| 10630 |do|
(* |;;| "Print vertical lines")
(DRAWLINE (CAL-X X)
(CAL-Y 1701)
(CAL-X X)
(CAL-Y 55559)
40
'PAINT STREAM))
(|for| Y |from| 1701 |to| 55559 |by| 8974 |do|
(* |;;|
 "Print horizontal lines")
(DRAWLINE (CAL-X 850)
(CAL-Y Y)
(CAL-X 75260)
(CAL-Y Y)
40
'PAINT STREAM))
(DSPFONT DAYFONT STREAM)
(|for| X |from| 2268 |to| 72567 |by| 10630 |as| D |from| 0 |to|
6
|do|
(* |;;| "Print day names")
(MOVETO (CAL-X X)
(CAL-Y 56126)
STREAM)
(PRIN1 (DAYNAME D)
STREAM))
(COND
((>= X-SCALE 0.7)
(DSPFONT PLITTLEFONT STREAM)
(SHOWMONTHSMALL (MONTHPLUS MONTH -1)

1
internal/library/CHANGECONTROL Normal file
View File

File diff suppressed because one or more lines are too long

198
internal/library/COMPAREDIRECTORIES Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/COMPARESOURCES Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/COMPARESOURCES.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/COMPTEST Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/CONDITIONGRAPH Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/DICOLOR Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/DO-TEST Normal file
View File

Binary file not shown.

165
internal/library/DO-TEST.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/DTEST.TEDIT Normal file
View File

@@ -0,0 +1 @@
Running DSKTEST

1
internal/library/DUMPFILE Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/FASL-DEBUG Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")

1
internal/library/FLOAT-ARRAY-SUPPORT Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/GIVE-AND-TAKE Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/MACROTEST Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/MACROTESTAUX Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/MAILCLIENT Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/MAILSCAVENGE Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/MAILSCAVENGE.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/MAINTAIN Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/MAKE-EXPORTS-ALL Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

1
internal/library/MAKE-TCP-EXPORTS Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

1
internal/library/MESATYPES Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/MESATYPES.TEDIT Normal file
View File

@@ -0,0 +1 @@
Subject: New Lispcore>Library package: MesaTypes

374
internal/library/MULTI-COMPILE Normal file
View File

@@ -0,0 +1,374 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "16-Nov-94 16:28:04" |{DSK}<lispcore>internal>library>MULTI-COMPILE.;4| 37236
|changes| |to:| (VARS MULTI-COMPILECOMS)
(FNS FIND-UNCOMPILED-FILES)
|previous| |date:| " 9-Sep-94 13:03:19" |{DSK}<lispcore>internal>library>MULTI-COMPILE.;3|)
; Copyright (c) 1988, 1990, 1991, 1992, 1993, 1994 by Venue & Xerox Corporation. All rights reserved.
(PRETTYCOMPRINT MULTI-COMPILECOMS)
(RPAQQ MULTI-COMPILECOMS
(
(* |;;| "Support for compiling multiple files in one pass, for a bulk recompilation of the system (or some part of it).")
(COMS (* \; "Function to compile multiple files without having one step on the next (so you could compile all the system with it).")
(FUNCTIONS BIGCOMP))
(COMS (* \; "Function to identify all the source files on a given directory (useful for creating lists of things to compile)")
(FUNCTIONS FIND-ALL-SOURCE-FILES)
(FNS FIND-UNCOMPILED-FILES))
(COMS (* \;
 "Misc utility functions from the big Lyric recompiles.")
(FNS NEWERDCOMS? NEWERSOURCES? SETUP-FOR-RECOMPILE SMASH-OPCODES GET-DIRECTORY-LISTING
GET-OPEN-FILES)
(* |;;| "Control variables")
(VARS FILES-IN-FULL.SYSOUT FILES-IN-LIBRARY FILES-IN-LISP.SYSOUT FILES-IN-SOURCES
FORKED-FILES GARBAGE-OPCODES))
(COMS (* \;
 "Utilities for making mass-scale fixups to a library of files.")
(FNS FIX-FILES FIX-FILE FIX-COPYRIGHT FIX-FILE-COPYRIGHT QUALIFY-FIELDS FIX-TEDIT
FIX-DOCS))
(* |;;| "Removes bogus (CLISP <clisp xlation> <real-code>) translations that result from CLISPARRAY being NIL.")
(FNS CLFIX)
(PROP FILETYPE MULTI-COMPILE)
(DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
(NLAML)
(LAMA FIX-FILES)))))
(* |;;|
"Support for compiling multiple files in one pass, for a bulk recompilation of the system (or some part of it)."
)
(* \;
"Function to compile multiple files without having one step on the next (so you could compile all the system with it)."
)
(CL:DEFUN BIGCOMP (FILENAMES SOURCEDIRS DESTDIR &OPTIONAL (DRIBBLE-FILE '"{DSK}BIGCOMP.DRIBBLE")
DELETE-DCOMS? DELETE-DRIBBLE?)
(* |;;| "Compile all the files in the system.")
(LET ((COMPLETION 'ERROR)
(NUM-FILES (LENGTH FILENAMES)))
(IDLE.SET.OPTION 'TIMEOUT T) (* \; "never idle")
(SETQ NOSPELLFLG T) (* \; "death to DWIM!")
(SETQ DWIMIFYCOMPFLG NIL) (* \; "I mean it")
(* |;;| "do it")
(CL:UNWIND-PROTECT
(PROGN (DRIBBLE DRIBBLE-FILE)
(WINDOWPROP (WFROMDS (TTYDISPLAYSTREAM))
'PAGEFULLFN
'NILL)
(PRINTOUT NIL "= = = = = Setting up for full-system compilation run on " (DATE)
" = = = = =" T T)
(|for| FILE |in| FILENAMES |as| FILE-NUM |from| 1
|do| (DSPNEWPAGE (GETSTREAM NIL 'OUTPUT))
(* |;;| "changed the destfile so it has the proper extension. It was compiling everything correctly, but naming all the files .lcom.")
(LET* ((CF (COMPILE-FILE? FILE))
(SOURCEFILE (FINDFILE FILE NIL SOURCEDIRS))
(DESTFILE (PACKFILENAME 'BODY FILE 'DIRECTORY DESTDIR 'EXTENSION
(SELECTQ CF
(CL:COMPILE-FILE
'DFASL)
'LCOM))))
(RESETLST
(RESETSAVE (RESETUNDO))
(PRINTOUT NIL T "- - - " (OR CF 'BCOMPL)
"'ing file " SOURCEFILE " to " DESTFILE " at " (DATE)
" - - -" T)
(PRINTOUT NIL T "(File number " FILE-NUM " of " NUM-FILES ": "
(- NUM-FILES FILE-NUM)
" left)" T T)
(PRINT (SELECTQ CF
((BCOMPL TCOMPL NIL)
(LISPXUNREAD '(F))
(CL:FUNCALL (OR CF 'BCOMPL)
SOURCEFILE DESTFILE))
(CL:FUNCALL CF SOURCEFILE :OUTPUT-FILE DESTFILE))
T)
(PRINTOUT NIL T T "- - - End of " FILE " compilation - - -" T))
(AND DELETE-DCOMS? (DELFILE DESTFILE))))
(PRINTOUT NIL T T T "= = = = = END OF FULL-SYSTEM COMPILATION RUN = = = = =")
(SETQ COMPLETION 'SUCCESS))
(* |;;| "cleanup forms")
(PRINTOUT NIL T "Compilation status: " COMPLETION T T)
(DRIBBLE)
(WINDOWPROP (WFROMDS (TTYDISPLAYSTREAM))
'PAGEFULLFN NIL))
(SEND.FILE.TO.PRINTER DRIBBLE-FILE)
(AND DELETE-DRIBBLE? (DELFILE DRIBBLE-FILE))))
(* \;
"Function to identify all the source files on a given directory (useful for creating lists of things to compile)"
)
(CL:DEFUN FIND-ALL-SOURCE-FILES (DIRECTORY)
(* |;;| "Return a list of every file that has a compiled equivalent on DIRECTORY. This is a way of finding out what needs to be recompiled for a bulk compile.")
(LET ((DFASLS (FOR FILENAME IN (DIRECTORY (PACKFILENAME 'DIRECTORY DIRECTORY 'BODY
"*.DFASL;"))
COLLECT (UNPACKFILENAME FILENAME 'NAME)))
(LCOMS (FOR FILENAME IN (DIRECTORY (PACKFILENAME 'DIRECTORY DIRECTORY 'BODY
"*.LCOM;"))
COLLECT (UNPACKFILENAME FILENAME 'NAME))))
(UNION (INTERSECTION DFASLS DFASLS)
(INTERSECTION LCOMS LCOMS))))
(DEFINEQ
(FIND-UNCOMPILED-FILES
(LAMBDA (SRCDIR DESTDIR) (* \; "Edited 16-Nov-94 16:23 by jds")
(LET ((SRCFILES (DIRECTORY (PACKFILENAME 'DIRECTORY SRCDIR 'BODY '*.\;)))
SFILE DFILE)
(|for| FILE |in| SRCFILES |do| (SETQ SFILE (UNPACKFILENAME FILE 'NAME))
(COND
((AND (SETQ DFILE (FINDFILE-WITH-EXTENSIONS
SFILE
(LIST DESTDIR)
'(DFASL LCOM)))
(ILESSP (GETFILEINFO DFILE 'ICREATIONDATE)
(GETFILEINFO FILE 'ICREATIONDATE)))
(PRINTOUT T FILE " needs compiling." T))
((NOT DFILE)
(PRINTOUT T FILE " has no compiled version." T))
)))))
)
(* \; "Misc utility functions from the big Lyric recompiles.")
(DEFINEQ
(NEWERDCOMS?
(LAMBDA (DIRPAIRS EXTENSIONS FILTER) (* \; "Edited 9-Dec-86 21:39 by bvm")
(OR DIRPAIRS (SETQ DIRPAIRS '(({ERIS}<LISPCORE>NEWSTRING>SOURCES> {ERIS}<LISPCORE>SOURCES>)
({ERIS}<LISPCORE>NEWSTRING>LIBRARY> {ERIS}<LISPCORE>LIBRARY>)
({ERIS}<LISPCORE>NEWSTRING>INTERNAL>LIBRARY>
{ERIS}<LISPCORE>INTERNAL>LIBRARY>))))
(OR EXTENSIONS (SETQ EXTENSIONS '(LCOM DCOM)))
(|for| PAIR |in| DIRPAIRS
|join| (RESETLST
(LET ((THISDIR (CAR PAIR))
(OTHERDIR (CADR PAIR))
(THISEXT (CAR EXTENSIONS))
(OTHEREXT (CADR EXTENSIONS))
NEXT DT OTHERFILE OTHERDT OTHERWDT THISAUTHOR DIRPRINTED GEN)
(SETQ GEN (\\GENERATEFILES (PACKFILENAME.STRING 'DIRECTORY THISDIR
'NAME "*" 'EXTENSION THISEXT
'VERSION "")
'(ICREATIONDATE)
'(RESETLST)))
(|while| (SETQ NEXT (\\GENERATENEXTFILE GEN)) |eachtime|
(SETQ OTHERWDT NIL)
|when| (AND (SETQ OTHERFILE (INFILEP (PACKFILENAME.STRING
'DIRECTORY OTHERDIR
'EXTENSION OTHEREXT
'VERSION NIL 'BODY NEXT)))
(SETQ DT (\\GENERATEFILEINFO GEN 'ICREATIONDATE))
(OR (AND (SETQ OTHERDT (GETFILEINFO OTHERFILE
'ICREATIONDATE))
(< DT OTHERDT))
(AND (SETQ OTHERWDT (GETFILEINFO OTHERFILE
'IWRITEDATE))
(< DT OTHERWDT)))
(OR (NULL FILTER)
(CL:FUNCALL FILTER NEXT OTHERFILE DT OTHERDT
OTHERWDT GEN)))
|collect| (|if| (NOT DIRPRINTED)
|then| (|printout| T T " " THISDIR 18
"This Date" 38 "Other Date" 58
"Author" T)
(SETQ DIRPRINTED T))
(|printout| T (SUBSTRING NEXT
(STRPOS THISDIR NEXT 1 NIL T T
UPPERCASEARRAY))
18
(GDATE DT)
38
(GDATE OTHERDT)
58)
(|if| OTHERWDT
|then| (|printout| T (GDATE OTHERWDT)
" "))
(|printout| T (GETFILEINFO OTHERFILE 'AUTHOR)
T)
(FILENAMEFIELD NEXT 'NAME)))))))
(NEWERSOURCES?
(LAMBDA (DIRPAIRS FILTER) (* \; "Edited 9-Dec-86 23:07 by bvm")
(OR DIRPAIRS (SETQ DIRPAIRS '(({ERIS}<LISPCORE>NEWSTRING>SOURCES> {ERIS}<LISPCORE>SOURCES>)
({ERIS}<LISPCORE>NEWSTRING>LIBRARY> {ERIS}<LISPCORE>LIBRARY>)
({ERIS}<LISPCORE>NEWSTRING>INTERNAL>LIBRARY>
{ERIS}<LISPCORE>INTERNAL>LIBRARY>))))
(|for| PAIR |in| DIRPAIRS
|do| (RESETLST
(LET ((THISDIR (CAR PAIR))
(OTHERDIR (CADR PAIR))
NEXT DT THISFILE THISDT WDT DIRPRINTED GEN)
(SETQ GEN (\\GENERATEFILES (PACKFILENAME.STRING 'DIRECTORY OTHERDIR
'NAME "*" 'VERSION "")
'(ICREATIONDATE IWRITEDATE AUTHOR)
'(RESETLST)))
(|while| (SETQ NEXT (\\GENERATENEXTFILE GEN))
|eachtime| (SETQ THISDT (SETQ WDT (SETQ DT NIL)))
|when| (AND (SETQ DT (\\GENERATEFILEINFO GEN 'ICREATIONDATE))
(OR (NULL (SETQ THISFILE (INFILEP (PACKFILENAME.STRING
'DIRECTORY THISDIR
'EXTENSION COMPILE.EXT
'VERSION NIL
'BODY NEXT))))
(AND (SETQ THISDT (GETFILEINFO THISFILE
'ICREATIONDATE))
(OR (> DT THISDT)
(AND (SETQ WDT (\\GENERATEFILEINFO
GEN
'IWRITEDATE))
(> WDT THISDT)))))
(OR (NULL FILTER)
(CL:FUNCALL FILTER NEXT THISFILE DT WDT THISDT GEN)))
|do| (|if| (NOT DIRPRINTED)
|then| (|printout| T T " " OTHERDIR 18 " Its Date" 38
" Other Date" 58 "Author" T)
(SETQ DIRPRINTED T))
(OR (GET (NAMEFIELD NEXT)
'FILEDATES)
(PRIN1 "+" T))
(|printout| T (SUBSTRING NEXT
(STRPOS OTHERDIR NEXT 1 NIL T T UPPERCASEARRAY
))
18
(GDATE DT)
38
(|if| THISDT
|then| (GDATE THISDT)
|else| " - - -")
58)
(|if| WDT
|then| (|printout| T (GDATE WDT)
" "))
(|printout| T (\\GENERATEFILEINFO GEN 'AUTHOR)
T)))))))
(SETUP-FOR-RECOMPILE
(LAMBDA NIL (* \; "Edited 8-Dec-86 21:23 by jop:")
(* \;
 "So we don't get alot of warnings")
(SETQ *REMOVE-INTERLISP-COMMENTS* NIL) (* \;
 "So we don't get asked stupid questions")
(SETQ CROSSCOMPILING T) (* \;
 "setup up new compiled file version")
(PUTPROP ':D4 'CODEREADER (COPYALL (GETPROP 'D1 'CODEREADER)))
(RPAQQ CODEINDICATOR :D4)
(RPAQQ COMPILE.EXT LCOM) (* \;
 "Smash garbage collectable opcodes")
(SMASH-OPCODES GARBAGE-OPCODES) (* \; "Setup for unwind recompile")
(LOAD '{ERIS}<LISPCORE>NEWSTRING>SOURCES>UNWINDMACROS 'SYSLOAD)
(* \; "may not be necessary")
(LOAD '{ERIS}<LISPCORE>NEWSTRING>SOURCES>PROC 'PROP) (* \; "Setup for new string recompile")
(LOAD '{ERIS}<LISPCORE>NEWSTRING>SOURCES>LLCHAR 'PROP)
(REMPROP 'STRINGP 'DOPVAL) (* \; "to get correct record def's")
(LOAD '{ERIS}<LISPCORE>SOURCES>CMLARRAY 'PROP) (* \; "Setup for new stream record")
(LOAD '{ERIS}<LISPCORE>NEWSTRING>SOURCES>FILEIO 'PROP) (* \;
 "To setup packagified global type number vars")
(LOAD '{ERIS}<LISPCORE>NEWSTRING>SOURCES>DTDECLARE.DCOM 'SYSLOAD)
(* \;
 "hack for typep - not needed if makesysdate > Nov 23")
(CL:DEFTYPE :DATATYPE (OBJECT)
`(DATATYPE ,OBJECT)) (* \; "dribble hack")
(WBREAK NIL) (* \; "So the debuuger will compile")
(LOAD '{ERIS}<LISPCORE>SOURCES>XCL-PACKAGE.DCOM) (* \; "To fix the broken FP printer")
(LOADFNS '\\CONVERT.FLOATING.NUMBER '{ERIS}<LISPCORE>SOURCES>LLFLOAT.DCOM)))
(SMASH-OPCODES
(LAMBDA (OPCODE-ALIST) (* \; "Edited 24-Nov-86 17:56 by jop:")
(LET (OPNUMBER)
(CL:DOLIST (OPCODE OPCODE-ALIST)
(SETQ OPNUMBER (CADR OPCODE))
(CL:NSUBSTITUTE-IF (LIST OPNUMBER ':UNUSED)
(FUNCTION (CL:LAMBDA (OP)
(EQL (CAR OP)
OPNUMBER)))
\\OPCODES :COUNT 1)
(SETQ \\OPCODEARRAY NIL)))))
(GET-DIRECTORY-LISTING
(LAMBDA (DIRECTORY EXTENSION) (* \; "Edited 24-Nov-86 18:14 by jop:")
(|for| X |infiles| (DIRECTORY.FILL.PATTERN DIRECTORY (OR EXTENSION "")
"") |collect| (FILENAMEFIELD X 'NAME))))
(GET-OPEN-FILES
(LAMBDA (DEVICE-NAME) (* \; "Edited 25-Nov-86 18:16 by jop:")
(FETCH (FDEV OPENFILELST) OF (CDR (ASSOC DEVICE-NAME \\DEVICENAMETODEVICE)))))
)
(* |;;| "Control variables")
(RPAQQ FILES-IN-FULL.SYSOUT
(PACKAGE-STARTUP LLPACKAGE LLSYMBOL CMLARRAY CMLLIST CMLMACROS DMISC COMPATIBILITY APUTDQ
LLDISPLAY FONT PASSWORDS LEAF PUP LLETHER PROC ERROR-RUNTIME DEFSTRUCT-RUN-TIME
BOOTSTRAP MISC AINTERRUPT AERROR ABASIC APRINT ATERM MOD44IO VANILLADISK PMAP ADIR AOFD
COREIO IOCHAR LLCODE ATBL DTDECLARE ASTACK LLTIMER LLKEY LLDATATYPE LLSTK LLCHAR LLREAD
LLBIGNUM LLFLOAT LLARITH LLARRAYELT LLMVS LLINTERP LLGC LLBASIC IMAGEIO FILEIO LLNEW
LLBFS LLSUBRS LLFAULT PACKAGE-CONVERSION-TABLE ACODE MACHINEINDEPENDENT POSTLOADUP
DEFPACKAGE-IMPORT XCL-PACKAGE LISP-PACKAGE FASL-PACKAGE COMPILER-PACKAGE BSP DPUPFTP
CMLCHARACTER CMLREADTABLE STACKFNS CMLMVS MACROS MACROAUX CMLSYMBOL CMLHASH CMLDEFFER
CMLPROGV CMLEVAL COMMON CMLSPECIALFORMS CONDITION-HIERARCHY XCLC-RUNTIME CMLTYPES
CL-ERROR AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN
ADVISE LOADFNS DIRECTORY FILEPKG RESOURCE DLAP BYTECOMPILER COMPILE HIST UNDO SPELL
DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD ASSIST ASKUSER CMLUNDO CMLEXEC DEBUGGER TRACE
CMLDOC CMLPARSE CMLSETF CMLPRED CMLARRAY-OPTIMIZERS CMLREAD CMLWALK CMLSEQCOMMON
CMLSEQBASICS CMLSEQMAPPERS CMLSEQMODIFY CMLSEQFINDER CMLSORT CMLSEQ CMLARITH DEFSTRUCT
CMLMISCIO CMLCOMPILE CMLSTRING CLSTREAMS CMLDESTRUCT CMLFORMAT CMLENVIRONMENT CMLPRINT
CMLLOAD CMLFILESYS CMLFLOAT CMLTIME CMLRAND CMLMODULES ADDARITH READ-PRINT-PROFILE
CMLPATHNAME HPRINT MSANALYZE MSPARSE MASTERSCOPE AARITH ADISPLAY HLDISPLAY MENU
WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT
TWODINSPECTOR FREEMENU CMLARRAYINSPECTOR EDITINTERFACE TTYIN DISKDLION DOVEINPUTOUTPUT
DOVEDISK DOVEDISPLAY DOVEMISC DOVEETHER DOVEFLOPPY LOCALFILE DSKDISPLAY 10MBDRIVER LLNS
TRSERVER SPP COURIER NSPRINT CLEARINGHOUSE NSFILING HARDCOPY INTERPRESS FLOPPY IDLER
ICONW SEDIT-ATOMIC SEDIT-COMMANDS SEDIT-COMMENTS SEDIT-LINEAR SEDIT-LISTS
SEDIT-TERMINAL SEDIT-TOPLEVEL SEDIT-WINDOW SEDIT D-ASSEM-PACKAGE D-ASSEM FASL
XCLC-READER XCLC-ENV-CTXT XCLC-TREES XCLC-TOP-LEVEL XCLC-ALPHA XCLC-ANALYZE
XCLC-META-EVAL XCLC-ANNOTATE XCLC-GENCODE XCLC-PEEPHOLE XCLC-DATABASE XCL-COMPILER
CMLPACKAGE GIVE-AND-TAKE CHATTERMINAL DMCHAT CHAT PUPCHAT NSCHAT PRESS PUPPRINT
TEDITDECLS TEXTOFD TEDITCOMMAND TEDITSCREEN TEDITABBREV TEDITLOOKS TEDITFIND
TEDITHISTORY TEDITFILE TEDITWINDOW TEDITSELECTION READNUMBER EDITBITMAP IMAGEOBJ
TFBRAVO TEDITHCPY TEDITPAGE TEDITMENU TEDITFNKEYS TEDIT HRULE TEDITCHAT GRAPEVINE
MAILCLIENT NSMAIL LAFITEBROWSE LAFITESEND LAFITEMAIL LAFITE TABLEBROWSER FILEBROWSER
REMOTEVMEM VMEM READSYS RDSYS TELERAID GRAPHER SPY AREDIT HASH WHEREIS COPYFILES))
(RPAQQ FILES-IN-LIBRARY
(4045XLPDEFAULTPRINTER 4045XLPSTREAM ARCLEANUP AREDIT BROWSER BSEARCH CENTRONICS
CHARCODETABLES CHAT CHATDECLS CHATTERMINAL CLMAIL CML CMLARRAYINSPECTOR CMLDEBUGGER
CMLFLOATARRAY CMLHELP COLOR COLORDEMO CONDITIONGRAPH COPYFILES DANDELIONKEYBOARDS
DATABASEFNS DAYBREAKKEYBOARDS DEDIT DES DICOLOR DINFO DLRS232C DLTTY DMCHAT DO-TEST
DORADOCOLOR DORADOKEYBOARDS DOVEKEYBOARDS DOVERS232C DSKTEST EDITBITMAP ETHERRECORDS
FASTFX80STREAM FILEBROWSER FILECACHE FILECACHE-BROWSER FILECACHE-DECLS FILECACHE-HOSTUP
FILECACHE-SCAVENGE FILENAMES FONTSAMPLE FTPSERVER FX80STREAM FXPRINTER GCHAX
GIVE-AND-TAKE GRAPEVINE GRAPHER GRAPHZOOM HASH HELPSYS HRULE IMAGEOBJ KERMIT KERMITMENU
KEYBOARDEDITOR LAFITE LAFITEBROWSE LAFITEDECLS LAFITEFIND LAFITEMAIL LAFITESEND

1
internal/library/NATIVE-TRANSLATOR Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/NATIVE-TRANSLATOR-PACKAGE Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE (DEFPACKAGE "NATIVE-TRANSLATOR" (USE "IL")))

1
internal/library/NEWNSMAIL Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/NSMAIL Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/NSMAIL.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/NSTOASCIIDISPLAYFONT Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/AR-11348-PATCH Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/CLMAIL Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/CLMAIL.dfasl Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/CMLHELP Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/COLOR Normal file
View File

File diff suppressed because one or more lines are too long

222
internal/library/OBSOLETE/COLOR.TEdit Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/COLORDEMO Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/COLORDEMO.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/COLORFONTHACK Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

BIN
internal/library/OBSOLETE/COLORNNCC.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/COLOROBJ Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/COLOROBJ.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/library/OBSOLETE/COLOROBJ.dfasl Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/COMMON-LISP-PACKAGE Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/COPRFIX Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

1
internal/library/OBSOLETE/DORADOCOLOR Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/DORADOCOLOR.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/DSKTEST Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/DSKTEST.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/FILEBANGER Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/FILEBANGER.DFASL Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/FLOPPYTESTER Normal file
View File

@@ -0,0 +1 @@
(FILECREATED "24-Mar-86 15:18:14" {ERIS}<LISPCORE>SOURCES>FLOPPYTESTER.;9 4308

1
internal/library/OBSOLETE/FLOPPYWORK Normal file
View File

@@ -0,0 +1 @@
(FILECREATED "19-Jun-86 12:32:16" {ERIS}<LISPCORE>SOURCES>FLOPPYWORK.;1 3836

1
internal/library/OBSOLETE/GRAPEVINE Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/LARGESKETCHPATCH Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

1
internal/library/OBSOLETE/LFHACKS Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/LFHACKS.dfasl Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/LISPDIAGNOSTICS Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/LISPDIAGNOSTICS.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/LLCOLOR Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/MAIKOCOLOR Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/MAIKOCOLOR.TEdit Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/READINTERPRESS Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/RS232TEST Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/SKETCHCOLOR Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/SOURCELOOKUP Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/SOURCELOOKUP.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/STACKHACK Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

1
internal/library/OBSOLETE/TEDITCOLOR Normal file
View File

File diff suppressed because one or more lines are too long

1
internal/library/OBSOLETE/USPS Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/color.brainstorming Normal file
View File

Binary file not shown.

1
internal/library/OBSOLETE/datepatch Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/OBSOLETE/datepatch.tedit Normal file
View File

Binary file not shown.

BIN
internal/library/OBSOLETE/filebanger.tedit Normal file
View File

Binary file not shown.

BIN
internal/library/OBSOLETE/vpcdisk-setup.tedit Normal file
View File

Binary file not shown.

BIN
internal/library/PACKAGE-CODE.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/PEANO Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

BIN
internal/library/PEANO.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/README Normal file
View File

@@ -0,0 +1 @@
Files in this directory /usr/local/lde/internal/

1
internal/library/RELEASETOOLS Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/SMART-TRICKLE Normal file
View File

Binary file not shown.

1
internal/library/SPLICE Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

1
internal/library/TAR Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

1
internal/library/TYPEHAX Normal file
View File

@@ -0,0 +1 @@
(FILECREATED "30-Sep-86 18:49:53" {ERIS}<LISPCORE>INTERNAL>TYPEHAX.;4 3701

1
internal/library/WHEREIS Normal file
View File

File diff suppressed because one or more lines are too long

BIN
internal/library/WHEREIS.TEDIT Normal file
View File

Binary file not shown.

1
internal/library/XCLC-DEBUG Normal file
View File

File diff suppressed because one or more lines are too long