lib/Tools/fixdots
author paulson
Wed, 02 Dec 1998 15:53:05 +0100
changeset 6006 d2e271b8d651
parent 4508 f102cb0140fe
child 6082 590f9e3bf4d8
permissions -rwxr-xr-x
new rule rev_bexI

#!/bin/bash
#
# $Id$
#
# DESCRIPTION: ensure that dots in formulas are followed by non-idents


## diagnostics

PRG=$(basename $0)

function usage()
{
  echo
  echo "Usage: $PRG [FILES|DIRS...]"
  echo
  echo "  Recursively find .thy/.ML files, patching them to ensure that"
  echo "  dots in formulas are followed by non-idents."
  echo
  echo "  Renames old versions of FILES by appending \"~~\"."
  echo
  exit 1
}


## process command line

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

SPECS="$@"; shift $#


## main

find $SPECS \( -name \*.thy -o -name \*.ML \) -print | \
  xargs perl -w $ISABELLE_HOME/lib/scripts/fixdots.pl