TODO

[Alberto Manuel Brandao Simoes]

        Here is a simple script (I hope it works) to grep instructions that
are not implemented.

        Cheers

        Alberto
-- 
 | Alberto Manuel Brandão Simões |
 | [EMAIL PROTECTED] |
 | http://numexp.sourceforge.net |

#!/usr/bin/perl -w

$file2grep = "docs/parrot_assembly.pod";
$opcodetable = "opcode_table";

open FG, $file2grep or die "Cannot open that file";
open OC, $opcodetable or die "Cannot open that file2";

while(<OC>) {
  next if /^#/;
  next if /^\s*$/;
  /^(\S+)/;
  $op{$1} = 1;
}

while(<FG>) {
  if (/^=item\s+([a-z]\S+)/) {
    $instruction = $1;
    if ($op{$instruction}) {
    } else {
      print "TODO: $instruction\n";
    }
  }
}

close FG;
close OC;