#! /usr/bin/perl use Getopt::Std; # main procedure { getopts('s:'); my $section_name = defined($opt_s) ? $opt_s : "SDCC Docs"; my $body_stuff = "bgcolor=\"white\" link=\"teal\" vlink=\"#483d8b\""; my $font_begin = ""; my $font_end = ""; my $header_begin = "
"; my $header_end = "
"; my $favicon = "\n"; my $at_body_begin = 0; my $seen_header = 0; my $subsections = undef; while (<>) { # add favicon at the end of head if (/^<\/HEAD>/) { print($favicon . $_); next; } # treak the title, so google results and bookmarks show SDCC as first word if (/^/) { my $t = $_; while ($t !~ /<\/TITLE>/) { $t =~ s/\s+$//; $t .= ' '; $t .= <>; } $t =~ /<TITLE>([^<>]+)<\/TITLE>/; my $orig_title = $1; my $title = $section_name . ': ' . $orig_title; print "<TITLE>$title$'\n"; next; } # add the top title, body colors and left side nav bar if (/^/) { print "$'\n"; print "
\n"; print "

$font_begin$title$font_end

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "$font_begin\n"; $at_body_begin = 1; next; } # complete the div and table opened by the nav bar if (/^<\/BODY>/) { print "$font_end\n"; print "
\n"; print "

\n"; print; next; } # remove the latex2html nav at top of the page if (/^/ && $at_body_begin) { my $nav = ''; my $nav_buttons = 1; while (<>) { $nav_buttons = 0 if /
/; $nav .= $_ if $nav_buttons; last if //; } if ($nav) { print ""; print "\n"; print "\n"; print "\n"; print "
$section_name
"; print $nav; print "
 
\n"; } next; } # find headers and massage them a bit if (/^/) { print $header_begin; print; while (<>) { next if /^
\s*$/; #omit excessive blank lines print; last if /^<\/H[1-6]>/; } print $header_end; if ($subsections) { print $subsections; undef $subsections; } $seen_header = 1; } # remove subsections html (will put back in later) if (/^/ && ! $seen_header) { $subsections = $_; while (<>) { $subsections .= $_; last if //; } $_ = <>; last unless $_; next if /^
/; } # if we find a hr and have stored subsections, better print em! if (/
/) { print $subsections; undef $subsections; } print; $at_body_begin = 0; } }