contrib/unbound/freebsd-sources.pl

   1 #!/usr/bin/perl -w
   2 #-
   3 # Copyright (c) 2013 Dag-Erling Smørgrav
   4 # All rights reserved.
   5 #
   6 # Redistribution and use in source and binary forms, with or without
   7 # modification, are permitted provided that the following conditions
   8 # are met:
   9 # 1. Redistributions of source code must retain the above copyright
  10 #    notice, this list of conditions and the following disclaimer.
  11 # 2. Redistributions in binary form must reproduce the above copyright
  12 #    notice, this list of conditions and the following disclaimer in the
  13 #    documentation and/or other materials provided with the distribution.
  14 #
  15 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  16 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  17 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  18 # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  19 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  20 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  21 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  23 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  24 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  25 # SUCH DAMAGE.
  26 #
  27 # $Id$
  28 #
  29
  30 use strict;
  31 use warnings;
  32 use Text::Wrap;
  33
  34 our @targets = qw(LIBUNBOUND DAEMON UBANCHOR CHECKCONF);
  35
  36 our %target_names = (
  37     LIBUNBOUND => "libunbound",
  38     DAEMON => "unbound",
  39     UBANCHOR => "unbound-anchor",
  40     CHECKCONF => "unbound-checkconf",
  41 );
  42
  43 sub get_sources($) {
  44     my ($target) = @_;
  45     local $/;
  46
  47     open(MAKE, "-|", "make", "-V${target}_OBJ_LINK")
  48         or die("failed to exec make: $!\n");
  49     my $objs = <MAKE>;
  50     close(MAKE);
  51     chomp($objs);
  52     $objs =~ s/\.l?o\b/.c/g;
  53     return (split(/\s+/, $objs));
  54 }
  55
  56 MAIN:{
  57     my %sources;
  58     foreach my $target (@targets) {
  59         $sources{$target} = {
  60             map({ $_ => 1 }
  61                 grep({ !exists($sources{LIBUNBOUND}->{$_}) }
  62                      get_sources($target)))
  63         };
  64         print("# $target_names{$target}\n");
  65         my $SRCS = fill("SRCS=\t", "\t", sort keys %{$sources{$target}});
  66         $SRCS =~ s/\n/ \\\n/gm;
  67         print("$SRCS\n");
  68     }
  69 }
  70
  71 1;
  72