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 30use strict; 31use warnings; 32use Text::Wrap; 33 34our @targets = qw(LIBUNBOUND DAEMON UBANCHOR CHECKCONF CONTROL); 35 36our %target_names = ( 37 LIBUNBOUND => "libunbound", 38 DAEMON => "unbound", 39 UBANCHOR => "unbound-anchor", 40 CHECKCONF => "unbound-checkconf", 41 CONTROL => "unbound-control", 42); 43 44sub 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 map { 55 /lexer/ && s/c$/l/; 56 /parser/ && s/c$/y/; 57 $_; 58 } split(/\s+/, $objs); 59} 60 61MAIN:{ 62 my %sources; 63 foreach my $target (@targets) { 64 $sources{$target} = { 65 map({ $_ => 1 } 66 grep({ !exists($sources{LIBUNBOUND}->{$_}) } 67 get_sources($target))) 68 }; 69 print("# $target_names{$target}\n"); 70 my $SRCS = fill("SRCS=\t", "\t", sort keys %{$sources{$target}}); 71 $SRCS =~ s/\n/ \\\n/gm; 72 print("$SRCS\n"); 73 } 74} 75 761; 77