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
|
package localutils;
use strict;
use Config;
use Exporter;
use vars qw(@ISA @EXPORT);
BEGIN {
@ISA = qw(Exporter);
@EXPORT = qw(parse_makefile_vars parse_PL_argv get_extra_libs
open_perl_script open_shell_script open_script close_script);
}
sub parse_makefile_vars {
my $fname = "Makefile";
-f $fname or $fname = "../Makefile";
-f $fname or $fname = "../../Makefile";
-f $fname or die "Error: could not find Makefile.\n";
my %vars;
open FILE, $fname or die "open: $fname: $!\n";
while (<FILE>) {
/^(\S+) = (.*)$/ and $vars{$1} = $2;
}
close FILE;
return(\%vars);
}
sub parse_PL_argv {
my (@argv) = @_;
my ($fname,%init);
for my $arg (@argv) {
if ($arg =~ /^([^=]+)=(.*)$/) {
$init{$1} = $2;
} elsif (! $fname) {
$fname = $arg;
} else {
die "invalid argument: $arg\n";
}
}
# ExtUtils::MakeMaker 5.42 doesn't pass the name of desired script.
if (!$fname) {
my $appname = $1 if $0 =~ m!.*?([^/]+)\.PL$!;
$appname or die "$0 does not end with .PL?\n";
$fname = (-d "bin") ? "bin/$appname" : $appname;
}
return ($fname,\%init);
}
sub get_extra_libs {
my ($vars,$init) = @_;
my $prefix = $init->{PREFIX} || $vars->{PREFIX};
my $libs = $init->{LIBS};
if (! $libs) {
my $key = "INSTALL".($vars->{INSTALLDIRS} eq "site"?"SITE":"PRIV")."LIB";
$libs = $vars->{$key};
$libs =~ s/\$\(PREFIX\)/$prefix/g;
# don't do anything if we already have.
my $key_lower = lc($key);
undef $libs if $libs eq $Config{$key_lower};
}
return("","") unless $libs;
$libs =~ s/:/ /g;
my $uses = $libs ? "use lib qw($libs);\n" : "";
my @libs = split / /,$libs;
my $args = @libs ? join("",map{"-I$_ "}@libs) : "";
return ($uses,$args);
}
sub open_perl_script {
my ($fname,@args) = @_;
open_script($fname);
@args and unshift @args, "";
print($Config{startperl}.join(" ",@args)."\n".
"# WARNING: This file was automatically generated. ".
"You may lose changes.\n");
}
sub open_shell_script {
my ($fname,@args) = @_;
open_script($fname);
@args and unshift @args, "";
print("#!/bin/sh".join(" ",@args)."\n",
"# WARNING: This file was automatically generated. ".
"You may lose changes.\n");
}
my $script_fname;
sub open_script {
$script_fname = shift;
open OUT, ">$script_fname" or die "open: $script_fname: $!\n";
select OUT;
}
sub close_script {
close OUT;
chmod 0755, $script_fname or die "chmod: $script_fname: $!\n";
}
1;
|
