$st_header[0]

#!/usr/bin/perl # $Id: sgmlfmt.pl,v 1.9 1996/03/26 13:26:53 jfieber Exp $ # Format an sgml document tagged according to the linuxdoc DTD. # by John Fieber for the FreeBSD documentation # project. # # Bugs: # # Text lines that start with a period (.) confuse the conversions that # use groff. The workaround is to make sure the SGML source doesn't # have any periods at the beginning of a line. # # Although legal by the DTD, it the ascii formatting gets botched if # the tags are omitted following a . # # Beginning and end tags for the element must occur on the same line. # # The whole approach of using sgmlsasp and passing a few things # through for processing by this script is doomed. This whole thing # needs to be re-thought and a better DTD should be used anyway. # ####################################################################### # Look in a couple places for the SGML DTD and replacement files # require 'newgetopt.pl'; if (-d "$ENV{'HOME'}/lib/sgml/FreeBSD") { $sgmldir = "$ENV{'HOME'}/lib/sgml"; } elsif (-d "$ENV{'HOME'}/sgml/FreeBSD") { $sgmldir = "$ENV{'HOME'}/sgml"; } elsif (-d "/usr/share/sgml/FreeBSD" ) { $sgmldir = "/usr/share/sgml"; } else { die "Cannot locate sgml files!\n"; } # # Locate the DTD, an SGML declaration, and the replacement files # $doctype = ""; $dtdbase = "$sgmldir/FreeBSD"; $dtd = "$dtdbase/dtd/linuxdoc"; if (-f "$dtd.dec") { $decl = "$dtd.dec"; } else { $decl = ""; } $replbase = "$dtdbase/rep"; if (! $ENV{"SGML_PATH"}) { $ENV{"SGML_PATH"} = "$sgmldir/%O/%C/%T"; } sub usage { print "Usage:\n"; print "sgmlfmt -f [-i ...] [-links] [-ssi] file\n"; print "where is one of: html, latex, ascii, nroff\n"; } # # Look for the file specified on the command line # sub getfile { local($filearg) = @_; if (-f "$filearg.sgml") { $file = "$filearg.sgml"; } elsif (-f $filearg) { $file = $filearg; } else { return 0; } $fileroot = $file; $fileroot =~ s/.*\///; # drop the path $fileroot =~ s/\.sgml$//; # drop the .sgml $filepath = $file; $filepath =~ s/\/*[^\/]*$//; if ($filepath eq "") { $ENV{"SGML_PATH"} .= ":."; } else { $ENV{"SGML_PATH"} .= ":$filepath/%S:."; } return 1; } # # A function to run sgmls and sgmlsasp on the input file. # # Arguments: # 1. A file handle for the output # 2. A replacement file (directory actually) # sub sgmlparse { local($fhandle, $replacement) = @_; $defines = join(" -i ", @opt_i); if ($defines ne "") { $defines = "-i $defines"; } $ENV{'SGML_PATH'} = "$replbase/$replacement.%N:$ENV{'SGML_PATH'}"; open($fhandle, "sgmls $defines $decl $file | sgmlsasp $replbase/$replacement.mapping |"); } # # Generate nroff output # sub gen_nroff { open (outfile, ">$fileroot.nroff"); &sgmlparse(infile, "nroff"); $\ = "\n"; # automatically add newline on print while () { chop; # This is supposed to ensure that no text line starts # with a dot (.), thus confusing groff, but it doesn't # appear to work. unless (/^\.DS/.../^\.DE/) { s/^[ \t]{1,}(.*)/$1/g; } s/^\.[ \t].*/\\\&$&/g; print outfile; } $\ = ""; close(infile); close(outfile); } # # Generate ASCII output using groff # sub gen_ascii { &sgmlparse(infile, "nroff"); open(outfile, "| groff -T ascii -t -ms | col -b > $fileroot.ascii"); while () { print outfile; } close(infile); close(outfile); } # # Generate Postscript output using groff (this is suboptimal # for printed output!) # sub gen_ps { &sgmlparse(infile, "grops"); open(outfile, "| groff -T ps -t -ms > $fileroot.ps"); while () { print outfile; } close(infile); close(outfile); } # # Generate LaTeX output # sub gen_latex { open(outfile, ">$fileroot.tex"); &sgmlparse(infile, "latex"); while () { print outfile; } close(infile); close(outfile); } # # Generate HTML output. # # HTML is generated in two passes. # # The first pass takes the output from sgmlsasp and gathers information # about the structure of the document that is used in the sceond pass # for splitting the file into separate files. Targets for cross # references are also stored in this pass. # # Based on the information from the first pass, the second pass # generates a numbered series of HTML files, a "toplevel" file # containing the title, author, abstract and a brief table of # contents. A detailed table of contents is also generated. The # second pass generates links for cross references and URLs. # # Tunable parameters # $maxlevel = 3; # max section depth $num_depth = 4; # depth of numbering $m_depth = 2; # depth of menus $sc = 0; # section counter $filecount = 0; # file counter # Other variables: # # st_xxxx - Section Table. Arrays containing information about a # given section. To be accesssed via the section counter $sc. # # st_ol - The output level of the given section. I.E. how many # levels from the table of contents does it lie in terms # of HTML files which is distinct from , etc. # levels. # # st_sl - The absolute depth of a section. Contrast st_ol. # # st_num - The section number in the form X.Y.Z.... # # st_file - The HTML file the section belongs to. # # st_header - The text of the section title. # # st_parent - The section number of the given sections parent. sub gen_html { local($i, $sl); $tmpfile = "/tmp/sgmlf.$$"; open(bar, ">$tmpfile"); # print STDERR "(Pass 1..."; &sgmlparse(foo, "html"); while () { print bar; # count up the number of files to be generated # and gather assorted info about the document structure if (/^<\@\@sect>/) { $sl++; # current section level $sc++; # current section number $st_sl[$sc] = $sl; # In case this section has subsections, set the parent # pointer for this level to point at this section. $parent_pointer[$sl] = $sc; # Figure out who is the parent if this section. $st_parent[$sc] = $parent_pointer[$sl - 1]; # Per level counters $counter[$sl]++; $counter[$sl + 1] = 0; # calculate the section number in the form x.y.z. if ($sl <= $num_depth) { $st_num[$sc] = $st_num[$st_parent[$sc]] . "$counter[$sl]."; } # calculate the file number and output level if ($sl <= $maxlevel) { $filecount++; $st_ol[$sc] = $sl; } else { $st_ol[$sc] = $maxlevel; } $st_file[$sc] = $filecount; # Calculate the highest level node in which this # node should appear as a menu item. $st_pl[$sc] = $sl - $m_depth; if ($st_pl[$sc] < 0) { $st_pl[$sc] = 0; } if ($st_pl[$sc] > $maxlevel) { $st_pl[$sc] = $maxlevel; } } if (/^<\@\@endsect>/) { $sl--; } # record section titles if (/^<\@\@head>/) { chop; s/^<\@\@head>//; $st_header[$sc] = $_; } # record the section number that a label occurs in if (/^<\@\@label>/) { chop; s/^<\@\@label>//; if ($references{$_} eq "") { $references{$_} = "$filecount"; if ($opt_links) { &extlink($_, "${fileroot}${filecount}.html"); } } else { print STDERR "Warning: the label `$_' is multiply-defined.\n"; } } } close(bar); open(foofile, $tmpfile); &html2html(foofile, "boo"); unlink($tmpfile); } # # HTML conversion, pass number 2 # sub html2html { local($infile, $outfile) = @_; local($i); $sc = 0; push(@scs, $sc); open(tocfile, ">${fileroot}_toc.html"); print tocfile "$doctype\n\n"; while (<$infile>) { # change `<' and `>' to `<' and `>' in

