Changeset 4872 for script

Timestamp:

06/20/05 16:14:05 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* adjust pugscc to play with the new PIR backend

Files:

• script/pugscc (modified) (7 diffs)

script/pugscc

@@ -11 +11 @@
 
 if (!@ARGV || grep /^--help$/, @ARGV) {
-    die "Usage: $0 [--run] [--pugs|--haskell|--parrot] [ source[.p6] | -e oneliner ]\n";
+    die "Usage: $0 [--run] [--pugs|--haskell|--pir] [ source[.p6] | -e oneliner ]\n";
 }
 
@@ -33 +33 @@
     shift @ARGV;
 }
-elsif ($ARGV[0] =~ /^(?:-P|--parrot)$/) {
-    $backend = 'Parrot';
+elsif ($ARGV[0] =~ /^(?:-P|--pir|--parrot)$/) {
+    $backend = 'PIR';
     shift @ARGV;
 }
@@ -56 +56 @@
 }
 
-if ($backend eq 'Parrot') {
-    $out .= ".imc";
+if ($backend eq 'PIR') {
+    $out .= '.pir';
 }
 else {
@@ -79 +79 @@
 }
 
-if ($backend eq 'Parrot') {
+if ($backend eq 'PIR') {
     writeFile($out, $program);
     chmod 0755, $out;
@@ -124 +124 @@
 
 if ($run) {
-    if ($backend eq 'Parrot' and !-x '/usr/bin/env') {
-        system("parrot" => $out);
+    if ($backend eq 'PIR' and !-x '/usr/bin/env') {
+        system(parrot => $out);
     }
     else {
@@ -154 +154 @@
 =head1 SYNOPSIS
 
-    % pugscc --runpugs -e "'Hello, Parrot'.say"
-    % pugscc --runparrot -e "'Hello, Parrot'.say"
+    % pugscc --runpir -e "'Hello, Parrot'.say"
+    % pugscc --runpugs -e "'Hello, Pugs'.say"
     % pugscc --runhaskell -e "'Hello, Haskell'.say"
 
@@ -191 +191 @@
 =item Pugs - requires Pugs ;-)
 
-=item Parrot - requires Parrot
+=item PIR - requires Parrot
 
 L<http://search.cpan.org/~ltoetsch/parrot/>