Fix issue with release workflow whereby not pushing docker image to docker hub / update versions on all actions (#1589)

* Update all workflows to use latest versions of actions to accomodate deprecation of Node 16; Change how inputs are handled due to changes in the inputs context in guthiub actions.

* Add more schedule kickoffs for buildRelease... for testing purposes

.github/workflows/buildDocker.yml

@@ -63,31 +63,6 @@ defaults:
 
 jobs:
 
-######################################################################################
-
-  # Regularize the inputs so they can be referenced the same way whether they are
-  # the result of a workflow_dispatch or a workflow_call
-
-  inputs:
-    runs-on: ubuntu-latest
-    outputs:
-      draft: ${{ steps.one.outputs.draft }}
-      force: ${{ steps.one.outputs.force }}
-    steps:
-      - id: one
-        run: >
-          if [ '${{ toJSON(inputs) }}' = 'null'  ];
-          then
-              echo "workflow_dispatch";
-              echo "draft=${{ github.event.inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ github.event.inputs.force }}" >> $GITHUB_OUTPUT;
-          else
-              echo "workflow_call";
-              echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
-          fi
-
-
 
 ######################################################################################
 
@@ -95,7 +70,6 @@ jobs:
   # based on the latest commit to the repo
 
   sentry:
-    needs: inputs
     runs-on: ubuntu-latest
     outputs:
       release_not_built: ${{ steps.check.outputs.release_not_built }}
@@ -103,7 +77,7 @@ jobs:
     steps:
       # Checkout the actions for this repo owner
       - name: Checkout Actions
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
         with:
           repository: ${{ github.repository_owner }}/.github
           path: ./Actions_${{ github.sha }}
@@ -127,22 +101,22 @@ jobs:
 
     runs-on: ubuntu-latest
 
-    needs: [inputs, sentry]
+    needs: [sentry]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || needs.inputs.outputs.force == 'true'
+      || inputs.force == 'true'
 
     steps:
       # Checkout latest commit
       - name: Checkout Medley
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
 
       # Find latest release (draft or normal)
       # and download its assets
       - name: Download linux debs from latest (draft) release
         run: |
           tag=""
-          if [ "${{ needs.inputs.outputs.draft }}" = "true" ];
+          if [ "${{ inputs.draft }}" = "true" ];
           then
             tag=$(gh release list | grep Draft | head -n 1 | awk '{ print $3 }')
           fi
@@ -177,7 +151,7 @@ jobs:
           repo_name="${GITHUB_REPOSITORY#*/}"
           docker_namespace="$(echo "${{ github.repository_owner }}" | tr '[:upper:]' '[:lower:]')"
           docker_image="${docker_namespace}/${repo_name}"
-          if [ "${{ needs.inputs.outputs.draft }}" = "false" ];
+          if [ "${{ inputs.draft }}" = "false" ];
           then
               docker_tags="${docker_image}:latest,${docker_image}:${MEDLEY_RELEASE#*-}_${MAIKO_RELEASE#*-}"
               platforms="linux/amd64,linux/arm64"
@@ -195,18 +169,18 @@ jobs:
 
       # Setup the Docker Machine Emulation environment.  
       - name: Set up QEMU
-        uses: docker/setup-qemu-action@master
+        uses: docker/setup-qemu-action@v3
         with:
           platforms: linux/amd64,linux/arm64,linux/arm/v7
 
       # Setup the Docker Buildx funtion
       - name: Set up Docker Buildx
         id: buildx
-        uses: docker/setup-buildx-action@master
+        uses: docker/setup-buildx-action@v3
 
       # Login into DockerHub - required to store the created image
       - name: Login to DockerHub
-        uses: docker/login-action@v2
+        uses: docker/login-action@v3
         with:
           username: ${{ secrets.DOCKER_USERNAME }}
           password: ${{ secrets.DOCKER_PASSWORD }}
@@ -215,7 +189,7 @@ jobs:
       # checked out and the release tars just downloaded.
       # Push the result to Docker Hub
       - name: Build Docker Image for Push to Docker Hub
-        uses: docker/build-push-action@v3
+        uses: docker/build-push-action@v5
         with:
           builder: ${{ steps.buildx.outputs.name }}
           build-args: |
@@ -242,12 +216,12 @@ jobs:
     outputs:
       build_successful: ${{ steps.output.outputs.build_successful }}
 
-    needs: [inputs, sentry, build_and-push]
+    needs: [sentry, build_and-push]
 
     steps:
       # Checkout the actions for this repo owner
       - name: Checkout Actions
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
         with:
           repository: ${{ github.repository_owner }}/.github
           path: ./Actions_${{ github.sha }}

.github/workflows/buildLoadup.yml

@@ -60,38 +60,12 @@ defaults:
 
 jobs:
 
-# JOB: inputs #######################################################################
-
-  # Regularize the inputs so they can be referenced the same way whether they are
-  # the result of a workflow_dispatch or a workflow_call
-
-  inputs:
-    runs-on: ubuntu-latest
-    outputs:
-      draft: ${{ steps.one.outputs.draft }}
-      force: ${{ steps.one.outputs.force }}
-    steps:
-      - id: one
-        run: >
-          if [ '${{ toJSON(inputs) }}' = 'null'  ];
-          then
-              echo "workflow_dispatch";
-              echo "draft=${{ github.event.inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ github.event.inputs.force }}" >> $GITHUB_OUTPUT;
-          else
-              echo "workflow_call";
-              echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
-          fi
-
-
 # JOB: sentry #######################################################################
 
   # Use sentry-action to determine if this release has already been built
   # based on the latest commit to the repo
 
   sentry:
-    needs: inputs
     runs-on: ubuntu-latest
     outputs:
       release_not_built: ${{ steps.check.outputs.release_not_built }}
@@ -99,7 +73,7 @@ jobs:
     steps:
       # Checkout the actions for this repo owner
       - name: Checkout Actions
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
         with:
           repository: ${{ github.repository_owner }}/.github
           path: ./Actions_${{ github.sha }}
@@ -133,15 +107,15 @@ jobs:
       artifacts_filename_template: ${{ steps.job_outputs.outputs.ARTIFACTS_FILENAME_TEMPLATE }}
       release_url: ${{ steps.push.outputs.html_url }}
 
-    needs: [inputs, sentry]
+    needs: [sentry]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || needs.inputs.outputs.force == 'true'
+      || inputs.force == 'true'
 
     steps:
       # Checkout the actions for this repo owner
       - name: Checkout Actions
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
         with:
           repository: ${{ github.repository_owner }}/.github
           path: ./Actions_${{ github.sha }}
@@ -149,7 +123,7 @@ jobs:
 
       # Checkout latest commit
       - name: Checkout Medley
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
 
       # Setup release tag
       - name: Setup Release Tag
@@ -163,7 +137,7 @@ jobs:
         id: maiko
         run: |
           tag=""
-          if [ "${{ needs.inputs.outputs.draft }}" = "true" ];
+          if [ "${{ inputs.draft }}" = "true" ];
           then
             gh release list --repo ${{ github.repository_owner }}/maiko | grep Draft >/tmp/releases-$$
             if [ $? -eq 0 ];
@@ -219,7 +193,7 @@ jobs:
 
       # Checkout Notecards and tar it in the tarballsdir
       - name: Checkout Notecards
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
         with:
           repository: ${{ github.repository_owner }}/notecards
           path: ./notecards
@@ -262,14 +236,14 @@ jobs:
             ${{ env.TARBALL_DIR }}/${{ env.MEDLEY_RELEASE_TAG }}-loadups.tgz,
             ${{ env.TARBALL_DIR }}/${{ env.MEDLEY_RELEASE_TAG }}-runtime.tgz
           tag: ${{ env.MEDLEY_RELEASE_TAG }}
-          draft: ${{ needs.inputs.outputs.draft }}
+          draft: ${{ inputs.draft }}
           prerelease: false
           generateReleaseNotes: true
           token: ${{ secrets.GITHUB_TOKEN }}
 
       # Save the tarball directory for subsequent jobs
       - name: Save tarballs
-        uses: actions/upload-artifact@v3
+        uses: actions/upload-artifact@v4
         with:
           name: tarballs
           path: ${{ env.TARBALL_DIR }}
@@ -285,16 +259,16 @@ jobs:
 
     runs-on: ubuntu-latest
 
-    needs: [inputs, sentry, loadup]
+    needs: [sentry, loadup]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || needs.inputs.outputs.force == 'true'
+      || inputs.force == 'true'
 
     steps:
 
       # Checkout latest commit
       - name: Checkout Medley
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
 
       # Environment variables
       - name: Environment variables
@@ -311,7 +285,7 @@ jobs:
 
       #  Get the tarballs
       - name: Get tarballs
-        uses: actions/download-artifact@v3
+        uses: actions/download-artifact@v4
         with:
           name: tarballs
           path: ${{ env.TARBALL_DIR }}
@@ -345,7 +319,7 @@ jobs:
             mv  medley-full-linux-x86_64-*.tgz medley.tgz
 
       - name: Save medley tar for use in cygwin installers
-        uses: actions/upload-artifact@v3
+        uses: actions/upload-artifact@v4
         with:
           name: medley-tar
           path: |
@@ -361,10 +335,10 @@ jobs:
 
     runs-on: macos-12
 
-    needs: [inputs, sentry, loadup]
+    needs: [sentry, loadup]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || needs.inputs.outputs.force == 'true'
+      || inputs.force == 'true'
 #    if: false
 
     defaults:
@@ -375,7 +349,7 @@ jobs:
 
       # Checkout latest commit
       - name: Checkout Medley
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
 
       # Environment variables
       - name: Environment variables
@@ -392,7 +366,7 @@ jobs:
 
       #  Get the tarballs
       - name: Get tarballs
-        uses: actions/download-artifact@v3
+        uses: actions/download-artifact@v4
         with:
           name: tarballs
           path: ${{ env.TARBALL_DIR }}
@@ -432,10 +406,10 @@ jobs:
 
     runs-on: windows-2022
 
-    needs: [inputs, sentry, loadup, linux_installer]
+    needs: [sentry, loadup, linux_installer]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || needs.inputs.outputs.force == 'true'
+      || inputs.force == 'true'
 
     outputs:
       cygwin_installer: ${{ steps.compile_iss.outputs.CYGWIN_INSTALLER }}
@@ -444,7 +418,7 @@ jobs:
 
       # Checkout latest commit
       - name: Checkout Medley
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
 
       # Store the values output from loadup job as environment variables
       - name: Environment Variables
@@ -463,7 +437,7 @@ jobs:
 
       # Retrieve medley tars from artifact store
       - name: Retrieve medley tar
-        uses: actions/download-artifact@v3
+        uses: actions/download-artifact@v4
         with:
           name: medley-tar
           path: installers/cygwin/
@@ -535,10 +509,10 @@ jobs:
 
     runs-on: ubuntu-latest
 
-    needs: [inputs, sentry, loadup, linux_installer, macos_installer, cygwin_installer]
+    needs: [sentry, loadup, linux_installer, macos_installer, cygwin_installer]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || needs.inputs.outputs.force == 'true'
+      || inputs.force == 'true'
 
     steps:
 
@@ -556,7 +530,7 @@ jobs:
 
       # Checkout latest commit
       - name: Checkout Medley
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
 
 
       # Upload a dummy file to release
@@ -587,7 +561,7 @@ jobs:
             local_template="installers/downloads_page/medley_downloads.html"
             local_filename="medley_downloads.html"
             local_manpath="docs/man-page/man_medley.html"
-            if [ "${{ needs.inputs.outputs.draft }}" = "true" ];
+            if [ "${{ inputs.draft }}" = "true" ];
             then
                 remote_filename="draft_downloads"
                 remote_manname="man_draft.html"
@@ -637,19 +611,19 @@ jobs:
     outputs:
       build_successful: ${{ steps.output.outputs.build_successful }}
 
-    needs: [inputs, sentry, loadup, downloads_page]
+    needs: [sentry, loadup, downloads_page]
 
     steps:
       # Delete the tarballs artifact
       - name: Delete tarballs artifact
-        uses: geekyeggo/delete-artifact@v2
+        uses: geekyeggo/delete-artifact@v5
         with:
           name: tarballs
           failOnError: false
 
       # Checkout the actions for this repo owner
       - name: Checkout Actions
-        uses: actions/checkout@v3
+        uses: actions/checkout@v4
         with:
           repository: ${{ github.repository_owner }}/.github
           path: ./Actions_${{ github.sha }}

.github/workflows/buildReleaseInclDocker.yml

@@ -20,6 +20,8 @@ name: "Build/Push Release & Docker"
 on:
   schedule:
     - cron: '0 9 * * 1'
+    - cron: '0 9 * * 2'
+    - cron: '0 9 * * 3'
 
   workflow_dispatch:
     inputs:
@@ -75,7 +77,7 @@ jobs:
     steps:
       - id: one
         run: >
-          if [ '${{ toJSON(inputs) }}' != 'null'  ];
+          if [ '${{ toJSON(inputs) }}' != '{}'  ];
           then
             echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
             echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;

library/tedit/TEDIT-LOOKS

@@ -1,12 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Mar-2024 22:50:23" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;219
 152365 
+
(FILECREATED "17-Mar-2024 23:34:23" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-LOOKS.;5
 152055 
 
-      :EDIT-BY rmk
+      :CHANGES-TO (FNS TEDIT.PARALOOKS)
 
-      :CHANGES-TO (FNS \TEDIT.CHANGE.LOOKS TEDIT.PARALOOKS \TEDIT.UNDO.LOOKS \TEDIT.UNDO.PARALOOKS)
-
-      :PREVIOUS-DATE "24-Feb-2024 12:34:14" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;218)
+      :PREVIOUS-DATE " 4-Mar-2024 22:50:23" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-LOOKS.;3
+)
 
 
 (PRETTYCOMPRINT TEDIT-LOOKSCOMS)