if (/

/.../<\/pre>/) {
	    s//<\1pre>/g;
	    s/>/\>/g;
	    s/<([\/]*)pre\>/<\1pre>/g;
	}

	# remove extraneous empty paragraphs (it is arguable that this
 	# is really a bug with the DTD, but changing it would break
 	# almost every document written to this DTD.)
	s/<\/p>//;

      tagsw: {
	  # titles and headings
	  if (s/^<\@\@title>//) {
	      chop;
	      $st_header[0] = $_;
	      $st_parent[0] = -1;
	      print tocfile "\n$st_header[0]\n\n";
	      print tocfile "
$st_header[0]\n";

	      $header[$st_ol[$sc]] = 
		  "$doctype\n\n\n$st_header[0]\n" . 
		      "\n\n";
	      if ($opt_ssi) {	# Server Side Include hook
		  $header[$st_ol[$sc]] .=
		      "";
	      }
	      $header[$st_ol[$sc]] .= "\n$st_header[0]\n"; 

	      $footer[$st_ol[$sc]] = "\n";
	      if ($opt_ssi) {	# Server Side Include hook
		  $footer[$st_ol[$sc]] .= 
		      "";
	      }
	      $footer[$st_ol[$sc]] .= "\n\n\n";
	      last tagsw;
	  }

	  #
	  # HEADER begin
	  #
	  if (s/^<\@\@head>//) {
	      chop;

	      if ($part == 1) {
		  $text[0] .= "Part $partnum:
$_";
		  last tagsw;
	      }

	      $href = "\"${fileroot}$st_file[$sc].html#$sc\"";

	      # set up headers and footers
	      if ($st_sl[$sc] > 0 && $st_sl[$sc] <= $maxlevel) {
		  $header[$st_ol[$sc]] = 
		      "$doctype\n\n\n$_\n\n\n";
		  if ($opt_ssi) { # Server Side Include hook
		      $header[$st_ol[$sc]] .=
			  "";
		  }
		  $header[$st_ol[$sc]] .= "\n$navbar[$st_ol[$sc]]\n\n";
		  $footer[$st_ol[$sc]] = "\n$navbar[$st_ol[$sc]]\n";
		  if ($opt_ssi) { # Server Side Include hook
		      $footer[$st_ol[$sc]] .=
			  "";
		  }
                  $footer[$st_ol[$sc]] .= "\n\n\n";
	      }

	      # Add this to the master table of contents
	      print tocfile "$st_num[$sc] " . 
		  "$_";

	      # Calculate the  level to use in the HTML file
	      $hlevel = $st_sl[$sc] - $st_ol[$sc] + 2;
	      $shlevel = $st_sl[$sc] - $st_ol[$sc] + 3;

	      $i = $st_ol[$sc];

	      # Add the section header
	      $text[$i] .= "$st_num[$sc] $_";
	      $i--;
	      
	      # And also to the parent 
	      if ($st_sl[$sc] == $st_ol[$sc] && $i >= 0) {
		  $text[$i] .= "$st_num[$sc] " . 
			  "$_";
		  $i--;
	      }

	      # and to the grandparents
	      for (; $i >= $st_pl[$sc];  $i--) {
		  $text[$i] .= "
$st_num[$sc] " .
		      "$_";
	      }

	      last tagsw;
	  }

	  #
	  # HEADER end
	  #
	  if (s/^<\@\@endhead>//) {
	      if ($part == 1) {
		  $text[0] .= "
\n";
		  $part = 0;
		  last tagsw;
	      }
	      print tocfile "\n";

	      $i = $st_ol[$sc];

	      # Close the section header
	      $text[$i] .= "\n";
	      $i--;

	      # in the parent...
	      if ($st_sl[$sc] == $st_ol[$sc] && $i >= 0) {
		  $text[$i] .= "\n";
		  $i--;
	      }

	      # in the grandparent...
	      for (; $i >= $st_pl[$sc];  $i--) {
		  $text[$i] .= "\n";
	      }
	      last tagsw;
	  }
	  
	  # sectioning
	  if (s/^<\@\@part>//) {
	      $part = 1;
	      $partnum++;
	      last tagsw;
	  }

	  #
	  # BEGINNING of a section
	  #
	  if (s/^<\@\@sect>//) {
	      # Increment the section counter and save it on a stack
	      # for future reference.
	      $sc++;
	      push(@scs, $sc);

	      # Set up the navigation bar
	      if ($st_file[$sc] > $st_file[$sc - 1]) {
		  &navbar($st_file[$sc], $filecount, $sc);
	      }

	      # Prepare for menu entries in the table of contents and
	      # parent file(s).
	      if ($st_sl[$sc - 1] < $st_sl[$sc]) {
		  print tocfile "\n";
		  $i = $st_ol[$sc] - 1 - ($st_sl[$sc] == $st_ol[$sc]);
		  for (; $i >= $st_pl[$sc];  $i--) {
		      $text[$i] .= "\n";
		  }
	      }
	      last tagsw;
	  }

	  #
	  # END of a section
	  #
	  if (s/^<\@\@endsect>//) {
	      
	      # Remember the section number! Subsections may have
	      # altered the global $sc variable.
	      local ($lsc) = pop(@scs);

	      # Close off subsection menus we may have created in
	      # parent file(s).
	      if ($st_sl[$lsc] > $st_sl[$sc + 1]) {
		  print tocfile "\n";
		  if ($st_sl[$lsc] > 1) {
		       print tocfile "\n";
		  }
		  $i = $st_ol[$lsc] - 1 - ($st_sl[$lsc] == $st_ol[$lsc]);
		  for (; $i >= $st_pl[$lsc];  $i--) {
		      $text[$i] .= "\n";
		  }
	      }

	      # If this section is below $maxlevel, write it now.
	      if ($st_sl[$lsc] <= $maxlevel) {
		  open(SECOUT, ">${fileroot}$st_file[$lsc].html");
		  print SECOUT "$header[$st_ol[$lsc]]  $text[$st_ol[$lsc]] " . 
		      "$footer[$st_ol[$lsc]]";
		  $text[$st_ol[$lsc]] = "";
		  close(SECOUT);
	      }
	      last tagsw;
	  }		

	  # cross references
	  if (s/^<\@\@label>//) {
	      chop;
	      $text[$st_ol[$sc]] .= "";
	      last tagsw;
	  }
	  if (s/^<\@\@ref>//) {
	      chop;
	      $refname = $_;
	      if ($references{$_} eq "") {
		  print "Warning: Reference to $_ has no defined target\n";
	      }
	      else {
		  $text[$st_ol[$sc]] .= 
		      "";
	      }
	      last tagsw;
	  }
	  if (s/^<\@\@endref>//) {
#	      $text[$st_ol[$sc]] .= "";
	      last tagsw;
	  }
	  if (s/^<\@\@refnam>//) {
	      $text[$st_ol[$sc]] .= "$refname";
	      last tagsw;
	  }
	  # URLs
	  if (s/^<\@\@url>//) {
	      chop;
	      $urlname = $_;
	      $text[$st_ol[$sc]] .= "";
	      last tagsw;
	  }
	  if (s/^<\@\@urlnam>//) {
	      $text[$st_ol[$sc]] .= "$urlname";
	      last tagsw;
	  }
	  if (s/^<\@\@endurl>//) {
#	      $text[$st_ol[$sc]] .= "";
	      last tagsw;
	  }
	  

	  # If nothing else did anything with this line, just print it.
	  $text[$st_ol[$sc]] .= "$_";
      }
    }

    print tocfile "\n";
    open(SECOUT, ">$fileroot.html");
    print SECOUT "$header[0] $text[0] $footer[0]";
    close(SECOUT);
    close tocfile;
}

