iwjpictest/insn-makecheck

   1 #!/usr/bin/perl -p
   2 s/^\; (\w+)\s+(\S*)\s+\S*u\s.*$/ sprintf "%-15s %-7s \t%s\t%s", $1,$2,$1,$2 /e;
   3 s/^\s*\;.*\n//;
   4 s/^(\w+)\s+macro\s+(.*)\n/ sprintf "%-15s %-7s ", $1, $2 /e;
   5 s/^\s+endm\n$//;