#!/usr/bin/env bash
#
# $Id$
# Author: Markus Wenzel, TU Muenchen
# License: GPL (GNU GENERAL PUBLIC LICENSE)
#
# DESCRIPTION: remove unreadable symbol names from sources
## diagnostics
PRG="$(basename "$0")"
function usage()
{
echo
echo "Usage: $PRG [FILES|DIRS...]"
echo
echo " Recursively find .thy/.ML files, removing unreadable symbol names."
echo " Note: this is an ad-hoc script; there is no systematic way to replace"
echo " symbols independently of the inner syntax of a theory!"
echo
echo " Renames old versions of FILES by appending \"~~\"."
echo
exit 1
}
## process command line
[ "$#" -eq 0 -o "$1" = "-?" ] && usage
SPECS="$@"; shift "$#"
## main
#set by configure
AUTO_PERL=perl
find $SPECS \( -name \*.ML -o -name \*.thy \) -print | \
xargs "$AUTO_PERL" -w "$ISABELLE_HOME/lib/scripts/unsymbolize.pl"