| author | wenzelm | 
| Tue, 11 Apr 2006 16:00:03 +0200 | |
| changeset 19407 | 7c7a2e337504 | 
| 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: 
15574diff
changeset | 37 | AUTO_PERL=perl | 
| 6082 | 38 | |
| 9788 | 39 | find $SPECS -name \*.ML -print | xargs "$AUTO_PERL" -w "$ISABELLE_HOME/lib/scripts/expandshort.pl" |