Initial revision

2026-04-24 14:00:17 +00:00 · 1999-09-05 06:03:10 +00:00
parent ad046046f0
commit e546405fae
25 changed files with 2751 additions and 0 deletions
--- a/lib/Toslp.pm
+++ b/lib/Toslp.pm
@@ -0,0 +1,132 @@
+#!/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,%fields)=@_;
+}
+
+# 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{ARCH},
+		$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 the -I is for making a .bzip2 file.
+	Alien::SafeSystem("tar cIf ../".$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