Show
Ignore:
Timestamp:
12.12.2014 18:01:21 (5 years ago)
Author:
jts21
Message:

Got Pacman working (again)

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/package-kits/linux/perllib/Greenstone/Package/_pacman.pm

    r29611 r29612  
    5454        exists $self->{config}->{PRE_REMOVE} or 
    5555        exists $self->{config}->{POST_REMOVE}) { 
    56         my $file = "$self->{output}/$self->{config}->{NAME}.install"; 
     56        my $name = "$self->{config}->{NAME}.install"; 
     57        my $file = "$self->{output}/$name"; 
    5758        print "    - $file\n"; 
    5859        open my $INSTALL, '>', $file; 
     
    7071            $self->write_function ("post_remove", $INSTALL, @{$self->{config}->{POST_REMOVE}}); 
    7172        close $INSTALL; 
    72         return "install=$file"; 
     73        return "install=$name"; 
    7374    } else { 
    7475        return ""; 
     
    7677} 
    7778 
     79sub add_package_function { 
     80    my ($self, $name, $out) = @_; 
     81    $self->write_function ("package_$name", $out, 
     82        'pkgdesc=%DESCRIPTION%', 
     83        'arch=(%ARCHITECTURE%)', 
     84        'depends=(', 
     85        '%DEPENDS%', 
     86        ')', 
     87        'optdepends=(', 
     88        '%OPTDEPENDS%', 
     89        ')', 
     90        'provides=(', 
     91        '%PROVIDES%', 
     92        ')', 
     93        $self->add_install, 
     94        "DESTDIR=\${pkgdir} make install_$name", 
     95    ); 
     96     
     97} 
     98 
    7899sub add_package_impl { 
    79100    my ($self, $packages) = @_; 
     101    my $name = $self->{config}->{NAME}; 
    80102    $self->{config}->{NAMES} = $self->{config}->{NAME}; 
    81103    if (defined $packages) { 
    82104        for my $package (@{$packages}) { 
    83             $self->{config}->{NAMES} .= " $package->{NAME}"; 
     105            $self->{config}->{NAMES} .= " $name-$package->{NAME}"; 
    84106        } 
    85107    } 
     
    115137    if (defined $packages) { 
    116138        # main package 
    117         $self->write_function ("package_$self->{config}->{NAME}", $PKGBUILD, 
    118             $self->add_install, 
    119             'DESTDIR=${pkgdir} make install' 
    120         ); 
     139        $self->add_package_function ("$self->{config}->{NAME}", $PKGBUILD); 
    121140        my $config = $self->{config}; 
    122141        # subpackages 
    123142        for my $package (@{$packages}) { 
    124143            $self->{config} = $package; 
    125             $self->write_function ("package_$package->{NAME}", $PKGBUILD, 
    126                 'pkgdesc=%DESCRIPTION%', 
    127                 'arch=(%ARCHITECTURE%)', 
    128                 'depends=(', 
    129                 '%DEPENDS%', 
    130                 ')', 
    131                 'optdepends=(', 
    132                 '%OPTDEPENDS%', 
    133                 ')', 
    134                 'provides=(', 
    135                 '%PROVIDES%', 
    136                 ')', 
    137                 $self->add_install, 
    138                 'DESTDIR=${pkgdir} make install_%NAME%', 
    139             ); 
     144            $self->add_package_function ("$name-$package->{NAME}", $PKGBUILD); 
    140145        } 
    141146        $self->{config} = $config; 
    142147    } else { 
     148        for my $line ( 
     149            'arch=(%ARCHITECTURE%)', 
     150            'depends=(', 
     151            '%DEPENDS%', 
     152            ')', 
     153            'optdepends=(', 
     154            '%OPTDEPENDS%', 
     155            ')', 
     156            'provides=(', 
     157            '%PROVIDES%', 
     158            ')', 
     159        ) { 
     160            my $copy = $line; 
     161            $self->subst ($copy); 
     162            print $PKGBUILD $copy, "\n"; 
     163        } 
    143164        print $PKGBUILD $self->add_install, "\n"; 
    144165        $self->write_function ('package', $PKGBUILD, 'DESTDIR=${pkgdir} make install');