Merge env.pm into makefile.pm.

diff --git a/source/build/smb_build/env.pm b/source/build/smb_build/env.pm
deleted file mode 100644 (file)
index 76cd8d1..0000000
--- a/source/build/smb_build/env.pm
+++ /dev/null
@@ -1,57 +0,0 @@
-# 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 File::Path;
-use File::Basename;
-
-use strict;
-
-sub new($$)
-{ 
-       my ($name, $config) = @_;
-       my $self = { };
-       bless $self, $name;
-
-       $self->{items} = {};
-       $self->{info} = {};
-       
-       $self->_set_config($config);
-
-       return $self;
-}
-
-sub _set_config($$)
-{
-       my ($self, $config) = @_;
-
-       $self->{config} = $config;
-
-       if (not defined($self->{config}->{srcdir})) {
-               $self->{config}->{srcdir} = '.';
-       }
-
-       if (not defined($self->{config}->{builddir})) {
-               $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};
-       }
-       
-       $self->{developer} = ($self->{config}->{developer} eq "yes");
-       $self->{gnu_make} = ($self->{config}->{GNU_MAKE} eq "yes");
-       $self->{automatic_deps} = ($self->{config}->{automatic_dependencies} eq "yes");
-}
-
-1;

diff --git a/source/build/smb_build/main.pl b/source/build/smb_build/main.pl
index 27ba2d36e1ec303cf5fbecdc3de2b9abcaf70fda..6d4a7321a4cdd09ed1216921cc2a969fc5b568be 100644 (file)
--- a/source/build/smb_build/main.pl
+++ b/source/build/smb_build/main.pl
@@ -10,7 +10,6 @@ use smb_build::header;
 use smb_build::input;
 use smb_build::config_mk;
 use smb_build::output;
-use smb_build::env;
 use smb_build::cflags;
 use smb_build::summary;
 use smb_build::config;

diff --git a/source/build/smb_build/makefile.pm b/source/build/smb_build/makefile.pm
index 9fedfe9df2de0105688318f449607cacaab0ae1d..8e6df89d1cf1566a509f4f184f04d81e2b695b14 100644 (file)
--- a/source/build/smb_build/makefile.pm
+++ b/source/build/smb_build/makefile.pm
@@ -6,21 +6,21 @@
 #  Released under the GNU GPL
 
 package smb_build::makefile;
-use smb_build::env;
 use smb_build::output;
 use File::Basename;
 use strict;
 
-use base 'smb_build::env';
 use Cwd 'abs_path';
 
 sub new($$$)
 {
        my ($myname, $config, $mkfile) = @_;
-       my $self = new smb_build::env($config);
-       
+       my $self = {};
+
        bless($self, $myname);
 
+       $self->_set_config($config);
+
        $self->{output} = "";
 
        $self->{mkfile} = $mkfile;
@@ -38,6 +38,29 @@ sub new($$$)
        return $self;
 }
 
+sub _set_config($$)
+{
+       my ($self, $config) = @_;
+
+       $self->{config} = $config;
+
+       if (not defined($self->{config}->{srcdir})) {
+               $self->{config}->{srcdir} = '.';
+       }
+
+       if (not defined($self->{config}->{builddir})) {
+               $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};
+       }
+}
+
 sub output($$)
 {
        my ($self, $text) = @_;