| author | haftmann | 
| Fri, 28 Mar 2008 22:01:56 +0100 | |
| changeset 26470 | e44d24620515 | 
| parent 15847 | c05c7670f166 | 
| permissions | -rwxr-xr-x | 
| 10555 | 1 | #!/usr/bin/env bash | 
| 9966 | 2 | # | 
| 3 | # $Id$ | |
| 4 | # Author: Markus Wenzel, TU Muenchen | |
| 5 | # | |
| 6 | # DESCRIPTION: fix theorem names related to SOME (Eps) in HOL | |
| 7 | ||
| 8 | ||
| 9 | ## diagnostics | |
| 10 | ||
| 10511 | 11 | PRG="$(basename "$0")" | 
| 9966 | 12 | |
| 13 | function usage() | |
| 14 | {
 | |
| 15 | echo | |
| 16 | echo "Usage: $PRG [FILES|DIRS...]" | |
| 17 | echo | |
| 9995 | 18 | echo " Recursively find .thy/.ML files, fixing theorem names related" | 
| 9966 | 19 | echo " to SOME (Eps) in HOL." | 
| 20 | echo | |
| 21 | echo " Renames old versions of FILES by appending \"~~\"." | |
| 22 | echo | |
| 23 | exit 1 | |
| 24 | } | |
| 25 | ||
| 26 | ||
| 27 | ## process command line | |
| 28 | ||
| 29 | [ "$#" -eq 0 -o "$1" = "-?" ] && usage | |
| 30 | ||
| 31 | SPECS="$@"; shift "$#" | |
| 32 | ||
| 33 | ||
| 34 | ## main | |
| 35 | ||
| 36 | #set by configure | |
| 15847 
c05c7670f166
restored AUTO_BASH/PERL -- beware of ./configure!
 wenzelm parents: 
15574diff
changeset | 37 | AUTO_PERL=perl | 
| 9966 | 38 | |
| 9995 | 39 | find $SPECS \( -name \*.ML -o -name \*.thy \) -print | \ | 
| 40 | xargs "$AUTO_PERL" -w "$ISABELLE_HOME/lib/scripts/fixsome.pl" |