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)
+(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)
+"