#! /bin/csh -f
#
#	automatic loadup procedure thru to FULL.SYSOUT
#
#	Bootstrapping from 32-MB sysout version to 64- or
#	larger sysouts.
#
######################################################################
#
#
#  Things to watch for:
#
#	* LOADUP.LISP sets XCLC::*HOST-ARCHITECTURE*, which must match
#	  what we want it to be in the new sysout.
#
#	* RDSYS needs to get re-built whenevver LLPARAMS is changed,
#	  so the addresses of things like MDS Type Table track.
#
#	* SUNFONT contains directory names for font directories,
#	  and may need to be updated if you move this directory.
#
#	* I had to define a function BIG-VMEM-CODE ( ( a b ) a), 
#	  in order to compile LLKEY when making a fix...
#
#	* PARC's version of FONT has *USEOLDDIRECTORIES* = NIL,
#	  which works WRONG with our font-directory layout.
#
#########################################################################
#
#	VARIABLES IN THIS FILE AND WHAT THEY MEAN...
#
#	LDE	The lde to be run in first phase.
#	MAIKO	Directory the lde is in.
#	INITLDE	path to ldeinit for step 2
#
#######################################################################

#set LDE			= $HOME/maiko/sunos4.sparc/lde
set MAIKO = ~/maiko-9912/sunos5.sparc
set LOADDIR = ~/lispcore
set LDE			= $MAIKO/ldex-3.5
set LDE2			= $MAIKO/ldex-3.51
set LDEPATH = $MAIKO
set INITLDE = $MAIKO/ldeinit
#set INITLDEPATH		= $HOME/maiko/init.sgi
set INITLDEPATH = ~/maiko-9912/init.sparc
#set FULL_SYSOUT		= /usr/local/sysouts/FULL.SYSOUT
#set FULL_SYSOUT = $HOME/FULL.SYSOUT # FULL.SYSOUT
set FULL_SYSOUT = /project/medley3.5/basics/full.sysout
set FIRST_REM_CM	= $LOADDIR/sunloadup/XREM.CM
set SECOND_REM_CM	= $LOADDIR/sunloadup/LOADFULL-REM.CM
#set SECOND_REM_CM = $HOME/sunloadup/LOADBIGFULLFROMLISP-REM.CM
#

#########################################################
#				   			#
#	   S T E P   1		   			#
#				   			#
#  Using an existing sysout and emulator,		#
#  create the new INIT.SYSOUT and INIT.DLINIT.		#
#							#
#  (INIT.DLINIT has the dlion microcode spliced in.)	#
#							#
#########################################################

#first create INIT.SYSOUT and INIT.DLINIT
set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
setenv LDEINIT	~/lispcore/sunloadup/INIT.MAKEBIG
rm ~/REM.CM
$LDE $FULL_SYSOUT



#########################################################
#				   			#
#	   S T E P   2		   			#
#				   			#
#  Using the ldeinit emulator (which has special sup-	#
#  port for an incomplete lisp world) boot INIT.DLINIT	#
#  and LOGOUT.  This runs the MAKEINIT.EXPRESSIONS for	#
#  a bunch of files, which set up much of the		#
#  infrastructure.					#
#							#
#########################################################

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 $LOADDIR/INIT.DLINIT -INIT 


#########################################################
#				   			#
#	   S T E P   3		   			#
#				   			#
#  Start the emulator for the new version, and fire	#
#  up the lisp.virtualmem from step 2.  Load in the	#
#  rest of the system, and do a MAKESYS to create the	#
#  LISP.SYSOUT.						#
#							#
#########################################################

set path=(~ /bin /usr/bin /usr/ucb /etc /usr/etc)
set path=( $LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc )
cp $SECOND_REM_CM ~/REM.CM
$LDE2 ~/lisp.virtualmem