mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Slps should build now (untested).

Browse Source
This commit is contained in:
joey
2000-04-21 21:06:44 +00:00
parent f3ee72f982
commit 7b791faf95
2 changed files with 83 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
Alien/Package/Slp.pm
View File

@@ -102,6 +102,7 @@ sub install {
my $this=shift; my $this=shift;
my $slp=shift; my $slp=shift;
system("slpi $slp") && die "Unable to install: $!";
} }
=item getfooter =item getfooter
@@ -134,15 +135,15 @@ sub scan {
my $file=$this->filename; my $file=$this->filename;
# Decode the footer. # Decode the footer.
my @values=unpack(footer_packstring,$this->getfooter); my @values=unpack(footer_packstring(),$this->getfooter);
# Populate fields. # Populate fields.
foreach my $field (@{fieldlist}) { foreach my $field (@{fieldlist()}) {
$_=shift @values; $_=shift @values;
$this->$field($_); $this->$field($_);
} }
# A simple sanity check. # A simple sanity check.
if (! defined $this->slpkgversion || $this->slpkgversion < footer_version) { if (! defined $this->slpkgversion || $this->slpkgversion < footer_version()) {
die "unsupported stampede package version"; die "unsupported stampede package version";
} }
@@ -152,7 +153,7 @@ sub scan {
foreach (`bzip2 -d < $file | tar -tf -`) { foreach (`bzip2 -d < $file | tar -tf -`) {
s:^\./:/:; s:^\./:/:;
$_="/$_" unless m:^/:; $_="/$_" unless m:^/:;
push @filelist, $fn; push @filelist, $_;
} }
# TODO: read in postinst script. # TODO: read in postinst script.
@@ -191,17 +192,6 @@ sub unpack {
return 1; return 1;
} }
=item prep
No prep stage is needed for slp files.
=cut
sub prep {
my $this=shift;
my $dir=$this->unpacked_tree || die "The package must be unpacked first!";
}
=item build =item build
Build a slp. Build a slp.
@@ -210,8 +200,50 @@ Build a slp.
sub build { sub build {
my $this=shift; my $this=shift;
my $slp=$this->name."-".$this->version.".slp";
return # filename # Now generate the footer.
# We cannot use the actual $slp::footer_packstring, becuase it uses
# space terminated strings (A) instead of null terminated strings
# (a). That is good for decoding, but not for encoding.
my $fmt=footer_packstring();
$fmt=~tr/A/a/;
my $footer=pack($fmt,
$this->conffiles,
2, # Use priority optional for alien packages.
0, # Always use bzip2 as the compression type.
$this->release,
254, # Don't try to guess copyright, just use unknown.
'', # Conflicts.
'', # Set up script. TODO
$this->description,
'', # Depends.
'', # Provides.
$this->author,
scalar localtime, # Use current date.
252, # Unknown compiler.
$this->version,
$this->name,
$this->arch,
252, # Unknown group.
footer_version(),
);
# Generate .tar.bz2 file.
# Note that it's important I use "./*" instead of just "." or
# something like that, becuase it results in a tar file where all
# the files in it start with "./", which is consitent with how
# normal stampede files look.
system("(cd ".$this->unpacked_tree."; tar cf - ./*) | bzip2 - > $slp") &&
die "package build failed: $!";
# Now append the footer.
open (OUT,">>$slp") || die "$slp: $!";
print OUT $footer;
close OUT;
return $slp;
} }
=item conffiles =item conffiles
@@ -219,7 +251,8 @@ sub build {
Set/get conffiles. Set/get conffiles.
When the conffiles are set, the format used by slp (a colon-delimited list) When the conffiles are set, the format used by slp (a colon-delimited list)
is turned into the real list that is used internally. is turned into the real list that is used internally. The list is changed
back into slp's internal format when it is retreived.
=cut =cut
@@ -227,11 +260,11 @@ sub conffiles {
my $this=shift; my $this=shift;
# set # set
$this->{conffiles}=[split /:/, shift]; if @_; $this->{conffiles}=[split /:/, shift] if @_;
# get # get
return unless defined wantarray; # optimization return unless defined wantarray; # optimization
return $this->{conffiles}; return join(':',@{$this->{conffiles}});
} }
=item copyright =item copyright
@@ -248,11 +281,14 @@ sub copyright {
my $this=shift; my $this=shift;
# set # set
$this->{copyright}=(${copyrighttrans}{shift} || 'unknown') if @_; $this->{copyright}=(${copyrighttrans()}{shift} || 'unknown') if @_;
# get # get
return unless defined wantarray; # optimization return unless defined wantarray; # optimization
return $this->{copyright}; my %transcopyright=reverse %{copyrighttrans()};
return $transcopyright{$this->{copyright}}
if (exists $transcopyright{$this->{copyright}});
return 254; # unknown
} }
=item arch =item arch
@@ -270,15 +306,39 @@ sub arch {
# set # set
if (@_) { if (@_) {
$this->{arch}=(${archtrans}{shift}; $this->{arch}=${archtrans()}{shift};
die "unknown architecture" if ! $this->{arch}; die "unknown architecture" if ! $this->{arch};
} }
# get # get
return unless defined wantarray; # optimization return unless defined wantarray; # optimization
return $this->{arch}; my %transarch=reverse %{archtrans()};
return $transarch{$this->{arch}}
if (exists $transarch{$this->{arch}});
die "Stampede does not support architecture ".$this->{arch}." packages";
} }
=item release
Set/get release version.
When the release version is retreived, it is converted to an unsigned
integer, as is required by the slp package format.
=cut
sub release {
my $this=shift;
# set
$this->{release}=shift;
# get
return unless defined wantarray; # optimization
return int($this->{release});
}
=head1 AUTHOR =head1 AUTHOR
Joey Hess <joey@kitenet.net> Joey Hess <joey@kitenet.net>

