Changeset 3ab325e in rtems
- Timestamp:
- 04/03/98 15:41:30 (25 years ago)
- Branches:
- 4.10, 4.11, 4.8, 4.9, 5, master
- Children:
- 0a46c6d
- Parents:
- 0bbbf52
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
doc/tools/texi2www/texi2www
r0bbbf52 r3ab325e 20 20 where options are: 21 21 -dir directory -- Specify output directory. Default is `.'. 22 -header path -- Specifies the path to a file containing HTML; 23 this files gets inserted near the top of each 24 generated HTML file. 22 25 -footer path -- Specifies the path to a file containing HTML; 23 26 this files gets inserted near the bottom of each … … 25 28 -icons path -- Specifies the path, relative to the output directory, 26 29 to the arrow files. Default is `..'. 30 -dirfile path -- Specifies a replacement for ../dir.html 27 31 -verbose -- Verbose output. 28 32 … … 33 37 ######################################################################## 34 38 35 $icons = ".."; $dir = "."; 39 $icons = ".."; $dir = "."; $dirfile = "../dir.html"; 36 40 while ($ARGV[0] =~ /^-/) { 37 41 $_ = shift; 42 if (/-dirfile/) {$dirfile = shift; next;} 38 43 if (/-dir/) {$_ = shift; s!/$!!; s!$!/!; $dir = $_; next;} 39 44 if (/-verbose/) {$verbose = 1; next;} 40 45 if (/-footer/) {$footer = shift; next;} 46 if (/-header/) {$header = shift; next;} 41 47 if (/-icons/) {$_ = shift; s!\/$!!; $icons = $_; next;} 42 48 die $usage; … … 76 82 $n =~ s/^\s+//; $n =~ s/\s+$//; # strip whitespace 77 83 78 return " ../dir.html" if ($n =~ /\(dir\)/i); # handle (dir)84 return "$dirfile" if ($n =~ /\(dir\)/i); # handle (dir) 79 85 80 86 if ($n =~ /^\(([^\)]+)\)(.*)/) { … … 784 790 &printHTML("<!-- created $today from " . 785 791 $origin[$start_index] . " via texi2www -->\n"); 792 &print_header if $header; 786 793 &printHTML("<HEAD>\n<TITLE>$this</TITLE>\n"); 787 794 &printHTML("<LINK REL=\"Precedes\" HREF=\"$cnext\">\n") if $next; … … 908 915 909 916 ######################################################################## 917 sub print_header 918 { 919 unless (open(HEADER,$header)) { 920 print "WARNING -- couldn't open header file \"$header\" -- $!\n"; 921 $header = 0; 922 return; 923 } 924 while (<HEADER>) { 925 &printHTML($_); 926 } 927 close(HEADER); 928 } 929 930 ######################################################################## 910 931 sub print_footer 911 932 {
Note: See TracChangeset
for help on using the changeset viewer.