From a25d98081a5a7314f0f8366dc0aaa510f32018a0 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sat, 28 Nov 2020 10:54:11 -0800 Subject: [PATCH] fix bugs and start working on loadup changes --- lispusers/{iso8859io => ISO8859IO} | 0 .../{iso8859io.LCOM.~4~ => ISO8859IO.LCOM} | Bin makesysout/loadup-full.sh | 14 +++++ makesysout/loadup-lisp.sh | 12 ++++ makesysout/makefullsysout | 2 +- makesysout/makefullsysout.LCOM | Bin 7867 -> 7828 bytes run-medley | 58 ++++++++---------- 7 files changed, 52 insertions(+), 34 deletions(-) rename lispusers/{iso8859io => ISO8859IO} (100%) rename lispusers/{iso8859io.LCOM.~4~ => ISO8859IO.LCOM} (100%) create mode 100644 makesysout/loadup-full.sh create mode 100644 makesysout/loadup-lisp.sh diff --git a/lispusers/iso8859io b/lispusers/ISO8859IO similarity index 100% rename from lispusers/iso8859io rename to lispusers/ISO8859IO diff --git a/lispusers/iso8859io.LCOM.~4~ b/lispusers/ISO8859IO.LCOM similarity index 100% rename from lispusers/iso8859io.LCOM.~4~ rename to lispusers/ISO8859IO.LCOM diff --git a/makesysout/loadup-full.sh b/makesysout/loadup-full.sh new file mode 100644 index 00000000..e14f5ef2 --- /dev/null +++ b/makesysout/loadup-full.sh @@ -0,0 +1,14 @@ +/bin/sh + +export MEDLEYDIR=`pwd` + +if [ ! -f run-medley ] ; then + echo must run from MEDLEYDIR ; + exit 1 ; +fi + +export LOADUPDIR=$MEDLEYDIR + +./run-medley -greet $MEDLEYDIR/makesysout/makefullsysout.lcom $MEDLEYDIR/loadups/xlisp.sysout + + diff --git a/makesysout/loadup-lisp.sh b/makesysout/loadup-lisp.sh new file mode 100644 index 00000000..2a135360 --- /dev/null +++ b/makesysout/loadup-lisp.sh @@ -0,0 +1,12 @@ +/bin/sh + +export MEDLEYDIR=`pwd` + +if [! -e run-medley ] ; then + echo run from MEDLEYDIR + exit 1 +fi + +export LOADUPDIR=$MEDLEYDIR + +$ ./run-medley -greet $MEDLEYDIR/makesysout/synclispfiles.lcom $MEDLEYDIR/loadups/lisp.venuesysout diff --git a/makesysout/makefullsysout b/makesysout/makefullsysout index 2420f565..a773fd55 100644 --- a/makesysout/makefullsysout +++ b/makesysout/makefullsysout @@ -1 +1 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "28-Sep-2020 12:35:06"  {DSK}kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;102 14114 changes to%: (FNS MAKEFULLSYSOUT) previous date%: " 5-Sep-2020 17:07:26" {DSK}kaplan>Local>medley3.5>lispcore>makesysout>makefullsysout.;101) (PRETTYCOMPRINT MAKEFULLSYSOUTCOMS) (RPAQQ MAKEFULLSYSOUTCOMS ((COMMANDS "cd" "pwd" "ls") (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA) (P (FIXMETA)) (FNS LoadPatches COLLECT-PATCH-FILES) (INITVARS (WRITEFULLSYSOUTFLAG T)) (VARS (COPYRIGHTFLG NIL)) (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT))) (PROP FILETYPE MAKEFULLSYSOUT))) (DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) (DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) (DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) (DEFINEQ (LOADFULLFONTS [LAMBDA (ROOTDIRECTORY) (* ; "Edited 11-Aug-2020 17:53 by rmk:") (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q") (PRINTOUT T "Loading FULL fonts..." T) (SETQ DISPLAYFONTDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/fonts/displayfonts") (PACK* ROOTDIRECTORY "/fonts/altofonts"))) (* (SETQ INTERPRESSFONTDIRECTORIES  (CONS (PACK* ROOTDIRECTORY  "/fonts/ipfonts")))) (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE)) (SETQ POSTSCRIPTFONTDIRECTORIES (CONS (PACK* ROOTDIRECTORY "/fonts/postscriptfonts"))) (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT) (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL) (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL)) (* ;  "Don't let the font loader substitute just because a server went catatonic on us") (FOR FAMILY IN '(CLASSIC MODERN TERMINAL) DO (PRINTOUT T " Loading " FAMILY " ") [FOR SIZE IN '(8 10 12) DO (PRINTOUT T SIZE " ") (FOR FACE IN '(MRR BRR MIR) DO (* ;; "No need for Interpress") (* (NLSETQ (FONTCREATE FAMILY SIZE  FACE NIL (QUOTE INTERPRESS) NIL 0))) (FOR CSET IN '(0 33 34 35 238 239 241) DO (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL CSET] (PRINTOUT T T)) (PRINTOUT T " Loading postscript fonts" T) (FOR F IN (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES) ">c0>*.*")) DO (PSCFONT.READFONT F)) (PRINTOUT T "FULL fonts loaded" T]) (LOADNFS [LAMBDA NIL (* ; "Edited 24-Aug-2020 20:38 by rmk:") (* ;  "Edited 8-Jun-94 14:20 by kaplan") (* ; "Edited 16-Mar-90 14:07 by bbb") (* ;;; "Function assumes that all directories are properly set") (* ;;; "loads MINI-NFS and other related files") (* ;; "Moved UNIXCOMM, UNIXCHAT into the main MAKEFULLSYSOUT") (FILESLOAD (SYSLOAD FROM "{dsk}medley3.5>nfs>") MINI-NFS) [COND (T (* ;  "Load Bill's patch to allow Sun users to refer to server/n.") (FILESLOAD (SYSLOAD) UFSNFS)) (T (* ;; "Pray...") (\DEFINEDEVICE 'nfs 'dsk] (FILESLOAD (SYSLOAD FROM "{dsk}medley3.5>nfs>") RPCOS) (FILESLOAD (SYSLOAD) RWALLSERVER NFSPROTECTION]) (MAKEFULLSYSOUT [LAMBDA NIL (* ;  "Edited 14-May-2018 15:01 by kaplan") (* ;  "Edited 28-Sep-2020 12:35 by rmk:") (* ; "Edited 17-Apr-2018 08:41 by ") (* ;  "Edited 21-Apr-2018 07:27 by rmk:") (* ; "Edited 23-Feb-94 15:04 by bvm") (* ; "Edited 2-Apr-90 14:42 by bbb") (* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5. Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore. Then load makefullsysout/MAKEFULLSYSOUT.LCOM.") (* ;;; "If sysout looks good, copy to release (basics?)") (* ;;; "") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (LET ((ROOTDIRECTORY (DIRECTORYNAME T))) (* ;  "E.g. medley3.5/lisp or medley3.5/lispcore") (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "/loadups/xfull35.sysout")) (* ; "Should bind MAKESYSFILENAME") (DRIBBLE (PACKFILENAME 'EXTENSION 'dribble 'BODY MAKESYSFILENAME)) (* ;; "BKSYSBUF stops page holding ") (PRINTOUT T T "Full loadup started at " (DATE) " while connected to " (DIRECTORYNAME T) T T) (BKSYSBUF " ") (SETQ DEFAULTFILETYPE 'BINARY) (* ;  "These prevent bits from being lost due to lack of knowledge") (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST) DEFAULTFILETYPELIST) (* (SETQ *UPPER-CASE-FILE-NAMES* NIL)) (SETQ MAKESYSNAME :MEDLEY3.5) (PUSH DEFAULTFILETYPELIST '(TXT . TEXT) '(TEXT . TEXT) '(TEX . TEXT) '(HTML . TEXT) '(HTM . TEXT)) (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources"))) (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library") (PACK* ROOTDIRECTORY "lispusers"))) (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES)) (SETQ LOADUPDIRECTORIES DIRECTORIES) (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)") (LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT") (LOADFULLFONTS ROOTDIRECTORY) (LISTPUT IDLE.PROFILE 'TIMEOUT 0) (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL) (* ; "Skip DOSPRINT, assume only UNIX") (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO CLIPBOARD MACINTERFACE)) (* ;; "Useful SSL stuff ") (AND NIL (FILESLOAD (SYSLOAD) NSMAINTAIN NSPROTECTION)) (FILESLOAD (SYSLOAD) PRETTYFILEINDEX WHO-LINE NSCOPYFILE) (* ;; "Turn off who-line until after the user has greeted") (CL:WHEN (WINDOWP *WHO-LINE*) (CLOSEW *WHO-LINE*)) [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS] (FILESLOAD (SYSLOAD) UNIXCOMM UNIXCHAT UNIXTELNET) (CL:WHEN NIL (FILESLOAD (SYSLOAD) ARCHIVETOOL) (SETQ CH.DEFAULT.DOMAIN "PARC") (SETQ CH.DEFAULT.ORGANIZATION "XEROX") (LOADNFS) (* ;; "Load in the newest Lafite") (FILESLOAD (SYSLOAD) LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL) (FILESLOAD (SYSLOAD) SYSTEM33)) (FILESLOAD (SYSLOAD) SETDEFAULTPRINTER) (* ;; "Load the patches last") (FILESLOAD (SYSLOAD) LOADPATCHES) (LoadPatches (PACK* ROOTDIRECTORY "patches>") 'SYSLOAD NIL) (* ;; "Turn on Meta key for Dorados: (METASHIFT T)") (\DAYTIME0 \LASTUSERACTION) (LISTPUT IDLE.PROFILE 'TIMEOUT 20) (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL)) (PACK* ROOTDIRECTORY "xfull35.sysout") (SETTOPVAL 'INITIALS NIL) (PROMPTPRINT "About to end loadup") (PRINTOUT T "About to end loadup" T) (* ;; "From SYNCLISPFILES") (ENDLOADUP) (CL:WHEN LOGOW (CLOSEW LOGOW)) (LOGOW) (PUSH AFTERMAKESYSFORMS '(CLRPROMPT)) (* ;; "Set up for making the sysout, if we made it this far.") (CL:WHEN WRITEFULLSYSOUTFLAG (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " (MEDLEYVERSION) " Full Sysout%")"))) (DRIBBLE]) (PAGEHEIGHT [LAMBDA (N) (* ; "Edited 20-Jul-88 10:13 by Burwell") (* ;; "sets the page height in lines of the screen.") (* ;; "20-Jul-88: Took out the (SETQ \CURRENTDISPLAYLINE 0)") (PROG1 \#DISPLAYLINES (COND ((NUMBERP N) (SETQ \#DISPLAYLINES N))))]) (FIXMETA [LAMBDA NIL (* ; "Edited 25-Jun-2017 17:12 by rmk:") (KEYACTION 'BLANK-TOP '(METADOWN . METAUP) \CURRENTKEYACTION) (KEYACTION 'BLANK-TOP '(METADOWN . METAUP]) ) (FIXMETA) (DEFINEQ (LoadPatches [LAMBDA (DIRECTORY LDFLG AFTERDATE) (* ; "Edited 7-Feb-92 11:50 by bbb") (* ;;; "Load all compiled files from the directory") (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*)) (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS* bind (AFTERIDATE _ (if AFTERDATE then (OR (IDATE AFTERDATE) 0) else 0)) join (COLLECT-PATCH-FILES (DIRECTORYNAME DIRECTORY) EXT AFTERIDATE)) (FUNCTION (LAMBDA (X Y) (LESSP (CDR X) (CDR Y] (* ;  "files are sorted by increasing date") (for file in files do (SELECTQ LDFLG (HIDDEN (* ;  "Load the file, but don't put it on FILELST") (LOAD? (CAR file) T) (SETQ FILELST (DREMOVE (FILENAMEFIELD (CAR file) 'NAME) FILELST))) (LOAD? (CAR file) LDFLG))) files]) (COLLECT-PATCH-FILES [LAMBDA (DIRECTORY EXT AFTERIDATE) (* ; "Edited 7-Feb-92 11:49 by bbb") (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE. Return list of pairs (file . date). Omits subdirectories.") (RESETLST (LET ((FILING.ENUMERATION.DEPTH 1) (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY)) FILE DATE) (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";") '(ICREATIONDATE) '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN)) when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY) NAKED-DIR) (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE)) AFTERIDATE)) collect (CONS FILE DATE))))]) ) (RPAQ? WRITEFULLSYSOUTFLAG T) (RPAQQ COPYRIGHTFLG NIL) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) ) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (MAKEFULLSYSOUT) ) (PUTPROPS MAKEFULLSYSOUT FILETYPE :TCOMPL) (PUTPROPS MAKEFULLSYSOUT COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (1021 10788 (LOADFULLFONTS 1031 . 3470) (LOADNFS 3472 . 4606) (MAKEFULLSYSOUT 4608 . 10179) (PAGEHEIGHT 10181 . 10542) (FIXMETA 10544 . 10786)) (10804 13743 (LoadPatches 10814 . 12762) ( COLLECT-PATCH-FILES 12764 . 13741))))) STOP \ No newline at end of file +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "28-Nov-2020 10:41:31" {DSK}larry>ilisp>medley>makesysout>makefullsysout.;104 14372 changes to%: (COMMANDS "cd" "pwd" "ls") (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT) previous date%: "28-Sep-2020 12:35:06" {DSK}larry>ilisp>medley>makesysout>makefullsysout.;103) (PRETTYCOMPRINT MAKEFULLSYSOUTCOMS) (RPAQQ MAKEFULLSYSOUTCOMS ((COMMANDS "cd" "pwd" "ls") (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT PAGEHEIGHT FIXMETA) (P (FIXMETA)) (FNS LoadPatches COLLECT-PATCH-FILES) (INITVARS (WRITEFULLSYSOUTFLAG T)) (VARS (COPYRIGHTFLG NIL)) (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT))) (PROP FILETYPE MAKEFULLSYSOUT))) (DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) (DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) (DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) (DEFINEQ (LOADFULLFONTS [LAMBDA (ROOTDIRECTORY) (* ;  "Edited 11-Aug-2020 17:53 by rmk:") (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q") (PRINTOUT T "Loading FULL fonts..." T) (SETQ DISPLAYFONTDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/fonts/displayfonts") (PACK* ROOTDIRECTORY "/fonts/altofonts"))) (* (SETQ INTERPRESSFONTDIRECTORIES  (CONS (PACK* ROOTDIRECTORY  "/fonts/ipfonts")))) (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE)) (SETQ POSTSCRIPTFONTDIRECTORIES (CONS (PACK* ROOTDIRECTORY "/fonts/postscriptfonts"))) (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT) (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL) (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL)) (* ;  "Don't let the font loader substitute just because a server went catatonic on us") (for FAMILY in '(CLASSIC MODERN TERMINAL) do (PRINTOUT T " Loading " FAMILY " ") [for SIZE in '(8 10 12) do (PRINTOUT T SIZE " ") (for FACE in '(MRR BRR MIR) do (* ;; "No need for Interpress") (* (NLSETQ (FONTCREATE FAMILY SIZE  FACE NIL (QUOTE INTERPRESS) NIL 0))) (for CSET in '(0 33 34 35 238 239 241) do (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL CSET] (PRINTOUT T T)) (PRINTOUT T " Loading postscript fonts" T) (for F in (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES) ">c0>*.*")) do (PSCFONT.READFONT F)) (PRINTOUT T "FULL fonts loaded" T]) (LOADNFS [LAMBDA NIL (* ;  "Edited 24-Aug-2020 20:38 by rmk:") (* ;  "Edited 8-Jun-94 14:20 by kaplan") (* ; "Edited 16-Mar-90 14:07 by bbb") (* ;;; "Function assumes that all directories are properly set") (* ;;; "loads MINI-NFS and other related files") (* ;; "Moved UNIXCOMM, UNIXCHAT into the main MAKEFULLSYSOUT") (FILESLOAD (SYSLOAD FROM "{dsk}medley3.5>nfs>") MINI-NFS) [COND (T (* ;  "Load Bill's patch to allow Sun users to refer to server/n.") (FILESLOAD (SYSLOAD) UFSNFS)) (T (* ;; "Pray...") (\DEFINEDEVICE 'nfs 'dsk] (FILESLOAD (SYSLOAD FROM "{dsk}medley3.5>nfs>") RPCOS) (FILESLOAD (SYSLOAD) RWALLSERVER NFSPROTECTION]) (MAKEFULLSYSOUT [LAMBDA NIL (* ; "Edited 28-Nov-2020 10:29 by larry") (* ;  "Edited 14-May-2018 15:01 by kaplan") (* ;  "Edited 28-Sep-2020 12:35 by rmk:") (* ; "Edited 17-Apr-2018 08:41 by ") (* ;  "Edited 21-Apr-2018 07:27 by rmk:") (* ; "Edited 23-Feb-94 15:04 by bvm") (* ; "Edited 2-Apr-90 14:42 by bbb") (* ;;; "This file makes xfull35.sysout based on Venue's Lisp.sysout 3.5. Start LISP.SYSOUT, connect to MEDLEYDIR for Lisp, connect to MEDLEYDIR/lispcore for lispcore. Then load makefullsysout/MAKEFULLSYSOUT.LCOM.") (* ;;; "If sysout looks good, copy to release (basics?)") (* ;;; "") (CLRPROMPT) (CNDIR (UNIX-GETENV "LOADUPDIR")) (LET ((ROOTDIRECTORY (DIRECTORYNAME T))) (* ;  "E.g. medley3.5/lisp or medley3.5/lispcore") (SETQ MAKESYSFILENAME (PACK* ROOTDIRECTORY "/loadups/xfull35.sysout")) (* ; "Should bind MAKESYSFILENAME") (DRIBBLE (PACKFILENAME 'EXTENSION 'dribble 'BODY MAKESYSFILENAME)) (* ;; "BKSYSBUF stops page holding ") (PRINTOUT T T "Full loadup started at " (DATE) " while connected to " (DIRECTORYNAME T) T T) (BKSYSBUF " ") (SETQ DEFAULTFILETYPE 'BINARY) (* ;  "These prevent bits from being lost due to lack of knowledge") (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST) DEFAULTFILETYPELIST) (* (SETQ *UPPER-CASE-FILE-NAMES* NIL)) (SETQ MAKESYSNAME :MEDLEY3.5) (PUSH DEFAULTFILETYPELIST '(TXT . TEXT) '(TEXT . TEXT) '(TEX . TEXT) '(HTML . TEXT) '(HTM . TEXT)) (SETQ LISPSOURCEDIRECTORIES (LIST (PACK* ROOTDIRECTORY "sources"))) (SETQ LISPUSERSDIRECTORIES (LIST (PACK* ROOTDIRECTORY "library") (PACK* ROOTDIRECTORY "lispusers"))) (SETQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES DIRECTORIES)) (SETQ LOADUPDIRECTORIES DIRECTORIES) (* ;; "(FILESLOAD (SYSLOAD FROM VALUEOF (PACK* ROOTDIRECTORY %"patches%")) FINDFONTPATCH)") (LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT") (LOADFULLFONTS ROOTDIRECTORY) (LISTPUT IDLE.PROFILE 'TIMEOUT 0) (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL) (* ; "Skip DOSPRINT, assume only UNIX") (LOADUP '(CHAT NSCHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO CLIPBOARD MACINTERFACE)) (* ;; "Useful SSL stuff ") (AND NIL (FILESLOAD (SYSLOAD) NSMAINTAIN NSPROTECTION)) (FILESLOAD (SYSLOAD) PRETTYFILEINDEX WHO-LINE NSCOPYFILE) (* ;; "Turn off who-line until after the user has greeted") (CL:WHEN (WINDOWP *WHO-LINE*) (CLOSEW *WHO-LINE*)) [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS] (FILESLOAD (SYSLOAD) UNIXCOMM UNIXCHAT UNIXTELNET) (CL:WHEN NIL (FILESLOAD (SYSLOAD) ARCHIVETOOL) (SETQ CH.DEFAULT.DOMAIN "PARC") (SETQ CH.DEFAULT.ORGANIZATION "XEROX") (LOADNFS) (* ;; "Load in the newest Lafite") (FILESLOAD (SYSLOAD) LAFITE MIME LAFITE-INDENT NSMAIL NEWNSMAIL UNIXMAIL) (FILESLOAD (SYSLOAD) SYSTEM33)) (FILESLOAD (SYSLOAD) SETDEFAULTPRINTER) (* ;; "Load the patches last") (FILESLOAD (SYSLOAD) LOADPATCHES) (LoadPatches (PACK* ROOTDIRECTORY "patches>") 'SYSLOAD NIL) (* ;; "Turn on Meta key for Dorados: (METASHIFT T)") (\DAYTIME0 \LASTUSERACTION) (LISTPUT IDLE.PROFILE 'TIMEOUT 20) (FOR TYPE IN FILEPKTYPES DO (FILEPKGCHANGES TYPE NIL)) (PACK* ROOTDIRECTORY "xfull35.sysout") (SETTOPVAL 'INITIALS NIL) (PROMPTPRINT "About to end loadup") (PRINTOUT T "About to end loadup" T) (* ;; "From SYNCLISPFILES") (ENDLOADUP) (CL:WHEN LOGOW (CLOSEW LOGOW)) (PUSH AFTERMAKESYSFORMS '(CLRPROMPT)) (* ;; "Set up for making the sysout, if we made it this far.") (CL:WHEN WRITEFULLSYSOUTFLAG (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " (MEDLEYVERSION) " Full Sysout%")"))) (DRIBBLE]) (PAGEHEIGHT [LAMBDA (N) (* ; "Edited 20-Jul-88 10:13 by Burwell") (* ;; "sets the page height in lines of the screen.") (* ;; "20-Jul-88: Took out the (SETQ \CURRENTDISPLAYLINE 0)") (PROG1 \#DISPLAYLINES (COND ((NUMBERP N) (SETQ \#DISPLAYLINES N))))]) (FIXMETA [LAMBDA NIL (* ; "Edited 25-Jun-2017 17:12 by rmk:") (KEYACTION 'BLANK-TOP '(METADOWN . METAUP) \CURRENTKEYACTION) (KEYACTION 'BLANK-TOP '(METADOWN . METAUP]) ) (FIXMETA) (DEFINEQ (LoadPatches [LAMBDA (DIRECTORY LDFLG AFTERDATE) (* ; "Edited 7-Feb-92 11:50 by bbb") (* ;;; "Load all compiled files from the directory") (DECLARE (GLOBALVARS *COMPILED-EXTENSIONS*)) (LET [(files (SORT (for EXT in *COMPILED-EXTENSIONS* bind (AFTERIDATE _ (if AFTERDATE then (OR (IDATE AFTERDATE) 0) else 0)) join (COLLECT-PATCH-FILES (DIRECTORYNAME DIRECTORY) EXT AFTERIDATE)) (FUNCTION (LAMBDA (X Y) (LESSP (CDR X) (CDR Y] (* ;  "files are sorted by increasing date") (for file in files do (SELECTQ LDFLG (HIDDEN (* ;  "Load the file, but don't put it on FILELST") (LOAD? (CAR file) T) (SETQ FILELST (DREMOVE (FILENAMEFIELD (CAR file) 'NAME) FILELST))) (LOAD? (CAR file) LDFLG))) files]) (COLLECT-PATCH-FILES [LAMBDA (DIRECTORY EXT AFTERIDATE) (* ; "Edited 7-Feb-92 11:49 by bbb") (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE. Return list of pairs (file . date). Omits subdirectories.") (RESETLST (LET ((FILING.ENUMERATION.DEPTH 1) (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY)) FILE DATE) (bind [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";") '(ICREATIONDATE) '(SORT RESETLST] while (SETQ FILE (\GENERATENEXTFILE GEN)) when (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY) NAKED-DIR) (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE)) AFTERIDATE)) collect (CONS FILE DATE))))]) ) (RPAQ? WRITEFULLSYSOUTFLAG T) (RPAQQ COPYRIGHTFLG NIL) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) ) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (MAKEFULLSYSOUT) ) (PUTPROPS MAKEFULLSYSOUT FILETYPE :TCOMPL) (PUTPROPS MAKEFULLSYSOUT COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (1061 11046 (LOADFULLFONTS 1071 . 3575) (LOADNFS 3577 . 4776) (MAKEFULLSYSOUT 4778 . 10437) (PAGEHEIGHT 10439 . 10800) (FIXMETA 10802 . 11044)) (11062 14001 (LoadPatches 11072 . 13020) ( COLLECT-PATCH-FILES 13022 . 13999))))) STOP \ No newline at end of file diff --git a/makesysout/makefullsysout.LCOM b/makesysout/makefullsysout.LCOM index fe3fcb38eda683cced142b119fd37f76f7ca9f7e..d481a1578c0d6915415fccb63a790112f28b48b2 100644 GIT binary patch delta 517 zcmZvZ%Syvg5Qa^3CAMPlf}k=SD7K51oO5z|IcTA6P9Zc+OHyykYJwJ8Q`#yN5q$!& z#Dz=Of~zhCU%?mfVT@wEfU6ni|L5Z$=6U;W`?kJd`R7TZ5*4t@HNvqvYOb!F_#H3b zZuWY^e5>8+ck><3ZF|E2%Nvq5dRe_XJn}o;_NEK1Q;4AIrwV511ZUXy&jvs;$!~Hh zl|tY)2c8S)_nc5pHO{gq5s8-#Q8iyzbY*gj2@V^dIv7V2K8JdU5Q^bXM9Q-_Oai zWCst?y{pHmILk38nKei30n6q?WF)I5haQA25);J|mIDo; zq)_NN#{Grf3qJPRpXlFoQ*fGNyO(`$9y@Pl=j+LjlZU~pI4c_zQw)UKIkHcgL(;1-t9|n*V;N9do#J5#(vjB43c+${pHW5tHg(OnZ^8uwc)@^2> zBem}Nf;$oK47m%4T8-1E=Nk(M)H^rseSG_`K3-EG1|bHFFVopYR>7i>9_n5YgSz@z z0|x>7tCF;A+_I_p-)m}QZ7F9jYwy>eb`)iM^kPe%)#u&O{kN^Ui7_}LjQI%Iu>o%6 zce{cEvn=TLLzz*-dg+!g%%9gku^41h5PLmmwxADCf*yaOUDyr~ES z5uSyT9-F`eSA-om8OV;nI^6rEoVEZxPewyW(zYp44S}|a?-3$^>b|faGnT^SOoF # -vmem -# # Environment variables set # Directory variables are accessible from Lisp via UNIX-GETENV @@ -23,7 +22,7 @@ # MEDLEYDIR used by init file to set other path variables -if [ -z "$MEDLEYDIR" ] ; then export MEDLEYDIR=`pwd`; fi +if [ -z "$MEDLEYDIR" ] ; then export MEDLEYDIR="`pwd`"; fi if [ ! -d $MEDLEYDIR/loadups ] ; then echo MEDLEYDIR not found: "$MEDLEYDIR" exit 1 @@ -33,18 +32,21 @@ fi if [ -z "$MAIKODIR" ] ; then export MAIKODIR="$MEDLEYDIR/../maiko" - if [ ! -d "$MAIKODIR"/bin ] ; then + if [ ! -d "$MAIKODIR"/bin ] ; then # should have more precise test echo "MAIKODIR not found: $MAIKODIR" exit 1 fi fi +prog="lde" geometry="-g 1440x900" screensize="-sc 1440x900" + +export LDEDESTSYSOUT="~/lisp.virtualmem" export LDEINIT="$MEDLEYDIR/greetfiles/SIMPLE-INIT" export LDEKBDTYPE=x -export LDEDESTSYSOUT=~/lisp.virtualmem + while [ "$#" -ne 0 ]; do case "$1" in @@ -55,64 +57,51 @@ while [ "$#" -ne 0 ]; do export LDEINIT="$2" shift ;; - "-g") + "-geometry" | "-g") geometry="-g $2" shift ;; - "-geometry") - geometry="-g $2" - shift - ;; - "-sc") - screensize="-sc 2" + "-screensize" | "-sc") + screensize="-sc $2" shift ;; - "-screensize") - screensize="-sc $2" + "-display" | "-d") + export DISPLAY="$2" shift ;; - "-display") - export DISPLAY=$2 - shift - ;; - "-d") - export DISPLAY=$2 - ;; "-vmem") - LDEDESTSYSOUT=$2 + LDEDESTSYSOUT="$2" shift ;; "-full") - export LDESRCSYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" + export LDESRCESYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" ;; "-lisp") - export LDESRCSYSOUT="$MEDLEYDIR/loadups/xlisp.sysout" + export LDESRCESYSOUT="$MEDLEYDIR/loadups/xlisp.sysout" ;; - "-"*) + "-*") echo unrecognized option "$1" exit 1 ;; *) - # not an option so must be a sysout name - export LDESRCSYSOUT=$1 + export LDESRCESYSOUT="$1" ;; esac shift done -if [ -z "$LDESRCSYSOUT" ] ; then +if [ -z "$LDESRCESYSOUT" ] ; then if [ -f "$LDEDESTSYSOUT" ] ; then - export LDESRCSYSOUT="$LDEDESTSYSOUT" + export LDESRCESYSOUT="$LDEDESTSYSOUT" + else + export LDESRCESYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" ; fi -else - export LDESRCSYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" ; fi export INMEDLEY=1 -echo "sysout is " $LDESRCESYSOUT -prog="lde" + oldpath="$PATH" export PATH=.:"$PATH" @@ -121,5 +110,8 @@ cd "$MAIKODIR"/bin export PATH=$MAIKODIR/`osversion`.`machinetype`:"$oldpath" cd $old_wd +echo "sysout is $LDESRCESYSOUT" +echo "running `which $prog` $geometry $screensize" +echo "start $LDEINIT" -$prog $geometry $screensize -t "Medley Interlisp (https://Interlisp.org)" "$LDESRCSYSOUT" +$prog $geometry $screensize -t "Medley Interlisp" "$LDESRCESYSOUT"