michael@0: #!/usr/bin/perl -w
michael@0: #
michael@0: # This Source Code Form is subject to the terms of the Mozilla Public
michael@0: # License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0: # file, You can obtain one at http://mozilla.org/MPL/2.0/.
michael@0: 
michael@0: #
michael@0: # List the missing symbols (or, do a set difference).
michael@0: #
michael@0: 
michael@0: use 5.004;
michael@0: use strict;
michael@0: use Getopt::Long;
michael@0: 
michael@0: $::opt_help = 0;
michael@0: $::opt_defined = "mozilla-bin.order";
michael@0: GetOptions("help", "defined=s");
michael@0: 
michael@0: if ($::opt_help) {
michael@0:     die "usage: missing-syms.pl --defined=<file> <symlist>";
michael@0: }
michael@0: 
michael@0: $::Defined = { };
michael@0: 
michael@0: open(DEFINED, "<$::opt_defined") || die "couldn't open defined symbol list $::opt_defined";
michael@0: while (<DEFINED>) {
michael@0:     chomp;
michael@0:     $::Defined{$_} = 1;
michael@0: }
michael@0: close(DEFINED);
michael@0: 
michael@0: while (<>) {
michael@0:     chomp;
michael@0:     print "$_\n" unless ($::Defined{$_});
michael@0: }
michael@0: