[svn:parrot] r44676 - in branches/ops_pct/compilers/opsc: src/Ops t
bacek at svn.parrot.org
bacek at svn.parrot.org
Sat Mar 6 01:38:49 UTC 2010
Author: bacek
Date: Sat Mar 6 01:38:48 2010
New Revision: 44676
URL: https://trac.parrot.org/parrot/changeset/44676
Log:
Drop parser_ops from Ops::File. Store just ops
Modified:
branches/ops_pct/compilers/opsc/src/Ops/File.pm
branches/ops_pct/compilers/opsc/t/05-opsfile.t
Modified: branches/ops_pct/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/File.pm Sat Mar 6 01:38:20 2010 (r44675)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm Sat Mar 6 01:38:48 2010 (r44676)
@@ -178,8 +178,7 @@
method new(*@files, :$nolines) {
self<files> := @files;
- self<parsed_ops> := list(); # Raw ops parsed.
- self<ops> := list(); # Renumbered versions of ops
+ self<ops> := list(); # Ops
for @files { self.read_ops( $_, $nolines ) }
@@ -203,15 +202,17 @@
method read_ops($file, $nolines) {
my $compiler := pir::compreg__Ps('Ops');
- say("Parsing $file");
+ say("# Parsing $file");
my $buffer := slurp($file);
my $past := $compiler.compile($buffer, :target('past'));
for @($past<ops>) {
- self<parsed_ops>.push($_);
+ self<ops>.push($_);
}
}
+method ops() { self<ops> };
+
=begin
=back
Modified: branches/ops_pct/compilers/opsc/t/05-opsfile.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/05-opsfile.t Sat Mar 6 01:38:20 2010 (r44675)
+++ branches/ops_pct/compilers/opsc/t/05-opsfile.t Sat Mar 6 01:38:48 2010 (r44676)
@@ -15,7 +15,7 @@
$f := Ops::File.new(|@files);
-my @ops := $f<parsed_ops>;
+my @ops := $f.ops;
# 84 core
# 116 math
# We can generate more than 1 Ops::Op per op due args expansion.
More information about the parrot-commits
mailing list