1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/tools/reorder/missing-syms.pl Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,36 @@
1.4 +#!/usr/bin/perl -w
1.5 +#
1.6 +# This Source Code Form is subject to the terms of the Mozilla Public
1.7 +# License, v. 2.0. If a copy of the MPL was not distributed with this
1.8 +# file, You can obtain one at http://mozilla.org/MPL/2.0/.
1.9 +
1.10 +#
1.11 +# List the missing symbols (or, do a set difference).
1.12 +#
1.13 +
1.14 +use 5.004;
1.15 +use strict;
1.16 +use Getopt::Long;
1.17 +
1.18 +$::opt_help = 0;
1.19 +$::opt_defined = "mozilla-bin.order";
1.20 +GetOptions("help", "defined=s");
1.21 +
1.22 +if ($::opt_help) {
1.23 + die "usage: missing-syms.pl --defined=<file> <symlist>";
1.24 +}
1.25 +
1.26 +$::Defined = { };
1.27 +
1.28 +open(DEFINED, "<$::opt_defined") || die "couldn't open defined symbol list $::opt_defined";
1.29 +while (<DEFINED>) {
1.30 + chomp;
1.31 + $::Defined{$_} = 1;
1.32 +}
1.33 +close(DEFINED);
1.34 +
1.35 +while (<>) {
1.36 + chomp;
1.37 + print "$_\n" unless ($::Defined{$_});
1.38 +}
1.39 +