# navbar
#
# Generate a navigation bar to go on the top and bottom of the page.

sub navbar {
    local ($fnum, $fmax, $sc) = @_;
    local ($i, $itext, $prv, $nxt, $colon);

    $colon = ":";

    # Generate the section hierarchy

    $navbar[$st_ol[$sc]] =
	"$st_header[0]\n";
    $i = $st_parent[$sc];
    while ($i > 0) {
	$itext = " $colon $st_header[$i]\n$itext";
	$i = $st_parent[$i];
    }
    $navbar[$st_ol[$sc]] .= "$itext $colon $st_header[$sc]
\n";

    # Generate previous and next pointers

    # Previous pointer must be in a different file AND must be at the
    # same or higher section level.  If the current node is the
    # beginning of a chapter, then previous will go to the beginning
    # of the previous chapter, not the end of the previous chapter.

    $prv = $sc;
    while ($prv >= 0 && $st_file[$prv] >= $st_file[$sc] - 1) { 
	$prv--; 
    }
    $prv++;
    $navbar[$st_ol[$sc]] .=
	"Previous: $st_header[$prv]
\n";

    # Then next pointer must be in a higher numbered file OR the home
    # page of the document.

    $nxt = $sc;
    if ($st_file[$nxt] == $filecount) { 
	$nxt = 0; 
    }
    else {
	while ($st_file[$nxt] == $st_file[$sc]) {
	    $nxt++;
	}
    }

    $navbar[$st_ol[$sc]] .=
	"Next: $st_header[$nxt]\n";

    $navbar[$st_ol[$sc]] .= "\n";

}


