Return to progdoc CVS log

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

Annotation of embedaddon/bird2/tools/progdoc, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl
                      2: 
                      3: $srcdir = $ARGV[0];
                      4: $out = $ARGV[1];
                      5: 
                      6: open(OUT, ">", $out) || die "Cannot create output file";
                      7: process($srcdir, "doc/prog-root");
                      8: close OUT;
                      9: gen_deps();
                     10: exit 0;
                     11: 
                     12: sub include {
                     13:   my $f = shift @_;
                     14:   open(IN, "$f") || die "Unable to find $f";
                     15:   push(@deps, "$f");
                     16:   while (<IN>) {
                     17:     print OUT;
                     18:   }
                     19:   close IN;
                     20: }
                     21: 
                     22: sub process {
                     23:   my $dir = shift @_;
                     24:   my $doc = "$dir/" . shift @_;
                     25:   print "$doc\n";
                     26:   open(IN, $doc) || die "Unable to read $doc";
                     27:   push(@deps, $doc);
                     28:   my @docfile = <IN>;
                     29:   close IN;
                     30:   foreach $_ (@docfile) {
                     31:     chomp;
                     32:     /^#/ && next;
                     33:     /^([A-Z]+)\s*(.*)/ || die "Parse error: $_";
                     34:     $cmd = $1;
                     35:     $arg = $2;
                     36:     if ($cmd eq "C") { process("$dir/$arg", "Doc"); }
                     37:     elsif ($cmd eq "H") {
                     38:       push @stack, "H";
                     39:       print OUT "<chapt>$arg\n";
                     40:     } elsif ($cmd eq "S") {
                     41:       print "    $arg\n";
                     42:       my @files = map("$dir/$_", split(' ', $arg));
                     43:       my $fargs = join(' ', @files);
                     44:       open(DOC, "$srcdir/doc/kernel-doc -bird $fargs |") || die "Unable to start kernel-doc";
                     45:       push(@deps, @files);
                     46:       while (<DOC>) { print OUT; }
                     47:       close DOC;
                     48:     } elsif ($cmd eq "D") {
                     49:       print "    $arg\n";
                     50:       include("$dir/$arg");
                     51:     } else { die "Unknown command: $cmd"; }
                     52:   }
                     53: }
                     54: 
                     55: sub gen_deps {
                     56:   open(DEP, ">", "$out.d");
                     57:   print DEP "$out:";
                     58:   foreach $f (@deps) {
                     59:     print DEP " \\\n  $f";
                     60:   }
                     61:   print DEP "\n\n";
                     62: 
                     63:   foreach $f (@deps) {
                     64:     print DEP "$f:\n\n";
                     65:   }
                     66:   close DEP;
                     67: }