diff --git a/scripts/loadup-all.sh b/scripts/loadup-all.sh new file mode 100755 index 00000000..2756a2bd --- /dev/null +++ b/scripts/loadup-all.sh @@ -0,0 +1,12 @@ +#!/bin/sh + +export MEDLEYDIR=`pwd` + +if [ ! -f run-medley ] ; then + echo run from MEDLEYDIR + exit 1 +fi + +./scripts/loadup-init.sh && ./scripts/loadup-lisp-from-init.sh && ./scripts/loadup-full.sh + +echo tada! diff --git a/scripts/loadup-lisp-from-init.sh b/scripts/loadup-lisp-from-init.sh index f83b06d1..e7c62054 100755 --- a/scripts/loadup-lisp-from-init.sh +++ b/scripts/loadup-lisp-from-init.sh @@ -9,10 +9,8 @@ fi export LOADUPDIR="$MEDLEYDIR" mkdir -p "$MEDLEYDIR/tmp" -echo ------ starting with --- -ls -l tmp loadups/init* -echo ---------- -rm -f ~/rem.cm ~/lisp.virtualmem + +rm -f ~/rem.cm ~/lisp.virtualmem ./tmp/* loadups/init*~ cp sources/XREM.CM ~/rem.cm diff --git a/scripts/loadup-lisp.sh b/scripts/loadup-lisp.sh index 7238b09b..2756a2bd 100755 --- a/scripts/loadup-lisp.sh +++ b/scripts/loadup-lisp.sh @@ -7,6 +7,6 @@ if [ ! -f run-medley ] ; then exit 1 fi -export LOADUPDIR=$MEDLEYDIR +./scripts/loadup-init.sh && ./scripts/loadup-lisp-from-init.sh && ./scripts/loadup-full.sh -./run-medley -greet $MEDLEYDIR/sources/LOADUP-LISP.LCOM $MEDLEYDIR/loadups/lisp.venuesysout +echo tada! diff --git a/sources/LOADUP-FULL b/sources/LOADUP-FULL index 71566db0..e1c7d3ec 100644 --- a/sources/LOADUP-FULL +++ b/sources/LOADUP-FULL @@ -1 +1 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "13-Feb-2021 23:47:35" {DSK}larry>ilisp>medley>sources>LOADUP-FULL.;6 6188 changes to%: (FNS MAKEFULLSYSOUT) (VARS LOADUP-FULLCOMS) previous date%: "13-Feb-2021 22:54:15" {DSK}larry>ilisp>medley>sources>LOADUP-FULL.;4) (PRETTYCOMPRINT LOADUP-FULLCOMS) (RPAQQ LOADUP-FULLCOMS ((COMMANDS "cd" "pwd" "ls") (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA) (P (FIXMETA)) (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT T))) (PROP FILETYPE))) (DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) (DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) (DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) (DEFINEQ (LOADFULLFONTS [LAMBDA NIL (* ; "Edited 13-Feb-2021 22:51 by larry") (* ;; " 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 DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE)) (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 (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]) (MAKEFULLSYSOUT [LAMBDA (DOIT) (* ; "Edited 13-Feb-2021 23:47 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") (CLRPROMPT) (LET NIL (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups") "full.sysout")) (SETQ MAKESYSNAME (CONCAT "Medley from Interlisp.org of " (DATE))) (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) (push DEFAULTFILETYPELIST '(TXT . TEXT) '(TEXT . TEXT) '(TEX . TEXT) '(HTML . TEXT) '(HTM . TEXT)) (MEDLEY-INIT-VARS) (SETQ LOADUPDIRECTORIES DIRECTORIES) (LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT") (LOADFULLFONTS) (LISTPUT IDLE.PROFILE 'TIMEOUT 0) (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL) (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO HELPSYS DINFO CLIPBOARD MACINTERFACE PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT)) (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP)) (* ;; "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] (LISTPUT IDLE.PROFILE 'TIMEOUT 20) (SETTOPVAL 'INITIALS NIL) (ENDLOADUP) (COND ((WINDOWP LOGOW) (CLOSEW LOGOW))) (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS) AFTERMAKESYSFORMS) (push AFTERMAKESYSFORMS '(CLRPROMPT) '(MEDLEY-INIT-VARS)) (* ;; "Set up for making the sysout, if we made it this far.") (CL:WHEN DOIT (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " " Full Sysout%")"))) (DRIBBLE]) (FIXMETA [LAMBDA NIL (* ;  "Edited 25-Jun-2017 17:12 by rmk:") (KEYACTION 'BLANK-TOP '(METADOWN . METAUP) \CURRENTKEYACTION) (KEYACTION 'BLANK-TOP '(METADOWN . METAUP]) ) (FIXMETA) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) ) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (MAKEFULLSYSOUT T) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (857 5960 (LOADFULLFONTS 867 . 2455) (MAKEFULLSYSOUT 2457 . 5649) (FIXMETA 5651 . 5958)) ))) STOP \ No newline at end of file +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Feb-2021 10:08:45" {DSK}larry>ilisp>medley>sources>LOADUP-FULL.;7 5949 changes to%: (FNS MAKEFULLSYSOUT) previous date%: "13-Feb-2021 23:47:35" {DSK}larry>ilisp>medley>sources>LOADUP-FULL.;6) (PRETTYCOMPRINT LOADUP-FULLCOMS) (RPAQQ LOADUP-FULLCOMS ((COMMANDS "cd" "pwd" "ls") (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA) (P (FIXMETA)) (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT T))) (PROP FILETYPE))) (DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) (DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) (DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) (DEFINEQ (LOADFULLFONTS [LAMBDA NIL (* ; "Edited 13-Feb-2021 22:51 by larry") (* ;; " 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 DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE)) (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 (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]) (MAKEFULLSYSOUT [LAMBDA (DOIT) (* ; "Edited 14-Feb-2021 10:08 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") (CLRPROMPT) (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups") "full.sysout")) (SETQ MAKESYSNAME (CONCAT "Medley from Interlisp.org of " (DATE))) (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) (push DEFAULTFILETYPELIST '(TXT . TEXT) '(TEXT . TEXT) '(TEX . TEXT) '(HTML . TEXT) '(HTM . TEXT)) (MEDLEY-INIT-VARS) (SETQ LOADUPDIRECTORIES DIRECTORIES) (LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT") (LOADFULLFONTS) (LISTPUT IDLE.PROFILE 'TIMEOUT 0) (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL) (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO HELPSYS DINFO CLIPBOARD MACINTERFACE PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT)) (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP)) (* ;; "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] (LISTPUT IDLE.PROFILE 'TIMEOUT 20) (SETTOPVAL 'INITIALS NIL) (ENDLOADUP) (COND ((WINDOWP LOGOW) (CLOSEW LOGOW))) (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS) AFTERMAKESYSFORMS) (push AFTERMAKESYSFORMS '(CLRPROMPT) '(MEDLEY-INIT-VARS)) (* ;; "Set up for making the sysout, if we made it this far.") (CL:WHEN DOIT (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " " Full Sysout%")" " (IL:LOGOUT T)"))) (DRIBBLE]) (FIXMETA [LAMBDA NIL (* ;  "Edited 25-Jun-2017 17:12 by rmk:") (KEYACTION 'BLANK-TOP '(METADOWN . METAUP) \CURRENTKEYACTION) (KEYACTION 'BLANK-TOP '(METADOWN . METAUP]) ) (FIXMETA) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS) ) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (MAKEFULLSYSOUT T) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (814 5721 (LOADFULLFONTS 824 . 2412) (MAKEFULLSYSOUT 2414 . 5410) (FIXMETA 5412 . 5719)) ))) STOP \ No newline at end of file diff --git a/sources/LOADUP-FULL.LCOM b/sources/LOADUP-FULL.LCOM index 49510ab1..1599f26b 100644 Binary files a/sources/LOADUP-FULL.LCOM and b/sources/LOADUP-FULL.LCOM differ diff --git a/sources/MAKEINITGREET b/sources/MAKEINITGREET old mode 100755 new mode 100644 index 2d89d3a8..161679f1 --- a/sources/MAKEINITGREET +++ b/sources/MAKEINITGREET @@ -1 +1 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 7-Feb-2021 18:10:42" {DSK}larry>ilisp>medley>sources>MAKEINITGREET.;33 1897 changes to%: (FNS MAKEINITGREET) (FILES RENAMEFNS) (VARS MAKEINITGREETCOMS) previous date%: " 5-Dec-2017 15:26:33" {DSK}larry>ilisp>medley>sources>MAKEINITGREET.;28 ) (PRETTYCOMPRINT MAKEINITGREETCOMS) (RPAQQ MAKEINITGREETCOMS ((FNS MAKEINITGREET) (FILES (SOURCE) FILESETS) (FILES RENAMEFNS MAKEINIT DLFIXINIT XCL-PACKAGE CMLARRAY-SUPPORT VMEM))) (DEFINEQ (MAKEINITGREET [LAMBDA NIL (* ; "Edited 7-Feb-2021 18:06 by lmm") (* ;  "Edited 5-Dec-2017 15:26 by rmk:") (* ;; "") (* ;; " Updated Lisp version for big physical memory --bvm |11/3/87") (* ;; "") (XCL:RESTORE-PROFILE "INTERLISP") (* ; "Doesn't exist") (SETQ LITATOM-PACKAGE-CONVERSION-ENABLED NIL) (SETQ *REMOVE-INTERLISP-COMMENTS* NIL) (LOAD 'FILESETS) (* ; "rmk: VMEM has WORDARRAY") (* Versions are Lisp Microcode Bcpl) (DORENAME 'I) (DLFIXINIT (MAKEINIT '(39424 5682 11008) (MEDLEYDIR "loadups" "init.sysout" T) NIL DIRECTORIES DISPLAYFONTDIRECTORIES) (MEDLEYDIR "loadups" "init.dlinit" T]) ) (FILESLOAD (SOURCE) FILESETS) (FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT XCL-PACKAGE CMLARRAY-SUPPORT VMEM) (PUTPROPS MAKEINITGREET COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (681 1718 (MAKEINITGREET 691 . 1716))))) STOP \ No newline at end of file +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Feb-2021 09:57:01" {DSK}larry>ilisp>medley>sources>MAKEINITGREET.;2 1770 changes to%: (FNS MAKEINITGREET) previous date%: " 7-Feb-2021 18:10:42" {DSK}larry>ilisp>medley>sources>MAKEINITGREET.;1 ) (PRETTYCOMPRINT MAKEINITGREETCOMS) (RPAQQ MAKEINITGREETCOMS ((FNS MAKEINITGREET) (FILES (SOURCE) FILESETS) (FILES RENAMEFNS MAKEINIT DLFIXINIT XCL-PACKAGE CMLARRAY-SUPPORT VMEM))) (DEFINEQ (MAKEINITGREET [LAMBDA NIL (* ; "Edited 14-Feb-2021 09:56 by larry") (* ; "Edited 5-Dec-2017 15:26 by rmk:") (* ;; "") (* ;; " Updated Lisp version for big physical memory --bvm |11/3/87") (* ;; "") (XCL:RESTORE-PROFILE "INTERLISP") (* ; "Doesn't exist") (SETQ LITATOM-PACKAGE-CONVERSION-ENABLED NIL) (SETQ *REMOVE-INTERLISP-COMMENTS* NIL) (LOAD 'FILESETS) (* ; "rmk: VMEM has WORDARRAY") (* Versions are Lisp Microcode Bcpl) (BKSYSBUF " ") (DORENAME 'I) (DLFIXINIT (MAKEINIT '(39424 5682 11008) (MEDLEYDIR "loadups" "init.sysout" T) NIL DIRECTORIES DISPLAYFONTDIRECTORIES) (MEDLEYDIR "loadups" "init.dlinit" T]) ) (FILESLOAD (SOURCE) FILESETS) (FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT XCL-PACKAGE CMLARRAY-SUPPORT VMEM) (PUTPROPS MAKEINITGREET COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (596 1591 (MAKEINITGREET 606 . 1589))))) STOP \ No newline at end of file diff --git a/sources/MAKEINITGREET.LCOM b/sources/MAKEINITGREET.LCOM old mode 100755 new mode 100644 index 436d37d4..f7a020b6 Binary files a/sources/MAKEINITGREET.LCOM and b/sources/MAKEINITGREET.LCOM differ