blob: 5e188c686bc9d6439f002a71007ea647849fd48d (
plain)
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
<?php
# $NetBSD: pear_plist.php,v 1.5 2007/10/09 19:19:10 martti Exp $
# Parses package XML file and outputs appropriate PLIST
$PEAR_LIB = getenv('PEAR_LIB');
$WRKSRC = getenv('WRKSRC');
$PEAR_DIRRM_BASEDIR = getenv('PEAR_DIRRM_BASEDIR');
$dirrm = array();
include_once "PEAR/Common.php";
$obj = &new PEAR_Common;
$info = $obj->infoFromAny("$WRKSRC/package.xml");
if (!empty($info['attribs']) && $info['attribs']['version'] == '2.0')
$pkg = $info['name'];
else
$pkg = $info['package'];
# output list of package files, in same order as specified in package
echo "$PEAR_LIB/.registry/".strtolower($pkg).".reg\n";
foreach($info['filelist'] as $f => $v) {
switch($v['role']) {
case 'test':
case 'doc':
case 'data':
$prefix = "$v[role]/$pkg/";
$dirrm["$v[role]/$pkg"] = true;
break;
case 'php':
default:
if (!empty($v['baseinstalldir']) && $v['baseinstalldir'] != '/') {
$prefix = $v['baseinstalldir'] . '/';
# sometimes the baseinstalldir begins with a slash,
# which make the PLIST output to have two instead of
# one. We fix this here.
if ($prefix[0] == '/')
$prefix = substr($prefix, 1);
if ($PEAR_DIRRM_BASEDIR)
$dirrm[$v['baseinstalldir']] = true;
} else
$prefix = '';
break;
}
# replace backslashes with forward slashes in the path name, for
# pear packages written by non-UNIX oriented authors.
$f = str_replace('\\', '/', $f);
echo "{$PEAR_LIB}/{$prefix}{$f}\n";
while(($f = dirname($f)) && $f != '.')
$dirrm["{$prefix}{$f}"] = true;
}
# output @dirrm directives, in reverse order so that deeper
# directories are removed first
$dirrm = array_keys($dirrm);
rsort($dirrm);
foreach($dirrm as $dir)
echo "@dirrm {$PEAR_LIB}/$dir\n";
?>
|
