#!/usr/bin/perl

open(DOC,"grep '<li><a href=\"#' Configuration.html | cut -d'\"' -f2 | cut -d'#' -f2 | sort|");

while(<DOC>) {
    chomp;
    $doc{$_} = 1;
}

open(UNDOC,"./GetConf ../*/*.c|");

while(<UNDOC>) {
    chomp;

    s/^\s+//;
    s/\s+$//;
    s/^<//;
    s/^\///;
    s/>$//;
    
    next unless length($_) > 0;
    
    if(/^Module ([^\s]*):$/) {
	$module = $1;
	$newmod = 1;
	next;
    }
    
    if(!$doc{$_}) {
	if($newmod) {
	    print "\nModule: $module\n";
	    $newmod = 0;
	}
	
	print "  $_\n";
    }
}
