diff --git a/.github/workflows/buildLoadup.yml b/.github/workflows/buildLoadup.yml index 3caceedb..9a53907f 100644 --- a/.github/workflows/buildLoadup.yml +++ b/.github/workflows/buildLoadup.yml @@ -165,38 +165,38 @@ jobs: - name: Build loadups release tar run: | - cp -p tmp/full.sysout tmp/lisp.sysout tmp/*.dribble tmp/whereis.hash loadups/ - cp -p tmp/exports.all tmp/RDSYS tmp/RDSYS.LCOM library/ + cp -p tmp/full.sysout tmp/lisp.sysout tmp/whereis.hash loadups/ + cp -p tmp/exports.all library/ cd .. tar cfz medley/tmp/${release_tag}-loadups.tgz \ medley/loadups/lisp.sysout \ medley/loadups/full.sysout \ medley/loadups/whereis.hash \ - medley/library/exports.all \ - medley/library/RDSYS/ \ - medley/library/RDSYS.LCOM + medley/library/exports.all + env: release_tag: ${{ steps.tag.outputs.release_tag }} - name: Build runtime release tar run: | cd .. - tar cfz medley/tmp/${release_tag}-runtime.tgz \ + tar cfz medley/tmp/${release_tag}-runtime.tgz \ --exclude "*~" --exclude "*#*" \ + --exclude exports.all \ medley/docs/dinfo \ - medley/docs/Documentation\ Tools \ + medley/doctools \ medley/greetfiles \ + medley/rooms \ medley/run-medley \ medley/scripts \ medley/fonts/displayfonts \ medley/fonts/altofonts \ + medley/fonts/xerox medley/fonts/adobe \ medley/fonts/postscriptfonts \ - medley/library/ \ - medley/lispusers/ \ - medley/fonts/big \ - medley/fonts/other \ - medley/sources/ \ - medley/internal/library + medley/library \ + medley/lispusers \ + medley/sources \ + medley/internal env: release_tag: ${{ steps.tag.outputs.release_tag }} diff --git a/README.md b/README.md index 34c363ae..8298ede9 100644 --- a/README.md +++ b/README.md @@ -113,12 +113,7 @@ you can continue right where you left off. File Names and Extensions: Most Interlisp source file names are UPPERCASE and Interlisp didn't use file extensions for its source files. A .TEDIT or .TXT file is probably documentation -for the package of same name, at least in the library, -internal/library, lispusers. - - - - +for the package of same name, at least in the library, lispusers. The current repo has both Lisp sources and compiled .LCOM and .DFASL files. @@ -129,15 +124,15 @@ Each directory should have a README.md, but briefly * clos -- early implementation of Common Lisp Object System * CLTL2 -- files submitted to bring Medley up to the conformance to "Common Lisp, the Language" 2nd edition. Not enough to conform to the ANSII standard lisp. * Dockerfile -- used when building Docker containers with Medley -* docs -- Documentation files (either PDFs or online help; see medley/wiki) +* docs -- Documentation files (in TEdit format PDFs or online help; look [here](https://github.com/Interlisp/medley/Documentation) * fonts -- raster fonts (or font widths) in various resolutions for display, postscript, interpress, press formats * greetfiles -- various configuration setups -* internal -- These _were_ internal to Venue; now internal/library and internal/test +* internal -- These _were_ internal to Venue * library -- packages that were supported (30 years ago) * lispusers -- User contributed packages that were only half supported (ditto) * loadups -- has sysouts and other builds plus a few remnants * obsolete -- files we should remove from the repo -* rooms -- implementation of ROOMS window / desktop manager +* rooms -- implementation of ROOMS window/desktop manager * run-medley -- script to enhance the options of running medley * scripts -- some scripts for fixing up things * sources -- sources for Interlisp and Common Lisp implementations diff --git a/docs/Documentation Tools/IMINDEX b/doctools/IMINDEX similarity index 100% rename from docs/Documentation Tools/IMINDEX rename to doctools/IMINDEX diff --git a/docs/Documentation Tools/IMINDEX.LCOM b/doctools/IMINDEX.LCOM similarity index 100% rename from docs/Documentation Tools/IMINDEX.LCOM rename to doctools/IMINDEX.LCOM diff --git a/docs/Documentation Tools/IMINDEX.TEDIT b/doctools/IMINDEX.TEDIT similarity index 100% rename from docs/Documentation Tools/IMINDEX.TEDIT rename to doctools/IMINDEX.TEDIT diff --git a/docs/Documentation Tools/IMNAME b/doctools/IMNAME similarity index 100% rename from docs/Documentation Tools/IMNAME rename to doctools/IMNAME diff --git a/docs/Documentation Tools/IMNAME.LCOM b/doctools/IMNAME.LCOM similarity index 100% rename from docs/Documentation Tools/IMNAME.LCOM rename to doctools/IMNAME.LCOM diff --git a/docs/Documentation Tools/IMNAME.TEDIT b/doctools/IMNAME.TEDIT similarity index 100% rename from docs/Documentation Tools/IMNAME.TEDIT rename to doctools/IMNAME.TEDIT diff --git a/docs/Documentation Tools/IMTEDIT b/doctools/IMTEDIT similarity index 100% rename from docs/Documentation Tools/IMTEDIT rename to doctools/IMTEDIT diff --git a/docs/Documentation Tools/IMTEDIT.LCOM b/doctools/IMTEDIT.LCOM similarity index 100% rename from docs/Documentation Tools/IMTEDIT.LCOM rename to doctools/IMTEDIT.LCOM diff --git a/docs/Documentation Tools/IMTEDIT.TEDIT b/doctools/IMTEDIT.TEDIT similarity index 100% rename from docs/Documentation Tools/IMTEDIT.TEDIT rename to doctools/IMTEDIT.TEDIT diff --git a/docs/Documentation Tools/IMTOOLS b/doctools/IMTOOLS similarity index 100% rename from docs/Documentation Tools/IMTOOLS rename to doctools/IMTOOLS diff --git a/docs/Documentation Tools/IMTOOLS.LCOM b/doctools/IMTOOLS.LCOM similarity index 100% rename from docs/Documentation Tools/IMTOOLS.LCOM rename to doctools/IMTOOLS.LCOM diff --git a/docs/Documentation Tools/IMTRAN b/doctools/IMTRAN similarity index 100% rename from docs/Documentation Tools/IMTRAN rename to doctools/IMTRAN diff --git a/docs/Documentation Tools/IMTRAN.LCOM b/doctools/IMTRAN.LCOM similarity index 100% rename from docs/Documentation Tools/IMTRAN.LCOM rename to doctools/IMTRAN.LCOM diff --git a/docs/Documentation Tools/INDEX-FORMAT.TEDIT b/doctools/INDEX-FORMAT.TEDIT similarity index 100% rename from docs/Documentation Tools/INDEX-FORMAT.TEDIT rename to doctools/INDEX-FORMAT.TEDIT diff --git a/internal/library/ABC b/internal/ABC similarity index 100% rename from internal/library/ABC rename to internal/ABC diff --git a/internal/library/ABC.LCOM b/internal/ABC.LCOM similarity index 100% rename from internal/library/ABC.LCOM rename to internal/ABC.LCOM diff --git a/internal/library/ARCLEANUP b/internal/ARCLEANUP similarity index 100% rename from internal/library/ARCLEANUP rename to internal/ARCLEANUP diff --git a/internal/library/ARCLEANUP.LCOM b/internal/ARCLEANUP.LCOM similarity index 100% rename from internal/library/ARCLEANUP.LCOM rename to internal/ARCLEANUP.LCOM diff --git a/internal/library/ARCLEANUP.TEDIT b/internal/ARCLEANUP.TEDIT similarity index 100% rename from internal/library/ARCLEANUP.TEDIT rename to internal/ARCLEANUP.TEDIT diff --git a/internal/library/AREDIT b/internal/AREDIT similarity index 100% rename from internal/library/AREDIT rename to internal/AREDIT diff --git a/internal/library/AREDIT.LCOM b/internal/AREDIT.LCOM similarity index 100% rename from internal/library/AREDIT.LCOM rename to internal/AREDIT.LCOM diff --git a/internal/library/AREDIT.TEDIT b/internal/AREDIT.TEDIT similarity index 100% rename from internal/library/AREDIT.TEDIT rename to internal/AREDIT.TEDIT diff --git a/internal/library/ARHACK b/internal/ARHACK similarity index 100% rename from internal/library/ARHACK rename to internal/ARHACK diff --git a/internal/library/ARHACK.LCOM b/internal/ARHACK.LCOM similarity index 100% rename from internal/library/ARHACK.LCOM rename to internal/ARHACK.LCOM diff --git a/internal/library/ARINDEX b/internal/ARINDEX similarity index 100% rename from internal/library/ARINDEX rename to internal/ARINDEX diff --git a/internal/library/ARINDEX.LCOM b/internal/ARINDEX.LCOM similarity index 100% rename from internal/library/ARINDEX.LCOM rename to internal/ARINDEX.LCOM diff --git a/internal/library/ARQUERY b/internal/ARQUERY similarity index 100% rename from internal/library/ARQUERY rename to internal/ARQUERY diff --git a/internal/library/ARQUERY.LCOM b/internal/ARQUERY.LCOM similarity index 100% rename from internal/library/ARQUERY.LCOM rename to internal/ARQUERY.LCOM diff --git a/internal/library/ARSREPORT b/internal/ARSREPORT similarity index 100% rename from internal/library/ARSREPORT rename to internal/ARSREPORT diff --git a/internal/library/ARSREPORT.LCOM b/internal/ARSREPORT.LCOM similarity index 100% rename from internal/library/ARSREPORT.LCOM rename to internal/ARSREPORT.LCOM diff --git a/internal/library/CALENDARHACKS b/internal/CALENDARHACKS similarity index 100% rename from internal/library/CALENDARHACKS rename to internal/CALENDARHACKS diff --git a/internal/library/CALENDARHACKS.LCOM b/internal/CALENDARHACKS.LCOM similarity index 100% rename from internal/library/CALENDARHACKS.LCOM rename to internal/CALENDARHACKS.LCOM diff --git a/internal/library/CHANGECONTROL b/internal/CHANGECONTROL similarity index 100% rename from internal/library/CHANGECONTROL rename to internal/CHANGECONTROL diff --git a/internal/library/CHANGECONTROL.LCOM b/internal/CHANGECONTROL.LCOM similarity index 100% rename from internal/library/CHANGECONTROL.LCOM rename to internal/CHANGECONTROL.LCOM diff --git a/internal/library/COMPTEST b/internal/COMPTEST similarity index 100% rename from internal/library/COMPTEST rename to internal/COMPTEST diff --git a/internal/library/COMPTEST.LCOM b/internal/COMPTEST.LCOM similarity index 100% rename from internal/library/COMPTEST.LCOM rename to internal/COMPTEST.LCOM diff --git a/internal/library/CONDITIONGRAPH b/internal/CONDITIONGRAPH similarity index 100% rename from internal/library/CONDITIONGRAPH rename to internal/CONDITIONGRAPH diff --git a/internal/library/CONDITIONGRAPH.DFASL b/internal/CONDITIONGRAPH.DFASL similarity index 100% rename from internal/library/CONDITIONGRAPH.DFASL rename to internal/CONDITIONGRAPH.DFASL diff --git a/internal/library/CONDITIONGRAPH.LCOM b/internal/CONDITIONGRAPH.LCOM similarity index 100% rename from internal/library/CONDITIONGRAPH.LCOM rename to internal/CONDITIONGRAPH.LCOM diff --git a/internal/library/DO-TEST b/internal/DO-TEST similarity index 100% rename from internal/library/DO-TEST rename to internal/DO-TEST diff --git a/internal/library/DO-TEST.LCOM b/internal/DO-TEST.LCOM similarity index 100% rename from internal/library/DO-TEST.LCOM rename to internal/DO-TEST.LCOM diff --git a/internal/library/DO-TEST.TEDIT b/internal/DO-TEST.TEDIT similarity index 100% rename from internal/library/DO-TEST.TEDIT rename to internal/DO-TEST.TEDIT diff --git a/internal/library/DO-TEST.pdf b/internal/DO-TEST.pdf similarity index 100% rename from internal/library/DO-TEST.pdf rename to internal/DO-TEST.pdf diff --git a/internal/library/DTEST.TEDIT b/internal/DTEST.TEDIT similarity index 100% rename from internal/library/DTEST.TEDIT rename to internal/DTEST.TEDIT diff --git a/internal/library/DUMPFILE b/internal/DUMPFILE similarity index 100% rename from internal/library/DUMPFILE rename to internal/DUMPFILE diff --git a/internal/library/DUMPFILE.LCOM b/internal/DUMPFILE.LCOM similarity index 100% rename from internal/library/DUMPFILE.LCOM rename to internal/DUMPFILE.LCOM diff --git a/internal/library/FASL-DEBUG b/internal/FASL-DEBUG similarity index 100% rename from internal/library/FASL-DEBUG rename to internal/FASL-DEBUG diff --git a/internal/library/FASL-DEBUG.LCOM b/internal/FASL-DEBUG.LCOM similarity index 100% rename from internal/library/FASL-DEBUG.LCOM rename to internal/FASL-DEBUG.LCOM diff --git a/internal/library/FLOAT-ARRAY-SUPPORT b/internal/FLOAT-ARRAY-SUPPORT similarity index 100% rename from internal/library/FLOAT-ARRAY-SUPPORT rename to internal/FLOAT-ARRAY-SUPPORT diff --git a/internal/library/FLOAT-ARRAY-SUPPORT.LCOM b/internal/FLOAT-ARRAY-SUPPORT.LCOM similarity index 100% rename from internal/library/FLOAT-ARRAY-SUPPORT.LCOM rename to internal/FLOAT-ARRAY-SUPPORT.LCOM diff --git a/internal/library/GIVE-AND-TAKE b/internal/GIVE-AND-TAKE similarity index 100% rename from internal/library/GIVE-AND-TAKE rename to internal/GIVE-AND-TAKE diff --git a/internal/library/GIVE-AND-TAKE.LCOM b/internal/GIVE-AND-TAKE.LCOM similarity index 100% rename from internal/library/GIVE-AND-TAKE.LCOM rename to internal/GIVE-AND-TAKE.LCOM diff --git a/internal/library/MACROTEST b/internal/MACROTEST similarity index 100% rename from internal/library/MACROTEST rename to internal/MACROTEST diff --git a/internal/library/MACROTEST.LCOM b/internal/MACROTEST.LCOM similarity index 100% rename from internal/library/MACROTEST.LCOM rename to internal/MACROTEST.LCOM diff --git a/internal/library/MACROTESTAUX b/internal/MACROTESTAUX similarity index 100% rename from internal/library/MACROTESTAUX rename to internal/MACROTESTAUX diff --git a/internal/library/MACROTESTAUX.LCOM b/internal/MACROTESTAUX.LCOM similarity index 100% rename from internal/library/MACROTESTAUX.LCOM rename to internal/MACROTESTAUX.LCOM diff --git a/internal/library/MAILCLIENT b/internal/MAILCLIENT similarity index 100% rename from internal/library/MAILCLIENT rename to internal/MAILCLIENT diff --git a/internal/library/MAILCLIENT.LCOM b/internal/MAILCLIENT.LCOM similarity index 100% rename from internal/library/MAILCLIENT.LCOM rename to internal/MAILCLIENT.LCOM diff --git a/internal/library/MAINTAIN b/internal/MAINTAIN similarity index 100% rename from internal/library/MAINTAIN rename to internal/MAINTAIN diff --git a/internal/library/MAINTAIN.LCOM b/internal/MAINTAIN.LCOM similarity index 100% rename from internal/library/MAINTAIN.LCOM rename to internal/MAINTAIN.LCOM diff --git a/internal/library/MAKE-EXPORTS-ALL b/internal/MAKE-EXPORTS-ALL similarity index 100% rename from internal/library/MAKE-EXPORTS-ALL rename to internal/MAKE-EXPORTS-ALL diff --git a/internal/library/MAKE-PS b/internal/MAKE-PS similarity index 100% rename from internal/library/MAKE-PS rename to internal/MAKE-PS diff --git a/internal/library/MAKE-PS.LCOM b/internal/MAKE-PS.LCOM similarity index 100% rename from internal/library/MAKE-PS.LCOM rename to internal/MAKE-PS.LCOM diff --git a/internal/library/MAKE-TCP-EXPORTS b/internal/MAKE-TCP-EXPORTS similarity index 100% rename from internal/library/MAKE-TCP-EXPORTS rename to internal/MAKE-TCP-EXPORTS diff --git a/internal/library/MAKE-TCP-EXPORTS.LCOM b/internal/MAKE-TCP-EXPORTS.LCOM similarity index 100% rename from internal/library/MAKE-TCP-EXPORTS.LCOM rename to internal/MAKE-TCP-EXPORTS.LCOM diff --git a/internal/library/MEDLEY-UTILS b/internal/MEDLEY-UTILS similarity index 67% rename from internal/library/MEDLEY-UTILS rename to internal/MEDLEY-UTILS index b2d0df42..6d4c99cd 100644 --- a/internal/library/MEDLEY-UTILS +++ b/internal/MEDLEY-UTILS @@ -1,18 +1,22 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "26-Dec-2021 18:58:43" |{DSK}larry>medley>internal>library>MEDLEY-UTILS.;2| 9049 +(FILECREATED "20-Feb-2022 12:59:27" |{DSK}larry>medley>internal>MEDLEY-UTILS.;4| 12701 - :CHANGES-TO (FNS GATHER-INFO) + :CHANGES-TO (FNS HCFILES) - :PREVIOUS-DATE "25-Oct-2021 14:54:43" |{DSK}larry>medley>internal>library>MEDLEY-UTILS.;1| -) + :PREVIOUS-DATE "17-Feb-2022 21:44:44" |{DSK}larry>medley>internal>MEDLEY-UTILS.;1|) (PRETTYCOMPRINT MEDLEY-UTILSCOMS) (RPAQQ MEDLEY-UTILSCOMS ((FNS GATHER-INFO MEDLEY-FIX-LINKS MEDLEY-FIX-DATES) (VARS MEDLEY-FIX-DIRS) - (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH))) + (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH) + + (* |;;| "hardcopy files") + + (FNS HCFILES) + (INITVARS (HCFILES)))) (DEFINEQ (GATHER-INFO @@ -116,8 +120,7 @@ (MEDLEYDIR (PRINT X T)))))) ) -(RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" - "docs>Documentation Tools")) +(RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal" "greetfiles" "doctools")) (DEFINEQ (MAKE-EXPORTS-ALL @@ -149,7 +152,78 @@ (RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T)) (DRIBBLE)))) ) + + + +(* |;;| "hardcopy files") + +(DEFINEQ + +(HCFILES + (LAMBDA (TFILE PREFIX DEST REDOFLG TOPDIRLEN) (* \; "Edited 20-Feb-2022 12:16 by larry") + (* \; "Edited 21-Aug-2021 20:56 by larry") + (DECLARE (SPECVARS TFILE)) + (COND + ((NULL TFILE) + (HCFILES MEDLEYDIR)) + ((DIRECTORYNAMEP TFILE) + (SETQ TFILE (DIRECTORYNAME TFILE)) + (OR TOPDIRLEN (SETQ TOPDIRLEN (IPLUS 1 (CL:LENGTH (MKSTRING (FILENAMEFIELD TFILE 'DIRECTORY)) + )))) + (OR DEST (SETQ DEST (MEDLEYDIR "tmp/psfiles" NIL T T))) + + (* |;;| "first deal with files in this directory") + + (|for| X |in| (|if| (EQ REDOFLG 'REV) + |then| (REVERSE (DIRECTORY (CONCAT TFILE "*.TED*;"))) + |else| (DIRECTORY (CONCAT TFILE "*.TED*;"))) + |do| (HCFILES X PREFIX DEST REDOFLG TOPDIRLEN)) + + (* |;;| " then deal with subdirs ") + + (|for| X |in| (|if| (EQ REDOFLG 'REV) + |then| (REVERSE (DIRECTORY (CONCAT TFILE "*"))) + |else| (DIRECTORY (CONCAT TFILE "*"))) + |when| (|for| SKIP |in| '(">." ">dinfo>") |always| (NOT (STRPOS SKIP (L-CASE X)))) + |when| (DIRECTORYNAMEP X) |do| (HCFILES X PREFIX DEST REDOFLG TOPDIRLEN))) + ((SETQ TFILE (INFILEP TFILE)) + (PROG ((PSFILE (PACKFILENAME.STRING 'EXTENSION (|if| (EQ REDOFLG 'IP) + |then| 'IP + |else| "PS") + 'NAME + (CONCAT (OR PREFIX "") + (|if| PREFIX + |then| "-" + |else| "") + (PACK (SUBST '- '> (UNPACK (SUBSTRING (FILENAMEFIELD + TFILE + 'DIRECTORY) + (IPLUS 1 TOPDIRLEN) + -1)))) + "-" + (FILENAMEFIELD TFILE 'NAME)) + 'DIRECTORY DEST)) + (TEXTSTREAM)) + (|if| (AND (NOT REDOFLG) + (INFILEP PSFILE)) + |then| (* \; " do nothing") + (PRINTOUT T PSFILE " already there" T) + |elseif| (EQ REDOFLG 'TEST) + |then| (PRINTOUT T "TESTING " TFILE) + (CLOSEF (OPENTEXTSTREAM TFILE)) + |else| (PRINTOUT T "Converting " TFILE "...") + (TEDIT.FORMAT.HARDCOPY (SETQ TEXTSTREAM (OPENTEXTSTREAM TFILE)) + PSFILE T NIL NIL NIL (|if| (EQ REDOFLG 'IP) + |then| 'INTERPRESS + |else| 'POSTSCRIPT)) + (|printout| T " DONE" T) + (CLOSEF? TEXTSTREAM)))) + (T (PRINTOUT T "no such file " T))))) +) + +(RPAQ? HCFILES ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (553 7001 (GATHER-INFO 563 . 6103) (MEDLEY-FIX-LINKS 6105 . 6628) (MEDLEY-FIX-DATES 6630 - . 6999)) (7155 9026 (MAKE-EXPORTS-ALL 7165 . 8181) (MAKE-WHEREIS-HASH 8183 . 9024))))) + (FILEMAP (NIL (699 7147 (GATHER-INFO 709 . 6249) (MEDLEY-FIX-LINKS 6251 . 6774) (MEDLEY-FIX-DATES 6776 + . 7145)) (7246 9117 (MAKE-EXPORTS-ALL 7256 . 8272) (MAKE-WHEREIS-HASH 8274 . 9115)) (9152 12656 ( +HCFILES 9162 . 12654))))) STOP diff --git a/internal/library/MEDLEY-UTILS.LCOM b/internal/MEDLEY-UTILS.LCOM similarity index 67% rename from internal/library/MEDLEY-UTILS.LCOM rename to internal/MEDLEY-UTILS.LCOM index b26edd4b..9c465dcf 100644 Binary files a/internal/library/MEDLEY-UTILS.LCOM and b/internal/MEDLEY-UTILS.LCOM differ diff --git a/internal/library/MESATYPES b/internal/MESATYPES similarity index 100% rename from internal/library/MESATYPES rename to internal/MESATYPES diff --git a/internal/library/MESATYPES.LCOM b/internal/MESATYPES.LCOM similarity index 100% rename from internal/library/MESATYPES.LCOM rename to internal/MESATYPES.LCOM diff --git a/internal/library/MSX.LCOM b/internal/MSX.LCOM similarity index 100% rename from internal/library/MSX.LCOM rename to internal/MSX.LCOM diff --git a/internal/library/MULTI-COMPILE b/internal/MULTI-COMPILE similarity index 100% rename from internal/library/MULTI-COMPILE rename to internal/MULTI-COMPILE diff --git a/internal/library/NATIVE-TRANSLATOR b/internal/NATIVE-TRANSLATOR similarity index 100% rename from internal/library/NATIVE-TRANSLATOR rename to internal/NATIVE-TRANSLATOR diff --git a/internal/library/NATIVE-TRANSLATOR-PACKAGE b/internal/NATIVE-TRANSLATOR-PACKAGE similarity index 100% rename from internal/library/NATIVE-TRANSLATOR-PACKAGE rename to internal/NATIVE-TRANSLATOR-PACKAGE diff --git a/internal/library/NSTOASCIIDISPLAYFONT b/internal/NSTOASCIIDISPLAYFONT similarity index 100% rename from internal/library/NSTOASCIIDISPLAYFONT rename to internal/NSTOASCIIDISPLAYFONT diff --git a/internal/library/PACKAGE-CODE.TEDIT b/internal/PACKAGE-CODE.TEDIT similarity index 100% rename from internal/library/PACKAGE-CODE.TEDIT rename to internal/PACKAGE-CODE.TEDIT diff --git a/internal/library/PEANO b/internal/PEANO similarity index 100% rename from internal/library/PEANO rename to internal/PEANO diff --git a/internal/library/Peano.TEdit b/internal/Peano.TEdit similarity index 100% rename from internal/library/Peano.TEdit rename to internal/Peano.TEdit diff --git a/internal/library/READ-PRINT-PROFILE b/internal/READ-PRINT-PROFILE similarity index 100% rename from internal/library/READ-PRINT-PROFILE rename to internal/READ-PRINT-PROFILE diff --git a/internal/library/READ-PRINT-PROFILE.LCOM b/internal/READ-PRINT-PROFILE.LCOM similarity index 100% rename from internal/library/READ-PRINT-PROFILE.LCOM rename to internal/READ-PRINT-PROFILE.LCOM diff --git a/internal/library/READ-PRINT-PROFILE.TEDIT b/internal/READ-PRINT-PROFILE.TEDIT similarity index 100% rename from internal/library/READ-PRINT-PROFILE.TEDIT rename to internal/READ-PRINT-PROFILE.TEDIT diff --git a/internal/library/README.TXT b/internal/README.TXT similarity index 100% rename from internal/library/README.TXT rename to internal/README.TXT diff --git a/internal/library/RELEASETOOLS b/internal/RELEASETOOLS similarity index 100% rename from internal/library/RELEASETOOLS rename to internal/RELEASETOOLS diff --git a/internal/library/SMART-TRICKLE b/internal/SMART-TRICKLE similarity index 100% rename from internal/library/SMART-TRICKLE rename to internal/SMART-TRICKLE diff --git a/internal/library/SPLICE b/internal/SPLICE similarity index 100% rename from internal/library/SPLICE rename to internal/SPLICE diff --git a/internal/library/TAR b/internal/TAR similarity index 100% rename from internal/library/TAR rename to internal/TAR diff --git a/internal/library/TYPEHAX b/internal/TYPEHAX similarity index 100% rename from internal/library/TYPEHAX rename to internal/TYPEHAX diff --git a/internal/library/WHEREIS b/internal/WHEREIS similarity index 100% rename from internal/library/WHEREIS rename to internal/WHEREIS diff --git a/internal/library/WHEREIS.TEDIT b/internal/WHEREIS.TEDIT similarity index 100% rename from internal/library/WHEREIS.TEDIT rename to internal/WHEREIS.TEDIT diff --git a/internal/library/XCLC-DEBUG b/internal/XCLC-DEBUG similarity index 100% rename from internal/library/XCLC-DEBUG rename to internal/XCLC-DEBUG diff --git a/internal/library/XCLC-DEBUG.dfasl b/internal/XCLC-DEBUG.dfasl similarity index 100% rename from internal/library/XCLC-DEBUG.dfasl rename to internal/XCLC-DEBUG.dfasl diff --git a/internal/library/arreport-test b/internal/arreport-test similarity index 100% rename from internal/library/arreport-test rename to internal/arreport-test diff --git a/internal/library/mesatypes.tedit b/internal/mesatypes.tedit similarity index 100% rename from internal/library/mesatypes.tedit rename to internal/mesatypes.tedit diff --git a/internal/library/msx b/internal/msx similarity index 100% rename from internal/library/msx rename to internal/msx diff --git a/lispusers/MEDLEY-FIX-DIRS.LCOM b/lispusers/MEDLEY-FIX-DIRS.LCOM deleted file mode 100644 index 63da2d6c..00000000 Binary files a/lispusers/MEDLEY-FIX-DIRS.LCOM and /dev/null differ diff --git a/scripts/release-medley.sh b/scripts/release-medley.sh index 8f36d7de..e6dac310 100755 --- a/scripts/release-medley.sh +++ b/scripts/release-medley.sh @@ -20,25 +20,25 @@ tar cfz medley/tmp/$tag-loadups.tgz \ medley/loadups/lisp.sysout \ medley/loadups/full.sysout \ medley/loadups/whereis.hash \ - medley/library/exports.all \ - medley/library/RDSYS medley/library/RDSYS.LCOM + medley/library/exports.all echo making $tag-runtime.tgz tar cfz medley/tmp/$tag-runtime.tgz \ --exclude "*~" --exclude "*#*" \ medley/docs/dinfo \ - medley/docs/Documentation\ Tools \ + medley/docs/doctools \ medley/greetfiles \ + medley/rooms \ medley/run-medley \ medley/scripts \ medley/fonts/displayfonts medley/fonts/altofonts \ + medley/fonts/xerox medley/fonts/adobe \ medley/fonts/postscriptfonts \ - medley/library/ \ - medley/lispusers/ \ - medley/fonts/big medley/fonts/other \ - medley/sources/ \ - medley/internal/library \ + medley/library \ + medley/lispusers \ + medley/sources \ + medley/internal cd medley diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR index e8fe074b..1c702062 100644 --- a/sources/MEDLEYDIR +++ b/sources/MEDLEYDIR @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 2-Dec-2021 20:43:35" {DSK}larry>medley>sources>MEDLEYDIR.;14 6103 +(FILECREATED "18-Feb-2022 12:46:00" {DSK}larry>medley>sources>MEDLEYDIR.;2 6060 - changes to%: (FNS MEDLEYDIR) + :CHANGES-TO (VARS MEDLEY-INIT-VARS) - previous date%: " 2-Dec-2021 20:32:45" {DSK}larry>medley>sources>MEDLEYDIR.;12) + :PREVIOUS-DATE "13-Feb-2022 15:20:26" {DSK}larry>medley>sources>MEDLEYDIR.;1) (PRETTYCOMPRINT MEDLEYDIRCOMS) @@ -102,8 +102,7 @@ (ADDTOVAR AFTERMAKESYSFORMS (MEDLEY-INIT-VARS)) (RPAQQ MEDLEY-INIT-VARS - ([LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal/library" "greetfiles" - "docs/documentation tools"] + ([LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal" "greetfiles" "doctools"] [LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources"] (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES)) (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo")) @@ -113,8 +112,8 @@ (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINHOST/DIR "INIT" COM) (,LOGINHOST/DIR "INIT"] - (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts" "fonts/big" - "fonts/other") + (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts" "fonts/adobe" + "fonts/xerox" "fonts/big" "fonts/other") NIL NIL T)) (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts") NIL NIL T)) @@ -126,5 +125,5 @@ (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1380 4562 (MEDLEY-INIT-VARS 1390 . 3004) (MEDLEYDIR 3006 . 4560))))) + (FILEMAP (NIL (1383 4565 (MEDLEY-INIT-VARS 1393 . 3007) (MEDLEYDIR 3009 . 4563))))) STOP diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM index 10c67d91..4ff1e512 100644 Binary files a/sources/MEDLEYDIR.LCOM and b/sources/MEDLEYDIR.LCOM differ