linuxdoc-tools 0.9.72-4build1 / usr / share / linuxdoc-tools / fmt / fmt_html.pl

#
#  fmt_html.pl
#
# -----------------------------------------------------------------
#  HTML-specific driver stuff
#
#  Copyright © 1996, Cees de Groot
#  Copyright © 2008, Agustin Martin (Minor changes)
# -----------------------------------------------------------------

package LinuxDocTools::fmt_html;
use strict;

use LinuxDocTools::CharEnts;
use LinuxDocTools::Vars;

use LinuxDocTools::FixRef;
my $fixref = $LinuxDocTools::FixRef::fixref;

use LinuxDocTools::Html2Html;
my $html2html = $LinuxDocTools::Html2Html::html2html;

my $html = {};
$html->{NAME}         = "html";
$html->{HELP}         = "";
$html->{OPTIONS}      = [
			 { option => "split",
			   type => "l",
			   'values' => [ "0", "1", "2" ],
			   short => "s" },
			 { option => "toc",
			   type => "l",
			   'values' => [ "0", "1", "2" ],
			   short => "T" },
			 { option => "dosnames",
			   type => "f",
			   short => "h" },
			 { option => "imagebuttons",
			   type => "f",
			   short => "I"},
			 { option => "header",
			   type => "s",
			   short => "H"},
			 { option => "footer",
			   type => "s",
			   short => "F"}
			 ];
$html->{'split'}      = 1;
$html->{'toc'}        = -1;
$html->{dosnames}     = 0;
$html->{imagebuttons} = 0;
$html->{header}       = "";
$html->{footer}       = "";

$Formats{$html->{NAME}} = $html;

# -----------------------------------------------------------------
$html->{preNSGMLS} = sub {
# -----------------------------------------------------------------
  $global->{NsgmlsOpts} .= " -ifmthtml ";
  $global->{NsgmlsPrePipe} = "cat $global->{file}";
};

# -----------------------------------------------------------------
my $html_escape = sub {
# -----------------------------------------------------------------
# HTML escape sub. Called-back by `parse_data' below in `html_preASP'
# to properly escape `<' and `&' characters coming from the SGML source.
# -----------------------------------------------------------------
  my ($data)       = @_;
  my %html_escapes = ( '&' => '&amp;',
		       '<' => '&lt;');

  # Replace the char with it's HTML equivalent
  $data =~ s|([&<])|$html_escapes{$1}|ge;

  return ($data);
};

# -----------------------------------------------------------------
$html->{preASP} = sub {
# -----------------------------------------------------------------
#  Translate character entities and escape HTML special chars.
# -----------------------------------------------------------------
  my ($infile, $outfile) = @_;
  my $inheading = '';
  # `sdata_dirs' list is passed as anonymous array to make a single argument
  my $char_maps = load_char_maps ('.2html', [ Text::EntityMap::sdata_dirs() ]);

  while (<$infile>){
    if (s/^-//){
      chomp;
      s/([^\\])\\n/$1 /g if $inheading;      # Remove spurious \n in headings
      print $outfile "-" . parse_data ($_, $char_maps, $html_escape) . "\n";
    } elsif (/^A/){
      /^A(\S+) (IMPLIED|CDATA|NOTATION|ENTITY|TOKEN)( (.*))?$/
	|| die "bad attribute data: $_\n";
      my ($name,$type,$value) = ($1,$2,$4);
      if ($type eq "CDATA"){
	# CDATA attributes get translated also
	$value = parse_data ($value, $char_maps, $html_escape);
      }
      print $outfile "A$name $type $value\n";
    } else {
      if (/^\(HEADING/){
	$inheading = 1;
      } elsif (/^\)HEADING/){
	$inheading = '';
      }
      print $outfile $_;
    }
  }
  return 0;
};

# -----------------------------------------------------------------
$html->{postASP} = sub {
# -----------------------------------------------------------------
#  Take the sgmlsasp output, and make something useful from it.
# -----------------------------------------------------------------
  my $infile = shift;
  my $filename = $global->{filename};

  # Set various stuff as a result of option processing.
  my $ext = $html->{dosnames}     ? "htm" : "html";
  my $img = $html->{imagebuttons} ? 1 : 0;

  # Bring in file
  my @file = <$infile>;

  # Find references
  &{$fixref->{init}}($html->{'split'});
 LINE: foreach (@file) {
   foreach my $pat (keys %{$fixref->{rules}}) {
     if (/$pat/) {
       # Call rule function then skip to next line
       &{$fixref->{rules}->{$pat}}; next LINE;
     }
   }
   &{$fixref->{defaultrule}};
 }
  &{$fixref->{finish}};

  #
  #  Run through html2html, preserving stdout
  #  Also, handle prehtml.sed's tasks
  #
  my $filter = "";
  #  $filter = "|$main::progs->{NKF} -e" if ($global->{language} eq "ja");
  open SAVEOUT, ">&STDOUT";
  open STDOUT, "$filter>$filename.$ext" or die qq(Cannot open "$filename.$ext");

  &{$html2html->{init}}($html->{'split'}, $ext, $img, $filename,
                        $fixref->{filenum}, $fixref->{lrec},
			$html->{'header'}, $html->{'footer'}, $html->{'toc'},
                        $global->{tmpbase}, $global->{debug});
 LINE: foreach (@file) {
   s,<P></P>,,g; 			# remove empty <P></P> containers
   foreach my $pat (keys %{$html2html->{rules}}) {
     if (/$pat/) {
       # Call rule function then skip to next line
       &{$html2html->{rules}->{$pat}}; next LINE;
     }
   }
   &{$html2html->{defaultrule}};
 }
  &{$html2html->{finish}};

  close STDOUT;
  open STDOUT, ">&SAVEOUT";

  return 0;
};

1;