Changeset 632 for script

Timestamp:

03/13/05 07:02:07 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1869

Message:

* even more cleanup on pugscc; now assume executable name base on the input file name

Files:

• script/pugscc (modified) (2 diffs)

script/pugscc

@@ -3 +3 @@
 use FindBin;
 use File::Copy;
+use File::Basename;
 
-chdir "$FindBin::Bin/..";
+if (!-e "src/Main.hs") {
+    chdir "$FindBin::Bin/..";
+    if (!-e "src/Main.hs") {
+        die "$0: This script must be invoked in the Pugs source tree directory."
+    }
+}
 
 unlink "dump.ast";
+
+my $out = 'a';
+if (@ARGV and -e $ARGV[0]) {
+    $out = basename($ARGV[0]);
+    $out =~ s{\..*}{};
+}
+
 system("pugs", -C => @ARGV);
 exit 1 unless -e "dump.ast";
@@ -19 +32 @@
 close FH;
 
-my $out = ($^O eq 'MSWin32') ? "a.exe" : "a.out";
+$out .= ($^O eq 'MSWin32') ? ".exe" : ".out";
 system("ghc", "-v0", "-o", $out, "--make", "-main-is", "mainCC", "-isrc", "src/MainCC.hs");
 unlink "src/MainCC.hs";