summaryrefslogtreecommitdiff
path: root/docs-xml/scripts/find_missing_doc.pl
blob: 3d0c345a5d67a45bff6034d72d281d6c1f393dfb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
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/param/loadparm.c") or die("Can't open $topdir/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*\.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";
	}
}