lib/Tools/fixdots
author wenzelm
Thu, 24 Sep 1998 21:32:12 +0200
changeset 5557 d6ceb4275742
parent 4508 f102cb0140fe
child 6082 590f9e3bf4d8
permissions -rwxr-xr-x
create an instance of the Isabelle logo;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3824
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     1
#!/bin/bash
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     2
#
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     3
# $Id$
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     4
#
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     5
# DESCRIPTION: ensure that dots in formulas are followed by non-idents
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     6
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     7
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     8
## diagnostics
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
     9
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    10
PRG=$(basename $0)
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    11
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    12
function usage()
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    13
{
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    14
  echo
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    15
  echo "Usage: $PRG [FILES|DIRS...]"
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    16
  echo
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    17
  echo "  Recursively find .thy/.ML files, patching them to ensure that"
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    18
  echo "  dots in formulas are followed by non-idents."
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    19
  echo
3826
wenzelm
parents: 3825
diff changeset
    20
  echo "  Renames old versions of FILES by appending \"~~\"."
wenzelm
parents: 3825
diff changeset
    21
  echo
3824
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    22
  exit 1
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    23
}
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    24
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    25
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    26
## process command line
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    27
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    28
[ $# -eq 0 -o "$1" = "-?" ] && usage
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    29
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    30
SPECS="$@"; shift $#
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    31
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    32
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    33
## main
9fdde15e3215 ensure that dots in formulas are followed by non-idents;
wenzelm
parents:
diff changeset
    34
4508
f102cb0140fe do require perl;
wenzelm
parents: 3826
diff changeset
    35
find $SPECS \( -name \*.thy -o -name \*.ML \) -print | \
f102cb0140fe do require perl;
wenzelm
parents: 3826
diff changeset
    36
  xargs perl -w $ISABELLE_HOME/lib/scripts/fixdots.pl