[svn:parrot] r47049 - trunk/compilers/opsc/src/Ops

[cotto at svn.parrot.org]

Author: cotto
Date: Thu May 27 06:24:01 2010
New Revision: 47049
URL: https://trac.parrot.org/parrot/changeset/47049

Log:
[opsc] add number of ops parsed to verbose ops2c output

Modified:
   trunk/compilers/opsc/src/Ops/File.pm

Modified: trunk/compilers/opsc/src/Ops/File.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/File.pm	Thu May 27 06:10:21 2010	(r47048)
+++ trunk/compilers/opsc/src/Ops/File.pm	Thu May 27 06:24:01 2010	(r47049)
@@ -246,9 +246,12 @@
     self<quiet> || say("# Parsing $file...");
     my $start_time := pir::time__N();
     my $buffer     := slurp($file);
+    my $start_ops  := +self<ops>;
     self.compile_ops($buffer, :experimental( $file ~~ /experimental\.ops/));
+    my $end_ops  := +self<ops>;
     pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
-    self<quiet> || say("# Parsed $file in $time seconds.");
+    self<quiet> || say("# Parsed $file in $time seconds; found "~
+                       ($end_ops - $start_ops) ~" ops.");
 }
 
 method compile_ops($str, :$experimental? = 0) {