diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2003-07-09 18:51:18 +0000 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2003-07-09 18:51:18 +0000 |
commit | 46d115148c6c8c82b40733c4b4c9df9b2cb854aa (patch) | |
tree | e801b7b9cde916c1b944cd3ef15e2556654efecd /source3/script | |
parent | 8ddf771a606268619e625592b2c0ddb28abda003 (diff) | |
download | samba-46d115148c6c8c82b40733c4b4c9df9b2cb854aa.tar.gz samba-46d115148c6c8c82b40733c4b4c9df9b2cb854aa.tar.bz2 samba-46d115148c6c8c82b40733c4b4c9df9b2cb854aa.zip |
Move find_missing_doc.pl to the docs system
(This used to be commit 087e9af450109d749bfcc3016494d920b6028bf1)
Diffstat (limited to 'source3/script')
-rwxr-xr-x | source3/script/find_missing_doc.pl | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/source3/script/find_missing_doc.pl b/source3/script/find_missing_doc.pl deleted file mode 100755 index 2875cf77b8..0000000000 --- a/source3/script/find_missing_doc.pl +++ /dev/null @@ -1,57 +0,0 @@ -#!/usr/bin/perl - -my %doc; - -$topdir = (shift @ARGV) or $topdir = "."; - -################################################## -# Reading links from manpage - -$curdir = $ENV{PWD}; - -chdir($topdir."/docs/docbook/smbdotconf"); - -open(IN,"xsltproc --xinclude --param smb.context ALL generate-context.xsl parameters.all.xml|"); - -while(<IN>) { - if( /<listitem><para><link linkend="([^"]*)"><parameter moreinfo="none">([^<]*)<\/parameter><\/link><\/para><\/listitem>/g ){ - $doc{$2} = $1; - } -} - -close(IN); - -chdir($curdir); - -################################################# -# Reading entries from source code - - -open(SOURCE,"$topdir/source/param/loadparm.c") or die("Can't open $topdir/source/param/loadparm.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*\{\"(.*)\".*/; - - if($doc{lc($1)}) { - $doc{lc($1)} = "FOUND"; - } else { - print "$1 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"; - } -} |