Lines Matching refs:rcodes

138 my %rcodes;     # reason-name -> value
169         $rcodes{$1} = $2;
226             $rcodes{$name} = $code;
276             if ( !exists $rcodes{$1} ) {
278                 $rcodes{$1} = "X";
281             print STDERR "  Reason $1 = $rcodes{$1}\n" if $debug;
302     my @reasons  = sort grep( /^${lib}_/, keys %rcodes );
371                 if ( $rcodes{$i} eq "X" ) {
378                     $rcodes{$i} = $findcode;
382                 printf OUT "#${indent}define $i%s $rcodes{$i}\n", " " x $z;
474             if ( $rcodes{$i} eq "X" ) {
481                 $rcodes{$i} = $findcode;
485             printf OUT "#${indent}define $i%s $rcodes{$i}\n", " " x $z;
654     foreach ( keys %rcodes ) {
680     foreach my $i ( sort keys %rcodes ) {
681         my $short = "$i:$rcodes{$i}:";