Add an utility

gfx · Nov 18, 2009 · 2e051c3 · 2e051c3
1 parent 5d60a4c
commit 2e051c3
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/author/ppcode.pl b/author/ppcode.pl
@@ -0,0 +1,15 @@
+#!perl -w
+
+use strict;
+use Acme::Perl::VM qw(@PL_ppaddr);
+
+my $implemented = 0;
+for(my $i = 0; $i < @PL_ppaddr; $i++){
+    my $ok = B::svref_2object($PL_ppaddr[$i])->GV->NAME ne '__ANON__';
+    print $ok ? '* ' : '  ', B::ppname($i), "\n";
+    $implemented++ if $ok;
+}
+
+printf "PPCODE %d/%d (%d%%)\n",
+    $implemented,  scalar @PL_ppaddr,
+    ($implemented / scalar @PL_ppaddr)*100;