src/HOL/Tools/ATP/remchars.pl
changeset 18701 98e6a0a011f3
parent 18700 f04a8755d6ca
child 18702 7dc7dcd63224
--- a/src/HOL/Tools/ATP/remchars.pl	Tue Jan 17 10:26:36 2006 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-#
-# isa2tex.pl - Converts isabelle formulae into LaTeX
-# A complete hack - needs more work.
-#
-# by Michael Dales (michael@dcs.gla.ac.uk)
-
-# Begin math mode
-#printf "\$";
-#ALL íxaè::ê'aè::étypeè.   (~ (ìPè::ê'aè::étypeè => bool) (ìxè::ê'aè::étypeè) | ìPè íxaè) & (~ ìPè íxaè# | ìPè ìxè)((ìPè::ê'aè::étypeè => bool) (ìxaè::ê'aè::étypeè) | (ALL íxè::ê'aè::étypeè. ìPè íxè)) &((AL#L íxè::ê'aè::étypeè. ~ ìPè íxè) | ~ ìPè (ìxbè::ê'aè::étypeè))
-#perhaps change to all chars not in alphanumeric or a few symbols?
-
-while (<STDIN>)
-{
-
-    #chop();
-    s%\n$%%;
-    s%í%%g;
-    s%ì%%g;
-    s%è%%g;
-    s%î%%g;
-    s%ê%%g;
-    s%é%%g;
-    
-    #printf "$_\\newline\n";
-    printf "$_";
-}
-
-# End math mode
-#printf "\$\n";
-#printf "\\end{tabbing}\n";