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?