head	1.16;
access;
symbols;
locks
	ram:1.16; strict;
comment	@# @;


1.16
date	93.08.03.11.08.42;	author ram;	state Exp;
branches;
next	1.15;

1.15
date	92.09.08.22.28.09;	author wlott;	state Exp;
branches;
next	1.14;

1.14
date	92.03.24.00.42.35;	author wlott;	state Exp;
branches;
next	1.13;

1.13
date	92.03.23.22.55.04;	author wlott;	state Exp;
branches;
next	1.12;

1.12
date	92.03.21.19.12.43;	author wlott;	state Exp;
branches;
next	1.11;

1.11
date	92.02.24.19.01.06;	author ram;	state Exp;
branches;
next	1.10;

1.10
date	92.02.18.19.09.18;	author ram;	state Exp;
branches;
next	1.9;

1.9
date	91.11.26.22.13.21;	author wlott;	state Exp;
branches;
next	1.8;

1.8
date	91.11.07.22.58.41;	author wlott;	state Exp;
branches;
next	1.7;

1.7
date	91.10.03.13.55.08;	author ram;	state Exp;
branches;
next	1.6;

1.6
date	91.07.16.17.36.59;	author chiles;	state Exp;
branches;
next	1.5;

1.5
date	91.06.05.14.05.45;	author ram;	state Exp;
branches;
next	1.4;

1.4
date	91.04.20.22.44.05;	author wlott;	state Exp;
branches;
next	1.3;

1.3
date	91.03.11.15.47.55;	author ram;	state Exp;
branches;
next	1.2;

1.2
date	91.03.11.01.11.31;	author ram;	state Exp;
branches;
next	1.1;

1.1
date	91.03.08.19.40.51;	author ram;	state Exp;
branches;
next	;


desc
@Script to make a core.
@


1.16
log
@Changed LISP: search-list to TARGET:
@
text
@#!/bin/csh -f
#
#  mk-lisp -- script for building full lisp cores.
#
# $Header: mk-lisp,v 1.15 92/09/08 22:28:09 ram Locked $

