freebsd-sources.pl (255779) | freebsd-sources.pl (276599) |
---|---|
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: --- 10 unchanged lines hidden (view full) --- 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# | 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: --- 10 unchanged lines hidden (view full) --- 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: head/contrib/unbound/freebsd-sources.pl 255779 2013-09-21 23:29:02Z des $ | 27# $FreeBSD: head/contrib/unbound/freebsd-sources.pl 276599 2015-01-03 00:31:52Z des $ |
28# 29 30use strict; 31use warnings; 32use Text::Wrap; 33 34our @targets = qw(LIBUNBOUND DAEMON UBANCHOR CHECKCONF CONTROL); 35 --- 10 unchanged lines hidden (view full) --- 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; | 28# 29 30use strict; 31use warnings; 32use Text::Wrap; 33 34our @targets = qw(LIBUNBOUND DAEMON UBANCHOR CHECKCONF CONTROL); 35 --- 10 unchanged lines hidden (view full) --- 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)); | 54 return map { 55 /lexer/ && s/c$/l/; 56 /parser/ && s/c$/y/; 57 $_; 58 } split(/\s+/, $objs); |
55} 56 57MAIN:{ 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 721; | 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; |
73 | |