From 25c4d516783c1f586963957f29e87d1cb6624558 Mon Sep 17 00:00:00 2001
From: joey <joey@a4a2c43b-8ac3-0310-8836-e0e880c912e2>
Date: Fri, 21 Apr 2000 09:56:25 +0000
Subject: [PATCH] rewritten

---
 lib/Slp.pm | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 lib/Slp.pm

diff --git a/lib/Slp.pm b/lib/Slp.pm
deleted file mode 100644
index 4dd4e28..0000000
--- a/lib/Slp.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-# Becuase .slp files are a binary format we parse by hand, I need to code in
-# the details of the structure here.
-
-package slp;
-
-use strict;
-
-# Complete sizeof(slpformat) from slp.h in the stampede package manager source.
-$slp::footer_size=3784;
-
-# This is the pack format string for the footer.
-# (A=space terminated character, I=unsigned integer.)
-$slp::footer_packstring="A756IIIIA128A128A80A1536A512A512A30A30IA20A20III";
-
-# What package format are we up to now? (Lowest one this is still compatable
-# with.)
-$slp::footer_version=5;
-
-# This is a translation table between architectures and the number
-# that represents them in a slp package.
-$slp::archtrans={
-	0 => 'all',
-	1 => 'i386',
-	2 => 'sparc',
-	3 => 'alpha',
-	4 => 'powerpc',
-	5 => 'm68k',
-};
-
-# This is a translation table between copyrights and the number that
-# represents them in a slp package
-$slp::copyrighttrans={
-	0 => 'GPL',
-	1 => 'BSD',
-	2 => 'LGPL',
-	3 => 'unknown',
-	254 => 'unknown',
-};
-
-1