lib/Tools/fixseq
changeset 4268 90779455c9a7
child 4508 f102cb0140fe
equal deleted inserted replaced
4267:cdc193e38925 4268:90779455c9a7
       
     1 #!/bin/bash
       
     2 #
       
     3 # $Id$
       
     4 #
       
     5 # DESCRIPTION: fix references to obsolete Pure/Sequence structure
       
     6 
       
     7 
       
     8 ## diagnostics
       
     9 
       
    10 PRG=$(basename $0)
       
    11 
       
    12 function usage()
       
    13 {
       
    14   echo
       
    15   echo "Usage: $PRG [FILES|DIRS...]"
       
    16   echo
       
    17   echo "  Recursively find .ML files, fixing references to"
       
    18   echo "  the obsolete Pure/Sequence structure."
       
    19   echo
       
    20   echo "  Renames old versions of FILES by appending \"~~\"."
       
    21   echo
       
    22   exit 1
       
    23 }
       
    24 
       
    25 
       
    26 ## process command line
       
    27 
       
    28 [ $# -eq 0 -o "$1" = "-?" ] && usage
       
    29 
       
    30 SPECS="$@"; shift $#
       
    31 
       
    32 
       
    33 ## main
       
    34 
       
    35 PERL=$(type -path perl)
       
    36 if [ -z $PERL ]; then
       
    37   echo "$PRG fatal error: no perl!?"
       
    38 else
       
    39   find $SPECS -name \*.ML -print | xargs $PERL $ISABELLE_HOME/lib/scripts/fixseq.pl
       
    40 fi