From 0bdba59aa9e656f335e708b2a6037568c7a1a613 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 7 Mar 2022 13:15:16 -0800 Subject: [PATCH] more odds and ends from promote-internal --- internal/MAKE-PS | 134 ------------------ internal/MAKE-PS.LCOM | Bin 3535 -> 0 bytes library/.Readme-DOC-files | 1 - .../fonts/xerox}/README.TXT | 0 scripts/release-medley.sh | 4 +- 5 files changed, 2 insertions(+), 137 deletions(-) delete mode 100644 internal/MAKE-PS delete mode 100644 internal/MAKE-PS.LCOM delete mode 100644 library/.Readme-DOC-files rename {fonts/xeroxprivate => obsolete/fonts/xerox}/README.TXT (100%) diff --git a/internal/MAKE-PS b/internal/MAKE-PS deleted file mode 100644 index 687f3f06..00000000 --- a/internal/MAKE-PS +++ /dev/null @@ -1,134 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - -(FILECREATED "17-Oct-2021 16:06:41" {DSK}larry>medley>internal>library>MAKE-PS.;2 5515 - - changes to%: (FILES DOC-OBJECTS) - (VARS MAKE-PSCOMS) - - previous date%: " 1-Sep-2021 21:13:57" {DSK}larry>medley>internal>library>MAKE-PS.;1) - - -(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 TMAX) - (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 TMAX) - -[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 (793 5117 (MAKE-PS 803 . 4300) (MAKE-PS-INIT 4302 . 4738) (BADFILE 4740 . 5115))))) -STOP diff --git a/internal/MAKE-PS.LCOM b/internal/MAKE-PS.LCOM deleted file mode 100644 index 83cb39e75387af6ebc7a418a68fe7ad8dcc933a4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 3535 zcmb_eOK&4t6^@gBVboG*Mo550&7nqv>=yR8o_;jSq+E3!SEpQ6sVYaw01GGfv`xo$ zN9+s>G$M*z_nvd^x#xWM zyh=9fI3BBX9G6ubujA9>z_j+wJw}q_#VmB4D3IuJ$V@vn+wLuL+l&~=wQ{jo;uQ_so4(38Ly#r3~fzjdDe9$<0=+F44(ilxsg74`$Ct z7w@&GIGZoWli72c;KEMdb!qi5c2aRU zhphs_h-}}g`0Z!RilZ`>4$Uy4)P2kEfpoqYeLR`Jyby-tm_%|V8l5L#b3D|R4m`dA zxN^Ce-b5|CQ7i?dQ_POyD8{??C?Ji3h`%$IDnJiVOhJfXI+YrfzQ+x?5N8 zzMUOYZwrVUFMnJ(9v%u^pP6mTet4JPe%;+Xy8PSi1Bu2v<41)rgazB%ThF$x9#7tS z^BqSh`;&7^#Xkx^O*rC$PsW%3e75=F<=-=OfK*2~mD>2J*!)f?7fbW%zSx+biq8s1 zuvd_MVShRO>IS)+l{mN}m^dhow;$f)&Tent-AxeqqYSyv@jIP>NQ?nIcKyh6I3 z2;S?BKV-1JD=tX6yV+MriJ!~Ce-l`v3AvxUlksr44ur7s;eGKUt0xj8u6yF(_|Xb0 z;XK+X8Co6j9|oaAhQ`C!@nkZT23f8jvCaor%ejDz#GvjL43~kE~ zj!Cb}BA=w3;dok=krf)Ndoj z)uu{)k82_oW(cBCq}Cg^POCLJw?kPki;MXqO-Dz#dEPHr?44`mn-vO^Z~ZdF%TPRa&eGx1T@YO4%2cV1R_Jxfo^ zja4C8%}zIQEwf#A46CT#q-Z=kJG17~>0mabx|WIIx%-}TRM}%O^9}(q-nRwV_u?+$ z8G8FE_NsCVF?5UEUk(9E^V&W@tJ0eW0meA8LMMnxhfSh~qwYo#=?#@ov9%@-YCM;w zuKKGXeuZ9j4IdTHutTb$P=!?0NJS7B(4+zj@lgl?&AiC*J+xPigGJ4z_$c)oGhrba zfK{5!>Eh+-m_EWNfc9n78u+z+k4b2YSc|r-t5{j{*~g>Bk~eVhYBzhG zXN%Eb_==X}(P9K5*Hw{=y(I0R{Yy8~#&UGAg5 z_R)MtDkH8GlAfT!8fx+dWYUu=vir$XP-~6i%C-S>mece1&o8)N7x1e|()()^9h5vu z;1Fz@z8FpxR5>Ti8fm;^4s+t919#9$vj)lYk2>hIoDgB9=d3bq_*+|P6HF?ZDBh>{ zhNAq55`6mLfvD8A%_u3V-y0Uh;?KjvU!AM_-SPK7{B8F~Uu6cAOHzXIL>0U*Ks)X~Iq zJ|rB$Nfg-BaV2*b-}x+rTS*6cn^PmPP5_97 z_X41?Aajp-^v0dg?;$_(I*-ikxc#W>_v4_CLYEZQm{1je=JE2Oz%#9p6&`HxkF1O1 zW6W&4EyNj5%y7k07?=kKt28Q=I$l2MWt=1wQeZF*KB1>i5%lhSFr*i=`7dYm@&d!_ zWIA|0qWQ@$MyE?!zB)(rLAc0)Tbn0|9rVo@X&RB!b3B`280(3wcY2~_VH^9t%h_>g zdN3pI##}twXR+0#xMv_U!h=rHn@o*4BYiTub!4P4aez{>~tZinw zX2>wbBK>1_Xu7+uZ`ynY<_!}QXlX4g%KR^x$)ij#8f6v`2AjHP0V`+t*=B0^)-_!uiX=PaY)+ TFci=Cr diff --git a/library/.Readme-DOC-files b/library/.Readme-DOC-files deleted file mode 100644 index 0ce034c1..00000000 --- a/library/.Readme-DOC-files +++ /dev/null @@ -1 +0,0 @@ -All documentation files reside in {pele:}Library> for working copies. \ No newline at end of file diff --git a/fonts/xeroxprivate/README.TXT b/obsolete/fonts/xerox/README.TXT similarity index 100% rename from fonts/xeroxprivate/README.TXT rename to obsolete/fonts/xerox/README.TXT diff --git a/scripts/release-medley.sh b/scripts/release-medley.sh index e6dac310..a195a60f 100755 --- a/scripts/release-medley.sh +++ b/scripts/release-medley.sh @@ -26,8 +26,9 @@ echo making $tag-runtime.tgz tar cfz medley/tmp/$tag-runtime.tgz \ --exclude "*~" --exclude "*#*" \ + --exclude exports.all \ medley/docs/dinfo \ - medley/docs/doctools \ + medley/doctools \ medley/greetfiles \ medley/rooms \ medley/run-medley \ @@ -40,7 +41,6 @@ tar cfz medley/tmp/$tag-runtime.tgz \ medley/sources \ medley/internal - cd medley echo making release