release more (#447)

* move badfiles

* fix release to include sources

* load known, used image object defns

* add docs/Documentation Tools to release

* Avoid --exclude-backups with explicit exclude

* fix typo remove 'release-one' leftover from older regime

* update release notes

.gitignore

@@ -11,6 +11,10 @@ loadups/full.sysout
 loadups/*.dribble
 loadups/whereis.hash
 
+# manual cross-reference files
+
+*.IMPTR
+
 #compiled code -- leave in for now
 
 # *.lcom

internal/library/MAKE-PS

@@ -0,0 +1,133 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED " 1-Sep-2021 21:13:57" {DSK}<home>larry>medley>internal>library>MAKE-PS.;6
 5503   
+
+      changes to%:  (VARS MAKE-PSCOMS)
+                    (FNS MAKE-PS-INIT)
+
+      previous date%: "31-Aug-2021 22:30:13" {DSK}<home>larry>medley>internal>library>MAKE-PS.;4)
+
+
+(PRETTYCOMPRINT MAKE-PSCOMS)
+
+(RPAQQ MAKE-PSCOMS

+       [(FNS MAKE-PS MAKE-PS-INIT BADFILE)
+        
+        (* ;; " Load known used image object types")

+
+        (FILES DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
+        (ADVISE TEDIT.PROMPTPRINT)
+        (INITVARS (BADFILESFILE)
+               (BADFS)
+               (BADFILES))
+        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAKE-PS-INIT])
+(DEFINEQ
+
+(MAKE-PS

+  [LAMBDA (TFILE PREFIX DEST REDOFLG TOPDIRLEN)
        (* ; "Edited 21-Aug-2021 20:56 by larry")

+    (DECLARE
 (SPECVARS TFILE))
+    (COND
+       ((DIRECTORYNAMEP TFILE)
+        (SETQ TFILE (DIRECTORYNAME TFILE))
+        [OR TOPDIRLEN (SETQ TOPDIRLEN (IPLUS 1 (CL:LENGTH (MKSTRING (FILENAMEFIELD TFILE 'DIRECTORY]
+        [OR DEST (PROGN (ShellCommand (CONCAT "mkdir -p " (UNIX-GETENV "MEDLEYDIR")
+                                             "/tmp/psfiles"))
+                        (SETQ DEST (MEDLEYDIR "tmp/psfiles"]
+
+        (* ;; "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*;")))
+           when
 (NOT (MEMB X BADFILES)) do
 (MAKE-PS
 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
 '(">." ">internal>test" ">dinfo>")
+                       always
 (NOT (STRPOS SKIP (L-CASE X] when
 (DIRECTORYNAMEP X)
+           do
 (MAKE-PS
 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
 (MEMB TFILE BADFILES)
+                  then
 (RETURN))
+              (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])
+
+(MAKE-PS-INIT

+  [LAMBDA NIL
                                          (* ; "Edited  1-Sep-2021 16:27 by larry")

+                                                             (* ; " initialize")

+    (SETQ BADFILESFILE (MEDLEYDIR "tmp" "badfiles.txt" T))
+    (SETQ BADFS (OPENSTREAM BADFILESFILE 'APPEND))
+    (POSTSCRIPT.INIT)
+    (SETQ BADFILES (SUBSET (READFILE BADFILESFILE)
+                          (FUNCTION INFILEP])
+
+(BADFILE

+  [LAMBDA (X)
                                          (* ; "Edited 16-Aug-2021 13:14 by larry")

+    ([LAMBDA ($$1)
+       (COND
+          ((FMEMB $$1 BADFILES)
+           BADFILES)
+          (T (NCONC1 BADFILES $$1]
+     (OR X TFILE))
+    (PRINT (OR X TFILE)
+           BADFS)
+    (FLUSHOUTPUT BADFS)
+    (CLOSEF? TEXTSTREAM)
+    (RETFROM 'MAKE-PS NIL])
+)
+
+
+
+(* ;; " Load known used image object types")

+
+
+(FILESLOAD DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
+
+[XCL:REINSTALL-ADVICE 'TEDIT.PROMPTPRINT :BEFORE '((:LAST (PRIN1 MSG T]
+
+(READVISE TEDIT.PROMPTPRINT)
+
+(RPAQ? BADFILESFILE
 )
+
+(RPAQ? BADFS
 )
+
+(RPAQ? BADFILES
 )
+(DECLARE%: DONTEVAL@LOAD DOCOPY 
+
+(MAKE-PS-INIT
)
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (786 5110 (MAKE-PS 796 . 4293) (MAKE-PS-INIT 4295 . 4731) (BADFILE 4733 . 5108)))))
+STOP

release-notes.md

@@ -1,13 +1,9 @@
-We've moved to separate releases of medley and maiko.
+There are separate releases of medley and maiko.
 Just get the latest version of each.
 
-Or, you could pick up the medley release and build your own maiko.
+Alternatively, you can pick up the medley release, and build your own maiko.
-Medley release is here (below): 
-```
-     $tag.tgz
-```
 
-Maiko relese is [here](https://github.com/Interlisp/maiko/releases)
+Get the Maiko release [here](https://github.com/Interlisp/maiko/releases).
 
 To use (from a shell/terminal window):
 
@@ -15,15 +11,19 @@ To use (from a shell/terminal window):
   ```
   tar -xvfz $tag.tgz
   ```
-  and the maiko file for your os.arch, e.g.,
+
+2. Unpack the maiko file for your operating system and CPU type,e.g.,
+
 ```
      tar -xvfz maiko-210823.linux.x86_64.tgz
 ```
-  This should leave you with two directories, `medley` and `maiko`.
+
+3. This should leave you with two directories, `medley` and `maiko`.
   Then you can 
    ```
    cd medley
    ./run-medley -full
    ```
-   
+
+
 

scripts/release-medley.sh

@@ -16,8 +16,9 @@ cd ..
 echo making medley zip $tag 
 
 tar cfz medley/tmp/$tag.tgz                               \
-    --exclude-backups --exclude="*.PDF"                   \
+    --exclude "*~" --exclude "*#*"                        \
     medley/docs/dinfo                                     \
+    medley/docs/Documentation\ Tools                      \
     medley/greetfiles/SIMPLE-INIT                         \
     medley/run-medley                                     \
     medley/scripts                                        \
@@ -28,10 +29,9 @@ tar cfz medley/tmp/$tag.tgz                               \
     medley/fonts/postscriptfonts                          \
     medley/library/                                       \
     medley/lispusers/                                     \
-
+    medley/fonts/big medley/fonts/other                   \
-#    medley/fonts/big medley/fonts/other                  \
+    medley/sources/                                       \
-#   medley/sources/
+    medley/internal/library                               \
-#   medley/internal/library                               \
 
 cd medley