blob: 86632bdb891d2e44bc4f33b8772b79387e58cf88 (
plain)
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
|
#
# Environment class
#
# Samba Build Environment
#
# (C) 2005 Jelmer Vernooij <jelmer@samba.org>
#
# Published under the GNU GPL
package smb_build::env;
use smb_build::input;
use strict;
sub new($$)
{
my ($name, $config) = @_;
my $self = { };
bless $self, $name;
$self->set_config($config);
return $self;
}
sub set_config($$)
{
my ($self, $config) = @_;
$self->{config} = $config;
$self->{config}->{srcdir} = '.';
$self->{config}->{builddir} = '.';
if ($self->{config}->{prefix} eq "NONE") {
$self->{config}->{prefix} = $self->{config}->{ac_default_prefix};
}
if ($self->{config}->{exec_prefix} eq "NONE") {
$self->{config}->{exec_prefix} = $self->{config}->{prefix};
}
if ($self->{config}->{developer} eq "yes") {
$self->{developer} = 1;
} else {
$self->{developer} = 0;
}
}
1;
|