137
lib/Toslp.pm
View File

@@ -1,137 +0,0 @@
#!/usr/bin/perl
#
# Package for converting to stampede package format.
# Pull in details on the binary footer.
use Slp;
package To::slp;
use strict;
# Mangle the fields as necessary for a stampede package.
sub FixFields { my ($self,%fields)=@_;
# Mangle conffiles to the format they want.
$fields{CONFFILES}=~s/\n/:/g;
$fields{CONFFILES}=~s/:$//;
# Use priority optional for alien packages.
$fields{PRIORITY}=2;
# I always use bzip2 as the compression type.
$fields{COMPRESSTYPE}=0;
# Their version of release is a unsigned integer, so I need to
# convert anythnig more compilcated.
$fields{RELEASE}=int($fields{RELEASE});
# I don't try to guess copyright, just use unknown.
$fields{COPYRIGHT}=254;
# I don't try to fill these in with meaningful values.
$fields{CONFLICTS}="";
$fields{DEPENDS}="";
$fields{PROVIDES}="";
# TODO:
$fields{SETUPSTRIPT}=undef;
# Let's use the current date for this.
$fields{DATE}=`date`;
chomp $fields{DATE};
# Pick a compiler version.
if ($fields{ARCH} eq 'all') {
$fields{COMPILER}=253; # No compiler
}
else {
$fields{COMPILER}=252; # Unknown compiler
}
# Pick a binary format from the translation table.
$fields{BINFORMAT}=undef;
my $archnum;
foreach $archnum (keys %$slp::archtrans) {
if ($$slp::archtrans{$archnum} eq $fields{ARCH}) {
$fields{BINFORMAT} = $archnum;
last;
}
}
if ($fields{BINFORMAT} eq undef) {
Alien::Error("Stampede does not appear to support architecure $fields{ARCH} packages.");
}
# This is really the software category; use unknown.
$fields{GROUP}=252;
$fields{SLPKGVERSION}=$slp::footer_version;
return %fields;
}
# Do any necessary conversions on the file tree.
sub Convert { my ($self,$workdir,$nopatch,%fields)=@_;
if ($main::generate) {
print "Directory $workdir prepared.\n";
}
}
# Passed the available info about the package in a hash, return the name of
# the slp package that will be made.
sub GetPackageName { my ($self,%fields)=@_;
return "$fields{NAME}-$fields{VERSION}.slp";
}
# Returns a slp footer in a scalar.
sub MakeFooter { my %fields=@_;
# We cannot use the actual $slp::footer_packstring, becuase it uses
# space terminated strings (A) instead of null terminated strings (a).
# This is good for decoding, but not for encoding.
$_=$slp::footer_packstring;
tr/A/a/;
return pack($_,(
$fields{CONFFILES},
$fields{PRIORITY},
$fields{COMPRESSTYPE},
$fields{RELEASE},
$fields{COPYRIGHT},
$fields{CONFLICTS},
$fields{SETUPSCRIPT},
$fields{SUMMARY},
$fields{DESCRIPTION},
$fields{DEPENDS},
$fields{PROVIDES},
$fields{AUTHOR},
$fields{DATE},
$fields{COMPILER},
$fields{VERSION},
$fields{NAME},
$fields{BINFORMAT},
$fields{GROUP},
$fields{SLPKGVERSION},
));
}
# Build a slp file.
# This consists of first generating a .tar.bz2 file, and then appending the
# footer to it.
sub Build { my ($self,%fields)=@_;
# Note that it's important I use "./*" instead of just "." or something like
# that, becuase it results in a tar file where all the files in it start
# with "./", which is consitent with how normal stampede files look.
Alien::SafeSystem("tar cf - ./* | bzip2 - > ../".$self->GetPackageName(%fields));
# Now append the footer to that.
open (OUT,">>../".$self->GetPackageName(%fields)) ||
Alien::Error("Unable to append footer.");
print OUT MakeFooter(%fields);
close OUT;
}
# Install the passed slp file.
sub Install { my ($self,$package)=shift;
Alien::SafeSystem("slpi $package");
}
1