sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-11 05:18:09 +03:00
Code

Sync with HEAD

Browse Source 
(This used to be commit a3d9fd65eb)
This commit is contained in:
Jelmer Vernooij 2002-10-28 19:37:02 +00:00
parent 766b7b5dc0
commit 66d95b8f45
2 changed files with 76 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
source3/script/find_missing_doc.pl
View File

@ -1,21 +1,62 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
#reads in the list of parameters from the source
#compares this list to the list of parms documented in the docbook source
#prints out the names of the parameters that are in need of documentation
# (C) 2002 Bradley W. Langhorst" <brad@langhorst.com>
my $doc_file = "/docs/docbook/manpages/smb.conf.5.sgml";
my $source_file = "/source/param/loadparm.c";
my $doc_file = "./docs/docbook/manpages/smb.conf.5.sgml";
my $source_file = "./source/param/loadparm.c";
my $ln;
my %params;
my %link,%doc,%param;
open(SOURCE, "<$source_file") ||
die "Unable to open $source_file for input: $!\n";
open(DOC, "<$doc_file") ||
die "Unable to open $doc_file for input: $!\n";
# This one shouldn't be documented at all
$doc{-valid} = "FOUND";
while ($ln= <SOURCE>) {
$topdir = (shift @ARGV) or $topdir = ".";
##################################################
# Reading links from manpage
open(IN,$topdir.$doc_file);
while(<IN>) {
if( /<listitem><para><link linkend="([^"]*)"><parameter>([^<]*)<\/parameter><\/link><\/para><\/listitem>/g ){
$link{$2} = $1;
$ref{$1} = $2;
}
}
close(IN);
##################################################
# Reading documentation from manpage
open(IN,$topdir.$doc_file) || die("Can't open $topdir$doc_file");
while(<IN>) {
if( /<term><anchor id="([^"]*)">([^<]*?)([ ]*)\(.\)([ ]*)<\/term>/g ) {
$key = $1;
$value = $2;
$doc{$value} = $key;
# There is a reference to this entry
if($ref{$key} eq $value){
$ref{$key} = "FOUND";
} else {
if($ref{$key}) {
print "$key should refer to $value, but refers to " . $ref{$key} . "\n";
} else {
print "$key should refer to $value, but has no reference!\n";
}
$ref{$key} = $value;
}
}
}
close(IN);
#################################################
# Reading entries from source code
open(SOURCE,$topdir.$source_file) || die("Can't open $topdir$source_file");
while ($ln = <SOURCE>) {
last if $ln =~ m/^static\ struct\ parm_struct\ parm_table.*/;
} #burn through the preceding lines
@ -23,21 +64,27 @@ while ($ln = <SOURCE>) {
last if $ln =~ m/^\s*\}\;\s*$/;
#pull in the param names only
next if $ln =~ m/.*P_SEPARATOR.*/;
$ln =~ m/.*\"(.*)\".*/;
$params{lc($1)}='not_found'; #not case sensitive
}
close SOURCE;
#now read in the params list from the docs
@doclines = <DOC>;
foreach $ln (grep (/\<anchor\ id\=/, @doclines)) {
$ln =~ m/^.*\<anchor\ id\=\".*\"\>\s*(?:\<.*?\>)*\s*(.*?)(?:\s*\(?[S,G]?\)?\s*(\<\/term\>)?){1}\s*$/;
#print "got: $1 from: $ln";
if (exists $params{lc($1)}) {
$params{$1} = 'found';
next unless $ln =~ /.*\"(.*)\".*/;
if($doc{lc($1)}) {
$doc{lc($1)} = "FOUND";
} else {
print "$1 is not documented!\n";
}
}
close SOURCE;
foreach (keys %params) {
print "$_\n" if $params{$_} eq 'not_found' and $_ cmp "valid" and $_ eq "";
##################################################
# Trying to find missing references
foreach (keys %ref) {
if($ref{$_} cmp "FOUND") {
print "$_ references to " . $ref{$_} . ", but " . $ref{$_} . " isn't an anchor!\n";
}
}
foreach (keys %doc) {
if($doc{$_} cmp "FOUND") {
print "$_ is documented but is not a configuration option!\n";
}
}

2
source3/utils/nmblookup.c
View File

@ -60,7 +60,7 @@ usage on the program
****************************************************************************/
static void usage(void)
{
d_printf("Usage: nmblookup [-M] [-B bcast address] [-d debuglevel] name\n");
d_printf("Usage: nmblookup [options] name\n");
d_printf("Version %s\n",VERSION);
d_printf("\t-d debuglevel set the debuglevel\n");
d_printf("\t-B broadcast address the address to use for broadcasts\n");