# HG changeset patch # User lcp # Date 806682862 -7200 # Node ID b666aabe866b581088626b91827f4139f481be74 # Parent 30286ceb9adba977708fa7599d2cc4adab6ce098 finally deleted diff -r 30286ceb9adb -r b666aabe866b agrep --- a/agrep Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -#! /bin/csh -grep "$*" {Pure/Syntax,Pure/Thy}/*ML */*ML */*/*ML diff -r 30286ceb9adb -r b666aabe866b change_simp --- a/change_simp Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,18 +0,0 @@ -#! /bin/sh -# simp FILE1 ... FILEn -# -# leaves previous versions as XXX~~ -# -for f in $* -do -echo $f. \ Backup file is $f~~ -mv $f $f~~; sed -e ' -s/\/asm_simp_tac/g -s/\/simp_tac/g -s/\/addsimps/g -s/addsplits \(\[[^]]*\]\)/setloop (split_tac \1)/g -s/addsplits/setloop split_tac/g -s/\/setsolver/g -' $f~~ > $f -done -echo Finished. diff -r 30286ceb9adb -r b666aabe866b conv-theory-files.pl --- a/conv-theory-files.pl Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,53 +0,0 @@ -#!/usr/bin/perl -s- # -*-Perl-*- - -#--------------------------------------------------------------------- -#The following script file is useful to convert old theory files into a -#style consistent with new naming conventions. Now, the names of the -#files must be the same as the names of the theories they define (with -#a ".thy" suffix) and corresponding ML files must also be renamed. -# -#To make this renaming easier, the following perl script can be used. -#It traverses the given directory recursively. For each file of the -#form abc.thy, this script does the following steps: -# -#1. Reads the file and grabs the first identifier, say Abc (skipping comments -# (*...*) and white space). -#2. Outputs the commands needed to rename the file abc.thy to Abc.thy, -# including the appropriate CVS commands. -#3. If abc.ML also exists, it outputs appropriate commands to rename it -# to Abc.ML. -# -#These commands can be put into a file, which can then be executed. -#If you are not using cvs, use "grep" to extract just the "mv" commands. -# -# - Sara Kalvala -# (sk@cl.cam.ac.uk) -#--------------------------------------------------------------------- - -open(MATCH_FILES, "find . -name \"*thy\" -print |"); - -foreach $each_match () { - chop($each_match); - if($each_match =~ /(.*\/)(\w*)\.thy/) {$dirpart = $1;} - else {print "something wrong with finding path!\n"; - $dirpart = "";} - open (CONTENTS, $each_match); - @readit = ; - chop(@readit); $oneline = join(" ",@readit); - $oneline =~ s/\(\*([^\*]|(\*[^\)]))*\*\)//g ; -# comments: have to remove strings of anything but stars or stars -# followed by anything but right parenthesis - if($oneline =~ /\s*([^ ]*)\s*=.*/) - {$th_name = $1; - $new_name = $dirpart . $th_name . ".thy"; - print "mv -i $each_match $new_name \n"; - print "cvs rm $each_match ; cvs add $new_name \n"; -# for ML files - $each_ML = $each_match; - $each_ML =~ s/.thy/.ML/; - if (-e $each_ML) { $new_ML = $dirpart . $th_name . ".ML"; - print "mv -i $each_ML $new_ML \n"; - print "cvs rm $each_ML ; cvs add $new_ML \n";}} - else {print "something wrong with format of theory file!\n";} -} - diff -r 30286ceb9adb -r b666aabe866b expandshort --- a/expandshort Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,31 +0,0 @@ -#! /bin/sh -# -#expandshort - shell script to expand shorthand goal commands -# ALSO contracts uses of resolve_tac, dresolve_tac, eresolve_tac, -# rewrite_goals_tac on 1-element lists -# -# Usage: -# expandshort FILE1 ... FILEn -# -# leaves previous versions as XXX~~ -# -for f in $* -do -echo Expanding shorthands in $f. \ Backup file is $f~~ -mv $f $f~~; sed -e ' -s/^ba \([0-9]*\);/by (assume_tac \1);/ -s/^br \([^;]*\) \([0-9]*\);/by (rtac \1 \2);/ -s/^brs \([^;]*\) \([0-9]*\);/by (resolve_tac \1 \2);/ -s/^bd \([^;]*\) \([0-9]*\);/by (dtac \1 \2);/ -s/^bds \([^;]*\) \([0-9]*\);/by (dresolve_tac \1 \2);/ -s/^be \([^;]*\) \([0-9]*\);/by (etac \1 \2);/ -s/^bes \([^;]*\) \([0-9]*\);/by (eresolve_tac \1 \2);/ -s/^bw \([^;]*\);/by (rewtac \1);/ -s/^bws \([^;]*\);/by (rewrite_goals_tac \1);/ -s/dresolve_tac *\[\([a-zA-Z0-9_]*\)\] */dtac \1 /g -s/eresolve_tac *\[\([a-zA-Z0-9_]*\)\] */etac \1 /g -s/resolve_tac *\[\([a-zA-Z0-9_]*\)\] */rtac \1 /g -s/rewrite_goals_tac *\[\([a-zA-Z0-9_]*\)\]\( *\)/rewtac \1\2/g -' $f~~ > $f -done -echo Finished. diff -r 30286ceb9adb -r b666aabe866b make-all --- a/make-all Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,180 +0,0 @@ -#! /bin/sh -# -#make-all: make all systems afresh - -# Creates gzipped log files called makeNNNN.log.gz on each subdirectory and -# displays the last few lines of these files -- this indicates whether -# the "make" failed (whether it terminated due to an error) - -# switches are -# -noforce don't delete old databases/images first -# -clean delete databases/images after use (leaving Pure) -# -notest make databases/images w/o running the examples -# -noexec don't execute, just check settings and Makefiles - -#Environment variables required: -# ISABELLEBIN: the directory to hold Poly/ML databases or New Jersey ML images -# ISABELLECOMP: the ML compiler - -# A typical shell script for /bin/sh is... -# ML_DBASE=/usr/groups/theory/poly2.04/`arch`/ML_dbase -# ISABELLEBIN=/homes/`whoami`/bin -# ISABELLECOMP="poly -noDisplay" -# export ML_DBASE ISABELLEBIN ISABELLECOMP -# nohup make-all $* - -set -e #fail immediately upon errors - -# process command line switches -CLEAN="off"; -FORCE="on"; -TEST="test"; -EXEC="on"; -NO=""; -for A in $* -do - case $A in - -clean) CLEAN="on" ;; - -noforce) FORCE="off" ;; - -notest) TEST="" ;; - -noexec) EXEC="off" - NO="-n" ;; - *) echo "Bad flag for make-all: $A" - echo "Usage: make-all [-noforce] [-clean] [-notest] [-noexec]" - exit ;; - esac -done - -echo Started at `date` -echo Source=`pwd` -echo Destination=${ISABELLEBIN?'No destination directory specified'} -echo force=$FORCE ' ' clean=$CLEAN ' ' -echo Compiler=${ISABELLECOMP?'No compiler specified'} -echo Running on `hostname` -echo Log files will be called make$$.log.gz - -case $FORCE.$EXEC in - on.on) (cd $ISABELLEBIN; rm -f Pure FOL ZF CCL LCF CTT LK Modal HOL HOLCF Cube FOLP) -esac - -set +e #no longer fail upon errors -- e.g. if a "make" fails - -echo -echo -echo '*****Pure Isabelle*****' -(cd Pure; make $NO > make$$.log) -tail Pure/make$$.log -gzip Pure/make$$.log - -echo -echo -echo '*****First-Order Logic (FOL)*****' -(cd FOL; make $NO $TEST > make$$.log) -tail FOL/make$$.log -gzip FOL/make$$.log -#cannot delete FOL yet... it is needed for ZF, CCL and LCF! - -echo -echo -echo '*****Set theory (ZF)*****' -(cd ZF; make $NO $TEST > make$$.log) -tail ZF/make$$.log -gzip ZF/make$$.log -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/ZF -esac - -echo -echo -echo '*****Classical Computational Logic (CCL)*****' -(cd CCL; make $NO $TEST > make$$.log) -tail CCL/make$$.log -gzip CCL/make$$.log -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/CCL -esac - -echo -echo -echo '*****Domain Theory (LCF)*****' -(cd LCF; make $NO $TEST > make$$.log) -tail LCF/make$$.log -gzip LCF/make$$.log -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/FOL $ISABELLEBIN/LCF -esac - -echo -echo -echo '*****Constructive Type Theory (CTT)*****' -(cd CTT; make $NO $TEST > make$$.log) -tail CTT/make$$.log -gzip CTT/make$$.log -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/CTT -esac - -echo -echo -echo '*****Classical Sequent Calculus (LK)*****' -(cd LK; make $NO $TEST > make$$.log) -tail LK/make$$.log -gzip LK/make$$.log -#cannot delete LK yet... it is needed for Modal! - -echo -echo -echo '*****Modal logic (Modal)*****' -(cd Modal; make $NO $TEST > make$$.log) -tail Modal/make$$.log -gzip Modal/make$$.log -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/LK $ISABELLEBIN/Modal -esac - -echo -echo -echo '*****Higher-Order Logic (HOL)*****' -(cd HOL; make $NO $TEST > make$$.log) -tail HOL/make$$.log -gzip HOL/make$$.log -#cannot delete HOL yet... it is needed for HOLCF! - -echo -echo -echo '*****LCF in HOL (HOLCF)*****' -(cd HOLCF; make $NO $TEST > make$$.log) -tail HOLCF/make$$.log -gzip HOLCF/make$$.log -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/HOL $ISABELLEBIN/HOLCF -esac - -echo -echo -echo '*****The Lambda-Cube (Cube)*****' -(cd Cube; make $NO $TEST > make$$.log) -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/Cube -esac -tail Cube/make$$.log -gzip Cube/make$$.log - -echo -echo -echo '*****First-Order Logic with Proof Terms (FOLP)*****' -(cd FOLP; make $NO $TEST > make$$.log) -case $CLEAN.$EXEC in - on.on) rm $ISABELLEBIN/FOLP -esac -tail FOLP/make$$.log -gzip FOLP/make$$.log - -case $TEST.$EXEC in - test.on) echo - echo '***** Now check the dates on the "test" files *****' - ls -lrt FOL/test ZF/test CCL/test LCF/test CTT/test\ - LK/test Modal/test HOL/test HOLCF/test Cube/test\ - FOLP/test -esac -echo Finished at `date` diff -r 30286ceb9adb -r b666aabe866b make-all-nj --- a/make-all-nj Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,7 +0,0 @@ -#! /bin/sh -#Make entire system using Standard ML of New Jersey -#Pathnames will have to be modified for your site -ISABELLEBIN=/homes/`whoami`/bin -ISABELLECOMP=sml -export ISABELLEBIN ISABELLECOMP -nohup make-all $* diff -r 30286ceb9adb -r b666aabe866b make-all-poly --- a/make-all-poly Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,9 +0,0 @@ -#! /bin/sh -#$Id$ -#Make entire system using Poly/ML -#Pathnames will have to be modified for your site -ML_DBASE=/usr/groups/theory/poly/polyml/`arch`/ML_dbase -ISABELLEBIN=/homes/`whoami`/dbases -ISABELLECOMP="poly -noDisplay -h 15000" -export ML_DBASE ISABELLEBIN ISABELLECOMP -nohup make-all $* diff -r 30286ceb9adb -r b666aabe866b rm-logfiles --- a/rm-logfiles Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,5 +0,0 @@ -#! /bin/sh -#rm-logfiles: remove useless files from subdirectories -rm log */make*.log */make*.log.gz -rm */test -find . -name '.*.thy.ML' -print -exec rm {} \; diff -r 30286ceb9adb -r b666aabe866b teeinput --- a/teeinput Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,4 +0,0 @@ -#! /bin/sh -# teeinput -- start a program and log all inputs to a file -# environment variable $LISTEN specifies the file name -tee -a -i $LISTEN | $* \ No newline at end of file diff -r 30286ceb9adb -r b666aabe866b xlisten --- a/xlisten Wed Jul 19 15:53:43 1995 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,10 +0,0 @@ -#! /bin/sh -# xlisten -- start a program in one window and create a listener window -# environment variable $LISTEN specifies the file name - -#create the file! -date > $LISTEN - -xterm -geo 80x10+0+0 -T Listener -n Listener -e tail -f $LISTEN & -sleep 2 -xterm -geo 80x45+0-0 -e teeinput $* &