build: Remove unused functions Import() and GetInfo().

[ira/wip.git] / source / build / smb_build / env.pm

diff --git a/source/build/smb_build/env.pm b/source/build/smb_build/env.pm
index 1466a8679c515c8f604e6080d700e9dc5ff4e83f..76cd8d1a266f8d74395fdfd814bcc457a9525c0e 100644 (file)
--- a/source/build/smb_build/env.pm
+++ b/source/build/smb_build/env.pm
@@ -50,66 +50,8 @@ sub _set_config($$)
        }
        
        $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");
 }
 
-sub PkgConfig($$$$$$$$$$$)
-{
-       my ($self,$path,$name,$libs,$cflags,$version,$desc,$hasmodules,$pubdep,$privdep,$dirs) = @_;
-
-       print __FILE__.": creating $path\n";
-
-       if ($self->{config}->{libreplace_cv_immediate_structures} eq "yes") {
-               $cflags .= " -DHAVE_IMMEDIATE_STRUCTURES=1";
-       }
-
-       mkpath(dirname($path),0,0755);
-       open(OUT, ">$path") or die("Can't open $path: $!");
-
-       foreach (keys %$dirs) {
-               print OUT "$_=" . $dirs->{$_} . "\n";
-       }
-       if ($hasmodules) {
-               print OUT "modulesdir=$self->{config}->{modulesdir}/$name\n" ;
-       }
-
-       print OUT "\n";
-
-       print OUT "Name: $name\n";
-       if (defined($desc)) {
-               print OUT "Description: $desc\n";
-       }
-       print OUT "Requires: $pubdep\n" if defined($pubdep);
-       print OUT "Requires.private: $privdep\n" if defined($privdep);
-       print OUT "Version: $version\n";
-       print OUT "Libs: $libs\n";
-       print OUT "Cflags: -I\${includedir} $cflags\n";
-
-       close(OUT);
-}
-
-sub Import($$)
-{
-       my ($self,$items) = @_;
-
-       foreach (keys %$items) {
-               if (defined($self->{items})) {
-                       print "Warning: Importing $_ twice!\n";
-               }
-               $self->{items}->{$_} = $items->{$_};
-       }
-}
-
-sub GetInfo($$)
-{
-       my ($self,$name) = @_;
-
-       unless (defined($self->{info}->{$name})) 
-       {
-               $self->{info}->{$name} = $self->{items}->Build($self);
-       }
-
-       return $self->{info}->{$name};
-}
-
 1;