lib/scripts/fixgoal.pl
author kleing
Mon, 21 Jun 2004 10:25:57 +0200
changeset 14981 e73f8140af78
parent 9789 7e5e6c47c0b5
permissions -rw-r--r--
Merged in license change from Isabelle2004

#
# $Id$
# Author: Markus Wenzel, TU Muenchen
#
# fixgoal.pl - replace goal(w) commands by implicit versions Goal(w)
#

sub fixgoal {
    my ($file) = @_;

    open (FILE, $file) || die $!;
    undef $/; $text = <FILE>; $/ = "\n";         # slurp whole file
    close FILE || die $!;

    ($path, $thy, $ext) = ($file =~ m,^(.*/)?(\w+)(\.\w+)?$,);

    $_ = $text;

    s/^[ \t]*goalw\b\s*\bthy\b/Goalw/mg;
    s/^[ \t]*goalw\b\s*\b$thy\.thy\b/Goalw/mg;
    s/^[ \t]*goal\b\s*\bthy\b/Goal/mg;
    s/^[ \t]*goal\b\s*\b$thy\.thy\b/Goal/mg;


    $result = $_;

    if ($text ne $result) {
	print STDERR "fixing $file\n";
        if (! -f "$file~~") {
	    rename $file, "$file~~" || die $!;
        }
	open (FILE, "> $file") || die $!;
	print FILE $result;
	close FILE || die $!;
    }
}


## main

foreach $file (@ARGV) {
  eval { &fixgoal($file); };
  if ($@) { print STDERR "*** fixgoal $file: ", $@, "\n"; }
}