1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/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
|
