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 # $FreeBSD$
  28 #
  29
  30 use strict;
  31 use warnings;
  32 use Text::Wrap;
  33
  34 our @targets = qw(LIBUNBOUND DAEMON UBANCHOR CHECKCONF CONTROL);
  35
  36 our %target_names = (
  37     LIBUNBOUND => "libunbound",
  38     DAEMON => "unbound",
  39     UBANCHOR => "unbound-anchor",
  40     CHECKCONF => "unbound-checkconf",
  41     CONTROL => "unbound-control",
  42 );
  43
  44 sub get_sources($) {
  45     my ($target) = @_;
  46     local $/;
  47
  48     open(MAKE, "-|", "make", "-V${target}_OBJ_LINK")
  49         or die("failed to exec make: $!\n");
  50     my $objs = <MAKE>;
  51     close(MAKE);
  52     chomp($objs);
  53     $objs =~ s/\.l?o\b/.c/g;
  54     return (split(/\s+/, $objs));
  55 }
  56
  57 MAIN:{
  58     my %sources;
  59     foreach my $target (@targets) {
  60         $sources{$target} = {
  61             map({ $_ => 1 }
  62                 grep({ !exists($sources{LIBUNBOUND}->{$_}) }
  63                      get_sources($target)))
  64         };
  65         print("# $target_names{$target}\n");
  66         my $SRCS = fill("SRCS=\t", "\t", sort keys %{$sources{$target}});
  67         $SRCS =~ s/\n/ \\\n/gm;
  68         print("$SRCS\n");
  69     }
  70 }
  71
  72 1;
  73