From: Andy Lester <a...@petdance.com>
---
build/Makefile.in | 6 +++---
build/gen_junction_pir.pl | 12 +++---------
build/gen_uprop_pir.pl | 13 ++++---------
build/gen_whatever_pir.pl | 12 +++---------
4 files changed, 13 insertions(+), 30 deletions(-)
diff --git a/build/Makefile.in b/build/Makefile.in
index ebf1a82..5ebb49f 100644
--- a/build/Makefile.in
+++ b/build/Makefile.in
@@ -203,13 +203,13 @@ src/gen_metaop.pir: build/gen_metaop_pir.pl
$(PERL) build/gen_metaop_pir.pl > src/gen_metaop.pir
src/gen_junction.pir: build/gen_junction_pir.pl
- $(PERL) build/gen_junction_pir.pl src/gen_junction.pir
+ $(PERL) build/gen_junction_pir.pl > src/gen_junction.pir
src/gen_whatever.pir: build/gen_whatever_pir.pl
- $(PERL) build/gen_whatever_pir.pl src/gen_whatever.pir
+ $(PERL) build/gen_whatever_pir.pl > src/gen_whatever.pir
src/gen_uprop.pir: build/gen_uprop_pir.pl
- $(PERL) build/gen_uprop_pir.pl src/gen_uprop.pir
+ $(PERL) build/gen_uprop_pir.pl > src/gen_uprop.pir
src/gen_setting.pm: Makefile build/gen_setting_pm.pl $(SETTING)
$(PERL) build/gen_setting_pm.pl $(SETTING) > src/gen_setting.pm
diff --git a/build/gen_junction_pir.pl b/build/gen_junction_pir.pl
index 3597321..3a8f05c 100644
--- a/build/gen_junction_pir.pl
+++ b/build/gen_junction_pir.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# Copyright (C) 2008, The Perl Foundation.
+# Copyright (C) 2008-2009, The Perl Foundation.
# $Id$
use strict;
@@ -19,12 +19,8 @@ my @unary = qw(
prefix:++ prefix:-- postfix:++ postfix:--
);
-my $output = $ARGV[0] || '-';
-
-open my $fh, "> $output" or die "Could not write $output: $!";
-
for (@unary) {
- print $fh qq(
+ print qq(
.namespace []
.sub '$_' :multi('Junction')
.param pmc x
@@ -34,7 +30,7 @@ for (@unary) {
}
for (@binary) {
- print $fh qq(
+ print qq(
.namespace []
.sub '$_' :multi('Junction', _)
.param pmc x
@@ -49,5 +45,3 @@ for (@binary) {
.end
);
}
-
-close $fh or die $!;
diff --git a/build/gen_uprop_pir.pl b/build/gen_uprop_pir.pl
index 8304a7e..eddf40f 100644
--- a/build/gen_uprop_pir.pl
+++ b/build/gen_uprop_pir.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# Copyright (C) 2008, The Perl Foundation.
+# Copyright (C) 2008-2009, The Perl Foundation.
# $Id$
use strict;
@@ -271,14 +271,11 @@ my @prop = qw(
Zs
);
-my $output = $ARGV[0] || '-';
-
-open my $fh, "> $output" or die "Could not write $output: $!";
-print $fh qq{
+print qq{
.HLL 'parrot'
.namespace ['PGE';'Match']
-
+
.sub '!uprop' :anon
.param pmc mob
.param string uprop
@@ -295,11 +292,9 @@ print $fh qq{
};
for (@prop) {
- print $fh qq(
+ print qq(
.sub 'is$_' :method
.tailcall '!uprop'(self, '$_')
.end
);
}
-
-close $fh or die $!;
diff --git a/build/gen_whatever_pir.pl b/build/gen_whatever_pir.pl
index b7a1507..39ed799 100644
--- a/build/gen_whatever_pir.pl
+++ b/build/gen_whatever_pir.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# Copyright (C) 2008, The Perl Foundation.
+# Copyright (C) 2008-2009, The Perl Foundation.
# $Id$
use strict;
@@ -10,10 +10,6 @@ my @ops = qw(
infix:== infix:!= infix:< infix:> infix:<= infix:>= infix:<=>
);
-my $output = $ARGV[0] || "-";
-
-open my $fh, "> $output" or die "Could not write $output: $!";
-
for (@ops) {
my $gen = '
.namespace []
@@ -47,10 +43,10 @@ for (@ops) {
.end
';
$gen =~ s/\$_/$_/g;
- print $fh $gen;
+ print $gen;
}
-print $fh '
+print '
.sub "!whatever_helper_left"
.param pmc left
$P0 = find_lex "$op"
@@ -64,5 +60,3 @@ print $fh '
.tailcall $P0($P1, right)
.end
';
-
-close $fh or die $!;
--
1.6.2.4
