/dports/www/rt44/rt-4.4.5/lib/RT/Shredder/ |
H A D | POD.pm | 58 my ($file, $out_fh) = @_; 78 my ($file, $out_fh) = @_; 103 print $out_fh $expansion; 104 print $out_fh "</$tag>" if $tag; 105 print $out_fh "\n"; 114 print $out_fh $paragraph; 115 print $out_fh "</pre>"; 116 print $out_fh "\n"; 126 print $out_fh $expansion; 127 print $out_fh "</p>"; [all …]
|
/dports/textproc/p5-Pod-DocBook/Pod-DocBook-1.2/lib/Pod/ |
H A D | DocBook.pm | 34 print $out_fh join ("\n", 47 print $out_fh join ('', 80 print $out_fh "-->\n"; 257 print $out_fh $para_out; 296 print $out_fh join ('', 308 print $out_fh join ('', 331 print $out_fh join ('', 692 print $out_fh join ('', 702 print $out_fh join ('', 944 print $out_fh join ('', [all …]
|
/dports/www/rt50/rt-5.0.2/lib/RT/Shredder/ |
H A D | POD.pm | 58 my ($file, $out_fh) = @_; 78 my ($file, $out_fh) = @_; 147 print $out_fh $expansion; 148 print $out_fh "</$tag>" if $tag; 149 print $out_fh "\n"; 158 print $out_fh $paragraph; 159 print $out_fh "</pre>"; 160 print $out_fh "\n"; 170 print $out_fh $expansion; 171 print $out_fh "</p>"; [all …]
|
/dports/textproc/p5-SGML-DTDParse/SGML-DTDParse-2.00/bin/ |
H A D | dtdflatten | 53 my $out_fh = \*STDOUT; 56 $out_fh = gensym; 127 print $out_fh <<'EOT'; 137 print $out_fh "-->\n\n"; 154 print $out_fh $text; 155 print $out_fh ">\n"; 206 print $out_fh ">\n"; 262 print $out_fh ">\n"; 290 print $out_fh "SYSTEM"; 293 print $out_fh ">\n"; [all …]
|
/dports/textproc/dtdparse/SGML-DTDParse-2.00/bin/ |
H A D | dtdflatten | 53 my $out_fh = \*STDOUT; 56 $out_fh = gensym; 127 print $out_fh <<'EOT'; 137 print $out_fh "-->\n\n"; 154 print $out_fh $text; 155 print $out_fh ">\n"; 206 print $out_fh ">\n"; 262 print $out_fh ">\n"; 290 print $out_fh "SYSTEM"; 293 print $out_fh ">\n"; [all …]
|
/dports/textproc/redland/redland-1.0.17/scripts/ |
H A D | process-changes.pl | 417 my($out_fh, $title, @names) = @_; 419 print $out_fh "\n# $title\n"; 432 print $out_fh "\n# $title\n"; 446 print $out_fh "\n# $title\n"; 457 my($out_fh)=@_; 474 print $out_fh "\n"; 627 my $out_fh = new IO::File; 644 print $out_fh <<"EOT"; 745 $out_fh->close; 752 my $out_fh = new IO::File; [all …]
|
/dports/textproc/rasqal/rasqal-0.9.33/scripts/ |
H A D | process-changes.pl | 417 my($out_fh, $title, @names) = @_; 419 print $out_fh "\n# $title\n"; 432 print $out_fh "\n# $title\n"; 446 print $out_fh "\n# $title\n"; 457 my($out_fh)=@_; 474 print $out_fh "\n"; 629 my $out_fh = new IO::File; 646 print $out_fh <<"EOT"; 747 $out_fh->close; 754 my $out_fh = new IO::File; [all …]
|
/dports/textproc/raptor2/raptor2-2.0.15/scripts/ |
H A D | process-changes.pl | 417 my($out_fh, $title, @names) = @_; 419 print $out_fh "\n# $title\n"; 432 print $out_fh "\n# $title\n"; 446 print $out_fh "\n# $title\n"; 457 my($out_fh)=@_; 474 print $out_fh "\n"; 628 my $out_fh = new IO::File; 645 print $out_fh <<"EOT"; 746 $out_fh->close; 753 my $out_fh = new IO::File; [all …]
|
/dports/lang/perl5.30/perl-5.30.3/regen/ |
H A D | ebcdic.pl | 58 print $out_fh <<EOF; 97 print $out_fh <<'EOF'; 208 print $out_fh <<'END'; 250 print $out_fh "\n"; 265 print $out_fh <<END; 276 print $out_fh <<END; 323 print $out_fh <<END; 340 print $out_fh 354 print $out_fh <<END; 375 print $out_fh <<END; [all …]
|
H A D | unicode_constants.pl | 9 my $out_fh = open_new('unicode_constants.h', '>', 13 print $out_fh <<END; 61 print $out_fh <<END; 73 print $out_fh "\n" . get_conditional_compile_line_start($charset); 85 print $out_fh "/* $comment_body */\n"; 88 print $out_fh "\n"; 167 print $out_fh "\n" . get_conditional_compile_line_end(); 181 printf $out_fh "\n/* The number of code points not matching \\pC */\n" 195 printf $out_fh "\n/* The highest code point that has any type of case change */\n" 201 print $out_fh "\n#endif /* PERL_UNICODE_CONSTANTS_H_ */\n"; [all …]
|
H A D | mk_invlists.pl | 332 print $out_fh <<EOF; 344 print $out_fh "\n"; 746 print $out_fh 804 print $out_fh 1152 print $out_fh "\n"; 2933 print $out_fh "\n};\n"; 2967 print $out_fh "\n"; 2973 print $out_fh "\t"; 2975 print $out_fh "\n"; 3107 print $out_fh "\n"; [all …]
|
/dports/biology/stacks/stacks-2.4/scripts/ |
H A D | integrate_alignments.py | 162 out_fh.write(line) 187 out_fh.write(buf) 193 out_fh.close() 220 out_fh.close() 244 out_fh.close() 268 out_fh.close() 308 out_fh.close() 351 out_fh.write(buf) 354 out_fh.close() 378 out_fh.close() [all …]
|
/dports/lang/perl5.34/perl-5.34.0/regen/ |
H A D | ebcdic.pl | 63 print $out_fh <<EOF; 104 print $out_fh <<'EOF'; 215 print $out_fh <<'END'; 258 print $out_fh "\n"; 272 print $out_fh <<END; 283 print $out_fh <<END; 330 print $out_fh <<END; 347 print $out_fh 361 print $out_fh <<END; 382 print $out_fh <<END; [all …]
|
H A D | unicode_constants.pl | 9 my $out_fh = open_new('unicode_constants.h', '>', 13 print $out_fh <<END; 61 print $out_fh <<END; 85 print $out_fh "/* $comment_body */\n"; 88 print $out_fh "\n"; 166 print $out_fh <<"EOT"; 173 print $out_fh get_conditional_compile_line_end(); 188 print $out_fh <<~"EOT"; 207 print $out_fh <<~"EOS"; 217 print $out_fh "\n#endif /* PERL_UNICODE_CONSTANTS_H_ */\n"; [all …]
|
H A D | mk_invlists.pl | 64 print $out_fh <<'EOF'; 88 print $out_fh <<"EOF"; 365 print $out_fh <<EOF; 826 print $out_fh 2423 print $out_fh 3079 print $out_fh "\n};\n"; 3116 print $out_fh "\n"; 3124 print $out_fh "\t"; 3126 print $out_fh "\n"; 3260 print $out_fh "\n"; [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/regen/ |
H A D | ebcdic.pl | 63 print $out_fh <<EOF; 104 print $out_fh <<'EOF'; 215 print $out_fh <<'END'; 258 print $out_fh "\n"; 272 print $out_fh <<END; 283 print $out_fh <<END; 330 print $out_fh <<END; 347 print $out_fh 361 print $out_fh <<END; 382 print $out_fh <<END; [all …]
|
H A D | mk_invlists.pl | 64 print $out_fh <<'EOF'; 88 print $out_fh <<"EOF"; 365 print $out_fh <<EOF; 826 print $out_fh 2423 print $out_fh 3079 print $out_fh "\n};\n"; 3116 print $out_fh "\n"; 3124 print $out_fh "\t"; 3126 print $out_fh "\n"; 3260 print $out_fh "\n"; [all …]
|
H A D | unicode_constants.pl | 9 my $out_fh = open_new('unicode_constants.h', '>', 13 print $out_fh <<END; 61 print $out_fh <<END; 85 print $out_fh "/* $comment_body */\n"; 88 print $out_fh "\n"; 166 print $out_fh <<"EOT"; 173 print $out_fh get_conditional_compile_line_end(); 188 print $out_fh <<~"EOT"; 207 print $out_fh <<~"EOS"; 217 print $out_fh "\n#endif /* PERL_UNICODE_CONSTANTS_H_ */\n"; [all …]
|
/dports/lang/perl5.32/perl-5.32.1/regen/ |
H A D | ebcdic.pl | 59 print $out_fh <<EOF; 98 print $out_fh <<'EOF'; 209 print $out_fh <<'END'; 252 print $out_fh "\n"; 266 print $out_fh <<END; 277 print $out_fh <<END; 324 print $out_fh <<END; 341 print $out_fh 355 print $out_fh <<END; 376 print $out_fh <<END; [all …]
|
H A D | unicode_constants.pl | 9 my $out_fh = open_new('unicode_constants.h', '>', 13 print $out_fh <<END; 61 print $out_fh <<END; 73 print $out_fh "\n" . get_conditional_compile_line_start($charset); 85 print $out_fh "/* $comment_body */\n"; 88 print $out_fh "\n"; 167 print $out_fh "\n" . get_conditional_compile_line_end(); 181 printf $out_fh "\n/* The number of code points not matching \\pC */\n" 195 printf $out_fh "\n/* The highest code point that has any type of case change */\n" 201 print $out_fh "\n#endif /* PERL_UNICODE_CONSTANTS_H_ */\n"; [all …]
|
H A D | mk_invlists.pl | 64 print $out_fh <<'EOF'; 88 print $out_fh <<"EOF"; 365 print $out_fh <<EOF; 826 print $out_fh 2397 print $out_fh 3053 print $out_fh "\n};\n"; 3090 print $out_fh "\n"; 3098 print $out_fh "\t"; 3100 print $out_fh "\n"; 3234 print $out_fh "\n"; [all …]
|
/dports/www/p5-CGI-Compress-Gzip/CGI-Compress-Gzip-1.03/lib/CGI/Compress/Gzip/ |
H A D | FileHandle.pm | 74 $self->{out_fh} = $fh; 123 my $type = ref $self->{out_fh}; 127 my $is_glob = $type eq 'GLOB' && defined $self->{out_fh}->fileno(); 129 $self->{out_fh}->can('fileno') && 130 defined $self->{out_fh}->fileno()); 135 if (!$self->SUPER::OPEN($self->{out_fh}, @{$self->{openargs}})) 178 my $out_fh = $self->{out_fh}; 179 if (!print {$out_fh} $header) 197 my $out_fh = $self->{out_fh}; 198 $self->{out_fh} = undef; # clear it, so we can't write to it after this method ends [all …]
|
/dports/print/fontforge/fontforge-20201107/Unicode/charset/ |
H A D | gen-charset.pl | 96 close $out_fh; 312 print $out_fh <<_EOT_; 333 printf $out_fh "0x%04x%s", $barray->[$_] // 0, 337 print $out_fh "};\n\n"; 360 print $out_fh "static const unsigned " . 368 print $out_fh "};\n\n"; 372 print $out_fh "static const unsigned " . 376 print $out_fh " allzeros,\n"; 381 print $out_fh "};\n\n"; 385 printf $out_fh "%d, %d, ", $first, $last; [all …]
|
/dports/games/black-hole-solver/black-hole-solver-1.10.1/ |
H A D | solver_common.h | 30 static inline void out_board(FILE *out_fh, in out_board() argument 67 FILE *out_fh; member 84 settings.out_fh = stdout; in parse_cmd_line() 290 FILE *const out_fh = settings_ptr->out_fh; in solve_filename() local 297 fputs("Solved!\n", out_fh); in solve_filename() 314 fprintf(out_fh, in solve_filename() 318 fprintf(out_fh, in solve_filename() 348 fputs("Unsolved!\n", out_fh); in solve_filename() 352 fprintf(out_fh, in solve_filename() 370 if (settings_ptr->out_fh != stdout) in solve_free() [all …]
|
/dports/security/p5-Filter-Crypto/Filter-Crypto-2.09/CryptFile/lib/Filter/Crypto/ |
H A D | CryptFile.pm | 183 my($out_fh, $out_file, $out_opened, $out_flocked); 185 $out_fh = $_[1]; 190 unless (sysopen $out_fh, $out_file, 208 if (-f $out_fh) { 209 unless (flock $out_fh, LOCK_EX | LOCK_NB) { 215 close $out_fh if $out_opened; 230 $out_opened ? close $out_fh 243 $out_opened ? close $out_fh 244 : $out_flocked ? flock $out_fh, LOCK_UN : 1; 259 close $out_fh or [all …]
|