5 my $output_buffer = '';
10 $buffer =~ s/^\s*([a-zA-Z0-9]+)<[^>]+>/$1/g;
11 $output_buffer .= 'O(';
12 $output_buffer .= $buffer.") \\\n";
17 if ($buffer && !/^\|(.*)$/) {
26 ######################################################################
28 # Print but insert some space so opcode names show up in a clear
31 my @lines = split /\n/, $output_buffer;
35 $max = length $1 if length $1 > $max;
38 foreach (sort @lines) {
43 print ' ' x
($max - length $op);
52 print "#define IR_OPCODES \\\n";