| author | paulson | 
| Fri, 08 Apr 2005 18:43:39 +0200 | |
| changeset 15684 | 5ec4d21889d6 | 
| parent 15574 | b1d1b5bfc464 | 
| child 15847 | c05c7670f166 | 
| permissions | -rwxr-xr-x | 
| 10555 | 1  | 
#!/usr/bin/env bash  | 
| 5045 | 2  | 
#  | 
3  | 
# $Id$  | 
|
| 9788 | 4  | 
# Author: Markus Wenzel, TU Muenchen  | 
| 5045 | 5  | 
#  | 
6  | 
# DESCRIPTION: replace goal(w) commands by implicit versions Goal(w)  | 
|
7  | 
||
8  | 
||
9  | 
## diagnostics  | 
|
10  | 
||
| 10511 | 11  | 
PRG="$(basename "$0")"  | 
| 5045 | 12  | 
|
13  | 
function usage()  | 
|
14  | 
{
 | 
|
15  | 
echo  | 
|
16  | 
echo "Usage: $PRG [FILES|DIRS...]"  | 
|
17  | 
echo  | 
|
18  | 
echo " Recursively find .ML files, replacing goal(w)"  | 
|
19  | 
echo " commands by implicit versions Goal(w)"  | 
|
20  | 
echo  | 
|
21  | 
echo " Renames old versions of FILES by appending \"~~\"."  | 
|
22  | 
echo  | 
|
23  | 
exit 1  | 
|
24  | 
}  | 
|
25  | 
||
26  | 
||
27  | 
## process command line  | 
|
28  | 
||
| 9788 | 29  | 
[ "$#" -eq 0 -o "$1" = "-?" ] && usage  | 
| 5045 | 30  | 
|
| 9788 | 31  | 
SPECS="$@"; shift "$#"  | 
| 5045 | 32  | 
|
33  | 
||
34  | 
## main  | 
|
35  | 
||
| 6082 | 36  | 
#set by configure  | 
| 
15574
 
b1d1b5bfc464
Removed practically all references to Library.foldr.
 
skalberg 
parents: 
14981 
diff
changeset
 | 
37  | 
AUTO_PERL=/usr/bin/perl  | 
| 6082 | 38  | 
|
| 9788 | 39  | 
find $SPECS -name \*.ML -print | xargs "$AUTO_PERL" -w "$ISABELLE_HOME/lib/scripts/fixgoal.pl"  |