starting work on makeinit
This commit is contained in:
Larry Masinter
Binary file not shown.
@@ -1,34 +0,0 @@
|
||||
;
|
||||
; Run MAKEINIT on SUN
|
||||
; '90/02/09 Osamu
|
||||
; '90.05/23 change DIRECTORIES
|
||||
;
|
||||
(CL:IN-PACKAGE "IL")
|
||||
(DRIBBLE "{DSK}SUNLOADUP/LOADUP.LOG")
|
||||
(SETQ DIRECTORIES '(
|
||||
"{DSK}/usr/local/lde/lispcore/sources/"
|
||||
"{DSK}/usr/local/lde/lispcore/library/"
|
||||
"{DSK}/usr/local/lde/lispcore/internal/library/"
|
||||
"{DSK}/python1/fuji/sunloadup/"
|
||||
"{dsk}/users/sybalsky/lispcore/sunloadup/" ))
|
||||
(LOAD "{dsk}SUNLOADUP/FILESETS")
|
||||
(FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT CMLARRAY-SUPPORT)
|
||||
(LOAD "{DSK}SUNLOADUP/FASTINIT.DFASL")
|
||||
;; turn off idle or you get stuck.
|
||||
(IDLE.SET.OPTION 'TIMEOUT T)
|
||||
;;and start making the init. This takes about 2.5 hrs.
|
||||
(PROGN
|
||||
(DORENAME 'I)
|
||||
(DLFIXINIT
|
||||
(MAKEINIT '(11500Q 13062Q 25400Q)
|
||||
NIL NIL
|
||||
'({DSK}/usr/local/lde/lispcore/sources/
|
||||
{dsk}/users/osamu/sunloadup/
|
||||
{DSK}/python1/fuji/sunloadup/ ))
|
||||
'{DSK}INIT.DLINIT
|
||||
'{dsk}/python1/fuji/sunloadup/LISPDLION.DB
|
||||
300)
|
||||
(DATE)
|
||||
(DRIBBLE)
|
||||
(LOGOUT T)
|
||||
)
|
||||
@@ -1,6 +0,0 @@
|
||||
"
|
||||
(SETQQ MAKESYSNAME LISPCORE)
|
||||
(PROGN (LOAD (QUOTE {dsk}SUNLOADUP/LOADUP.LISP))(HARDRESET))
|
||||
SHH(PROGN (IL:ENDLOADUP) (IL:SPECVARS . T) (IL:MAKESYS 'LISP.SYSOUT))
|
||||
"
|
||||
|
||||
@@ -1,85 +0,0 @@
|
||||
(SETQQ COMPILE.EXT LCOM)
|
||||
(SETQ COMPILER *HOST-ARCHITECTURE* (QUOTE ( 3-BYTE)))
|
||||
(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)
|
||||
|
||||
(* "The ethernet eventfn was removed in the early INIT building, to avoid trouble with turning on the ENet in ldeinit. Put it back, now:")
|
||||
(SETQ \MACHINETYPE 3)
|
||||
(MOVD (QUOTE \ETHEREVENTFN-) (QUOTE \ETHEREVENTFN))
|
||||
(MOVD NIL (QUOTE \ETHEREVENTFN-))
|
||||
(\NSINIT)
|
||||
(RESTART.ETHER)
|
||||
|
||||
STOP
|
||||
@@ -1,38 +0,0 @@
|
||||
#! /bin/csh -f
|
||||
#
|
||||
# automatic loadup procedure thru to FULL.SYSOUT
|
||||
#
|
||||
#set LDE = $HOME/maiko/sunos4.sparc/lde
|
||||
set LDE = $HOME/maiko/sunos4.sparc/ldeether
|
||||
set LDEPATH = $HOME/maiko/sunos4.sparc
|
||||
set INITLDE = $HOME/maiko/sunos4.sparc/ldeinit
|
||||
set INITLDEPATH = $HOME/maiko/init.sparc
|
||||
set FULL_SYSOUT = /usr/local/sysouts/FULL.SYSOUT
|
||||
set FIRST_REM_CM = $HOME/SUNLOADUP/XREM.CM
|
||||
set SECOND_REM_CM = $HOME/SUNLOADUP/LOADFULL-REM.CM
|
||||
#
|
||||
|
||||
#first create INIT.SYSOUT and INIT.DLINIT
|
||||
set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
setenv LDEINIT $HOME/SUNLOADUP/INIT.MAKEINITFULL
|
||||
rm ~/REM.CM
|
||||
$LDE $FULL_SYSOUT
|
||||
#ldeether $FULL_SYSOUT
|
||||
|
||||
# Boot INIT.DLINIT and LOGOUT.
|
||||
set path=($INITLDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
unsetenv LDEDESTSYSOUT
|
||||
cp $FIRST_REM_CM ~/REM.CM
|
||||
# save your lisp.virtualmem
|
||||
if( -e ~/lisp.virtualmem ) then
|
||||
mv ~/lisp.virtualmem ~/lisp.virtualmem.save
|
||||
endif
|
||||
$INITLDE ~/INIT.DLINIT -INIT
|
||||
|
||||
# Finally boot ~/lisp.virtualmem created by previous LOGOUT,
|
||||
# and MAKESYS LISP.SYSOUT
|
||||
set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
cp $SECOND_REM_CM ~/REM.CM
|
||||
$LDE ~/lisp.virtualmem
|
||||
|
||||
#~/ldemulti3 ~/lisp.virtualmem -NF
|
||||
@@ -1,38 +0,0 @@
|
||||
#! /bin/csh -f
|
||||
#
|
||||
# automatic loadup procedure
|
||||
#
|
||||
#set LDE = $HOME/maiko/sunos4.sparc/lde
|
||||
set LDE = $HOME/maiko/sunos4.sparc/ldeether
|
||||
set LDEPATH = $HOME
|
||||
set INITLDE = $HOME/maiko/sunos4.sparc/ldeinit
|
||||
set INITLDEPATH = $HOME/maiko/init.sparc
|
||||
set FULL_SYSOUT = $HOME/sysouts/FULL.SYSOUT
|
||||
set FIRST_REM_CM = $HOME/SUNLOADUP/XREM.CM
|
||||
set SECOND_REM_CM = $HOME/SUNLOADUP/LOADUP-REM.CM
|
||||
#
|
||||
|
||||
#first create INIT.SYSOUT and INIT.DLINIT
|
||||
set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
setenv LDEINIT $HOME/SUNLOADUP/INIT.MAKEINIT
|
||||
rm ~/REM.CM
|
||||
#$LDE $FULL_SYSOUT
|
||||
ldeether $FULL_SYSOUT
|
||||
|
||||
# Boot INIT.DLINIT and LOGOUT.
|
||||
set path=($INITLDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
unsetenv LDEDESTSYSOUT
|
||||
cp $FIRST_REM_CM ~/REM.CM
|
||||
# save your lisp.virtualmem
|
||||
if( -e ~/lisp.virtualmem ) then
|
||||
mv ~/lisp.virtualmem ~/lisp.virtualmem.save
|
||||
endif
|
||||
$INITLDE ~/INIT.DLINIT -INIT
|
||||
|
||||
# Finally boot ~/lisp.virtualmem created by previous LOGOUT,
|
||||
# and MAKESYS LISP.SYSOUT
|
||||
set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
cp $SECOND_REM_CM ~/REM.CM
|
||||
$LDE ~/lisp.virtualmem
|
||||
|
||||
#~/ldemulti3 ~/lisp.virtualmem -NF
|
||||
@@ -1,31 +0,0 @@
|
||||
#! /bin/csh -f
|
||||
#
|
||||
# automatic loadup procedure
|
||||
# run 2nd and 3rd step for loadup
|
||||
#
|
||||
set LDE = $HOME/maiko/sunos4.sparc/lde
|
||||
set LDEPATH = $HOME/maiko/sunos4.sparc
|
||||
set INITLDE = $HOME/maiko/init.sparc/lde
|
||||
set INITLDEPATH = $HOME/maiko/init.sparc
|
||||
set FULL_SYSOUT = /python1/fuji/sysouts/FULL.SYSOUT
|
||||
set FIRST_REM_CM = $HOME/SUNLOADUP/XREM.CM
|
||||
set SECOND_REM_CM = $HOME/SUNLOADUP/LOADUP-REM.CM
|
||||
#
|
||||
|
||||
#first create INIT.SYSOUT and INIT.DLINIT
|
||||
|
||||
# Boot INIT.DLINIT and LOGOUT.
|
||||
set path=($INITLDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
unsetenv LDEDESTSYSOUT
|
||||
cp $FIRST_REM_CM ~/REM.CM
|
||||
# save your lisp.virtualmem
|
||||
if( -e ~/lisp.virtualmem ) then
|
||||
mv ~/lisp.virtualmem ~/lisp.virtualmem.save
|
||||
endif
|
||||
$INITLDE ~/INIT.DLINIT -INIT
|
||||
|
||||
# Finally boot ~/lisp.virtualmem created by previous LOGOUT,
|
||||
# and MAKESYS LISP.SYSOUT
|
||||
set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
|
||||
cp $SECOND_REM_CM ~/REM.CM
|
||||
$LDE ~/lisp.virtualmem
|
||||
Reference in New Issue
Block a user