Description of protocol module moved to where it belongs. If documentation

of standard modules is stored in their source, such auxilliary files
should be as well.

1 files changed, 4 insertions, 4 deletions

diff --git a/tools/progdoc b/tools/progdoc
index a5028bd..ef44d3a 100755
--- a/tools/progdoc
+++ b/tools/progdoc
@@ -3,15 +3,15 @@
 $srcdir = $ARGV[0];
 
 open(OUT, ">prog.sgml") || die "Cannot create output file";
-include("prog-head.sgml");
+include("doc/prog-head.sgml");
 process("");
-include("prog-foot.sgml");
+include("doc/prog-foot.sgml");
 close OUT;
 exit 0;
 
 sub include {
   my $f = shift @_;
-  open(IN, "$srcdir/doc/$f") || die "Unable to find $f";
+  open(IN, "$srcdir/$f") || die "Unable to find $f";
   while (<IN>) {
     print OUT;
   }
@@ -41,7 +41,7 @@ sub process {
       close DOC;
     } elsif ($cmd eq "D") {
       print "    $arg\n";
-      include($arg);
+      include("$dir/$arg");
     } else { die "Unknown command: $cmd"; }
   }
 }