author | webertj |
Tue, 18 Jul 2006 16:15:47 +0200 | |
changeset 20144 | 2517cd4b1f37 |
parent 15847 | c05c7670f166 |
permissions | -rwxr-xr-x |
10555 | 1 |
#!/usr/bin/env bash |
2546 | 2 |
# |
3 |
# $Id$ |
|
9788 | 4 |
# Author: Markus Wenzel, TU Muenchen |
2546 | 5 |
# |
6 |
# DESCRIPTION: expand shorthand goal commands |
|
7 |
||
8 |
||
10511 | 9 |
PRG="$(basename "$0")" |
2546 | 10 |
|
11 |
function usage() |
|
12 |
{ |
|
13 |
echo |
|
4416 | 14 |
echo "Usage: $PRG [FILES|DIRS...]" |
2546 | 15 |
echo |
7498 | 16 |
echo " Recursively find .ML files, expand shorthand goal commands. Also" |
17 |
echo " contracts uses of resolve_tac, dresolve_tac, eresolve_tac," |
|
7887 | 18 |
echo " forward_tac, rewrite_goals_tac on 1-element lists; furthermore" |
19 |
echo " expands tabs, which are forbidden in SML string constants." |
|
2546 | 20 |
echo |
4416 | 21 |
echo " Renames old versions of files by appending \"~~\"." |
2546 | 22 |
echo |
23 |
exit 1 |
|
24 |
} |
|
25 |
||
4416 | 26 |
|
27 |
## process command line |
|
28 |
||
9788 | 29 |
[ "$#" -eq 0 -o "$1" = "-?" ] && usage |
4416 | 30 |
|
9788 | 31 |
SPECS="$@"; shift "$#" |
2546 | 32 |
|
33 |
||
34 |
## main |
|
35 |
||
6082 | 36 |
#set by configure |
15847
c05c7670f166
restored AUTO_BASH/PERL -- beware of ./configure!
wenzelm
parents:
15574
diff
changeset
|
37 |
AUTO_PERL=perl |
6082 | 38 |
|
9788 | 39 |
find $SPECS -name \*.ML -print | xargs "$AUTO_PERL" -w "$ISABELLE_HOME/lib/scripts/expandshort.pl" |