From 6de8d3ec77239fffb2f04342db15b5e16e6a3b0a Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 28 Feb 2022 21:44:12 -0800 Subject: [PATCH] Move internal/library to internal, xerox font dirs, loadup and medleydir (#709) * Move internal/library to internal, xerox font dirs, loadup and medleydir * and MEDLEYDIR too * mised some changes in 'promote/internal' * tiny typo --- .github/workflows/buildLoadup.yml | 26 ++--- README.md | 13 +-- .../Documentation Tools => doctools}/IMINDEX | 0 .../IMINDEX.LCOM | Bin .../IMINDEX.TEDIT | Bin {docs/Documentation Tools => doctools}/IMNAME | 0 .../IMNAME.LCOM | Bin .../IMNAME.TEDIT | 0 .../Documentation Tools => doctools}/IMTEDIT | 0 .../IMTEDIT.LCOM | Bin .../IMTEDIT.TEDIT | Bin .../Documentation Tools => doctools}/IMTOOLS | 0 .../IMTOOLS.LCOM | Bin {docs/Documentation Tools => doctools}/IMTRAN | 0 .../IMTRAN.LCOM | Bin .../INDEX-FORMAT.TEDIT | Bin internal/{library => }/ABC | 0 internal/{library => }/ABC.LCOM | 0 internal/{library => }/ARCLEANUP | 0 internal/{library => }/ARCLEANUP.LCOM | Bin internal/{library => }/ARCLEANUP.TEDIT | 0 internal/{library => }/AREDIT | 0 internal/{library => }/AREDIT.LCOM | Bin internal/{library => }/AREDIT.TEDIT | 0 internal/{library => }/ARHACK | 0 internal/{library => }/ARHACK.LCOM | Bin internal/{library => }/ARINDEX | 0 internal/{library => }/ARINDEX.LCOM | Bin internal/{library => }/ARQUERY | 0 internal/{library => }/ARQUERY.LCOM | Bin internal/{library => }/ARSREPORT | 0 internal/{library => }/ARSREPORT.LCOM | Bin internal/{library => }/CALENDARHACKS | 0 internal/{library => }/CALENDARHACKS.LCOM | Bin internal/{library => }/CHANGECONTROL | 0 internal/{library => }/CHANGECONTROL.LCOM | Bin internal/{library => }/COMPTEST | 0 internal/{library => }/COMPTEST.LCOM | Bin internal/{library => }/CONDITIONGRAPH | 0 internal/{library => }/CONDITIONGRAPH.DFASL | Bin internal/{library => }/CONDITIONGRAPH.LCOM | 0 internal/{library => }/DO-TEST | Bin internal/{library => }/DO-TEST.LCOM | Bin internal/{library => }/DO-TEST.TEDIT | 0 internal/{library => }/DO-TEST.pdf | Bin internal/{library => }/DTEST.TEDIT | 0 internal/{library => }/DUMPFILE | 0 internal/{library => }/DUMPFILE.LCOM | Bin internal/{library => }/FASL-DEBUG | 0 internal/{library => }/FASL-DEBUG.LCOM | 0 internal/{library => }/FLOAT-ARRAY-SUPPORT | 0 .../{library => }/FLOAT-ARRAY-SUPPORT.LCOM | 0 internal/{library => }/GIVE-AND-TAKE | 0 internal/{library => }/GIVE-AND-TAKE.LCOM | Bin internal/{library => }/MACROTEST | 0 internal/{library => }/MACROTEST.LCOM | Bin internal/{library => }/MACROTESTAUX | 0 internal/{library => }/MACROTESTAUX.LCOM | Bin internal/{library => }/MAILCLIENT | 0 internal/{library => }/MAILCLIENT.LCOM | Bin internal/{library => }/MAINTAIN | 0 internal/{library => }/MAINTAIN.LCOM | Bin internal/{library => }/MAKE-EXPORTS-ALL | 0 internal/{library => }/MAKE-PS | 0 internal/{library => }/MAKE-PS.LCOM | Bin internal/{library => }/MAKE-TCP-EXPORTS | 0 internal/{library => }/MAKE-TCP-EXPORTS.LCOM | 0 internal/{library => }/MEDLEY-UTILS | 92 ++++++++++++++++-- internal/{library => }/MEDLEY-UTILS.LCOM | Bin 5533 -> 7331 bytes internal/{library => }/MESATYPES | 0 internal/{library => }/MESATYPES.LCOM | Bin internal/{library => }/MSX.LCOM | 0 internal/{library => }/MULTI-COMPILE | 0 internal/{library => }/NATIVE-TRANSLATOR | 0 .../{library => }/NATIVE-TRANSLATOR-PACKAGE | 0 internal/{library => }/NSTOASCIIDISPLAYFONT | 0 internal/{library => }/PACKAGE-CODE.TEDIT | Bin internal/{library => }/PEANO | 0 internal/{library => }/Peano.TEdit | Bin internal/{library => }/READ-PRINT-PROFILE | 0 .../{library => }/READ-PRINT-PROFILE.LCOM | 0 .../{library => }/READ-PRINT-PROFILE.TEDIT | Bin internal/{library => }/README.TXT | 0 internal/{library => }/RELEASETOOLS | 0 internal/{library => }/SMART-TRICKLE | Bin internal/{library => }/SPLICE | 0 internal/{library => }/TAR | 0 internal/{library => }/TYPEHAX | 0 internal/{library => }/WHEREIS | 0 internal/{library => }/WHEREIS.TEDIT | Bin internal/{library => }/XCLC-DEBUG | 0 internal/{library => }/XCLC-DEBUG.dfasl | Bin internal/{library => }/arreport-test | Bin internal/{library => }/mesatypes.tedit | 0 internal/{library => }/msx | Bin lispusers/MEDLEY-FIX-DIRS.LCOM | Bin 2159 -> 0 bytes scripts/release-medley.sh | 16 +-- sources/MEDLEYDIR | 15 ++- sources/MEDLEYDIR.LCOM | Bin 4183 -> 4213 bytes 99 files changed, 115 insertions(+), 47 deletions(-) rename {docs/Documentation Tools => doctools}/IMINDEX (100%) rename {docs/Documentation Tools => doctools}/IMINDEX.LCOM (100%) rename {docs/Documentation Tools => doctools}/IMINDEX.TEDIT (100%) rename {docs/Documentation Tools => doctools}/IMNAME (100%) rename {docs/Documentation Tools => doctools}/IMNAME.LCOM (100%) rename {docs/Documentation Tools => doctools}/IMNAME.TEDIT (100%) rename {docs/Documentation Tools => doctools}/IMTEDIT (100%) rename {docs/Documentation Tools => doctools}/IMTEDIT.LCOM (100%) rename {docs/Documentation Tools => doctools}/IMTEDIT.TEDIT (100%) rename {docs/Documentation Tools => doctools}/IMTOOLS (100%) rename {docs/Documentation Tools => doctools}/IMTOOLS.LCOM (100%) rename {docs/Documentation Tools => doctools}/IMTRAN (100%) rename {docs/Documentation Tools => doctools}/IMTRAN.LCOM (100%) rename {docs/Documentation Tools => doctools}/INDEX-FORMAT.TEDIT (100%) rename internal/{library => }/ABC (100%) rename internal/{library => }/ABC.LCOM (100%) rename internal/{library => }/ARCLEANUP (100%) rename internal/{library => }/ARCLEANUP.LCOM (100%) rename internal/{library => }/ARCLEANUP.TEDIT (100%) rename internal/{library => }/AREDIT (100%) rename internal/{library => }/AREDIT.LCOM (100%) rename internal/{library => }/AREDIT.TEDIT (100%) rename internal/{library => }/ARHACK (100%) rename internal/{library => }/ARHACK.LCOM (100%) rename internal/{library => }/ARINDEX (100%) rename internal/{library => }/ARINDEX.LCOM (100%) rename internal/{library => }/ARQUERY (100%) rename internal/{library => }/ARQUERY.LCOM (100%) rename internal/{library => }/ARSREPORT (100%) rename internal/{library => }/ARSREPORT.LCOM (100%) rename internal/{library => }/CALENDARHACKS (100%) rename internal/{library => }/CALENDARHACKS.LCOM (100%) rename internal/{library => }/CHANGECONTROL (100%) rename internal/{library => }/CHANGECONTROL.LCOM (100%) rename internal/{library => }/COMPTEST (100%) rename internal/{library => }/COMPTEST.LCOM (100%) rename internal/{library => }/CONDITIONGRAPH (100%) rename internal/{library => }/CONDITIONGRAPH.DFASL (100%) rename internal/{library => }/CONDITIONGRAPH.LCOM (100%) rename internal/{library => }/DO-TEST (100%) rename internal/{library => }/DO-TEST.LCOM (100%) rename internal/{library => }/DO-TEST.TEDIT (100%) rename internal/{library => }/DO-TEST.pdf (100%) rename internal/{library => }/DTEST.TEDIT (100%) rename internal/{library => }/DUMPFILE (100%) rename internal/{library => }/DUMPFILE.LCOM (100%) rename internal/{library => }/FASL-DEBUG (100%) rename internal/{library => }/FASL-DEBUG.LCOM (100%) rename internal/{library => }/FLOAT-ARRAY-SUPPORT (100%) rename internal/{library => }/FLOAT-ARRAY-SUPPORT.LCOM (100%) rename internal/{library => }/GIVE-AND-TAKE (100%) rename internal/{library => }/GIVE-AND-TAKE.LCOM (100%) rename internal/{library => }/MACROTEST (100%) rename internal/{library => }/MACROTEST.LCOM (100%) rename internal/{library => }/MACROTESTAUX (100%) rename internal/{library => }/MACROTESTAUX.LCOM (100%) rename internal/{library => }/MAILCLIENT (100%) rename internal/{library => }/MAILCLIENT.LCOM (100%) rename internal/{library => }/MAINTAIN (100%) rename internal/{library => }/MAINTAIN.LCOM (100%) rename internal/{library => }/MAKE-EXPORTS-ALL (100%) rename internal/{library => }/MAKE-PS (100%) rename internal/{library => }/MAKE-PS.LCOM (100%) rename internal/{library => }/MAKE-TCP-EXPORTS (100%) rename internal/{library => }/MAKE-TCP-EXPORTS.LCOM (100%) rename internal/{library => }/MEDLEY-UTILS (67%) rename internal/{library => }/MEDLEY-UTILS.LCOM (67%) rename internal/{library => }/MESATYPES (100%) rename internal/{library => }/MESATYPES.LCOM (100%) rename internal/{library => }/MSX.LCOM (100%) rename internal/{library => }/MULTI-COMPILE (100%) rename internal/{library => }/NATIVE-TRANSLATOR (100%) rename internal/{library => }/NATIVE-TRANSLATOR-PACKAGE (100%) rename internal/{library => }/NSTOASCIIDISPLAYFONT (100%) rename internal/{library => }/PACKAGE-CODE.TEDIT (100%) rename internal/{library => }/PEANO (100%) rename internal/{library => }/Peano.TEdit (100%) rename internal/{library => }/READ-PRINT-PROFILE (100%) rename internal/{library => }/READ-PRINT-PROFILE.LCOM (100%) rename internal/{library => }/READ-PRINT-PROFILE.TEDIT (100%) rename internal/{library => }/README.TXT (100%) rename internal/{library => }/RELEASETOOLS (100%) rename internal/{library => }/SMART-TRICKLE (100%) rename internal/{library => }/SPLICE (100%) rename internal/{library => }/TAR (100%) rename internal/{library => }/TYPEHAX (100%) rename internal/{library => }/WHEREIS (100%) rename internal/{library => }/WHEREIS.TEDIT (100%) rename internal/{library => }/XCLC-DEBUG (100%) rename internal/{library => }/XCLC-DEBUG.dfasl (100%) rename internal/{library => }/arreport-test (100%) rename internal/{library => }/mesatypes.tedit (100%) rename internal/{library => }/msx (100%) delete mode 100644 lispusers/MEDLEY-FIX-DIRS.LCOM 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 b26edd4b066cb9540c8ae52a34d2a6c034d8de92..9c465dcf0dd047a7306ac9fc706bad72530e19cd 100644 GIT binary patch delta 2203 zcmZuy&2Jl35VxJQDTYXKX(cKlI&2Ygf^7Efw;hybv%5~Vv3Hl zZsHheOx4RVVFoHsAYC*zbZ6ZPa-j>^k`us&K>>qBD0;rNZM$1R&O~hBh&oAMAVo>S zKL_a(H_4s9N_KAcN0v}DwRF}41w!j#7=##F1w4?!3n(&@5(JyJhlBtR@yp}aMq%iB zrtOz42RRXZ%XCZSb)*F_tsq2#0ESeusWuNG1zUvFS96KPwbk=GU-lFDYu4+v8@21h z+U&5F8rBknzgOR&^5>_C|01fEFwft8yt+rFY5HON?DMjAW4QKPn+lt)`df5G9D}L; zdv<4)?Od`Md>D(Ve+DzSRZnJ;i4A?tFz2sPl($ne7yraK@5BbNJ~R66vNV%P*)tcj z&4uLe%x@+$yE$|5UhC%B?FY=_rw0=ULpxRN5B^Ag9&NE0e{2r^+)RBocoFCQ{4}}D zav4SPj4|IZbVlkIbBxiSv1Mw9ZBNzgvH9}g)tfXm77C;KjAWKmno$9m{o4F>YLUrY zH!iXjrhRs|(qh35ncawPvAxs8w{gktP4BLbw4$__>R<;Iu>SGR6_}Cs7nK&?kk|8P zvCYrX(5{GL=r9k>g{cst_!bgb1t&ph`JQisLi!3`Pun4&@FEyxH?T_gK`ziXU>dSk z7%9lAibB&4^Cj1>=wW_C_f5m~svt`WxSr)qb&f2K%>*?DAY&P?jC?^~#(utJEES}Y ziKNBhNs1VUB*|l;G*%R4upQc5*rR12`>L_&2WWJsbSjm%?fK~u;61yula>A3+2iVEeNp$8TS zvKUV(5F`RPG%O=@`+k+ih*O2vVwqn>4o@SBl@th$m2JyM5Q6m>8KM%=#t9LuNj%Aj zIE_Ta36j81kciBX`WOR+B7E!*Gl|A7Is!$*gDPSj*TW6KBdBbSiYaTCDlkbY$_T`9 zj-wQD>dPulLpKNm!?(Q(+jAO|8|?MMaB8j(a^qKi<_0H?a;1h(q{!9&4<0$y_8>Td(uPii`qJjRO+!UK2M zhU2eyoA3zVOW;7(MEshrVBTA`r}r zTjGGIO0)`;&tsP^Eu$1K`Gmu}%ykcrK0Z38X&lox7~iGvh0ZbySBib8&#!sPvost!4s zNkxf8m3F?aEl8RDcrqn2KO}wZW zgrrVSPYYmI_=} z&K{0_?ykYQA^r*)ZhpZE?v5cIu0gtNg6Q7ij@?&lv47Oi|t(U dlS^|`^GXs+GJ&BOlAoVbtfZ;Q<>%?c1pw|^Y()S7 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 63da2d6cdc92ac12c31b9bb135dde9d60d28c9d4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2159 zcmbtV&2HO95SHSm{{rINnnN&M6oyoQl1NIjMHhk@ab?k>DTZVmsb~+f#Mp!>Q6Q3b!hdfDvzCz!ivunws6{85+3%T4K&dm3HGqXjFc65^p9o?XUZg%?c z)TXNDs?Q7xWY9JUJhjwzPd&s>-E^sK=#E87g(CZ-jkYe;fQWm-(P$<}RY?RP-Ugvc=Ym*o)%UG1Uw@ z#H1pJx;-na3d_J0;d9jj0#*3kwJqJ>M zmI68E(LgTOp|c1Aa4zF;k$||n#!xPo(eY%IcoTFCyo=Sdvjde= ze^!alAs$EmJc%o>{2v2(SnS_2qKo)_FC-|#W1!9Jv`B-X67+n%Thc{r6 zd@O|waHa-u+!n|%fDY6)#X=JHKFH^C+tml|)mM}Jc7Chpe|n3RbMknw^^1P}dH37l z+Xq|Me;z&JyTk4mSAQcFO)yjkVei7SM`+va+e1Oaesn;RmJu-*tZT4rY~3Xnn5){O z0v%X=+jRuhFm96Vph!2Hth2F}a{D<^W+9pf8xwgh>BUj;dyKmDsOZzg*TWlhF%$2$h znn0}%By&ulhN=brX*6Pj)qr4|M`JH$axn^CvhcbibXBLj60DAbSs()2<5^os3odl? zuuRPt$JAC`y>FH^YPnsMwsDWNKYxh4U2JdXH+kUvvJ z{^;oZ$#*{;?fijN@R#wJoBM@_Oo!oQ(;5HiV|Ir0i&!0+tv_RGmQpigD9U#om6vG{*ek5fFs5Zw*B#<~TUt0?Oubn$N_@Ps l-7pOBjEsXMz`Ft8A^V(;F1(munuKM<5%T8!H;{Z1{{vJE9kKub 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 10c67d9125909b06199868fef77d117d1ad82621..4ff1e512a7e91daf9af1f3a335fa91c5b86ee588 100644 GIT binary patch delta 459 zcmZvXu}Z^G6o%<0kv7)qC>$;nQfbm8+8|dHYMZu!*wiGg2rg}NTZ1)`BtjQ)@CB3$ zuHx+I6Z8dKom_nbcW-oQ!83mUIsgBk5BP?M(+y=$Y?7g<%Bl*Aigz_ES067A?$i=+ zXh~FXbqC9P2!;_Eg;&@9lz1?@7z7g%7cm53a^VLP@B={2o@v73u_Q?dyg|Y){&Q7i zRN{oDVd`~Tueo{yHkY&iiplgjBRVQ*vL*wrw`-l2?uf1h0@ttE4jk(ZQ$G`pj^Tw09v8o~9=u4*j_MX{a-9mnlkSG{T8AX$bkYvpMj1eF& z9MQw9L_hfzJ`Qi95u+tGES%nFyM^D4xZ?T2I823i5QV7-!j(3HQczqBSELD;G{2%j!JnjB8e45rM9@W=+}2>4lq4;<(v5rN zK8G70#I3L3(oOfqiXhz#%$zgdITQGR=gSq4d4qVoEXoqdqOK{ry8Cjs{~)OxAS|nV zGamn{lBlbqE@>FLUOX6v6(52KaIIrm@ZTp00tVmBh!3;>imb~!m_ux>Zkfkz^UyI3 zz%vz8MOQSsSKu3x3fq#XfOqRgeUd^JZ|cCJTGNIz)3D4dqu%CVn2>Q0kJ4#oZkXle zq3V=3FUcID@AKuixs62);ULOL61ibD47!P%++)D~gpjNkge1)uKlajUK1Kr)Wo{P4 z5zvF8P(U;)mg!URd>Q?jf~Xf`j^lu(pGA8KS*??L^R#6<)x2VUY?Pc5I=bkz91~cU ez1{-)TC#J}7qd#&m