@@ -354,15 +353,6 @@
        '46)
 
 (DEFPRINT 'FMTSPEC (FUNCTION \TEDIT.FMTSPEC.DEFPRINT))
-
-(/DECLAREDATATYPE 'PENDINGTAB '(POINTER POINTER POINTER POINTER FULLXPOINTER POINTER)
-       '((PENDINGTAB 0 POINTER)
-         (PENDINGTAB 2 POINTER)
-         (PENDINGTAB 4 POINTER)
-         (PENDINGTAB 6 POINTER)
-         (PENDINGTAB 8 FULLXPOINTER)
-         (PENDINGTAB 10 POINTER))
-       '12)
 (DEFINEQ
 
 (\TEDIT.CHARLOOKS.DEFPRINT

@@ -1799,6 +1789,7 @@ CONS pair of default width and LIST of TAB record instances")

 
     (* ;; "Apply a given format spec to the paragraphs which are included in this guy. This assumes that paragraph boundaries are aligned with piece boundaries, so no splitting is needed. If we are given a FMTSPEC we replace the FMTSPEC of all pieces in all selected paragraphs.  Otherwise, we just override particular values in the selected-paragraph looks.")

 
+    (SETQ TEXTOBJ (TEXTOBJ TEXTOBJ))
     (CL:UNLESS (type?
 SELECTION SEL)
         (SETQ SEL (CL:IF (FIXP SEL)
                       (TEDIT.SETSEL TEXTOBJ SEL LEN 'RIGHT)
@@ -1864,7 +1855,7 @@ CONS pair of default width and LIST of TAB record instances")

 
              (* ;; "Presumably all the pieces within a paragraph have the same looks, and maybe a sequence of paragraphs will have the same looks.  Testing LASTFMTSPEC will typically avoid repeated calculation of the same NEWFMTSPEC")

 
-             (for
 PC LASTFMTSPEC NEWFMTSPEC inselpieces
 PARAPIECES
+             (for
 PC LASTFMTSPEC NEWFMTSPEC inselpieces PARAPIECES
                 do
 (push
 OLDLOOKSLIST (PPARALOOKS PC))       (* ; 
 
                                                      "Save the old looks of each piece for undoing.")

                    (if
 (type?
 FMTSPEC NEWLOOKS)
@@ -2410,25 +2401,25 @@ CONS pair of default width and LIST of TAB record instances")

 (GLOBALVARS *TEDIT-PARASTYLE-CACHE* *TEDIT-CURRENTPARA-CACHE* *TEDIT-STYLESHEET-SAVE-LIST*)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (21037 22798 (\TEDIT.CHARLOOKS.DEFPRINT 21047 . 22178) (\TEDIT.FMTSPEC.DEFPRINT 22180 . 
-22796)) (23908 50243 (CHARLOOKS.FROM.FONT 23918 . 25286) (EQCLOOKS 25288 . 28339) (SAMECLOOKS 28341 . 
-32493) (TEDIT.CARETLOOKS 32495 . 33537) (TEDIT.COPY.LOOKS 33539 . 35524) (
-\TEDIT.UNPARSE.CHARLOOKS.LIST 35526 . 38129) (TEDIT.MODIFYLOOKS 38131 . 40124) (TEDIT.NEW.FONT 40126
- . 40546) (\TEDIT.CARETLOOKS.VERIFY 40548 . 41385) (\TEDIT.CARETPIECE 41387 . 41577) (
-\TEDIT.GET.INSERT.CHARLOOKS 41579 . 43091) (\TEDIT.GET.TERMSA.WIDTHS 43093 . 43509) (
-\TEDIT.PARSE.CHARLOOKS.LIST 43511 . 50241)) (50244 64418 (\TEDIT.TRANSLATE.ASCIICHARS 50254 . 60265) (
-\TEDIT.CONVERT.TO.FORMATTED 60267 . 64416)) (65608 72323 (\TEDIT.UNIQUIFY.CHARLOOKS 65618 . 67162) (
-\TEDIT.UNIQUIFY.PARALOOKS 67164 . 68315) (\TEDIT.UNIQUIFY.ALL 68317 . 70019) (
-\TEDIT.FLUSH.UNUSED.LOOKS 70021 . 72321)) (72371 77760 (TEDIT.SUBLOOKS 72381 . 75285) (TEDIT.FINDLOOKS
- 75287 . 77758)) (77761 98634 (\TEDIT.CHANGE.LOOKS 77771 . 90595) (TEDIT.LOOKS 90597 . 92444) (
-\TEDIT.LOOKS 92446 . 95344) (\TEDIT.FONTCOPY 95346 . 96544) (TEDIT.GET.LOOKS 96546 . 98632)) (98677 
-130558 (EQFMTSPEC 98687 . 102188) (TEDIT.GET.PARALOOKS 102190 . 105819) (\TEDIT.PARSE.PARALOOKS.LIST 
-105821 . 113739) (TEDIT.PARALOOKS 113741 . 127047) (TEDIT.COPY.PARALOOKS 127049 . 129007) (
-\TEDIT.PARABOUNDS 129009 . 130556)) (130618 136661 (TEDIT.SUBPARALOOKS 130628 . 133262) (SAMEPARALOOKS
- 133264 . 136659)) (136704 140615 (\TEDIT.UNDO.LOOKS 136714 . 138876) (\TEDIT.UNDO.PARALOOKS 138878 . 
-140613)) (140654 141232 (\TEDIT.MARK.REVISION 140664 . 141230)) (141294 142119 (
-\CREATE.TEDIT.DEFAULT.FMTSPEC 141304 . 141741) (\CREATE.TEDIT.FACE.MENU 141743 . 141915) (
-\CREATE.TEDIT.SIZE.MENU 141917 . 142117)) (142156 151061 (\TEDIT.APPLY.STYLES 142166 . 145731) (
-\TEDIT.APPLY.PARASTYLES 145733 . 147935) (TEDIT.STYLESHEET 147937 . 149004) (TEDIT.POP.STYLESHEET 
-149006 . 149674) (TEDIT.PUSH.STYLESHEET 149676 . 150416) (TEDIT.ADD.STYLESHEET 150418 . 151059)))))
+  (FILEMAP (NIL (20694 22455 (\TEDIT.CHARLOOKS.DEFPRINT 20704 . 21835) (\TEDIT.FMTSPEC.DEFPRINT 21837 . 
+22453)) (23565 49900 (CHARLOOKS.FROM.FONT 23575 . 24943) (EQCLOOKS 24945 . 27996) (SAMECLOOKS 27998 . 
+32150) (TEDIT.CARETLOOKS 32152 . 33194) (TEDIT.COPY.LOOKS 33196 . 35181) (
+\TEDIT.UNPARSE.CHARLOOKS.LIST 35183 . 37786) (TEDIT.MODIFYLOOKS 37788 . 39781) (TEDIT.NEW.FONT 39783
+ . 40203) (\TEDIT.CARETLOOKS.VERIFY 40205 . 41042) (\TEDIT.CARETPIECE 41044 . 41234) (
+\TEDIT.GET.INSERT.CHARLOOKS 41236 . 42748) (\TEDIT.GET.TERMSA.WIDTHS 42750 . 43166) (
+\TEDIT.PARSE.CHARLOOKS.LIST 43168 . 49898)) (49901 64075 (\TEDIT.TRANSLATE.ASCIICHARS 49911 . 59922) (
+\TEDIT.CONVERT.TO.FORMATTED 59924 . 64073)) (65265 71980 (\TEDIT.UNIQUIFY.CHARLOOKS 65275 . 66819) (
+\TEDIT.UNIQUIFY.PARALOOKS 66821 . 67972) (\TEDIT.UNIQUIFY.ALL 67974 . 69676) (
+\TEDIT.FLUSH.UNUSED.LOOKS 69678 . 71978)) (72028 77417 (TEDIT.SUBLOOKS 72038 . 74942) (TEDIT.FINDLOOKS
+ 74944 . 77415)) (77418 98291 (\TEDIT.CHANGE.LOOKS 77428 . 90252) (TEDIT.LOOKS 90254 . 92101) (
+\TEDIT.LOOKS 92103 . 95001) (\TEDIT.FONTCOPY 95003 . 96201) (TEDIT.GET.LOOKS 96203 . 98289)) (98334 
+130248 (EQFMTSPEC 98344 . 101845) (TEDIT.GET.PARALOOKS 101847 . 105476) (\TEDIT.PARSE.PARALOOKS.LIST 
+105478 . 113396) (TEDIT.PARALOOKS 113398 . 126737) (TEDIT.COPY.PARALOOKS 126739 . 128697) (
+\TEDIT.PARABOUNDS 128699 . 130246)) (130308 136351 (TEDIT.SUBPARALOOKS 130318 . 132952) (SAMEPARALOOKS
+ 132954 . 136349)) (136394 140305 (\TEDIT.UNDO.LOOKS 136404 . 138566) (\TEDIT.UNDO.PARALOOKS 138568 . 
+140303)) (140344 140922 (\TEDIT.MARK.REVISION 140354 . 140920)) (140984 141809 (
+\CREATE.TEDIT.DEFAULT.FMTSPEC 140994 . 141431) (\CREATE.TEDIT.FACE.MENU 141433 . 141605) (
+\CREATE.TEDIT.SIZE.MENU 141607 . 141807)) (141846 150751 (\TEDIT.APPLY.STYLES 141856 . 145421) (
+\TEDIT.APPLY.PARASTYLES 145423 . 147625) (TEDIT.STYLESHEET 147627 . 148694) (TEDIT.POP.STYLESHEET 
+148696 . 149364) (TEDIT.PUSH.STYLESHEET 149366 . 150106) (TEDIT.ADD.STYLESHEET 150108 . 150749)))))
 STOP

library/tedit/TEDIT-WINDOW

@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Mar-2024 15:15:31" {DSK}<home>frank>il>medley>ncmedley>library>tedit>TEDIT-WINDOW.;2
 195339 
+
(FILECREATED "17-Mar-2024 23:43:56" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-WINDOW.;7
 195743 
 
-      :CHANGES-TO (FNS TEDIT.NORMALIZECARET)
+      :CHANGES-TO (VARS TEDIT-WINDOWCOMS)
+                  (FNS TEDIT.PROMPTWINDOW)
 
-      :PREVIOUS-DATE "29-Feb-2024 17:04:41" 
-{DSK}<home>frank>il>medley>ncmedley>library>tedit>TEDIT-WINDOW.;1)
+      :PREVIOUS-DATE " 4-Mar-2024 15:15:31" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-WINDOW.;6
+)
 
 
 (PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -41,7 +42,8 @@
         (COMS                                                (* ; "User-typein support")

               (FNS TEDIT.GETINPUT \TEDIT.MAKEFILENAME))
         (COMS                                                (* ; "Attached Prompt window support.")

-              (FNS TEDIT.PROMPTPRINT TEDIT.PROMPTCLEAR TEDIT.PROMPTFLASH \TEDIT.PROMPT.PAGEFULLFN)
+              (FNS TEDIT.PROMPTWINDOW TEDIT.PROMPTPRINT TEDIT.PROMPTCLEAR TEDIT.PROMPTFLASH 
+                   \TEDIT.PROMPT.PAGEFULLFN)
               (INITVARS (TEDIT.PROMPT.FONT (FONTCREATE 'TERMINAL 10))
                      (TEDIT.PROMPTWINDOW.HEIGHT NIL))
               (GLOBALVARS TEDIT.PROMPT.FONT TEDIT.PROMPTWINDOW.HEIGHT))
@@ -1581,6 +1583,17 @@
 
 (DEFINEQ
 
+(TEDIT.PROMPTWINDOW

+  [LAMBDA (TEDIT.THING)
+
+    (* ;; 
+
 " Return the TEdit promptwindow, if any, from a TEdit thing (textstream, textobj, or TEdit window).")

+
+    (LET ((TEXTOBJ (TEXTOBJ TEDIT.THING)))
+         (if
 TEXTOBJ
+             then
 (fetch
 (TEXTOBJ PROMPTWINDOW) of
 TEXTOBJ)
+           else
 NIL])
+
 (TEDIT.PROMPTPRINT

   [LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?)
                     (* ; "Edited 26-Nov-2023 10:10 by rmk")


                                                              (* ; "Edited 10-Sep-2023 00:27 by rmk")


@@ -3160,33 +3173,34 @@
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE
 (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ 
                                          TEDIT.ICON.TITLE.REGION))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12950 32526 (\TEDIT.CREATEW 12960 . 19335) (\TEDIT.WINDOW.SETUP 19337 . 22026) (
-\TEDIT.MINIMAL.WINDOW.SETUP 22028 . 30449) (\TEDIT.ADD.CARET 30451 . 31915) (\TEDIT.CLEARPANE 31917 . 
-32524)) (32527 53583 (\TEDIT.CURSORMOVEDFN 32537 . 36345) (\TEDIT.CURSOROUTFN 36347 . 36792) (
-\TEDIT.ACTIVE.WINDOWP 36794 . 37920) (\TEDIT.EXPANDFN 37922 . 38485) (\TEDIT.MAINW 38487 . 40627) (
-\TEDIT.PRIMARYW 40629 . 41269) (\TEDIT.NEWREGIONFN 41271 . 43787) (\TEDIT.SET.WINDOW.EXTENT 43789 . 
-48652) (\TEDIT.SHRINK.ICONCREATE 48654 . 51077) (\TEDIT.SHRINKFN 51079 . 51488) (\TEDIT.PANEREGION 
-51490 . 53581)) (53584 77349 (\TEDIT.BUTTONEVENTFN 53594 . 68649) (\TEDIT.DO.SELOPERATION 68651 . 
-70933) (\TEDIT.TTY.TEXTOBJP 70935 . 71359) (\TEDIT.BUTTONEVENTFN.SELOPERATION 71361 . 72750) (
-\TEDIT.BUTTONEVENTFN.INACTIVE 72752 . 74778) (\TEDIT.BUTTONEVENTFN.INTITLE 74780 . 76299) (
-\TEDIT.COPYINSERT 76301 . 77347)) (77384 92113 (\TEDIT.PANE.SPLIT 77394 . 81614) (\TEDIT.SPLITW 81616
- . 87949) (\TEDIT.UNSPLITW 87951 . 92111)) (93469 94254 (TEDITWINDOWP 93479 . 94252)) (94291 97279 (
-TEDIT.GETINPUT 94301 . 96744) (\TEDIT.MAKEFILENAME 96746 . 97277)) (97328 104978 (TEDIT.PROMPTPRINT 
-97338 . 99774) (TEDIT.PROMPTCLEAR 99776 . 101495) (TEDIT.PROMPTFLASH 101497 . 103406) (
-\TEDIT.PROMPT.PAGEFULLFN 103408 . 104976)) (105216 113095 (\TEXTSTREAM.TITLE 105226 . 105916) (
-\TEDIT.DEFAULT.TITLE 105918 . 108297) (\TEDIT.WINDOW.TITLE 108299 . 110356) (\TEXTSTREAM.FILENAME 
-110358 . 112028) (\TEDIT.UPDATE.TITLE 112030 . 113093)) (113138 128179 (TEDIT.DEACTIVATE.WINDOW 113148
- . 119570) (\TEDIT.REPAINTFN 119572 . 121147) (\TEDIT.AFTERMOVEFN 121149 . 121903) (OFFSCREENP 121905
- . 123110) (\TEDIT.RESHAPEFN 123112 . 127001) (\TEDIT.PANEWITHINSCREEN? 127003 . 128177)) (128180 
-155813 (\TEDIT.SCROLLFN 128190 . 129877) (\TEDIT.SCROLLFLOAT 129879 . 134465) (\TEDIT.SCROLLUP 134467
- . 141843) (\TEDIT.SCROLL.SHOWSEL 141845 . 144469) (\TEDIT.SCROLLDOWN 144471 . 149687) (
-\TEDIT.OFFSCREEN.SCROLL 149689 . 151804) (\TEDIT.WHERE.SEL 151806 . 153026) (\TEDIT.WHERE.SEL1 153028
- . 155811)) (155814 160936 (\TEDIT.ONSCREEN 155824 . 157279) (\TEDIT.ONSCREEN? 157281 . 159594) (
-\TEDIT.PANE.SCREENREGION 159596 . 160934)) (160978 163223 (\TEDIT.PROCIDLEFN 160988 . 162397) (
-\TEDIT.PROCENTRYFN 162399 . 162844) (\TEDIT.PROCEXITFN 162846 . 163221)) (163302 176029 (
-\TEDIT.DOWNCARET 163312 . 164105) (\TEDIT.FLASHCARET 164107 . 165924) (\TEDIT.UPCARET 165926 . 167030)
- (TEDIT.NORMALIZECARET 167032 . 171760) (\TEDIT.SETCARET 171762 . 175602) (\TEDIT.CARET 175604 . 
-176027)) (176063 189309 (TEDIT.ADD.MENUITEM 176073 . 178364) (TEDIT.DEFAULT.MENUFN 178366 . 186649) (
-TEDIT.REMOVE.MENUITEM 186651 . 187648) (\TEDIT.CREATEMENU 187650 . 188087) (\TEDIT.MENU.WHENHELDFN 
-188089 . 188994) (\TEDIT.MENU.WHENSELECTEDFN 188996 . 189307)))))
+  (FILEMAP (NIL (13015 32591 (\TEDIT.CREATEW 13025 . 19400) (\TEDIT.WINDOW.SETUP 19402 . 22091) (
+\TEDIT.MINIMAL.WINDOW.SETUP 22093 . 30514) (\TEDIT.ADD.CARET 30516 . 31980) (\TEDIT.CLEARPANE 31982 . 
+32589)) (32592 53648 (\TEDIT.CURSORMOVEDFN 32602 . 36410) (\TEDIT.CURSOROUTFN 36412 . 36857) (
+\TEDIT.ACTIVE.WINDOWP 36859 . 37985) (\TEDIT.EXPANDFN 37987 . 38550) (\TEDIT.MAINW 38552 . 40692) (
+\TEDIT.PRIMARYW 40694 . 41334) (\TEDIT.NEWREGIONFN 41336 . 43852) (\TEDIT.SET.WINDOW.EXTENT 43854 . 
+48717) (\TEDIT.SHRINK.ICONCREATE 48719 . 51142) (\TEDIT.SHRINKFN 51144 . 51553) (\TEDIT.PANEREGION 
+51555 . 53646)) (53649 77414 (\TEDIT.BUTTONEVENTFN 53659 . 68714) (\TEDIT.DO.SELOPERATION 68716 . 
+70998) (\TEDIT.TTY.TEXTOBJP 71000 . 71424) (\TEDIT.BUTTONEVENTFN.SELOPERATION 71426 . 72815) (
+\TEDIT.BUTTONEVENTFN.INACTIVE 72817 . 74843) (\TEDIT.BUTTONEVENTFN.INTITLE 74845 . 76364) (
+\TEDIT.COPYINSERT 76366 . 77412)) (77449 92178 (\TEDIT.PANE.SPLIT 77459 . 81679) (\TEDIT.SPLITW 81681
+ . 88014) (\TEDIT.UNSPLITW 88016 . 92176)) (93534 94319 (TEDITWINDOWP 93544 . 94317)) (94356 97344 (
+TEDIT.GETINPUT 94366 . 96809) (\TEDIT.MAKEFILENAME 96811 . 97342)) (97393 105382 (TEDIT.PROMPTWINDOW 
+97403 . 97740) (TEDIT.PROMPTPRINT 97742 . 100178) (TEDIT.PROMPTCLEAR 100180 . 101899) (
+TEDIT.PROMPTFLASH 101901 . 103810) (\TEDIT.PROMPT.PAGEFULLFN 103812 . 105380)) (105620 113499 (
+\TEXTSTREAM.TITLE 105630 . 106320) (\TEDIT.DEFAULT.TITLE 106322 . 108701) (\TEDIT.WINDOW.TITLE 108703
+ . 110760) (\TEXTSTREAM.FILENAME 110762 . 112432) (\TEDIT.UPDATE.TITLE 112434 . 113497)) (113542 
+128583 (TEDIT.DEACTIVATE.WINDOW 113552 . 119974) (\TEDIT.REPAINTFN 119976 . 121551) (
+\TEDIT.AFTERMOVEFN 121553 . 122307) (OFFSCREENP 122309 . 123514) (\TEDIT.RESHAPEFN 123516 . 127405) (
+\TEDIT.PANEWITHINSCREEN? 127407 . 128581)) (128584 156217 (\TEDIT.SCROLLFN 128594 . 130281) (
+\TEDIT.SCROLLFLOAT 130283 . 134869) (\TEDIT.SCROLLUP 134871 . 142247) (\TEDIT.SCROLL.SHOWSEL 142249 . 
+144873) (\TEDIT.SCROLLDOWN 144875 . 150091) (\TEDIT.OFFSCREEN.SCROLL 150093 . 152208) (
+\TEDIT.WHERE.SEL 152210 . 153430) (\TEDIT.WHERE.SEL1 153432 . 156215)) (156218 161340 (\TEDIT.ONSCREEN
+ 156228 . 157683) (\TEDIT.ONSCREEN? 157685 . 159998) (\TEDIT.PANE.SCREENREGION 160000 . 161338)) (
+161382 163627 (\TEDIT.PROCIDLEFN 161392 . 162801) (\TEDIT.PROCENTRYFN 162803 . 163248) (
+\TEDIT.PROCEXITFN 163250 . 163625)) (163706 176433 (\TEDIT.DOWNCARET 163716 . 164509) (
+\TEDIT.FLASHCARET 164511 . 166328) (\TEDIT.UPCARET 166330 . 167434) (TEDIT.NORMALIZECARET 167436 . 
+172164) (\TEDIT.SETCARET 172166 . 176006) (\TEDIT.CARET 176008 . 176431)) (176467 189713 (
+TEDIT.ADD.MENUITEM 176477 . 178768) (TEDIT.DEFAULT.MENUFN 178770 . 187053) (TEDIT.REMOVE.MENUITEM 
+187055 . 188052) (\TEDIT.CREATEMENU 188054 . 188491) (\TEDIT.MENU.WHENHELDFN 188493 . 189398) (
+\TEDIT.MENU.WHENSELECTEDFN 189400 . 189711)))))
 STOP

lispusers/GREP

@@ -1,32 +1,33 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Jul-2022 22:26:08" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GREP.;11
 4725   
+
(FILECREATED "16-Mar-2024 11:16:38" {WMEDLEY}<lispusers>GREP.;31
 6115   
+
+      :EDIT-BY rmk
 
       :CHANGES-TO (FNS DOGREP)
 
-      :PREVIOUS-DATE "26-Jun-2022 14:36:21" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GREP.;9)
+      :PREVIOUS-DATE "15-Mar-2024 16:28:09" {WMEDLEY}<lispusers>GREP.;29)
 
 
-(* ; "
-Copyright (c) 1984-1986 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT GREPCOMS)
 
-(RPAQQ GREPCOMS
 ((FNS DOGREP GREP PHONE)
-                 (INITVARS (PHONELISTFILES))))
+(RPAQQ GREPCOMS
 [(FNS DOGREP GREP TGREP)
+                 (P (MOVD? 'NILL 'TEDIT.FORMATTEDFILEP))
+                 (COMS (FNS PHONE)
+                       (INITVARS (PHONELISTFILES])
 (DEFINEQ
 
 (DOGREP

   [LAMBDA (STRS FILES OUTSTREAM)
 
+    (* ;; "Edited 16-Mar-2024 11:16 by rmk")

+
+    (* ;; "Edited 20-Jan-2024 13:12 by rmk")

+
     (* ;; "Edited 19-Jul-2022 22:26 by rmk")

 
     (* ;; "Edited 26-Jun-2022 14:36 by rmk")

-
-    (* ;; "Edited 18-Jun-2022 10:38 by rmk: Search for linebreaks directly, without calling BFILEPOS or FILEPOS just for EOL character.  Also now compatible with external formats (if FFILEPOS is), and upgraded to full directory specification")

+                                                             (* Newman "14-May-86 08:04")

                                                              (* Newman "14-May-86 08:04")

 
 (* ;;; "Originally coded by Larry Masinter.")

@@ -46,50 +47,81 @@ Copyright (c) 1984-1986 by Xerox Corporation.
               (STREAM (OR (FINDFILE FILES T)
                           FILES)
                      :DIRECTION :INPUT)
-              (bind
 FOUND for
 STR inside
 STRS first
 (SETFILEINFO STREAM 'ENDOFSTREAMOP
-                                                           (FUNCTION NILL))
+              (for
 STR FOUND FILENAME inside
 STRS first
 (SETQ FILENAME (FULLNAME STREAM))
+                                                        (CL:WHEN (TEDIT.FORMATTEDFILEP STREAM)
+                                                            [SETQ STREAM (OPENTEXTSTREAM
+                                                                          STREAM NIL NIL NIL
+                                                                          '(OBJECTBYTE 0])
+                                                        (SETFILEINFO STREAM 'ENDOFSTREAMOP
+                                                               (FUNCTION NILL))
                  do
 (SETFILEPTR STREAM 0)
-                    (bind
 POS while
 (SETQ POS (FFILEPOS STR STREAM NIL NIL NIL NIL UPPERCASEARRAY))
-                       do
 (OR FOUND (PROGN (PRINTOUT OUTSTREAM T .FONT COMMENTFONT "(from "
-                                                  (FULLNAME STREAM)
-                                                  ")" .FONT DEFAULTFONT T)
-                                           (SETQ FOUND T))) 
+                    (bind
 POS STARTPOS while
 (SETQ POS (FFILEPOS STR STREAM NIL NIL NIL NIL 
+                                                              UPPERCASEARRAY))
+                       do
 (CL:UNLESS FOUND
+                              (PRINTOUT OUTSTREAM T T .FONT BOLDFONT "(from " FILENAME ")" .FONT 
+                                     DEFAULTFONT T)
+                              (SETQ FOUND T)) 
 
                           (* ;; "Copying from the beginning of this line. Originally this used BFILEPOS (backwards FILEPOS?), which did repeated calls to forward FFILEPOS in what appears to be a binary set of probes.  But FFILEPOS is really SLOW-POS for a single character, and the last line-start is presumaby not that far back.  So just walk backwards.")

 
-                          (COPYCHARS STREAM OUTSTREAM (DO
 (SELCHARQ (\BACKCCODE.EOLC STREAM
-                                                                           'ANY)
-                                                               (EOL (\INCCODE.EOLC STREAM)
-                                                                    (RETURN (GETFILEPTR STREAM)))
-                                                               (NIL (RETURN 0))
-                                                               NIL))
-                                 POS)
+                          (SETQ STARTPOS (DO
 (SELCHARQ (\BACKCCODE.EOLC STREAM 'ANY)
+                                                  (EOL (\INCCODE.EOLC STREAM)
+                                                       (RETURN (GETFILEPTR STREAM)))
+                                                  (NIL (RETURN 0))
+                                                  NIL)))
+                          (FOR
 I C FROM
 1 TO
 (IDIFFERENCE POS STARTPOS)
+                             DO
 (SETQ C (\INCCODE.EOLC STREAM 'ANY))
+                                (CL:UNLESS (ILESSP C (CHARCODE TAB))
+                                       (PRINTCCODE C OUTSTREAM)))
                           (DSPFONT BOLDFONT OUTSTREAM)
                           (COPYCHARS STREAM OUTSTREAM POS (ADD
 POS (NCHARS STR)))
                           (DSPFONT DEFAULTFONT OUTSTREAM) 
 
                           (* ;; "Copying to the end of this line (or end of file)")

 
-                          (BIND
 C DO
 (SELCHARQ (SETQ C (\INCCODE.EOLC STREAM 'ANY))
+                          [BIND
 C DO
 (SELCHARQ (SETQ C (\INCCODE.EOLC STREAM 'ANY))
                                           ((EOL NIL) 
                                                (RETURN))
-                                          (PRINTCCODE C OUTSTREAM)))
+                                          (CL:UNLESS (ILESSP C (CHARCODE TAB))
+                                                 (PRINTCCODE C OUTSTREAM]
                           (TERPRI OUTSTREAM])
 
 (GREP

   [LAMBDA (STRS FILES OUTSTREAM)
 
+    (* ;; "Edited 14-Oct-2023 14:43 by rmk")

+
+    (* ;; "Edited  1-Sep-2023 00:16 by rmk")

+
+    (* ;; "Edited 23-Jul-2023 19:55 by rmk")

+
     (* ;; "Edited 26-Jun-2022 13:28 by rmk: added OUTSTREAM")

 
     (* ;; "Edited 26-Jun-2022 13:25 by rmk")

-
-    (* ;; "Edited 18-Jun-2022 09:50 by rmk")

-
-    (CL:UNLESS OUTSTREAM (SETQ OUTSTREAM T))                 (* lmm " 1-Apr-85 15:27")

+                                                             (* lmm " 1-Apr-85 15:27")

+                                                             (* lmm " 1-Apr-85 15:27")

     (RESETLST
+        [SELECTQ OUTSTREAM
+            (NIL (SETQ OUTSTREAM T))
+            (T)
+            (CL:UNLESS (GETSTREAM OUTSTREAM 'OUTPUT T)
+                [RESETSAVE (SETQ OUTSTREAM (OPENSTREAM OUTSTREAM 'OUTPUT 'NEW))
+                       `(PROGN (CLOSEF? OLDVALUE])]
         [RESETSAVE NIL `(PROGN (DSPFONT ,(DSPFONT NIL OUTSTREAM)
                                       ,OUTSTREAM]
-        (DOGREP
 STRS FILES T OUTSTREAM))])
+        [RESETSAVE (LINELENGTH T OUTSTREAM)
+               `(PROGN (LINELENGTH OLDVALUE ,OUTSTREAM]
+        (DOGREP
 STRS FILES OUTSTREAM)
+        OUTSTREAM)])
+
+(TGREP

+  [LAMBDA (STRS FILES)
                                       (* ; "Edited 20-Jan-2024 14:14 by rmk")

+    (TEXTSTREAM (TEDIT (GREP
 STRS FILES (OPENTEXTSTREAM))
+                       'TGREP NIL '(READONLY T])
+)
+
+(MOVD? 'NILL 'TEDIT.FORMATTEDFILEP)
+(DEFINEQ
 
 (PHONE

   [LAMBDA (NAME)                                             (* lmm " 5-Mar-86 12:14")

@@ -97,7 +129,7 @@ Copyright (c) 1984-1986 by Xerox Corporation.
 )
 
 (RPAQ? PHONELISTFILES
 )
-(PUTPROPS GREP COPYRIGHT ("Xerox Corporation" 1984 1985 1986))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (518 4610 (DOGREP 528 . 3944) (GREP 3946 . 4423) (PHONE 4425 . 4608)))))
+  (FILEMAP (NIL (496 5830 (DOGREP 506 . 4544) (GREP 4546 . 5596) (TGREP 5598 . 5828)) (5868 6063 (PHONE 
+5878 . 6061)))))
 STOP