From 718317ecef54d90070b29657f613e39892e38d10 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 26 Sep 2012 01:31:37 +0200
Subject: undocumented: Drop extension from helper scripts.

---
 docs-xml/scripts/find_missing_doc         | 62 +++++++++++++++++++++++++++++++
 docs-xml/scripts/find_missing_doc.pl      | 62 -------------------------------
 docs-xml/scripts/find_missing_manpages    | 39 +++++++++++++++++++
 docs-xml/scripts/find_missing_manpages.pl | 39 -------------------
 4 files changed, 101 insertions(+), 101 deletions(-)
 create mode 100755 docs-xml/scripts/find_missing_doc
 delete mode 100755 docs-xml/scripts/find_missing_doc.pl
 create mode 100755 docs-xml/scripts/find_missing_manpages
 delete mode 100755 docs-xml/scripts/find_missing_manpages.pl

(limited to 'docs-xml/scripts')

diff --git a/docs-xml/scripts/find_missing_doc b/docs-xml/scripts/find_missing_doc
new file mode 100755
index 0000000000..6ce547be3e
--- /dev/null
+++ b/docs-xml/scripts/find_missing_doc
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+my %doc;
+
+$topdir = (shift @ARGV) or $topdir = ".";
+
+##################################################
+# Reading links from manpage
+
+$curdir = $ENV{PWD};
+
+chdir("smbdotconf");
+
+open(IN,"xsltproc --xinclude --param smb.context ALL generate-context.xsl parameters.all.xml|");
+
+while(<IN>) {
+	if( /<samba:parameter .*?name="([^"]*?)"/g ){
+		my $name = $1;
+	    $name =~ s/ //g;
+		$doc{$name} = "NOTFOUND";
+	}
+}
+
+close(IN);
+
+chdir($curdir);
+
+#################################################
+# Reading entries from source code
+
+
+open(SOURCE,"$topdir/lib/param/param_table.c") or die("Can't open $topdir/lib/param/param_table.c: $!");
+
+while ($ln = <SOURCE>) {
+  last if $ln =~ m/^static\ struct\ parm_struct\ parm_table.*/;
+} #burn through the preceding lines
+
+while ($ln = <SOURCE>) {
+  last if $ln =~ m/^\s*\}\;\s*$/;
+  #pull in the param names only
+  next if $ln =~ m/.*P_SEPARATOR.*/;
+  next unless $ln =~ /\s*\.label\s*=\s*\"(.*)\".*/;
+
+  my $name = $1;
+  $name =~ s/ //g;
+
+  if($doc{lc($name)}) {
+	$doc{lc($name)} = "FOUND";
+  } else {
+	print "'$name' is not documented\n";
+  }
+}
+close SOURCE;
+
+##################################################
+# Trying to find missing references
+
+foreach (keys %doc) {
+	if($doc{$_} cmp "FOUND") {
+		print "'$_' is documented but is not a configuration option\n";
+	}
+}
diff --git a/docs-xml/scripts/find_missing_doc.pl b/docs-xml/scripts/find_missing_doc.pl
deleted file mode 100755
index 6ce547be3e..0000000000
--- a/docs-xml/scripts/find_missing_doc.pl
+++ /dev/null
@@ -1,62 +0,0 @@
-#!/usr/bin/perl
-
-my %doc;
-
-$topdir = (shift @ARGV) or $topdir = ".";
-
-##################################################
-# Reading links from manpage
-
-$curdir = $ENV{PWD};
-
-chdir("smbdotconf");
-
-open(IN,"xsltproc --xinclude --param smb.context ALL generate-context.xsl parameters.all.xml|");
-
-while(<IN>) {
-	if( /<samba:parameter .*?name="([^"]*?)"/g ){
-		my $name = $1;
-	    $name =~ s/ //g;
-		$doc{$name} = "NOTFOUND";
-	}
-}
-
-close(IN);
-
-chdir($curdir);
-
-#################################################
-# Reading entries from source code
-
-
-open(SOURCE,"$topdir/lib/param/param_table.c") or die("Can't open $topdir/lib/param/param_table.c: $!");
-
-while ($ln = <SOURCE>) {
-  last if $ln =~ m/^static\ struct\ parm_struct\ parm_table.*/;
-} #burn through the preceding lines
-
-while ($ln = <SOURCE>) {
-  last if $ln =~ m/^\s*\}\;\s*$/;
-  #pull in the param names only
-  next if $ln =~ m/.*P_SEPARATOR.*/;
-  next unless $ln =~ /\s*\.label\s*=\s*\"(.*)\".*/;
-
-  my $name = $1;
-  $name =~ s/ //g;
-
-  if($doc{lc($name)}) {
-	$doc{lc($name)} = "FOUND";
-  } else {
-	print "'$name' is not documented\n";
-  }
-}
-close SOURCE;
-
-##################################################
-# Trying to find missing references
-
-foreach (keys %doc) {
-	if($doc{$_} cmp "FOUND") {
-		print "'$_' is documented but is not a configuration option\n";
-	}
-}
diff --git a/docs-xml/scripts/find_missing_manpages b/docs-xml/scripts/find_missing_manpages
new file mode 100755
index 0000000000..cd8ed87596
--- /dev/null
+++ b/docs-xml/scripts/find_missing_manpages
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+
+my %doc;
+
+$invar = 0;
+
+$topdir = (shift @ARGV) or $topdir = ".";
+
+$progs = "";
+
+open(IN, "$topdir/Makefile.in");
+while(<IN>) {
+	if($invar && /^([ \t]*)(.*?)([\\])$/) {
+		$progs.=" " . $2;
+		if($4) { $invar = 1; } else { $invar = 0; }
+	} elsif(/^([^ ]*)_PROGS([0-9]*) = (.*?)([\\])$/) {
+		$progs.=" " . $3;
+		if($4) { $invar = 1; }
+	} else { $invar = 0; }
+}
+
+$progs =~ s/@([^@]+)@//g;
+
+foreach(split(/bin\//, $progs)) {
+	next if($_ eq " ");
+	s/ //g;
+
+	$f = $_;
+	
+	$found = 0;
+
+	for($i = 0; $i < 9; $i++) {
+		if(-e "manpages/$f.$i.xml") { $found = 1; }
+	}
+
+	if(!$found) {
+		print "'$f' does not have a manpage\n";
+	}
+}
diff --git a/docs-xml/scripts/find_missing_manpages.pl b/docs-xml/scripts/find_missing_manpages.pl
deleted file mode 100755
index cd8ed87596..0000000000
--- a/docs-xml/scripts/find_missing_manpages.pl
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/perl
-
-my %doc;
-
-$invar = 0;
-
-$topdir = (shift @ARGV) or $topdir = ".";
-
-$progs = "";
-
-open(IN, "$topdir/Makefile.in");
-while(<IN>) {
-	if($invar && /^([ \t]*)(.*?)([\\])$/) {
-		$progs.=" " . $2;
-		if($4) { $invar = 1; } else { $invar = 0; }
-	} elsif(/^([^ ]*)_PROGS([0-9]*) = (.*?)([\\])$/) {
-		$progs.=" " . $3;
-		if($4) { $invar = 1; }
-	} else { $invar = 0; }
-}
-
-$progs =~ s/@([^@]+)@//g;
-
-foreach(split(/bin\//, $progs)) {
-	next if($_ eq " ");
-	s/ //g;
-
-	$f = $_;
-	
-	$found = 0;
-
-	for($i = 0; $i < 9; $i++) {
-		if(-e "manpages/$f.$i.xml") { $found = 1; }
-	}
-
-	if(!$found) {
-		print "'$f' does not have a manpage\n";
-	}
-}
-- 
cgit