# extlink
#
# creates a symbolic link from the name in a reference to the numbered
# html file.  Since the file number that any given section has is 
# subject to change as the document goes through revisions, this allows
# for a fixed target that separate documents can hook into.
#
# Slashes (/) in the reference are converted to percents (%) while
# spaces ( ) are converted to underscores (_);

sub extlink {
    local ($ref, $fn) = @_;

    $ref =~ s/\//%/g;
    $ref =~ s/ /_/g;

    $file = "$ref.html";

    if (-e $file) {
	if (-l $file) {
	    unlink($file);
	    symlink($fn, $file);
	}
	else {
	    print "Warning: $file exists and is not a symbolic link\n";
	}
    }
    else {
	symlink($fn, $file);
    }
}

# Now, read the command line and take appropriate action

sub main {
    # Check arguments
    if (!&NGetOpt('f=s', 'links', 'ssi', 'i:s@')) {
	&usage;
	exit 1;
    }
    if (@ARGV == 0) {
	print "An input file must be specified.\n";
	&usage;
	exit 1;
    }
    if (&getfile($ARGV[0]) == 0) {
	print "Cannot locate specified file: $ARGV[0]\n";
	&usage;
	exit 1;
    }

    # Generate output
    if ($opt_f eq 'html') {
	print "generating $fileroot.html";
	if ($opt_links == 1) {
	    print " with external links";
	}
	print "...\n"; &gen_html(); 
    }
    elsif ($opt_f eq 'tex' || $opt_f eq 'latex') {
	print "generating $fileroot.tex...\n"; &gen_latex(); 
    }
    elsif ($opt_f eq 'nroff') { 
	print "generating $fileroot.nroff...\n"; &gen_nroff();
    }
    elsif ($opt_f eq 'ascii') {
	print "generating $fileroot.ascii...\n"; &gen_ascii(); 
    }
    elsif ($opt_f eq 'ps') { 
	print "generating $fileroot.ps...\n"; &gen_ps(); 
    }
    else {
	if ($opt_f eq "") {
	    print "An output format must be specified with the -f option.\n";
	}
	else {
	    print "\"$opt_f\" is an unknown output format.\n";
	}
	&usage;
	exit 1;
    }

}

&main;

exit 0;