mirrors/bird
mirrors/bird
0
0
Fork 0
mirror of https://gitlab.nic.cz/labs/bird.git synced 2025-01-18 06:51:54 +00:00
Code Releases Activity

Doc: Move root of code documentation to doc dir

Browse Source 
It reduces clutter in root and also avoid collision with doc dir on
case-insensitive filesystems when name back to Doc.
This commit is contained in:
Ondrej Zajicek (work) 2018-12-19 16:25:59 +01:00
parent 81bc013dde
commit d1c8f22bec
4 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
doc/prog-root Normal file
View File

@ -0,0 +1,9 @@
D doc/prog-head.sgml
D doc/prog-intro.sgml
C nest
C conf
C filter
C proto
C sysdep
C lib
D doc/prog-foot.sgml

1
doc/progdoc
View File

@ -1 +0,0 @@
D prog-intro.sgml

7
progdoc
View File

@ -1,7 +0,0 @@
C doc
C nest
C conf
C filter
C proto
C sysdep
C lib

11
tools/progdoc
View File

@ -3,9 +3,7 @@
$srcdir = $ARGV[0]; $srcdir = $ARGV[0];
open(OUT, ">prog.sgml") || die "Cannot create output file"; open(OUT, ">prog.sgml") || die "Cannot create output file";
include("doc/prog-head.sgml"); process("", "doc/prog-root");
process("");
include("doc/prog-foot.sgml");
close OUT; close OUT;
exit 0; exit 0;
@ -20,8 +18,9 @@ sub include {
sub process { sub process {
my $dir = shift @_; my $dir = shift @_;
print "$dir/progdoc\n"; my $doc = "$dir/" . shift @_;
open(IN, "$srcdir/$dir/progdoc") || die "Unable to read $dir/progdoc"; print "$doc\n";
open(IN, "$srcdir/$doc") || die "Unable to read $doc";
my @docfile = <IN>; my @docfile = <IN>;
close IN; close IN;
foreach $_ (@docfile) { foreach $_ (@docfile) {
@ -30,7 +29,7 @@ sub process {
/^([A-Z]+)\s*(.*)/ || die "Parse error: $_"; /^([A-Z]+)\s*(.*)/ || die "Parse error: $_";
$cmd = $1; $cmd = $1;
$arg = $2; $arg = $2;
if ($cmd eq "C") { process("$dir/$arg"); } if ($cmd eq "C") { process("$dir/$arg", "progdoc"); }
elsif ($cmd eq "H") { elsif ($cmd eq "H") {
push @stack, "H"; push @stack, "H";
print OUT "<chapt>$arg\n"; print OUT "<chapt>$arg\n";