update READMEs and BUILDING; move NOXNSPATCH and extra files in greetfiles (#545 )

* update READMEs and BUILDING, move out some unused files * update loadups/README.md
Change init to MEDLEYDIR-INIT (suitable for run-medley configs) and added BACKGROUND-YIELD (#568 )
2026-03-17 07:37:06 +00:00 · 2021-11-21 17:23:13 -08:00 · 2021-11-21 12:23:28 -08:00 · 2021-11-20 20:27:28 -08:00 · 2021-11-09 22:05:35 -08:00
25 changed files with 205 additions and 60 deletions
--- a/.github/workflows/buildDocker.yml
+++ b/.github/workflows/buildDocker.yml
@@ -7,10 +7,6 @@ name: Build Medley Docker image
 on:
  workflow_dispatch:

-#  push:
-#    branches:
-#      - master
-
 # Jobs that compose this workflow
 jobs:
  # Job to build the docker image
@@ -21,27 +17,34 @@ jobs:
      - name: Checkout
        uses: actions/checkout@v2

+      # Get the Medley Release Information
+      - name: Get Medley Release Information
+        id: medley_version
+        uses: abatilo/release-info-action@v1.3.0
+        with:
+          owner: Interlisp
+          repo: medley
+
+      # Get the Maiko Release Information
+      - name: Get Maiko Release Information
+        id: maiko_version
+        uses: abatilo/release-info-action@v1.3.0
+        with:
+          owner: Interlisp
+          repo: maiko
+
      # Setup needed environment variables
      - name: Prepare
        id: prep
        run: |
-          DOCKER_IMAGE=interlisp/${GITHUB_REPOSITORY#*/}
+          DOCKERHUB_ACCOUNT=interlisp
+          DOCKER_IMAGE=${DOCKERHUB_ACCOUNT}/${GITHUB_REPOSITORY#*/}
          VERSION=latest
-          SHORTREF=${GITHUB_SHA::8}
-
-          # If this is git tag, use the tag name as a docker tag
-          if [[ $GITHUB_REF == refs/tags/* ]]; then
-            VERSION=${GITHUB_REF#refs/tags/}
-          fi
-          TAGS="${DOCKER_IMAGE}:${VERSION},${DOCKER_IMAGE}:${SHORTREF}"
-
-          # If the VERSION looks like medley followed by a date, assume that
-          # this is the most recent version of the image and also
-          # tag it 'latest'.
-          if [[ $VERSION =~ ^medley-[0-9]{1,6}.$ ]]; then
-            TAGS="$TAGS,${DOCKER_IMAGE}:latest"
-          fi
+          MAIKO_RELEASE=${{ steps.maiko_version.outputs.latest_tag }}
+          MEDLEY_RELEASE=${{ steps.medley_version.outputs.latest_tag }}

+          TAGS="${DOCKER_IMAGE}:${MEDLEY_RELEASE},${DOCKER_IMAGE}:${VERSION},${DOCKER_IMAGE}:${MAIKO_RELEASE}"
+          
          # Set output parameters.
          echo ::set-output name=tags::${TAGS}
          echo ::set-output name=docker_image::${DOCKER_IMAGE}
@@ -57,6 +60,15 @@ jobs:
          latest: true
          fileName: "*"

+      # Download Maiko Release Assets
+      - name: Download Release Assets
+        uses: robinraju/release-downloader@v1.2
+        with:
+          repository: Interlisp/maiko
+          token: ${{ secrets.GITHUB_TOKEN }}
+          latest: true
+          fileName: "*"
+
      # Setup Docker Machine Emulation environment
      - name: Set up QEMU
        uses: docker/setup-qemu-action@master
--- a/.github/workflows/buildLoadup.yml
+++ b/.github/workflows/buildLoadup.yml
@@ -27,24 +27,37 @@ jobs:
      - name: Checkout Medley
        uses: actions/checkout@v2

-      - name: Get the latest Maiko Release
-        uses: actions/checkout@v2
+      # Get Maiko release information, retrieves the name of the latest
+      # release.  Used to download the correct Maiko release
+      - name: Get Maiko Release Information
+        id: latest_version
+        uses: abatilo/release-info-action@v1.3.0
        with:
-          repository: interlisp/maiko
-          path: maiko
+          owner: Interlisp
+          repo: maiko
+          
+      # Download Maiko Release Assets
+      - name: Download Release Assets
+        uses: robinraju/release-downloader@v1.2
+        with:
+          repository: Interlisp/maiko
+          token: ${{ secrets.GITHUB_TOKEN }}
+          latest: true
+          fileName: "${{ steps.latest_version.outputs.latest_tag }}-linux.x86_64.tgz" 

-      - name: install compiler
-        run: sudo apt-get update && sudo apt-get install -y make clang libx11-dev gcc x11vnc xvfb
+      - name: Untar Maiko Release
+        run: |
+          tar -xvzf "${{ steps.latest_version.outputs.latest_tag }}-linux.x86_64.tgz"

      - name: install vnc
-        run: sudo apt-get install -y tightvncserver
-
-      - name: Compile Maiko
-        working-directory: maiko/bin
-        run: ./makeright  x && ./makeright init
+        run: sudo apt-get update && sudo apt-get install -y tightvncserver

      - name: Build Loadout
-        run: pwd && Xvnc -once -geometry 1280x720 :0 & DISPLAY=:0 PATH="/maiko:$PATH" scripts/loadup-all.sh
+        run: |
+          Xvnc -geometry 1280x720 :0 &
+          export DISPLAY=":0"
+          PATH="$PWD/maiko:$PATH" 
+          scripts/loadup-all.sh

      - name: Build release tar get libs
        run: |
@@ -66,7 +79,7 @@ jobs:
                     --exclude "*~" --exclude "*#*"              \
                     medley/docs/dinfo                           \
                     medley/docs/Documentation\ Tools            \
-                     medley/greetfiles/SIMPLE-INIT               \
+                     medley/greetfiles                           \
                     medley/run-medley                           \
                     medley/scripts                              \
                     medley/fonts/displayfonts                   \
@@ -81,13 +94,13 @@ jobs:

      - name: Release notes
        run: |
-          sed s/'$tag'/$tag/g < release-notes.md > tmp/release-notes.md  &&
-          ls tmp && env
+          sed s/'$tag'/$tag/g < release-notes.md > tmp/release-notes.md
      
      - name: push the release
        uses: ncipollo/release-action@v1.8.10
        with: 
          artifacts: tmp/${{ env.tag }}-loadups.tgz,tmp/${{ env.tag }}-runtime.tgz
          tag: ${{ env.tag }}
+          draft: true
          bodyfile: tmp/release-notes.md
          token: ${{ secrets.GITHUB_TOKEN }}
--- a/BUILDING.md
+++ b/BUILDING.md
@@ -1,10 +1,14 @@
 # How to build a medley release

 Originally done only with shell scripts:
-
+```
 ./scripts/loadup-all.sh 
+```
+to make the loadups
+```
 ./scripts/loadup-and-release.sh
-
+```
+to go on to make the tgz files and release them

 # Using github actions

--- a/2
+++ b/2
@@ -1,4 +1,4 @@
-FROM interlisp/maiko:latest
+FROM ubuntu:focal
 ARG BUILD_DATE
 LABEL name="Medley"
 # LABEL tags=${tags}
--- a/README.md
+++ b/README.md
@@ -125,16 +125,25 @@ files.

 Each directory should have a README.md, but briefly

- docs -- Documentation files (either PDFs or online help)
- 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
- library  -- packages that were supported (30 years ago)
- lispusers -- packages that were only half supported (ditto)
- loadups   -- has sysouts and other builds
- scripts  -- some scripts for fixing up things
- sources   -- sources for Interlisp and Common Lisp implementations
- unicode  -- data files for support of XCCS to and from Unicode mappings
+* BUILDING.md -- instructions on how to make your own loadups
+* 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)
+* 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
+* 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
+* 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
+* unicode  -- data files for support of XCCS to and from Unicode mappings

 plus
   Dockerfile, and scripts for building and running medley
+   tmp directory for use during build processes
+
--- a/docs/README.md
+++ b/docs/README.md
@@ -0,0 +1,11 @@
+This directory has:
+
+* dinfo  -- files for HelpSys man command Interlisp Reference Manual
+* Documentation Tools -- should be moved into Library
+
+ * Various conversions of Medley legacy documentation
+ 
+ Needs to be cleaned up. Putting PDF files in the repo doesn't seem right; 
+ we can make PS and PDF files as part of building a loadup
+ 
+ 
--- a/fonts/README.md
+++ b/fonts/README.md
@@ -0,0 +1,16 @@
+# Fonts
+
+These are a not-very-well curated directories of fonts.
+
+"adobe" -- display versions of Postscript's fonts
+ palatino 8 9 10 12 14 18
+ "altofonts" -- random remnants of fonts used with Alto
+ "big" -- supposedly bigger fonts but turned out not (see #482)
+ "displayfonts" -- separated into directories by charset
+ "ipfonts" -- fonts (or font width information for Xeorx Interpress file format.
+ "other" -- random fonts associated with lispusers packages and not available elsewhere.
+ "postscriptfonts" -- fonts for postscript
+ "press" -- fonts for the older-than-interpress "press" format.
+ 
+ "xeroxprivate" -- ?? Seems like junk
+ 
--- a/greetfiles/MEDLEYDIR-INIT
+++ b/greetfiles/MEDLEYDIR-INIT
@@ -0,0 +1,60 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+(FILECREATED "14-Nov-2021 22:34:49" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;2 2303   
+
+      changes to%:  (VARS MEDLEYDIR-INITCOMS)
+
+      previous date%: "14-Nov-2021 22:10:37" {DSK}<home>larry>medley>greetfiles>medleydir-INIT.;1)
+
+
+(PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
+
+(RPAQQ MEDLEYDIR-INITCOMS
+       ((P (LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
+                              "")
+                         "/sources/MEDLEYDIR.LCOM")))
+        (FILES BACKGROUND-YIELD)
+        (VARS (FILING.ENUMERATION.DEPTH 1)
+              [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
+                                           (UNIX-GETENV "HOME"]
+              [USERGREETFILES `((,LOGINDIR "INIT" COM)
+                                (,LOGINDIR "INIT"]
+              (COPYRIGHTSRESERVED NIL))
+        [P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
+        (FNS INTERLISPMODE)))
+
+(LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
+                   "")
+              "/sources/MEDLEYDIR.LCOM"))
+
+(FILESLOAD BACKGROUND-YIELD)
+
+(RPAQQ FILING.ENUMERATION.DEPTH 1)
+
+(RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
+                                      (UNIX-GETENV "HOME"))))
+
+(RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
+                           (,LOGINDIR "INIT")))
+
+(RPAQQ COPYRIGHTSRESERVED NIL)
+
+(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
+(DEFINEQ
+
+(INTERLISPMODE
+  [LAMBDA (OLD?)                                             (* N.H.Briggs " 2-Feb-88 14:26")
+    (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD?
+                                                      then "OLD-INTERLISP-T"
+                                                    else "INTERLISP")))
+    (XCL:SET-DEFAULT-EXEC-TYPE (if OLD?
+                                   then "OLD-INTERLISP-T"
+                                 else "INTERLISP"))
+    (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD?
+                                                              then "OLD-INTERLISP-FILE"
+                                                            else "INTERLISP")
+                                               :PACKAGE "INTERLISP"])
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (1455 2280 (INTERLISPMODE 1465 . 2278)))))
+STOP
--- a/greetfiles/MEDLEYDIR-INIT.LCOM
+++ b/greetfiles/MEDLEYDIR-INIT.LCOM
--- a/greetfiles/README.md
+++ b/greetfiles/README.md
@@ -0,0 +1,10 @@
+# medley/greetfiles
+
+This directory is somewhat vestigal -- it originally was used to hold 'initialization' files for everyone. Medley repo has only two:
+
+NOGREET   -- file to set as "system init" when doing loadups that don't want any personalization.
+
+SIMPLE-INIT -- system init for git-directory relative directory structure.
+      Contains INTERLISPMODE.
+
+
--- a/greetfiles/initcommands.txt
+++ b/greetfiles/initcommands.txt
@@ -1,4 +0,0 @@
-lldb ../../maiko/darwin.386/ldeinit
-
-break set -n error
-run ./INIT.DLINIT -INIT -NF
--- a/library/lafite/NOXNSPATCH
+++ b/library/lafite/NOXNSPATCH
--- a/library/lafite/NOXNSPATCH.LCOM
+++ b/library/lafite/NOXNSPATCH.LCOM
--- a/lispusers/BACKGROUND-YIELD
+++ b/lispusers/BACKGROUND-YIELD
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "20-Sep-2021 11:37:28" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;3 1644   

-      changes to%:  (FNS BACKGROUND-YIELD)
-                    (VARS BACKGROUND-YIELDCOMS)
+(FILECREATED "14-Nov-2021 22:05:58" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;2 1597   

-      previous date%: "19-Sep-2021 13:37:10" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;1)
+      changes to%:  (VARS BACKGROUND-YIELD)
+
+      previous date%: "20-Sep-2021 11:37:28" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;1)


 (PRETTYCOMPRINT BACKGROUND-YIELDCOMS)
@@ -44,7 +44,7 @@
 (INIT-YIELD T)
 )

-(RPAQQ BACKGROUND-YIELD 8333330)
+(RPAQQ BACKGROUND-YIELD 833333)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (879 1528 (BACKGROUND-YIELD 889 . 1144) (INIT-YIELD 1146 . 1526)))))
+  (FILEMAP (NIL (833 1482 (BACKGROUND-YIELD 843 . 1098) (INIT-YIELD 1100 . 1480)))))
 STOP
--- a/lispusers/BACKGROUND-YIELD.LCOM
+++ b/lispusers/BACKGROUND-YIELD.LCOM
--- a/loadups/README.md
+++ b/loadups/README.md
@@ -0,0 +1,15 @@
+# medley/loadups
+
+This directory is for holding the sysouts from a release
+* lisp.sysout    (the system in the IRM + Common Lisp)
+* full.sysout    (lisp + modernizations + TEdit and others)
+   
+* starter.sysout you have to have a running Medley to make a new one(!)
+  this file is just a stable place to stand.
+
+* whereis.hash  A "hash file" directory index of everything
+
+* lisp.venuesysout full.venuesysout -- vintage sysouts for comparision
+
+Plus, if you make your own loadups (from BUILDING.md) you'll see some .dribble files which are the logs of the build proccess.
+
--- a/obsolete/greetfiles/INIT
+++ b/obsolete/greetfiles/INIT
--- a/obsolete/greetfiles/INIT.LCOM
+++ b/obsolete/greetfiles/INIT.LCOM
--- a/obsolete/greetfiles/LOCAL-INIT
+++ b/obsolete/greetfiles/LOCAL-INIT
--- a/obsolete/greetfiles/LOCAL-INIT.LCOM
+++ b/obsolete/greetfiles/LOCAL-INIT.LCOM
--- a/obsolete/greetfiles/PARC-INIT
+++ b/obsolete/greetfiles/PARC-INIT
--- a/obsolete/greetfiles/PARC-INIT.LCOM
+++ b/obsolete/greetfiles/PARC-INIT.LCOM
--- a/obsolete/library/CHARS
+++ b/obsolete/library/CHARS
--- a/3
+++ b/3
@@ -51,7 +51,7 @@ if [ -z "$LDEDESTSYSOUT" ] ; then
 fi

 if [ -z "$LDEINIT" ] ; then
-    export LDEINIT="$MEDLEYDIR/greetfiles/SIMPLE-INIT"
+    export LDEINIT="$MEDLEYDIR/greetfiles/MEDLEYDIR-INIT"
 fi

 export LDEKBDTYPE=x
@@ -195,4 +195,3 @@ export INMEDLEY=1

 "$prog" $noscroll $geometry $screensize $mem -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"

-
--- a/scripts/release-medley.sh
+++ b/scripts/release-medley.sh
@@ -29,7 +29,7 @@ tar cfz medley/tmp/$tag-runtime.tgz                       \
    --exclude "*~" --exclude "*#*"                        \
    medley/docs/dinfo                                     \
    medley/docs/Documentation\ Tools                      \
-    medley/greetfiles/SIMPLE-INIT                         \
+    medley/greetfiles                                     \
    medley/run-medley                                     \
    medley/scripts                                        \
    medley/fonts/displayfonts  medley/fonts/altofonts     \
Author	SHA1	Message	Date
Larry Masinter	ab4800054e	update READMEs and BUILDING; move NOXNSPATCH and extra files in greetfiles (#545 ) * update READMEs and BUILDING, move out some unused files * update loadups/README.md	2021-11-21 17:23:13 -08:00
Larry Masinter	b1634ef140	Change init to MEDLEYDIR-INIT (suitable for run-medley configs) and added BACKGROUND-YIELD (#568 ) * Change init to MEDLEYDIR-INIT (suitable for run-medley configs) and added BACKGROUND-YIELD * fix permissions * fix up odd characters inserted by tedit * Editing sh files in TEdit left stuff in run-medley	2021-11-21 12:23:28 -08:00
Bill Stumbo	76a2235636	Add Maiko Release to tags. Install Maiko from Release assets. (#567 )	2021-11-20 20:27:28 -08:00
Bill Stumbo	7c65b47fba	Update to use Maiko release artifacts (#563 )	2021-11-09 22:05:35 -08:00