1.1 --- a/lib/scripts/unsymbolize.pl	Mon Feb 08 15:49:01 2010 -0800
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,61 +0,0 @@
     1.4 -#
     1.5 -# Author: Markus Wenzel, TU Muenchen
     1.6 -#
     1.7 -# unsymbolize.pl - remove unreadable symbol names from sources
     1.8 -#
     1.9 -
    1.10 -sub unsymbolize {
    1.11 -    my ($file) = @_;
    1.12 -
    1.13 -    open (FILE, $file) || die $!;
    1.14 -    undef $/; $text = <FILE>; $/ = "\n";         # slurp whole file
    1.15 -    close FILE || die $!;
    1.16 -
    1.17 -    $_ = $text;
    1.18 -
    1.19 -    # Pure
    1.20 -    s/\\?\\<And>/!!/g;
    1.21 -    s/\\?\\<Colon>/::/g;
    1.22 -    s/\\?\\<Longrightarrow>/==>/g;
    1.23 -    s/\\?\\<Midarrow>\\?\\<Rightarrow>/==>/g;
    1.24 -    s/\\?\\<Rightarrow>/=>/g;
    1.25 -    s/\\?\\<equiv>/==/g;
    1.26 -    s/\\?\\<dots>/.../g;
    1.27 -    s/\\?\\<lbrakk> ?/[| /g;
    1.28 -    s/\\?\\ ?<rbrakk>/ |]/g;
    1.29 -    s/\\?\\<lparr> ?/(| /g;
    1.30 -    s/\\?\\ ?<rparr>/ |)/g;
    1.31 -    # HOL
    1.32 -    s/\\?\\<longleftrightarrow>/<->/g;
    1.33 -    s/\\?\\<longrightarrow>/-->/g;
    1.34 -    s/\\?\\<midarrow>\\?\\<rightarrow>/-->/g;
    1.35 -    s/\\?\\<rightarrow>/->/g;
    1.36 -    s/\\?\\<not>/~/g;
    1.37 -    s/\\?\\<notin>/~:/g;
    1.38 -    s/\\?\\<noteq>/~=/g;
    1.39 -    s/\\?\\<some> ?/SOME /g;
    1.40 -    # outer syntax
    1.41 -    s/\\?\\<rightleftharpoons>/==/g;
    1.42 -    s/\\?\\<rightharpoonup>/=>/g;
    1.43 -    s/\\?\\<leftharpoondown>/<=/g;
    1.44 -
    1.45 -    $result = $_;
    1.46 -
    1.47 -    if ($text ne $result) {
    1.48 -	print STDERR "fixing $file\n";
    1.49 -        if (! -f "$file~~") {
    1.50 -	    rename $file, "$file~~" || die $!;
    1.51 -        }
    1.52 -	open (FILE, "> $file") || die $!;
    1.53 -	print FILE $result;
    1.54 -	close FILE || die $!;
    1.55 -    }
    1.56 -}
    1.57 -
    1.58 -
    1.59 -## main
    1.60 -
    1.61 -foreach $file (@ARGV) {
    1.62 -  eval { &unsymbolize($file); };
    1.63 -  if ($@) { print STDERR "*** unsymbolize $file: ", $@, "\n"; }
    1.64 -}