Changeset 633 for script

Timestamp:

03/13/05 07:10:16 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1869

Message:

* add usage info and pathsep to pugscc

Files:

• script/pugscc (modified) (2 diffs)

script/pugscc

@@ -1 +1 @@
 #!/usr/bin/perl
 
+use Cwd;
+use Config;
 use FindBin;
 use File::Copy;
 use File::Basename;
+
+if (!@ARGV) {
+    die "Usage: $0 [ source[.p6] | -e oneliner ]\n";
+}
 
 if (!-e "src/Main.hs") {
@@ -11 +17 @@
     }
 }
+
+$ENV{PATH} .= $Config{path_sep} . cwd() unless $^O eq 'MSWin32';
 
 unlink "dump.ast";