1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
# ex:ts=8 sw=4:
# $OpenBSD: Install.pm,v 1.3 2012/07/04 12:39:34 espie Exp $
#
# Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
# Copyright (c) 2012 Marc Espie <espie@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
use strict;
use warnings;
package LT::Mode::Install;
use LT::Util;
use LT::Trace;
use Getopt::Std;
use File::Basename;
sub run
{
my ($class, $ltprog) = @_;
# we just parse the options in order to find the actual arguments
my @argvcopy = @ARGV;
my %install_opts;
tsay {"ltprog[-1] = $$ltprog[-1]"};
if ($$ltprog[-1] =~ m/install([.-]sh)?$/) {
getopts('BbCcdf:g:m:o:pSs', \%install_opts);
if (@ARGV < 2 && (!defined $install_opts{'d'} && @ARGV == 1)) {
die "Wrong number of arguments for install\n";
}
} elsif ($$ltprog[-1] =~ m/cp$/) {
getopts('HLPRfipr', \%install_opts);
if (@ARGV < 2) {
die "Wrong number of arguments for install\n";
}
} else {
die "Unsupported install program $$ltprog[-1]\n";
}
my @instopts = @argvcopy[0 .. (@argvcopy - @ARGV - 1)];
my $dst = pop @ARGV;
my @src = @ARGV;
my $dstdir;
if (-d $dst) {
$dstdir = $dst;
} else {
# dst is not a directory, i.e. a file
if (@src > 1) {
# XXX not really libtool's task to check this
die "Multiple source files combined with file destination.\n";
} else {
$dstdir = dirname($dst);
}
}
foreach my $s (@src) {
my $dstfile = basename($s);
# resolve symbolic links, so we don't try to test later
# whether the symlink is a program wrapper etc.
if (-l $s) {
$s = readlink($s) or die "Cannot readlink $s: $!\n";
}
my $srcdir = dirname($s);
my $srcfile = basename($s);
tsay {"srcdir = $srcdir\nsrcfile = $srcfile"};
tsay {"dstdir = $dstdir\ndstfile = $dstfile"};
if ($srcfile =~ m/^\S+\.la$/) {
require LT::LaFile;
LT::LaFile->install($s, $dstdir, $ltprog, \@instopts, $install_opts{'s'});
} elsif (-f "$srcdir/$ltdir/$srcfile" && is_wrapper($s)) {
require LT::Program;
LT::Program->install($s, $dst, $ltprog, \@instopts);
} else {
LT::Exec->install(@$ltprog, @instopts, $s, $dst);
}
}
if (defined $install_opts{d}) {
LT::Exec->install(@$ltprog, @instopts, @ARGV);
}
}
sub is_wrapper
{
my $program = shift;
open(my $pw, '<', $program) or die "Cannot open $program: $!\n";
my $_ = <$pw>;
# if the first line isn't a shell, don't even bother
return 0 unless m/^\#\!/;
my $i = 0;
while (<$pw>) {
return 1 if m/wrapper\sfor/;
last if $i++ > 10;
}
return 0;
}
1;
|
