Changeset 29595 for main/trunk/package-kits/linux/perllib/Greenstone/Package/_pacman.pm

Timestamp:

2014-12-11T18:45:10+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Modifying package generation to use sub-packages in order to avoid compiling the same source multiple times. Currently works for Pacman. Needs testing (and fixing) for other package managers.

File:

• main/trunk/package-kits/linux/perllib/Greenstone/Package/_pacman.pm (modified) (2 diffs)

main/trunk/package-kits/linux/perllib/Greenstone/Package/_pacman.pm

@@ -39 +39 @@
 
 sub write_function {
-    my ($name, $out, @lines) = @_;
+    my ($self, $name, $out, @lines) = @_;
     print $out $name, "() {\n";
     for my $line (@lines) {
+        $self->subst ($line);
         print $out "\t", $line, "\n";
     }
@@ -54 +55 @@
         exists $self->{config}->{POST_REMOVE}) {
         my $name = "$self->{config}->{NAME}.install";
-        open my $INSTALL, '>', "/tmp/$name";
+        open my $INSTALL, '>', "/tmp/gspkg.$name";
         exists $self->{config}->{PRE_INSTALL} and do {
-            write_function "pre_install", $INSTALL, @{$self->{config}->{PRE_INSTALL}};
-            write_function "pre_upgrade", $INSTALL, @{$self->{config}->{PRE_INSTALL}};
+            $self->write_function ("pre_install", $INSTALL, @{$self->{config}->{PRE_INSTALL}});
+            $self->write_function ("pre_upgrade", $INSTALL, @{$self->{config}->{PRE_INSTALL}});
         };
         exists $self->{config}->{POST_INSTALL} and do {
-            write_function "post_install", $INSTALL, @{$self->{config}->{POST_INSTALL}};
-            write_function "post_upgrade", $INSTALL, @{$self->{config}->{POST_INSTALL}};
+            $self->write_function ("post_install", $INSTALL, @{$self->{config}->{POST_INSTALL}});
+            $self->write_function ("post_upgrade", $INSTALL, @{$self->{config}->{POST_INSTALL}});
         };
         exists $self->{config}->{PRE_REMOVE} and
-            write_function "pre_remove", $INSTALL, @{$self->{config}->{PRE_REMOVE}};
+            $self->write_function ("pre_remove", $INSTALL, @{$self->{config}->{PRE_REMOVE}});
         exists $self->{config}->{POST_REMOVE} and
-            write_function "post_remove", $INSTALL, @{$self->{config}->{POST_REMOVE}};
+            $self->write_function ("post_remove", $INSTALL, @{$self->{config}->{POST_REMOVE}});
         close $INSTALL;
-        $self->add ("/tmp/$name", "$self->{output}/$name");
-        $self->{config}->{INSTALL} = "install=$name";
+        $self->add ("/tmp/gspkg.$name", "$self->{output}/$name");
+        return "install=$name";
     } else {
-        $self->{config}->{INSTALL} = "";
+        return "";
     }
 }
 
+sub add_package_impl {
+    my ($self, $packages) = @_;
+    if (defined $packages) {
+        $self->{config}->{NAME} = '';
+        for my $package (@{$packages}) {
+            $self->{config}->{NAME} .= " $package->{NAME}";
+        }
+    }
+    open my $PKGBUILD, '>', "/tmp/gspkg.PKGBUILD";
+    for my $line (
+        '# Maintainer: %MAINTAINER_NAME% <%MAINTAINER_EMAIL%>',
+        'pkgname=(%NAME%)',
+        'pkgver=%VERSION%',
+        'pkgrel=%RELEASE%',
+        'url=%HOMEPAGE%',
+        'license=%LICENSE_SHORT%',
+        'arch=(any)',
+        'makedepends=(',
+        '%MAKEDEPENDS%',
+        ')',
+        'source=(',
+        '%SOURCES%',
+        ')',
+        'md5sums=(',
+        '%SOURCE_SUMS%',
+        ')',
+        'build() {',
+        '  cd ${srcdir}',
+        '  make build',
+        '}'
+    ) {
+        my $copy = $line;
+        $self->subst ($copy);
+        print $PKGBUILD $copy, "\n";
+    }
+    if (defined $packages) {
+        my $config = $self->{config};
+        for my $package (@{$packages}) {
+            $self->{config} = $package;
+            $self->write_function ("package_$package->{NAME}", $PKGBUILD,
+                'pkgdesc=%DESCRIPTION%',
+                'arch=(\'%ARCHITECTURE%\')',
+                'depends=(',
+                '%DEPENDS%',
+                ')',
+                'optdepends=(',
+                '%OPTDEPENDS%',
+                ')',
+                'provides=(',
+                '%PROVIDES%',
+                ')',
+                $self->add_install,
+                'DESTDIR=${pkgdir} make install_%NAME%',
+            );
+        }
+        $self->{config} = $config;
+    } else {
+        print $PKGBUILD $self->add_install, "\n";
+        $self->write_function ('package', $PKGBUILD, 'DESTDIR=${pkgdir} make install');
+    }
+    close $PKGBUILD;
+    $self->add ("/tmp/gspkg.PKGBUILD", "$self->{output}/PKGBUILD");
+}
+
 1;