Skip to content
Snippets Groups Projects
Commit 510a5d27 authored by ram's avatar ram
Browse files

Initial revision

parent 18151398
Branches
Tags
No related merge requests found
#!/bin/csh -fx
if ($#argv) then
set subdir = $argv[1]
else
set subdir = alpha
endif
set src = /afs/cs/project/clisp/new-compiler/@sys/$subdir
set dst = /afs/cs/misc/cmucl/@sys/alpha
rm -f $dst/bin/lisp $dst/lib/lisp.core
cp -p $src/ldb/ldb $dst/bin/lisp
cp -p lisp.core $dst/lib/lisp.core
#!/bin/csh -f
if ($#argv) then
set subdir = $argv[1]
else
set subdir = alpha
endif
set date = `/bin/date | awk '{print $2 "-" $3 "-" $6}'`
# 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
echo Building lisp.core dated $date from the \`\`$subdir\'\' subdir.
/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/"))
(in-package "USER")
(load (open "lisp:code/worldload.lisp"))
$date
$date
$date
(quit)
EOF
echo 
#!/bin/csh -f
set from = ""
set to = ""
set dirs = ()
while ($#argv > 0)
if ("$argv[1]" !~ -*) then
set dirs = ($dirs $argv[1])
else
switch ($argv[1])
case "-from":
set from = $argv[2]
shift
breaksw
case "-to":
set from = $argv[2]
shift
breaksw
default:
echo "Bogus switch: $argv[1]"
exit
endsw
endif
shift
end
if ($#dirs == 0) set dirs = .
find $dirs -follow -name '*,v' -print | \
rlog - "-d$from<$to" | \
sed -n -e '/^RCS file:/p' -e '/^------/,/^======/p' | \
sed -e '/^RCS file:/{;:again\
N;s/^RCS file.*\nRCS file/RCS file/;t again\
}'
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment