Mirrors_Framework/rtems
1
0
Fork 0
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2026-09-22 11:21:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

Added -header and -dirfile options.

Browse Source
This commit is contained in:
Joel Sherrill
1998-04-03 15:41:30 +00:00
parent 0bbbf52785
commit 3ab325e103
1 changed files with 23 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
doc/tools/texi2www/texi2www
+23 -2
View File
@@ -19,11 +19,15 @@ $usage = <<EOT;
Usage: texi2www [option ...] texinfo_file
where options are:
-dir directory -- Specify output directory. Default is `.'.
-header path -- Specifies the path to a file containing HTML;
this files gets inserted near the top of each
generated HTML file.
-footer path -- Specifies the path to a file containing HTML;
this files gets inserted near the bottom of each
generated HTML file.
-icons path -- Specifies the path, relative to the output directory,
to the arrow files. Default is `..'.
-dirfile path -- Specifies a replacement for ../dir.html
-verbose -- Verbose output.
The complete user\'s is available at
@@ -32,12 +36,14 @@ EOT
########################################################################
$icons = ".."; $dir = ".";
$icons = ".."; $dir = "."; $dirfile = "../dir.html";
while ($ARGV[0] =~ /^-/) {
$_ = shift;
if (/-dirfile/) {$dirfile = shift; next;}
if (/-dir/) {$_ = shift; s!/$!!; s!$!/!; $dir = $_; next;}
if (/-verbose/) {$verbose = 1; next;}
if (/-footer/) {$footer = shift; next;}
if (/-header/) {$header = shift; next;}
if (/-icons/) {$_ = shift; s!\/$!!; $icons = $_; next;}
die $usage;
}
@@ -75,7 +81,7 @@ sub canonical # (node_name)
$n =~ s/^\s+//; $n =~ s/\s+$//; # strip whitespace
return "../dir.html" if ($n =~ /\(dir\)/i); # handle (dir)
return "$dirfile" if ($n =~ /\(dir\)/i); # handle (dir)
if ($n =~ /^\(([^\)]+)\)(.*)/) {
$p = $1; $p =~ s/^\s+//; $p =~ s/\s+$//; $p .= "/";
@@ -783,6 +789,7 @@ sub process_node
&printHTML("<HTML>\n");
&printHTML("<!-- created $today from " .
$origin[$start_index] . " via texi2www -->\n");
&print_header if $header;
&printHTML("<HEAD>\n<TITLE>$this</TITLE>\n");
&printHTML("<LINK REL=\"Precedes\" HREF=\"$cnext\">\n") if $next;
&printHTML("<LINK REV=\"Precedes\" HREF=\"$cprev\">\n") if $prev;
@@ -906,6 +913,20 @@ sub printHTML
}
} # printHTML
########################################################################
sub print_header
{
unless (open(HEADER,$header)) {
print "WARNING -- couldn't open header file \"$header\" -- $!\n";
$header = 0;
return;
}
while (<HEADER>) {
&printHTML($_);
}
close(HEADER);
}
########################################################################
sub print_footer
{