From ff832b2cd90ac4be46a61edb60a60f0ec3d4617f Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Sun, 14 Nov 2021 22:40:20 -0800
Subject: [PATCH 1/4] Change init to MEDLEYDIR-INIT (suitable for run-medley
 configs) and added BACKGROUND-YIELD

---
 .github/workflows/buildLoadup.yml |   2 +-
 greetfiles/MEDLEYDIR-INIT         |  60 ++++++++++++++++++++++++++++++
 greetfiles/MEDLEYDIR-INIT.LCOM    | Bin 0 -> 1785 bytes
 lispusers/BACKGROUND-YIELD        |  12 +++---
 lispusers/BACKGROUND-YIELD.LCOM   | Bin 1201 -> 1165 bytes
 run-medley                        | Bin 5461 -> 5604 bytes
 scripts/release-medley.sh         |   2 +-
 7 files changed, 68 insertions(+), 8 deletions(-)
 create mode 100644 greetfiles/MEDLEYDIR-INIT
 create mode 100644 greetfiles/MEDLEYDIR-INIT.LCOM
 mode change 100755 => 100644 run-medley
 mode change 100755 => 100644 scripts/release-medley.sh

diff --git a/.github/workflows/buildLoadup.yml b/.github/workflows/buildLoadup.yml
index a51d8e5a2..c85bb843b 100644
--- a/.github/workflows/buildLoadup.yml
+++ b/.github/workflows/buildLoadup.yml
@@ -79,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                   \
diff --git a/greetfiles/MEDLEYDIR-INIT b/greetfiles/MEDLEYDIR-INIT
new file mode 100644
index 000000000..55535ff70
--- /dev/null
+++ 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
diff --git a/greetfiles/MEDLEYDIR-INIT.LCOM b/greetfiles/MEDLEYDIR-INIT.LCOM
new file mode 100644
index 0000000000000000000000000000000000000000..712b0aebbe357dffd5aea6d1cb5beb4393f56535
GIT binary patch
literal 1785
zcmbtUO>f&c5Ot4bFFp4V3<wmUij`|icHC$e*;S;mLRcmhiVk9+mu#X<3?xxurv-||
z-u5r_|8^*Uv~kk3-4$S3;=CEYnKwg`;!rB|hcZWBs-cFRB2GqehQOt=XmVK=9Ci%G
zsf`cvt?h%jMCf)r#)ONI5X@o<yxa3t{lO19K^KA`3VTs+kAvW6_4T{iRdo*a4RBz8
zr{(CM-!ALxYX9nVKL5CXU7cT5ANMcjRdxFp0T=sYOmm#3(hxgo+rI`LIS#%=@9afk
zKk9@W{+w5v@Mo8&Hy737Wd!V|zP+5?T)>P@98U5azV>dn+Z@hMZ;8=EQFpobLy7&D
zJRk@=A*_f3yRC_=IF3yTcT-OExb)!Ny!tS!-!B@ngxs!hw-befAFJrH#^<y7s-j(w
zZImAC6d_9AFd?A>I!}LxA-%k!E{P|(^~dpu`h{8r)v+{MjZxWG9<)wcPg+kdTJ$u_
zAD?RX{%^BBb+6Cda)0|iy4h*`E?>}d)_UF&{SKTYc~qkH*F^9H6W>k?gfM`@=mg7>
z{t5^N4K~rm)Ta$cmNXoM5Uu;V--qZ+JMTGfhk_ospah1&n>)?FyY(3Wr^-<ER^!nO
z4~Jg=j#s$14YQnP;cE<o?(TgMF(?dLJ0;}{L#I5{5KNdNK01291VR)bavhU)BGD>|
zEeLHuOq4wFGqfZf@J)|#nkV`({(4crpPyBW*BetiCkEW}JZOfygaf)6GNUId^`{c^
zlnhP7I<r(+8`WftCbm+mc8Y~Pgf2mHok>Ll41&>$iPdJR;xRtJY7Heqcj+GLF*+u0
zzeJN6MC(K=K^z=Sw54D|y!{2(Is#?o?h6i-0y#O`wrLs8HHwkhp)Czk<YT(Ml+4{h
zRK*ca<HV%{VtGoglM$KN>P+`(b(T^0v_WP{8(c;msuDK+;f9K~*-wk|h$hQxsdO^m
qmu1}?kI1rwY-$4H|4Xw9`KUhI8hl5dbt2yoiG5R`NA+POF#8O9y2XkB

literal 0
HcmV?d00001

diff --git a/lispusers/BACKGROUND-YIELD b/lispusers/BACKGROUND-YIELD
index 6e2c28a1a..c028b822d 100644
--- 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
diff --git a/lispusers/BACKGROUND-YIELD.LCOM b/lispusers/BACKGROUND-YIELD.LCOM
index b7d9d78935dee239b9d4649060219caf7c4e29ca..d73bd8230d7f33c6c1f17dcbb1725f0fcf49c8a2 100644
GIT binary patch
delta 273
zcmdnU*~>Y>Ly1en&C|!#Imp#9#MMPX$<RdCFTYIJ$iT=@!N|zUz|_igVx~vEk*0!@
zf;mFUz|zXt)XKnENg=5yH90@GATuX5MIkvOF)ux}Sk+2_D=)t!BQq~uAu~@w$t~2!
zM*&&4o}QkPLP}x@PzyFw&6G6JTqTUfS(AMj%|(n93{5S~VHR^Kl;o>gO<u<+uCA$2
uP?TDhnO|BAwg~7XB_jjf;M4+$*9;A<jLof#EH-~&+{MJE$>rzi!vz3ms7I0j

delta 312
zcmeC>+{ih>Ls7%c)5q00$kj2#)kQ(c$UrwZwLsU%z{pU+(9p`*+{$QTmPfs@rh<~8
zIYP?F*viP%%Fs+nA*m=eIX|}`Gbc4gAvq&4FFmzb)k=ZO$<f){J;*=Q&qX)V)78gC
zAu~@w$t~2!M*-OwJv}`og_Oh+pk7qtjjT+7##<<9a)F&EkI#J;N(z%NFq&u^D;S!Y
zn7|ytrBIR&bclwVU$6qYV>BoCGm2|F`}+oKDijo@mSyIb7K5Du)SzT&iSVYOF(?EK
T4K|-;+{MIhpvmRu>B9v8wZl<F

diff --git a/run-medley b/run-medley
old mode 100755
new mode 100644
index b546be329f8f3921e4a31b9d8d67d4a543ee634a..f71d5a2ab3d6d4c9b007ca5f0463d911b79623a4
GIT binary patch
delta 165
zcmcbr^+bEaB{u&5{~3H;U3^?4T|9$y|1)g9$yUQx&j11}42%ph41O9eu5ON@J|S-Y
zejy5m3L5T?&K`~mhDMrjrU8%{;u_@Z>F4O9U<l#`_y>msI|q3NgrLf3YBKPE%?1-}
cmp~LF5Q{S~Fo76+bzl(=1_ses2Ii_=0N^hoiU0rr

delta 20
bcmaE&eN}72B{ue8Pu~C^SKZAI*=qOzSsMqr

diff --git a/scripts/release-medley.sh b/scripts/release-medley.sh
old mode 100755
new mode 100644
index 518cb9975..8f36d7de8
--- 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     \

From 06775504a24e2c19b7bdff6bfa28f1c1ef229b04 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Mon, 15 Nov 2021 09:52:56 -0800
Subject: [PATCH 2/4] fix permissions

---
 run-medley                | Bin
 scripts/release-medley.sh |   0
 2 files changed, 0 insertions(+), 0 deletions(-)
 mode change 100644 => 100755 run-medley
 mode change 100644 => 100755 scripts/release-medley.sh

diff --git a/run-medley b/run-medley
old mode 100644
new mode 100755
diff --git a/scripts/release-medley.sh b/scripts/release-medley.sh
old mode 100644
new mode 100755

From 3c18a46fff3ce604e80657fefa2c2ea8dc461efd Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Mon, 15 Nov 2021 11:34:02 -0800
Subject: [PATCH 3/4] fix up odd characters inserted by tedit

---
 run-medley | Bin 5604 -> 5600 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/run-medley b/run-medley
index f71d5a2ab3d6d4c9b007ca5f0463d911b79623a4..a1b24b5b4e7872f4df650b31d8c9e5c0cf343bae 100755
GIT binary patch
delta 25
gcmaE&{Xl!eB{nW!R~H}GNEgo_-OUf#nE4sG0Dut)FaQ7m

delta 28
kcmaE${X~1iB{u&5{~3H;U3^?4T|9$y|1)g9!^X@H0JYN#A^-pY


From 8a12489d1f6151ed6e26c874c367d0860b0d518c Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Fri, 19 Nov 2021 21:32:42 -0800
Subject: [PATCH 4/4] Editing sh files in TEdit left stuff in run-medley

---
 run-medley | Bin 5600 -> 5463 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/run-medley b/run-medley
index a1b24b5b4e7872f4df650b31d8c9e5c0cf343bae..9affe89ac98aa1fea7d4943b9170662959891808 100755
GIT binary patch
delta 7
OcmaE$eO+rqxF`S)*8?d4

delta 146
zcmcbv^+0<=xM)2W0|>A%Ffzn2_-VMfx;cjWgt+<pg(w&*Xt+B%dpIf>8fn6r20&(r
zYml#}pQDe0A&3{?9~=_w9OM}gf-0k_$-o0P8%(fW0#S@WEY85d1Y+>jfke1~EYVm7
I=Biy>0N^JYJ^%m!