Jerry/bird
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

New progdoc script generating SGML output.

Browse source
This commit is contained in:
Martin Mares 2000-05-31 11:29:56 +00:00
parent c9c3611734
commit 6be13de762
1 changed files with 21 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

72
tools/progdoc
View file

@ -2,76 +2,46 @@
$srcdir = $ARGV[0]; $srcdir = $ARGV[0];
open(OUT, ">prog/index.html") || die "Cannot create output file"; open(OUT, ">prog.sgml") || die "Cannot create output file";
html_header(*OUT{IO}, "BIRD: The Developer's Guide"); include("prog-head.sgml");
print OUT "<H1>BIRD: The Developer's Guide</H1>\n";
print OUT "<UL>\n";
process(""); process("");
html_footer(*OUT{IO}); include("prog-foot.sgml");
print OUT "</UL>\n";
close OUT; close OUT;
exit 0; exit 0;
sub include {
my $f = shift @_;
open(IN, "$srcdir/doc/$f") || die "Unable to find $f";
while (<IN>) {
print OUT;
}
close IN;
}
sub process { sub process {
my $dir = shift @_; my $dir = shift @_;
print "$dir/Doc\n"; print "$dir/Doc\n";
open(IN, "$srcdir/$dir/Doc") || die "Unable to read $dir/Doc"; open(IN, "$srcdir/$dir/Doc") || die "Unable to read $dir/Doc";
my @docfile = <IN>; my @docfile = <IN>;
my @stack = ();
close IN; close IN;
push @docfile, "X\n";
foreach $_ (@docfile) { foreach $_ (@docfile) {
chomp; chomp;
/^#/ && next; /^#/ && next;
/^(\.*)([A-Z]+)\s*(.*)/ || die "Parse error: $_"; /^([A-Z]+)\s*(.*)/ || die "Parse error: $_";
$indent = length $1; $cmd = $1;
$cmd = $2; $arg = $2;
$arg = $3;
while (@stack > $indent) {
$x = pop @stack;
if ($x eq "H") { print OUT "</UL>\n"; }
elsif ($x eq "F") { html_footer(*AUX{IO}); close AUX; }
else { print STDERR "Unknown stack element $x\n"; }
}
(@stack == $indent) or die "Invalid nesting: $_";
if ($cmd eq "C") { process("$dir/$arg"); } if ($cmd eq "C") { process("$dir/$arg"); }
elsif ($cmd eq "H") { elsif ($cmd eq "H") {
push @stack, "H"; push @stack, "H";
print OUT "<LI>$arg"; print OUT "<sect>$arg\n";
print OUT "<UL>\n";
} elsif ($cmd eq "F") {
$arg =~ /^(\S+)\s+(.*)$/ || die "Invalid command: $_";
push @stack, "F";
print " $1\n";
open(AUX, ">prog/$1.html") || die "Unable to create output file";
print OUT "<LI><A HREF=\"$1.html\">$2</A>\n";
html_header(*AUX{IO}, "BIRD: $2");
} elsif ($cmd eq "S") { } elsif ($cmd eq "S") {
print " $arg\n"; print " $arg\n";
open(DOC, "cd $srcdir/$dir ; $srcdir/doc/kernel-doc -html $arg |") || die "Unable to start kernel-doc"; open(DOC, "cd $srcdir/$dir ; $srcdir/doc/kernel-doc -bird $arg |") || die "Unable to start kernel-doc";
while (<DOC>) { print AUX; } while (<DOC>) { print OUT; }
close DOC; close DOC;
} elsif ($cmd eq "X") { } elsif ($cmd eq "D") {
print " $arg\n";
include($arg);
} else { die "Unknown command: $cmd"; } } else { die "Unknown command: $cmd"; }
} }
} }
sub html_header {
my $out = shift @_;
my $title = shift @_;
print $out <<EOF
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML><HEAD><TITLE>$title</TITLE>
<LINK REV=MADE HREF="mailto:bird\@atrey.karlin.mff.cuni.cz">
</HEAD><BODY>
EOF
;
}
sub html_footer {
my $out = shift @_;
print $out <<EOF
</BODY></HTML>
EOF
;
}