From b1634ef1408e0ece41ce98d04503d46ee1ed057c Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sun, 21 Nov 2021 12:23:28 -0800 Subject: [PATCH] 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 --- .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 | 3 +- scripts/release-medley.sh | 2 +- 7 files changed, 69 insertions(+), 10 deletions(-) create mode 100644 greetfiles/MEDLEYDIR-INIT create mode 100644 greetfiles/MEDLEYDIR-INIT.LCOM diff --git a/.github/workflows/buildLoadup.yml b/.github/workflows/buildLoadup.yml index a51d8e5a..c85bb843 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 00000000..55535ff7 --- /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}larry>medley>greetfiles>MEDLEYDIR-INIT.;2 2303 + + changes to%: (VARS MEDLEYDIR-INITCOMS) + + previous date%: "14-Nov-2021 22:10:37" {DSK}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&c5Ot4bFFp4V3P@98U5azV>dn+Z@hMZ;8=EQFpobLy7&D zJRk@=A*_f3yRC_=IF3yTcT-OExb)!Ny!tS!-!B@ngxs!hw-befAFJrH#^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^-| zEeLHuOq4wFGqfZf@J)|#nkV`({(4crpPyBW*BetiCkEW}JZOfygaf)6GNUId^`{c^ zlnhP7ILl41&>$iPdJR;xRtJY7Heqcj+GLF*+u0 zzeJN6MC(K=K^z=Sw54D|y!{2(Is#?o?h6i-0y#O`wrLs8HHwkhp)CzkP+`(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 6e2c28a1..c028b822 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}larry>medley>lispusers>BACKGROUND-YIELD.;3 1644 - changes to%: (FNS BACKGROUND-YIELD) - (VARS BACKGROUND-YIELDCOMS) +(FILECREATED "14-Nov-2021 22:05:58" {DSK}larry>medley>lispusers>BACKGROUND-YIELD.;2 1597 - previous date%: "19-Sep-2021 13:37:10" {DSK}larry>medley>lispusers>BACKGROUND-YIELD.;1) + changes to%: (VARS BACKGROUND-YIELD) + + previous date%: "20-Sep-2021 11:37:28" {DSK}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$gOrzi!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$BoCGm2|F`}+oKDijo@mSyIb7K5Du)SzT&iSVYOF(?EK T4K|-;+{MIhpvmRu>B9v8wZl