Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:42.3:Staging:C
latex2html
latex2html-2012-binmode.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File latex2html-2012-binmode.diff of Package latex2html
--- IndicTeX-HTML/devnagri.perl +++ IndicTeX-HTML/devnagri.perl @@ -331,6 +331,7 @@ sub do_env_pre_tr_devnagri { local($_) = @_; open(DNTR,">dntr.tmp") || print "\n *** cannot open dntr.tmp ***" ; + binmode DNTR; print DNTR "\$\$", &revert_to_raw_tex($_), "\$\$"; close DNTR; &syswait("patc -p $PRE_FILTERS${dd}dng.pat dntr.tmp dntr.tmp1"); --- IndicTeX-HTML/itrans.perl +++ IndicTeX-HTML/itrans.perl @@ -336,10 +336,11 @@ , "\#${indic}ifm=".$itrans_info{$indic.'ifm'} , "\#$indic", $itext , "\#end$indic\n" ); open(ITRANS, ">itrans.itx"); + binmode ITRANS;; print ITRANS "$_"; close(ITRANS); &syswait("$ITRANS <itrans.itx >itrans.htm"); - open(ITRANS, "<itrans.htm"); $itext = ''; + open(ITRANS, "<itrans.htm"); binmode ITRANS; $itext = ''; while (<ITRANS>) { next if (/^(\%|$)/); $itext .= $_ --- IndicTeX-HTML/malyalam.perl +++ IndicTeX-HTML/malyalam.perl @@ -221,6 +221,7 @@ sub do_env_pre_mmtr { local($_) = @_; open(MMTR,">mmtr.tmp") || print "\n *** cannot open mmtr.tmp ***" ; + binmode MMTR; print MMTR "\$\$", &revert_to_raw_tex($_), "\$\$"; close MMTR; &syswait("$PATC -p $MMDIR${dd}mm.pat mmtr.tmp mmtr.tmp1"); --- cweb2html/cweb2html +++ cweb2html/cweb2html @@ -258,7 +258,7 @@ open(INPUT,"<$filename") || die "$PRGFILE: error: Could not open $filename\n"; - + binmode INPUT; while (<INPUT>) { $string{'STRING'} .= $_; } --- cweb2html/htcweb.perl +++ cweb2html/htcweb.perl @@ -941,6 +941,7 @@ print "\nReading <$_[0]>..." if $DEBUG; open(INPUT,"<$_[0]"); + binmode INPUT; while (<INPUT>) { $string{'STRING'} .= $_; } @@ -948,6 +949,7 @@ print "\nReading <$_[1]>..." if $DEBUG; open(INPUT,"<$_[1]"); + binmode INPUT; while (<INPUT>) { $string{'STRING'} .= $_; } @@ -1028,6 +1030,7 @@ } } open(INPUT,"<$file") || die "Could not open $file\n"; + binmode INPUT; while (<INPUT>) { $string{'STRING'} .= $_}; $_ = delete $string{'STRING'}; # Blow it away and return the result --- cweb2html/makemake.pl +++ cweb2html/makemake.pl @@ -27,8 +27,10 @@ die "Cannot rename to $source.bak, $!\n"; open(OUT,">$source") || die "Cannot open $source, $!\n"; + binmode OUT; open(IN,"<$source.bak"); + binmode IN; while (<IN>) { $string{'STRING'} .= $_; } --- latex2html.pin +++ latex2html.pin @@ -1088,6 +1088,7 @@ unless($ignore); return undef; } + binmode CATFILE; local($/) = undef; # slurp in whole file my $contents = <CATFILE>; close(CATFILE); @@ -1344,6 +1345,7 @@ $auto_styles =~ s/\|$//; if(open(STYLES, "<$TMP_${dd}styles")) { + binmode STYLES; while(<STYLES>) { if(s/^\s*(\S+)\s*(.*)$/$style = $1; $options = $2;/eo) { &do_require_package($style); @@ -1759,6 +1761,7 @@ unless(open(SINPUT,"<$file")) { die "\nError: Cannot read '$file': $!\n"; } + binmode SINPUT; local(@file_string); print STDOUT "$file" if ($VERBOSITY >1); while (<SINPUT>) { @@ -1843,6 +1846,7 @@ &wrap_shorthand_environments; print STDOUT "\n *** End-of-partition ***" if ($VERBOSITY > 1); if(open(OUT, ">$TMP_$dd$PARTITION_PREFIX$count")) { + binmode OUT; print OUT $_; close(OUT); } else { @@ -1863,6 +1867,7 @@ local($file) = @_; local(%string); if(open(INPUT,"<$file")) { + binmode INPUT; local(@file_string); while (<INPUT>) { push(@file_string, $_ ); @@ -2316,6 +2321,7 @@ open(OUTPUT, ">$CURRENT_FILE") || die "Cannot write '$CURRENT_FILE': $!\n"; + binmode OUTPUT; if ($XBIT_HACK) { # use Apache's XBit hack chmod 0744, $CURRENT_FILE; &check_htaccess; @@ -3766,6 +3772,7 @@ print "\nWriting image.pre file ...\n"; open(ENV,">.$dd${PREFIX}images.pre") || die "\nCannot write '${PREFIX}images.pre': $!\n"; + binmode ENV; print ENV &make_latex($latex_body); print ENV "\n"; close ENV; @@ -3785,6 +3792,7 @@ # save pre-processor commands in a file: preproc open(CMDS,">.$dd${PREFIX}preproc") || die "\nCannot write '${PREFIX}preproc': $!\n"; + binmode CMDS; print CMDS $preprocessor_cmds ; close CMDS; @@ -3795,6 +3803,7 @@ print "\nWriting image file ...\n"; open(ENV,">.$dd${PREFIX}images.tex") || die "\nCannot write '${PREFIX}images.tex': $!\n"; + binmode ENV; print ENV &make_latex($latex_body); print ENV "\n"; close ENV; @@ -7155,8 +7164,10 @@ print "\nError: Cannot write '$FILE.css': $!\n"; return; } + binmode STYLESHEET; if ( -f $EXTERNAL_STYLESHEET ) { if(open(EXT_STYLES, "<$EXTERNAL_STYLESHEET")) { + binmode EXT_STYLES; while (<EXT_STYLES>) { print STYLESHEET $_; } close(EXT_STYLES); } else { @@ -7451,7 +7462,7 @@ &slurp_input($this_file); open(OUTFILE, ">$this_file") || die "\nError: Cannot write file '$this_file': $!\n"; - + binmode OUTFILE; if (($INDEX) && ($SHORT_INDEX) && ($SEGMENT eq 1)) { &make_index_segment($title,$file); } @@ -7815,6 +7826,7 @@ return(); } if(open(INIT, "<$init_file")) { + binmode INIT; foreach $info_line (<INIT>) { $info_line =~ s/[<>"&]/'&'.$html_special_entities{$&}.';'/eg; $init_contents .= $info_line; @@ -8579,6 +8591,7 @@ sub post_process_footnotes { &slurp_input($footfile); open(OUT, ">$footfile") || die "Cannot write file '$footfile': $!\n"; + binmode OUT; &replace_markers; &post_post_process if (defined &post_post_process); &adjust_encoding; @@ -8600,6 +8613,7 @@ print "\nError: Cannot write '$filename': $!\n"; return; } + binmode FILE; print FILE $_; close(FILE); } @@ -9039,6 +9053,7 @@ my $script = $SCRIPT || $0; open(PIPE, "$perldoc -t $script |") || die "Fatal: can't open pipe: $!"; + binmode PIPE; while (<PIPE>) { if (/^\s*$/) { next; @@ -10134,6 +10149,7 @@ print "\nError: Cannot write '$urlimg': $!\n"; return; } + binmode IMAGE_MAP; ### HWS Pass server map unchanged from user print IMAGE_MAP "<HTML>\n<BODY>\n<A HREF=\"$map\">\n"; print IMAGE_MAP "<IMG\n SRC=\"$url\" ISMAP $ausemp $altst> </A>"; @@ -10151,6 +10167,8 @@ ($to_prefix, $suffix) = split(/\./, $to); if ($EXTN =~ /$suffix$/) { if (open(FROM, "<$from") && open(HTMP, ">HTML_tmp")) { + binmode FROM; + binmode HTMP; while (<FROM>) { s/$from_prefix\.$IMAGE_TYPE/$to_prefix.$IMAGE_TYPE/g; print HTMP; @@ -10175,6 +10193,7 @@ &replace_markers; &add_dir_to_href if ($DESTDIR); if(open(CAPTIONS, ">${PREFIX}$type.pl")) { + binmode CAPTIONS; print CAPTIONS $_; close (CAPTIONS); } else { @@ -16385,6 +16404,7 @@ if (-f $access_file) { print STDOUT " ... found"; open(HTACCESS, "<$access_file"); + binmode HTACCESS; while (<HTACCESS>) { if (/^\s*XBitHack\s*on\s*$/) { print STDOUT " with XBitHack on"; --- styles/color.perl +++ styles/color.perl @@ -154,6 +154,7 @@ if (-f $file) { if (open(COLORFILE,"<$file")) { print STDOUT "\n(reading colors from $file" if $DEBUG; + binmode COLORFILE; $* = 0; # Multiline matching OFF while (<COLORFILE>) { s/^\s*(\d+)\s+(\d+)\s+(\d+)\s+(\w+(\s\w+)*)\s*/ @@ -187,6 +188,7 @@ if (-f $file) { if (open(COLORFILE,"<$file")) { print STDOUT "\n(reading colors from $file"; + binmode COLORFILE; $* = 0; # Multiline matching OFF @colors = (<COLORFILE>); foreach (@colors) { --- styles/frames.perl +++ styles/frames.perl @@ -1126,6 +1126,7 @@ ); &text_cleanup; open(FILE,">$filename") || print "Cannot open $filename $!\n"; + binmode FILE; print FILE $_; close(FILE); } --- styles/getimagesize.perl +++ styles/getimagesize.perl @@ -12,6 +12,7 @@ my $type = lc($1); $type = $IMAGE_TYPE unless $type =~ /(gif|png|jpe?g)/; if (open(IMAGE, "<$imagefile")) { + binmode IMAGE; my ($buffer,$magic,$dummy,$width,$height) = ('','','',0,0); binmode(IMAGE); # not harmful un UNIX # if ($IMAGE_TYPE =~ /gif/) { --- styles/graphics-support.perl +++ styles/graphics-support.perl @@ -426,6 +426,7 @@ my($file)=@_; my(@bb,$f); if(($f=find_file($file,$GRAPHICS_PATH,['.eps','.ps','.bb'])) && open(PS,$f)){ + binmode PS; while(<PS>){ if(/^%%BoundingBox:\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s*$/){ @bb=($1,$2,$3,$4); last; }} --- styles/html.perl +++ styles/html.perl @@ -293,6 +293,7 @@ if ($pretag) { # code due to Alan Williams <alanw@cs.man.ac.uk> open(LABELS, "<$labelfile"); + binmode LABELS; print "\nLoading external labels from $labelfile, with prefix $pretag" if ($VERBOSITY > 1); local($translated_stream, $instream); @@ -400,6 +401,7 @@ if ($pretag) { # code due to Alan Williams <alanw@cs.man.ac.uk> open(LABELS, "<$labelfile"); + binmode LABELS; print "\nLoading external labels from $labelfile, with prefix $pretag" if ($VERBOSITY > 1); local($translated_stream, $instream); --- styles/webtex.perl +++ styles/webtex.perl @@ -227,6 +227,7 @@ &webeq_failed($out_tag); $out_tag = ''; } else { open(TAG, "<$out_tag"); + binmode TAG; $app_tag = join('',<TAG>); close(TAG); # replace webeq fall-back image by LaTeX2HTML's own, or none at all --- texexpand.pin +++ texexpand.pin @@ -552,6 +552,7 @@ if($opt{save_styles}) { open(STYLES,">$opt{save_styles}") || die "$prompt Error: Cannot open style file '$opt{save_styles}': $!\n"; + binmode STYLES; } my $out_file = $opt{output}||$opt{out}; if($out_file) { @@ -561,6 +562,7 @@ else { open(OUT,">&STDOUT"); } + binmode OUT; &process_file($infile); # the workhorse... @@ -678,6 +680,7 @@ $includelevel++; open(IN,"<$infile") || die "$prompt Cannot open $infile\n"; + binmode IN; print STDERR "$prompt %--- Processing $infile" if ($debug > 1); # if we don't include this file marker LaTeX2HTML won't split --- versions/frame.pl +++ versions/frame.pl @@ -1202,6 +1202,7 @@ ); &text_cleanup; open(FILE,">$filename") || print "Cannot open $filename $!\n"; + binmode FILE; print FILE $_; close(FILE); } --- versions/techexpl.pl +++ versions/techexpl.pl @@ -212,6 +212,7 @@ sub TE_check_file_contents { local ($ifile) = @_; open(TEINC, "<$ifile"); + binmode TEINC; my($macrosOK,$macrosNUM,$numlines,$invalid) = (0,0,0,0); my $TE_special_macros_rx = join('|',@TE_special_macros); my $TE_defined_accents_rx = join('|',@TE_defined_accents);
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
