[svn:parrot] r44680 - in branches/ops_pct/compilers/opsc: src/Ops t

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Mar  6 01:48:19 2010
New Revision: 44680
URL: https://trac.parrot.org/parrot/changeset/44680

Log:
Add loading version in Ops::File

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:43:42 2010	(r44679)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm	Sat Mar  6 01:48:19 2010	(r44680)
@@ -167,6 +167,8 @@
 
 class Ops::File is Hash;
 
+pir::load_bytecode('config.pbc');
+
 =begin
 
 =item C<new(@files)>
@@ -180,6 +182,8 @@
     self<files>   := @files;
     self<ops>     := list(); # Ops
 
+    self._set_version();
+
     for @files { self.read_ops( $_, $nolines ) }
 
     self;
@@ -213,6 +217,21 @@
 
 method ops() { self<ops> };
 
+method version() {
+    self<version>;
+}
+
+method _set_version() {
+    my $config := _config();
+    my $version := $config<VERSION>;
+    #say("# $version");
+    my @bits := split('.', $version);
+    self<version_major> := @bits[0];
+    self<version_minor> := @bits[1];
+    self<version_patch> := @bits[2];
+    self<version>       := @bits;
+}
+
 =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:43:42 2010	(r44679)
+++ branches/ops_pct/compilers/opsc/t/05-opsfile.t	Sat Mar  6 01:48:19 2010	(r44680)
@@ -3,7 +3,7 @@
 pir::load_bytecode("compilers/opsc/opsc.pbc");
 pir::load_bytecode("nqp-settings.pbc");
 
-plan(6);
+plan(7);
 
 my $f := Ops::File.new();
 ok($f, "Empty Ops::File created");
@@ -32,4 +32,9 @@
 ok($op.name eq 'fact',  "Last op is fact");
 ok($op<code> == 358,    "... with code 0");
 
+my $version := join(' ', |$f.version);
+ok( $version ~~ /^\d+ \s \d+ \s \d+$/, "Version parsed");
+say("# $version");
+
+
 # vim: expandtab shiftwidth=4 ft=perl6: