Lines Matching refs:fh
172 foreach my $fh (\*C,\*D,\*H)
174 print $fh <<"END" unless $opt{'q'};
367 my ($fh,$name) = @_;
372 while (<$fh>)
405 while (<$fh>)
460 my ($fh,$name) = @_;
465 while ($type = <$fh>)
473 my ($def,$sym,$pages) = split(/\s+/,scalar(<$fh>));
489 my $line = <$fh>;
497 my $line = <$fh>;
677 my ($fh,$a) = @_;
688 print $fh "$var encpage_t $name\[",scalar(@{$a->{'Entries'}}),"];\n";
694 addstrings($fh,$t) unless $t->{'DoneStrings'};
700 my ($fh,$name) = @_;
754 print $fh $1, "\n" while $definition =~ /\G(.{74,77},)/gcs;
755 print $fh substr ($definition, pos $definition), " };\n";
768 my ($fh,$a,$bigname) = @_;
774 outtable($fh,$t,$bigname) unless $t->{'Done'};
776 print $fh "\nstatic encpage_t $name\[",scalar(@{$a->{'Entries'}}),"] = {\n";
781 print $fh "{";
784 printf $fh findstring($bigname,$out);
788 print $fh "0";
790 print $fh ",",$t->{Cname};
791 printf $fh ",0x%02x,0x%02x,$l,$end},\n",$sc,$ec;
793 print $fh "};\n";
798 my ($fh,$name,$a) = @_;
867 my ($fh,$name,$h,$rep,$min_el,$max_el) = @_;
868 print $fh "# $0 @orig_ARGV\n" unless $opt{'q'};
869 print $fh "<code_set_name> \"$name\"\n";
873 print $fh "<mb_cur_min> $min_el\n";
877 print $fh "<mb_cur_max> $max_el\n";
881 print $fh "<subchar> ";
884 printf $fh "\\x%02X",ord($c);
886 print $fh "\n";
890 print $fh "#\nCHARMAP\n";
893 print $fh $line;
895 print $fh "END CHARMAP\n";