1
0
mirror of synced 2026-01-12 00:42:56 +00:00

114 lines
3.4 KiB
Tcsh

#! /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