From 9c3e2f746d03316781956567c5362aa8a591a065 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sat, 28 Nov 2020 20:11:38 -0800 Subject: [PATCH] converging on loadup full --- makesysout/loadup-full.sh | 4 ++-- makesysout/loadup-lisp.sh | 6 +++--- makesysout/makefullsysout | 2 +- makesysout/makefullsysout.LCOM | Bin 7828 -> 7879 bytes 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/makesysout/loadup-full.sh b/makesysout/loadup-full.sh index e14f5ef2..3e200f1b 100644 --- a/makesysout/loadup-full.sh +++ b/makesysout/loadup-full.sh @@ -1,4 +1,4 @@ -/bin/sh +#/bin/sh export MEDLEYDIR=`pwd` @@ -9,6 +9,6 @@ fi export LOADUPDIR=$MEDLEYDIR -./run-medley -greet $MEDLEYDIR/makesysout/makefullsysout.lcom $MEDLEYDIR/loadups/xlisp.sysout +./run-medley -greet $MEDLEYDIR/makesysout/makefullsysout.LCOM $MEDLEYDIR/loadups/xlisp.sysout diff --git a/makesysout/loadup-lisp.sh b/makesysout/loadup-lisp.sh index 2a135360..541e0e28 100644 --- a/makesysout/loadup-lisp.sh +++ b/makesysout/loadup-lisp.sh @@ -1,12 +1,12 @@ -/bin/sh +#/bin/sh export MEDLEYDIR=`pwd` -if [! -e run-medley ] ; then +if [ ! -f run-medley ] ; then echo run from MEDLEYDIR exit 1 fi export LOADUPDIR=$MEDLEYDIR -$ ./run-medley -greet $MEDLEYDIR/makesysout/synclispfiles.lcom $MEDLEYDIR/loadups/lisp.venuesysout +./run-medley -greet $MEDLEYDIR/makesysout/synclispfiles.lcom $MEDLEYDIR/loadups/lisp.venuesysout diff --git a/makesysout/makefullsysout b/makesysout/makefullsysout index a773fd55..758b23a4 100644 --- a/makesysout/makefullsysout +++ b/makesysout/makefullsysout @@ -1 +1 @@ -(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 +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "28-Nov-2020 16:56:44" {DSK}larry>ilisp>medley>makesysout>makefullsysout.;105 14394 changes to%: (COMMANDS "cd" "pwd" "ls") (FNS LOADFULLFONTS LOADNFS MAKEFULLSYSOUT) previous date%: "28-Nov-2020 10:41:31" {DSK}larry>ilisp>medley>makesysout>makefullsysout.;104) (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 16:55 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)) (SETQ MAKESYSFILENAME (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 11068 (LOADFULLFONTS 1071 . 3575) (LOADNFS 3577 . 4776) (MAKEFULLSYSOUT 4778 . 10459) (PAGEHEIGHT 10461 . 10822) (FIXMETA 10824 . 11066)) (11084 14023 (LoadPatches 11094 . 13042) ( COLLECT-PATCH-FILES 13044 . 14021))))) STOP \ No newline at end of file diff --git a/makesysout/makefullsysout.LCOM b/makesysout/makefullsysout.LCOM index d481a1578c0d6915415fccb63a790112f28b48b2..df4f73c56f6ba7f306349b436669c78b3dc33372 100644 GIT binary patch delta 432 zcmYjN%}N4M808L;6j>w)wULj30S%NHy?6df%Aae9U;=EK5|Es- z-b59sSvIUfx!C|B=GJ1Y$-k1g1elpMY^&aISKlsRg@oh1Z-lg9u>Wz2frrY}_x}nJ z_!Q4_FjU|{SU1KXq5_|+8hX7@qbxb&7?_iSUMvw)AXze4$dySd3Rn|^W$b`c#c&yW K%R` delta 455 zcmYjN%}x_h81;66kpKn^3peC=lLknn&fK5QbYdg@xsZnWX=aK7E5Ml`WMCR;O<1vH zOEc_T$%ZXDJ6^yC@ELpwSKg{k{5Id0^PQ7(a=zDZ>eqWyh9j6`j`jm0M)%LX!}r-~ zKV6P-e1=)-C2^Wuz&$?iBf2=xh66Bb&CfoqF@qVXR4Nql!61o2|Hm13xNxLBdcBmF zOKJ+H;1HpQ5%;C~8s`)9Y6JDH@HmAu>@onY@d3^Lp&xh&!#oV*}%iPCH ziIy8g>K&wALp$s=o37F~M{_IMjhfpVkd}>B;I|q*$f^ZTwOzIQR)tX~@FAsvo(j8R z2U2k8?VFHXPA;Pg<+t6S(cbPt8s>y7YT^%N(S*=u-7xUFy|KCnVe#Vb=`TX8{C57~ z4Fko-Firn;RHmy`=g?@GqC6>4L$V6G(s3QHv88l!{nH?;<)0UpUP`RATpe<3vO23B jZP3QyxbZ=TrZ|I1NM1K