From 510a5d276645a543d20fe5a8b5805812c5481682 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 8 Mar 1991 19:41:02 +0000 Subject: [PATCH] Initial revision --- tools/inst-lisp | 14 ++++++++++++++ tools/mk-lisp | 36 ++++++++++++++++++++++++++++++++++++ tools/updates | 35 +++++++++++++++++++++++++++++++++++ 3 files changed, 85 insertions(+) create mode 100755 tools/inst-lisp create mode 100755 tools/mk-lisp create mode 100755 tools/updates diff --git a/tools/inst-lisp b/tools/inst-lisp new file mode 100755 index 000000000..fd6a07188 --- /dev/null +++ b/tools/inst-lisp @@ -0,0 +1,14 @@ +#!/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 diff --git a/tools/mk-lisp b/tools/mk-lisp new file mode 100755 index 000000000..f69ca2972 --- /dev/null +++ b/tools/mk-lisp @@ -0,0 +1,36 @@ +#!/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 diff --git a/tools/updates b/tools/updates new file mode 100755 index 000000000..8e569f148 --- /dev/null +++ b/tools/updates @@ -0,0 +1,35 @@ +#!/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\ + }' -- GitLab