From d1c8f22becd6dd4d846e10edae951c3e0a170bd1 Mon Sep 17 00:00:00 2001
From: "Ondrej Zajicek (work)" <santiago@crfreenet.org>
Date: Wed, 19 Dec 2018 16:25:59 +0100
Subject: Doc: Move root of code documentation to doc dir

It reduces clutter in root and also avoid collision with doc dir on
case-insensitive filesystems when name back to Doc.
---
 tools/progdoc | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'tools')

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