174 lines
4.8 KiB
Plaintext
174 lines
4.8 KiB
Plaintext
Notes on making a Sun Loadup
|
|
|
|
update Jan. 25, 1990 by osamu
|
|
|
|
In a medley sysout on cottonmouth do the following:
|
|
|
|
;;CONN {DSK}/cottonmouth/users/medley/sources/
|
|
|
|
-- Make sure all the files are current. There are SUN specific changes to
|
|
-- the following files:
|
|
|
|
-- FILESETS: took PUP and LEAF out of 1LISPSET
|
|
|
|
(CL:IN-PACKAGE "IL")
|
|
|
|
-- make copyfiles go faster
|
|
|
|
(SETQ COPYFILESENUMERATE NIL)
|
|
|
|
(COPYFILES '{ERIS}<LISPCORE>SOURCES>*.*
|
|
'{DSK}/cottonmouth/USERS/MEDLEY/SOURCES/ '(>A))
|
|
|
|
(COPYFILE '{ERIS}<LISPCORE>SUNLOADUP>FILESETS 'FILESETS)
|
|
|
|
(COPYFILE '{ERIS}<LISPCORE>SUNLOADUP>LOADUP.LISP 'LOADUP.LISP)
|
|
|
|
(COPYFILE '{ERIS}<LISPCORE>SUNLOADUP>FIX-ETHER.LCOM 'FIX-ETHER.LCOM)
|
|
|
|
(COPYFILES '{ERIS}<LISPCORE>SUNLOADUP>MAIKOLOADUPFNS.* '{DSK}/cottonmouth/USERS/MEDLEY/SOURCES/ '(>A))
|
|
|
|
|
|
-- You will need the instructions on your local directory.
|
|
|
|
;;;(COPYFILE '{ERIS}<LISPCORE>SUNLOADUP>HOWTO-LOADUPSUN.TXT '{DSK}HOWTO-LOADUP-SUNLISP.TXT)
|
|
|
|
-- set the directories so you can find all the proper files...
|
|
|
|
;;;(SETQ DIRECTORIES '(
|
|
;;;"{DSK}/home2/will/sybalsky/lispcore/Sources/"
|
|
;;; "{DSK}/home2/will/sybalsky/lispcore/library/"
|
|
;;; "{DSK}/home2/will/sybalsky/lispcore/internal/library/" ;;;"{dsk}/home2/will/sybalsky/lispcore/sunloadup/"))
|
|
|
|
(DRIBBLE "{DSK}SUNLOADUP/LOADUP.LOG")
|
|
|
|
;(SETQ DIRECTORIES '(
|
|
;"{DSK}~/SUNLOADUP/lispcore/Sources/"
|
|
; "{DSK}~/SUNLOADUP/lispcore/library/"
|
|
; "{DSK}~/SUNLOADUP/lispcore/internal/library/" "{dsk}~/SUNLOADUP/lispcore/sunloadup/"))
|
|
|
|
(SETQ DIRECTORIES '(
|
|
"{DSK}/users/sybalsky/lispcore/Sources/"
|
|
"{DSK}/users/sybalsky/lispcore/library/"
|
|
"{DSK}/users/sybalsky/lispcore/internal/library/" "{dsk}/users/sybalsky/lispcore/sunloadup/"))
|
|
|
|
|
|
--you really want the source code for this
|
|
|
|
(LOAD 'FILESETS)
|
|
|
|
(FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT CMLARRAY-SUPPORT)
|
|
(LOAD "{DSK}/users/sybalsky/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}/home2/will/sybalsky/lispcore/Sources/ {dsk}/home2/will/sybalsky/lispcore/sunloadup/ ))
|
|
; '{DSK}INIT.DLINIT
|
|
; '{dsk}/medley/project4/venue/LISPDLION.DB
|
|
; 300)
|
|
; (COPYFILE '{eris}<lispcore>sunloadup>XREM.CM '{DSK}XREM.CM)
|
|
; (COPYFILE '{eris}<lispcore>sunloadup>LOADUP-REM.CM '{DSK}LOADUP-REM.CM)
|
|
; (LOGOUT T)
|
|
;)
|
|
(PROGN
|
|
(DORENAME 'I)
|
|
(DLFIXINIT
|
|
(MAKEINIT '(11500Q 13062Q 25400Q)
|
|
NIL NIL
|
|
'({DSK}/users/sybalsky/lispcore/Sources/ {dsk}/users/sybalsky/lispcore/sunloadup/ ))
|
|
'{DSK}INIT.DLINIT
|
|
'{dsk}/users/sybalsky/lispcore/next/LISPDLION.DB
|
|
300)
|
|
(COPYFILE '{dsk}/users/sybalsky/lispcore/sunloadup/XREM.CM
|
|
'{DSK}SUNLOADUP/XREM.CM)
|
|
(COPYFILE '{dsk}/users/sybalsky/lispcore/sunloadup/LOADUP-REM.CM
|
|
'{DSK}SUNLOADUP/LOADUP-REM.CM)
|
|
(DATE)
|
|
(DRIBBLE)
|
|
(LOGOUT T)
|
|
)
|
|
|
|
-- Now, if you are on the "loadup" machine, exit medley and go to another
|
|
-- machine. RLOGIN to the loadup machine and do the following:
|
|
|
|
-- Build an init-specific lde note: you must have a directory under
|
|
-- the maiko directory called init.ARCH where ARCH is the architecture
|
|
-- of the machine you will run the lde on. On a sun4, it would be init.sparc.
|
|
|
|
cd ~/maiko/bin
|
|
makeinitlde -e
|
|
|
|
-- connect back to your home directory and make a link to the lde and
|
|
-- ldeether (fill in yourname and machine os and arch in the proper
|
|
-- slots below
|
|
|
|
cd ~
|
|
ln -s /users/YOURNAME/maiko/init.ARCH/lde
|
|
ln -s /users/YOURNAME/maiko/init.ARCH/ldeether
|
|
|
|
-- make sure you don't have LDEDESTSYSOUT set as you want the sysout on your home
|
|
-- directory.
|
|
|
|
-- You will need dbxinit.txt available
|
|
|
|
-- YOU MUST USE A FRESH COPY OF XREM.CM EVERY TIME YOU TRY THIS AS IT
|
|
-- GETS SMASHED AT STARTUP
|
|
|
|
cp ~/XREM.CM ~/REM.CM
|
|
|
|
-- start lde under dbx
|
|
|
|
-- init lde can't treat 'LDEDESTSYSOUT'
|
|
unsetenv LDEDESTSYSOUT
|
|
|
|
dbx lde
|
|
|
|
-- load the dbxinit
|
|
|
|
source /users/maiko/working/bin/dbxinit.txt
|
|
|
|
-- now set up to stop on error (before URAID, which loses 'cause
|
|
-- it can't find the keyboard.)
|
|
|
|
err
|
|
|
|
run ~/INIT.DLINIT -INIT -NF
|
|
|
|
-- this is going to run and eventually log itself out. when dbx returns, quit
|
|
-- from dbx and presto! You've built the beginnings of a loadup.
|
|
|
|
---
|
|
|
|
-- go to the loadup machine and connect to the place where you normally
|
|
-- get your lde from
|
|
|
|
cd ~/maiko/sunos4.sparc/
|
|
|
|
-- Get the new REM.CM: (YOU MUST DO THIS EVERYTIME AS
|
|
-- REM.CM gets wasted on startup!!)
|
|
|
|
cp ~/LOADUP-REM.CM ~/REM.CM
|
|
ldeether
|
|
|
|
-- Now this is going to march happily through loading files. When it turns
|
|
-- on the windowworld, you may have to hit the space bar to make it continue.
|
|
|
|
-- I don't know how to make PUP and LEAF load at this point, but I'm working
|
|
-- on it.
|
|
|
|
-- I am also working on integrating the changes to the emulator with the latest
|
|
-- stuff.
|
|
|
|
-- closure caching is still off.
|
|
|
|
-- Questions or comments?
|