lib/Tools/fixdatatype

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/Tools/fixdatatype	Thu Jul 30 15:49:18 1998 +0200
@@ -0,0 +1,36 @@
+#!/bin/bash
+#
+# $Id$
+#
+# DESCRIPTION: adapt theories and proof scripts to new datatype package
+
+
+## diagnostics
+
+PRG=$(basename $0)
+
+function usage()
+{
+  echo
+  echo "Usage: $PRG [FILES|DIRS...]"
+  echo
+  echo "  Recursively find .thy/.ML files, adapting them to"
+  echo "  the new datatype package"
+  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/fixdatatype.pl