Return to progdoc CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / bird / tools

Annotation of embedaddon/bird/tools/progdoc, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: 
        !             3: $srcdir = $ARGV[0];
        !             4: 
        !             5: open(OUT, ">prog.sgml") || die "Cannot create output file";
        !             6: include("doc/prog-head.sgml");
        !             7: process("");
        !             8: include("doc/prog-foot.sgml");
        !             9: close OUT;
        !            10: exit 0;
        !            11: 
        !            12: sub include {
        !            13:   my $f = shift @_;
        !            14:   open(IN, "$srcdir/$f") || die "Unable to find $f";
        !            15:   while (<IN>) {
        !            16:     print OUT;
        !            17:   }
        !            18:   close IN;
        !            19: }
        !            20: 
        !            21: sub process {
        !            22:   my $dir = shift @_;
        !            23:   print "$dir/Doc\n";
        !            24:   open(IN, "$srcdir/$dir/Doc") || die "Unable to read $dir/Doc";
        !            25:   my @docfile = <IN>;
        !            26:   close IN;
        !            27:   foreach $_ (@docfile) {
        !            28:     chomp;
        !            29:     /^#/ && next;
        !            30:     /^([A-Z]+)\s*(.*)/ || die "Parse error: $_";
        !            31:     $cmd = $1;
        !            32:     $arg = $2;
        !            33:     if ($cmd eq "C") { process("$dir/$arg"); }
        !            34:     elsif ($cmd eq "H") {
        !            35:       push @stack, "H";
        !            36:       print OUT "<chapt>$arg\n";
        !            37:     } elsif ($cmd eq "S") {
        !            38:       print "    $arg\n";
        !            39:       open(DOC, "cd $srcdir/$dir ; $srcdir/doc/kernel-doc -bird $arg |") || die "Unable to start kernel-doc";
        !            40:       while (<DOC>) { print OUT; }
        !            41:       close DOC;
        !            42:     } elsif ($cmd eq "D") {
        !            43:       print "    $arg\n";
        !            44:       include("$dir/$arg");
        !            45:     } else { die "Unknown command: $cmd"; }
        !            46:   }
        !            47: }