if ($#argv) then
    if ($argv[1] == "-now") then
	set later = 0
	shift
    else
	set later = 1
    endif
else
    set later = 1
endif

if ($later) then
    set delay = (205 45 15 0)
    set msg = ("in 5 minutes" "in 1 minute" "in 15 seconds" "now")
  nextmsg:
    foreach name (`who | sed -e 's/\([^ ]*\)  *\([^ ]*\) .*/\1:\2/'`)
	echo Building core $msg[1] | write `echo $name | sed -e 's/:/ /'`
    end
    sleep $delay[1]
    shift delay
    shift msg
    if ($#delay) goto nextmsg
endif

if ($#argv) then
	set subdir = $argv[1]
	set features = ($argv[2-])
else
	set subdir = alpha
	set features = ()
endif

if $?CMUCL_ROOT then
	set root = $CMUCL_ROOT
else
	set root = /afs/cs/project/clisp
endif

set dest = $root/build/@@sys/$subdir
set src = $root/src/$subdir

if (-e $dest/lisp/kernel.core) then
	set core = $dest/lisp/kernel.core
else
	if (-e /usr/tmp/kernel.core) then
		set core = /usr/tmp/kernel.core
	else
		echo Can\'t find the kernel.core
	endif
endif

if (-e $src/VERSION) then
	set version = `cat $src/VERSION`
else
	set version = `/bin/date | awk '{print $3 "-" $2 "-" $6}'`
endif

if (-e $src/FEATURES) then
	set features = ($features `cat $src/FEATURES`)
endif

echo Building lisp.core version $version from the \`\`$subdir\'\' subdir.
echo "Features: $features"

$dest/lisp/lisp -core $core << EOF
(setf *features* (list* $features *features*))
(setf (search-list "target:") '("$dest/" "$src/"))
(in-package "USER")
(load (open "target:tools/worldload.lisp"))
$version
(quit)
EOF

echo 
@


1.15
log
@Changed to use new startup code.
@
text
@d5 1
a5 1
# $Header: mk-lisp,v 1.14 92/03/24 00:42:35 wlott Locked $
d73 1
a73 1
(setf (search-list "lisp:") '("$dest/" "$src/"))
d75 1
a75 1
(load (open "lisp:tools/worldload.lisp"))
@


1.14
log
@Removed the ``-x'' that I had added for debugging.
@
text
@d5 1
a5 1
# $Header: mk-lisp,v 1.13 92/03/23 22:55:04 wlott Locked $
d48 2
a49 2
if (-e $dest/ldb/kernel.core) then
	set core = $dest/ldb/kernel.core
a67 15
# set a bunch of random env vars to fill up space.
setenv FOO XXXXXXXXXXXXXXXX
setenv FOO $FOO$FOO$FOO$FOO
setenv FOO $FOO$FOO$FOO$FOO
setenv BAR $FOO
setenv BAZ $FOO
setenv ACK $FOO
setenv RAZ $FOO
setenv GORP $FOO
setenv BAR2 $FOO
setenv BAZ2 $FOO
setenv ACK2 $FOO
setenv RAZ2 $FOO
setenv GORP2 $FOO

d71 1
a71 1
$dest/ldb/ldb -core $core << EOF
@


1.13
log
@Spiffed up warning stuff.  It now warns at 5 minutes, 1 minute, 15 seconds,
and immediately prior to building the core.  And the times it tells you are
the times until the build, not until the next message.
@
text
@d1 1
a1 1
#!/bin/csh -fx
d5 1
a5 1
# $Header: mk-lisp,v 1.12 92/03/21 19:12:43 wlott Locked $
@


1.12
log
@Pause for 5 minutes before actually building the core to allow people to
clear out.  This can be overridden by supplying ``-now'' as the first
argument.
@
text
@d1 1
a1 1
#!/bin/csh -f
d5 1
a5 1
# $Header: mk-lisp,v 1.11 92/02/24 19:01:06 wlott Locked $
d19 5
a23 7
    foreach minutes (5 1 0)
	foreach name (`who | sed -e 's/\([^ ]*\)  *\([^ ]*\) .*/\1:\2/'`)
	    echo Building core in $minutes minutes | \
		write `echo $name | sed -e 's/:/ /'`
	end
	@@ seconds = $minutes * 60
	sleep $seconds
d25 4
@


1.11
log
@Oops.  Fix spelling.
@
text
@d5 23
a27 1
# $Header: mk-lisp,v 1.10 92/02/18 19:09:18 ram Locked $
@


1.10
log
@Flushed -x flag, and made print the features list.
Changed to look for CMUCL_ROOT env variable, and if defined use it instead of
/afs/cs/project/clisp.
@
text
@d5 1
a5 1
# $Header: mk-lisp,v 1.9 91/11/26 22:13:21 ram Locked $
d18 1
a18 1
	set root = /afs/cs/projcet/clisp
@


1.9
log
@Set lisp: to include both the build and the source areas.
@
text
@d1 1
a1 1
#!/bin/csh -fx
d5 1
a5 1
# $Header: mk-lisp,v 1.8 91/11/07 22:58:41 wlott Locked $
d15 5
a19 2
set dest = /afs/cs/project/clisp/build/@@sys/$subdir
set src = /afs/cs/project/clisp/src/$subdir
d21 3
d59 2
a60 1
echo Building lisp.core dated $version from the \`\`$subdir\'\' subdir.
@


1.8
log
@Fixed to use new directory structure.
If $target/FEATURES exists, add it's contents to *features*.
@
text
@d1 1
a1 1
#!/bin/csh -f
d5 1
a5 1
# $Header: mk-lisp,v 1.7 91/10/03 13:55:08 wlott Locked $
d15 2
a16 1
set lisp = /afs/cs/project/clisp/build/@@sys/$subdir
d18 2
a19 2
if (-e $lisp/ldb/kernel.core) then
	set core = $lisp/ldb/kernel.core
d28 2
a29 2
if (-e $lisp/VERSION) then
	set version = `cat $lisp/VERSION`
d34 2
a35 2
if (-e $lisp/FEATURES) then
	set features = ($features `cat $lisp/FEATURES`)
d55 1
a55 1
$lisp/ldb/ldb -core $core << EOF
d57 1
a57 1
(setf (search-list "lisp:") '("$lisp/"))
@


1.7
log
@Increase the size of the environment that we allocate.
@
text
@d5 1
a5 1
# $Header: mk-lisp,v 1.6 91/07/16 17:36:59 ram Locked $
d15 1
a15 1
set lisp = /afs/cs/project/clisp/new-compiler/@@sys/$subdir
d23 1
a23 1
		echo 'Can\'t find the kernel.core'
d33 4
d55 1
a55 1
(setf *features* (append '($features) *features*))
@


1.6
log
@
Fixed version date string.
@
text
@d5 1
a5 1
# $Header: mk-lisp,v 1.5 91/06/05 14:05:45 chiles Locked $
d42 5
@


1.5
log
@Changed to use target/VERSION instead of the date if it exists, and to only
shove down the version once, since that is what worldload now expects.
@
text
@d5 1
a5 1
# $Header: mk-lisp,v 1.4 91/04/20 22:44:05 ram Locked $
d30 1
a30 1
	set version = `/bin/date | awk '{print $2 "-" $3 "-" $6}'`
@


1.4
log
@Added noise so that you can spec the features from the command line.
Look for the kernel core in /tmp in addition to target:ldb.
@
text
@d5 1
a5 1
# $Header$
d27 5
a31 1
set date = `/bin/date | awk '{print $2 "-" $3 "-" $6}'`
d43 1
a43 1
echo Building lisp.core dated $date from the \`\`$subdir\'\' subdir.
d50 1
a50 3
$date
$date
$date
@


1.3
log
@Increased the size of the environment so that I can build cores that William
can run.
@
text
@d2 4
d9 1
d12 1
d15 12
d41 3
a43 7
/afs/cs/project/clisp/new-compiler/@@sys/$subdir/ldb/ldb -core /afs/cs/project/clisp/new-compiler/@@sys/$subdir/ldb/kernel.core << EOF
#+nil (push :no-xp *features*)
#+nil (push :no-clx *features*)
#+nil (push :no-hemlock *features*)
#+nil (push :no-pcl *features*)
(setf (search-list "lisp:")
      '("/afs/cs/project/clisp/new-compiler/@@sys/$subdir/"))
@


1.2
log
@Changed to look in the tools directory for worldload.lisp
@
text
@d18 2
@


1.1
log
@Initial revision
@
text
@d29 1
a29 1
(load (open "lisp:code/worldload.lisp"))
@
