#! /usr/bin/perl # Copyright (c) 2002-2016, Dirk Krause # All rights reserved. # # Redistribution and use in source and binary forms, # with or without modification, are permitted provided # that the following conditions are met: # # * Redistributions of source code must retain the above # copyright notice, this list of conditions and the # following disclaimer. # * Redistributions in binary form must reproduce the above # opyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials # provided with the distribution. # * Neither the name of the Dirk Krause nor the names of # contributors may be used to endorse or promote # products derived from this software without specific # prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND # CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE # DISCLAIMED. # IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE # OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH # DAMAGE. my %used; my %found; sub read_one_source_file($) { my $fn = shift; my $fh = undef; my $line; my $n1; my $n2; if (open($fh, "<$fn")) { while(<$fh>) { $line = $_; chomp $line; $cc = 1; while($cc) { $cc = 0; if ($line =~ /.*(DK4_HAVE_[a-zA-Z_01-9]+)(.*)/o) { $n1 = $1; $n2 = $2; $used{"$n1"} = 1; $line = $n2; } } } close($fh); } } my $fn; foreach $fn () { read_one_source_file($fn); } foreach $fn () { read_one_source_file($fn); } foreach $fn () { read_one_source_file($fn); } my $fh = undef; my $line; my $n; if (open($fh, ") { $line = $_; chomp $line; if ($line =~ /(DK4_HAVE_[a-zA-Z_01-9]+)/o) { $n = $1; $found{"$n"} = 1; } } close($fh); foreach $n (sort keys %used) { if (!exists($found{"$n"})) { print "Missing $n\n"; } } }