Permalink
Browse files

Add an utility

  • Loading branch information...
1 parent 5d60a4c commit 2e051c3d2053c1e648fea58d0c1f49a1fd8fddb6 @gfx committed Nov 18, 2009
Showing with 15 additions and 0 deletions.
  1. +15 −0 author/ppcode.pl
View
@@ -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;

0 comments on commit 2e051c3

Please sign in to comment.