Changeset 4851 for script

Timestamp:

06/19/05 18:16:50 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* no longer use dump.ast -- -C now prints directly to stdout.

Suggested by Juerd.

Files:

• script/pugscc (modified) (2 diffs)

script/pugscc

@@ -8 +8 @@
 use File::Basename;
 use File::Glob 'bsd_glob';
+use IPC::Open2;
 
 if (!@ARGV || grep /^--help$/, @ARGV) {
@@ -63 +64 @@
 
 unlink "dump.ast";
-system("pugs", "-C$backend" => @ARGV);
-exit 1 unless -e "dump.ast";
+
+my ($rh, $wh);
+my $pid = open2($rh, $wh, 'pugs', -C => $backend, @ARGV);
+my $program = do { local $/; <$rh> };
+waitpid($pid, 0);
+
+exit 1 unless length $program;
+
+sub writeFile {
+    my ($file, $str) = @_;
+    open my $fh, '>', $file or die $!;
+    print $fh $str;
+    close $fh;
+}
 
 if ($backend eq 'Parrot') {
-    rename "dump.ast" => $out;
+    writeFile($out, $program);
     chmod 0755, $out;
 }
 else {
-    rename "dump.ast" => "$base/MainCC.hs";
+    writeFile("$base/MainCC.hs", $program);
 
     my $archlib = `pugs -V:archlib`;