Lines Matching refs:fh
386 my $fh = shift;
389 printf $fh "#define %-23s 0x%02x\n", $_, $DEFINES{$_};
397 my $fh = shift;
508 print $fh $header;
510 print $fh qq{\nour \$VERSION = "$v";\n\n};
533 print $fh "\$bits{\$_}{$bit} = '$flag' for qw(@o);\n";
578 print $fh "$s\n";
615 print $fh "$s;\n";
621 print $fh "\n\nour %defines = (\n";
622 printf $fh " %-23s => %3d,\n", $_ , $DEFINES{$_} for sort keys %DEFINES;
623 print $fh ");\n\nour %labels = (\n";
624 printf $fh " %-23s => '%s',\n", $_ , $LABELS{$_} for sort keys %LABELS;
625 print $fh ");\n";
628 print $fh "\n\nour %ops_using = (\n";
636 printf $fh " %-23s => %s,\n", $flag , "[qw($op_list)]"
643 print $fh ");\n\n$pending";
652 my $fh = shift;
823 print $fh <<EOF;