lib/Tools/expandshort
author wenzelm
Tue, 16 Dec 1997 12:17:22 +0100
changeset 4416 c32a5c724263
parent 3007 e5efa177ee0c
child 4508 f102cb0140fe
permissions -rwxr-xr-x
improved;

#!/bin/bash
#
# $Id$
#
# DESCRIPTION: expand shorthand goal commands


PRG=$(basename $0)

function usage()
{
  echo
  echo "Usage: $PRG [FILES|DIRS...]"
  echo
  echo "  Recursively find .ML files, expand shorthand goal commands."
  echo "  Also contracts uses of resolve_tac, dresolve_tac, eresolve_tac,"
  echo "  rewrite_goals_tac on 1-element lists; furthermore expands tabs,"
  echo "  since they are now forbidden in ML string constants."
  echo
  echo "  Renames old versions of files by appending \"~~\"."
  echo
  exit 1
}


## process command line

[ $# -eq 0 -o "$1" = "-?" ] && usage

SPECS="$@"; shift $#


## main

PERL=$(type -path perl)
if [ -z $PERL ]; then
  echo "$PRG fatal error: no perl!?"
else
  find $SPECS -name \*.ML -print | xargs $PERL $ISABELLE_HOME/lib/scripts/expandshort.pl
fi