doc-src/IsarImplementation/checkglossary
author huffman
Wed, 22 Aug 2007 01:42:35 +0200
changeset 24396 c1e20c65a3be
parent 18537 2681f9e34390
permissions -rwxr-xr-x
move bool list stuff from BinOperations to BinBoolList; reorganize BinBoolList into subsections

#!/usr/bin/env perl
# $Id$

use strict;

my %defs = ();
my %refs = ();

while (<ARGV>) {
    if (m,\\glossaryentry\{\w*\\bf *((\w|\s)+)@,) {
	$defs{lc $1} = 1;
    }
    while (m,\\seeglossary *\{((\w|\s)+)\},g) {
	$refs{lc $1} = 1;
    }
}

print "Glossary definitions:\n";
foreach (sort(keys(%defs))) {
    print "  \"$_\"\n";
}

foreach (keys(%refs)) {
    s,s$,,;
    if (!defined($defs{$_})) {
	print "### Undefined glossary reference: \"$_\"\n";
    }
}