Push to get new loadups for making an init, loadup a lisp and then a full

run-medley

@@ -80,10 +80,10 @@ while [ "$#" -ne 0 ]; do
             shift
             ;;
         "-full")
-            export LDESRCESYSOUT="$MEDLEYDIR/loadups/xfull35.sysout"
+            export LDESRCESYSOUT="$MEDLEYDIR/loadups/full.sysout"
             ;;
         "-lisp")
-            export LDESRCESYSOUT="$MEDLEYDIR/loadups/xlisp.sysout"
+            export LDESRCESYSOUT="$MEDLEYDIR/loadups/lisp.sysout"
             ;;
         "-*")
             passthrough_args="$passthrough_args $1 $2"

scripts/loadup-full.sh

@@ -7,8 +7,6 @@ if [ ! -f run-medley ] ; then
     exit 1 ;
 fi
 
-export LOADUPDIR=$MEDLEYDIR
-
-./run-medley -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/loadups/xlisp.sysout
+./run-medley -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/loadups/lisp.sysout
 
 

scripts/loadup-lisp-from-init.sh

@@ -0,0 +1,46 @@
+#!/bin/sh
+
+export MEDLEYDIR=`pwd`
+
+if [ ! -f run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+export LOADUPDIR="$MEDLEYDIR"
+mkdir -p "$MEDLEYDIR/tmp"
+echo ------ starting with ---
+ls -l tmp loadups/init*
+echo ----------
+rm -f ~/rem.cm ~/lisp.virtualmem
+
+cp sources/XREM.CM ~/rem.cm
+
+prog=../maiko/linux.x86_64/ldeinit
+if [ ! -x $prog ] ; then
+    echo $prog not found
+    prog=../maiko/darwin.aarch64/ldeinit
+fi
+
+$prog -sc 1000x900 -g 1000x900 loadups/init.dlinit
+echo init run
+
+cp ~/lisp.virtualmem tmp/init-mid.sysout
+echo '"' > ~/rem.cm
+
+echo '(PROGN(LOAD(QUOTE {DSK}'$MEDLEYDIR'/sources/LOADUP.LISP))(HARDRESET))' >> ~/rem.cm
+echo 'SHH(PROGN (IL:ENDLOADUP) (IL:SPECVARS . T) (IL:MAKESYS (QUOTE {DSK}'$MEDLEYDIR'/loadups/lisp.sysout)))' >> ~/rem.cm
+echo '(IL:LOGOUT)' >> ~/rem.cm
+
+echo '"' >> ~/rem.cm
+
+echo -----rem.cm
+cat ~/rem.cm
+echo -----
+./run-medley -greet $MEDLEYDIR/sources/LOADUP-GREET tmp/init-mid.sysout
+rm ~/rem.cm
+
+echo ----- created: -------
+ls -l loadups/lisp.sysout
+echo ----------------------
+

sources/LOADUP-GREET

@@ -0,0 +1 @@
+()

sources/LOADUP.LISP

@@ -1 +1,53 @@
-(SETQQ COMPILE.EXT LCOM)

(SETQ SYSFILES (UNION BOOTLOADEDFILES SYSFILES))

(SETQ BOOTLOADEDFILES)

(* "following files are really loaded earlier, this call to LOADUP just cleans up")
(LOADUP (QUOTE (ACODE MACHINEINDEPENDENT POSTLOADUP)))

(* "establish all package exports early")
(LOADUP (QUOTE (LISP-PACKAGE FASL-PACKAGE D-ASSEM-PACKAGE COMPILER-PACKAGE)))

(* "turn on FTP so that loadup will be faster")
(LOADUP (QUOTE (BSP DPUPFTP)))

(* "load FASL loader here, so we can load DFASLs earlier in loadup")
(LOADUP (QUOTE (ERROR-RUNTIME CMLARITH CONDITION-HIERARCHY CMLHASH D-ASSEM FASLOAD)))

(* "These are needed by any FASL files")
(LOADUP (QUOTE (DEFFER-RUNTIME CMLPRINT CLSTREAMS CMLSTRING CMLSYMBOL CMLTYPES CMLSEQCOMMON CMLSEQMAPPERS CMLPATHNAME CMLFILESYS)))

(* * * "FASL files may be loaded after this point" * * *)

(LOADUP (QUOTE (CMLDEFFER ERROR-RUNTIME-AFTER-FASL WRAPPERS)))

(* "early runtime support for Common Lisp and (temporarily) debugger")
(LOADUP (QUOTE (STACKFNS CMLMVS MACROS MACROAUX UNWINDMACROS)))

(LOADUP (QUOTE (COMMON XCLC-RUNTIME CMLTYPES CL-ERROR)))

(LOADUP (QUOTE (AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN LOADFNS DMISC DIRECTORY SPELLFILE FILEPKG RESOURCE)))

(* "The Byte Compiler (DLAP, BYTECOMPILER, COMPILER) used to be here.  Moved after
    XCL Compiler so that one byte compiler init will work.  JDS 10/11/89")

(LOADUP (QUOTE (HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD)))

(LOADUP (QUOTE (GAINSPACE COROUTINE ARGLIST ASKUSER SYSPRETTY COMMON COMPARE)))

(DWIM (QUOTE C))

(* "Kernel Common Lisp files")
(LOADUP (QUOTE (CMLSTEP CMLDOC CMLPARSE CMLSETF CMLPRED CMLREAD WALKER CMLSEQFINDER CMLSEQMODIFY CMLSORT DEFSTRUCT CMLMISCIO CMLCOMPILE CMLDESTRUCT CL-ERROR CMLFORMAT CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES)))

(LOADUP (QUOTE (PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT)))

(LOADUP (QUOTE (ADDARITH)))

(LOADUP (QUOTE (CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON LOGOW PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE CMLARRAYINSPECTOR EDITINTERFACE TTYIN)))

(LOADUP (QUOTE (BREAK-AND-TRACE)))

(LOADUP (QUOTE (FASDUMP XCL-COMPILER ADVISE)))

(* "the bytecompiler and Interlisp compiler interface functions")
(LOADUP (QUOTE (DLAP BYTECOMPILER COMPILE)))


(LOADUP (QUOTE (DISKDLION DOVEINPUTOUTPUT DOVEDISK DOVEDISPLAY DOVEMISC DOVEETHER DOVEFLOPPY LOCALFILE DSKDISPLAY 10MBDRIVER MAIKOETHER LLNS TRSERVER SPP COURIER NSPRINT CLEARINGHOUSE NSFILING HARDCOPY INTERPRESS FLOPPY IDLER ICONW FREEMENU SEDIT)))

(LOADUP (QUOTE (DSK UFS UFSCALLC MAIKOBITBLT)))

(LOADUP (QUOTE (TIME)))

(LOADUP (QUOTE (XCL-EXTRAS)))

(* "CMLPACKAGE pushes onto INSPECTMACROS")
(LOADUP (QUOTE (CMLPACKAGE)))

(* "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")
(LOADUP (QUOTE (CMLSMARTARGS)))

(LOADUP (QUOTE (IMPLICIT-KEY-HASH CLOSURE-CACHE)))

(* "Already enabled, but this time fixes tables that weren't defined in the init")
(PACKAGE-ENABLE)

STOP
+(SETQQ COMPILE.EXT LCOM)
+(SETQ SYSFILES (UNION BOOTLOADEDFILES SYSFILES))
+(SETQ BOOTLOADEDFILES)
+(* ;; "following files are really loaded earlier, this call to LOADUP just cleans up")
+(LOADUP (QUOTE (ACODE MACHINEINDEPENDENT POSTLOADUP)))
+(* ;; "establish all package exports early")
+(LOADUP (QUOTE (LISP-PACKAGE FASL-PACKAGE D-ASSEM-PACKAGE COMPILER-PACKAGE)))
+(* ;; "load FASL loader here, so we can load DFASLs earlier in loadup")
+(LOADUP (QUOTE (ERROR-RUNTIME CMLARITH CONDITION-HIERARCHY CMLHASH D-ASSEM FASLOAD)))
+(* ;; "These are needed by any FASL files")
+(LOADUP (QUOTE (DEFFER-RUNTIME CMLPRINT CLSTREAMS CMLSTRING CMLSYMBOL CMLTYPES CMLSEQCOMMON CMLSEQMAPPERS CMLPATHNAME CMLFILESYS)))
+(* ;;; "* 'FASL files may be loaded after this point' * * *")
+(LOADUP (QUOTE (CMLDEFFER ERROR-RUNTIME-AFTER-FASL WRAPPERS)))
+(* ;; "early runtime support for Common Lisp and (temporarily) debugger")
+(LOADUP (QUOTE (STACKFNS CMLMVS MACROS MACROAUX UNWINDMACROS)))
+(LOADUP (QUOTE (COMMON XCLC-RUNTIME CMLTYPES CL-ERROR)))
+(LOADUP (QUOTE (AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN LOADFNS 
+DMISC DIRECTORY SPELLFILE FILEPKG RESOURCE)))
+(* ;; "needed for makesys")
+(LOADUP (QUOTE (MOD44IO)))
+(* ;; 
+"The Byte Compiler (DLAP, BYTECOMPILER, COMPILER) used to be here.  Moved after    XCL Compiler so that one byte compiler init will work.  JDS 10/11/89"
+)
+(LOADUP (QUOTE (HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD)))
+(LOADUP (QUOTE (GAINSPACE COROUTINE ARGLIST ASKUSER SYSPRETTY COMMON COMPARE)))
+(DWIM (QUOTE C))
+(* ;; "Kernel Common Lisp files")
+(LOADUP (QUOTE (CMLSTEP CMLDOC CMLPARSE CMLSETF CMLPRED CMLREAD WALKER CMLSEQFINDER CMLSEQMODIFY CMLSORT DEFSTRUCT CMLMISCIO CMLCOMPILE CMLDESTRUCT CL-ERROR CMLFORMAT CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES)))
+(LOADUP (QUOTE (PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT)))
+(LOADUP (QUOTE (ADDARITH)))
+(LOADUP (QUOTE (CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE CMLARRAYINSPECTOR EDITINTERFACE TTYIN)))
+(LOADUP (QUOTE (BREAK-AND-TRACE)))
+(LOADUP (QUOTE (FASDUMP XCL-COMPILER ADVISE)))
+(* ;; "the bytecompiler and Interlisp compiler interface functions")
+(LOADUP (QUOTE (DLAP BYTECOMPILER COMPILE)))
+(LOADUP (QUOTE (HARDCOPY LOGOW IDLER ICONW FREEMENU SEDIT)))
+(CLOSEW (LOGOW)) (MOVD 'NILL 'LOGOW)
+(LOADUP (QUOTE (DSK UFS UFSCALLC MAIKOBITBLT)))
+(LOADUP (QUOTE (TIME)))
+(LOADUP (QUOTE (XCL-EXTRAS)))
+(* "CMLPACKAGE pushes onto INSPECTMACROS")
+(LOADUP (QUOTE (CMLPACKAGE)))
+(* ;; 
+"Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs"
+)
+(LOADUP (QUOTE (CMLSMARTARGS)))
+(LOADUP (QUOTE (IMPLICIT-KEY-HASH CLOSURE-CACHE)))
+(* ;; "Already enabled, but this time fixes tables that weren't defined in the init")
+ (PACKAGE-ENABLE)
+ (* ;; "Additional stuff that should be folded into original definitions")
+  (LOADUP (QUOTE (LOADUP-LISP)))
+  STOP
+  

sources/MAIKOINIT

@@ -0,0 +1,7 @@
+
+(RPAQQ SI::*CLOSURE-CACHE-ENABLED* NIL)
+
+(QUOTE (\\TEDIT.BLTCHAR \\MAIKO.PUNTBLTCHAR SI::*CLOSURE-CACHE* XCL::*DELETED-IMPLICIT-HASH-SLOT* ))
+
+(PUTPROPS MAIKOINIT COPYRIGHT ("Venue" 1990))
+STOP

sources/XREM.CM

@@ -0,0 +1,8 @@
+"
+(SETQ SI::*CLOSURE-CACHE-ENABLED* NIL)
+(QUOTE (\\TEDIT.BLTCHAR \\MAIKO.PUNTBLTCHAR SI::*CLOSURE-CACHE* XCL::*DELETED-IMPLICIT-HASH-SLOT* ))
+(MOVD? (QUOTE NILL) (QUOTE PROMPTPRINT))
+(MOVD? (QUOTE NILL) (QUOTE CURSORP))
+(MOVD? (QUOTE NILL) (QUOTE CHANGEBACKGROUNDBORDER))
+(LOGOUT)
+"