Main cleanup of new init process, scripts, etc (#243)

scripts/loadup-full.sh

@@ -10,9 +10,9 @@ scr="-sc 1024x768 -g 1042x790"
 
 rm -f ~/rem.cm
 
-./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/loadups/lisp.sysout
+./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/tmp/lisp.sysout
 
 
 echo ----- made ----
-ls -l loadups/full.sysout
+ls -l tmp/full.sysout
 echo ---------------

scripts/loadup-init.sh

@@ -14,5 +14,5 @@ mkdir -p "$MEDLEYDIR/tmp"
 ./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full
 
 echo ---- made ----
-ls -l tmp loadups/init*
+ls -l tmp
 echo --------------

scripts/loadup-lisp-from-mid.sh

@@ -10,9 +10,9 @@ fi
 scr="-sc 1024x768 -g 1042x790"
 
 
-./run-medley $scr -greet $MEDLEYDIR/sources/YREM.CM tmp/init-mid.sysout
+./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-LISP.CM tmp/init-mid.sysout
 
 echo ----- created: -------
-ls -l loadups/lisp.sysout
+ls -l tmp/lisp.sysout tmp/lisp.dribble
 echo ----------------------
 

scripts/loadup-mid-from-init.sh

@@ -10,7 +10,7 @@ fi
 mkdir -p "$MEDLEYDIR/tmp"
 scr="-sc 1024x768 -g 1042x790"
 
-./run-medley -prog ldeinit -greet $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout loadups/init.dlinit
+./run-medley -prog ldeinit -greet $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
 
 echo ---- made ----
 ls -l tmp/

sources/LOADUP-INIT.LISP

@@ -1,10 +1,7 @@
-(* "make init files")
+(* "make init files; this file is loaded as a 'greet' file by scripts/loadup-init.sh")
 
 (CNDIR (MEDLEYDIR "tmp"))
 (MOVD 'NILL 'PAGEFULLFN)
-(LOAD (MEDLEYDIR "sources" "MAKEINITGREET.LCOM"))
-(PROGN (DRIBBLE "makeinit.dribble")
-       (BKSYSBUF " ")
-       (MAKEINITGREET)
-       (DRIBBLE)
+(LOAD (MEDLEYDIR "sources" "MAKEINIT.LCOM"))
+(PROGN (MAKEINITGREET)
        (LOGOUT T))

sources/MAIKOINIT

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

sources/MAKEINITGREET

@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")