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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
###########################################################################
# A module to handle XML descriptors
#
# Copyright (C) 2016-2018 Andrey Ponomarenko's ABI Laboratory
#
# Written by Andrey Ponomarenko
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
# MA 02110-1301 USA.
###########################################################################
use strict;
sub createDesc($$)
{
my ($Path, $LVer) = @_;
if(not -e $Path) {
return undef;
}
if(-d $Path or $Path=~/\.(jar|jmod)\Z/)
{
return "
<version>
".$In::Desc{$LVer}{"TargetVersion"}."
</version>
<archives>
$Path
</archives>";
}
# standard XML-descriptor
return readFile($Path);
}
sub readDesc($$)
{
my ($Content, $LVer) = @_;
if(not $Content) {
exitStatus("Error", "XML descriptor is empty");
}
if($Content!~/\</) {
exitStatus("Error", "descriptor should be one of the following: Java archive, XML descriptor, API dump or directory with Java archives.");
}
$Content=~s/\/\*(.|\n)+?\*\///g;
$Content=~s/<\!--(.|\n)+?-->//g;
$In::Desc{$LVer}{"Version"} = parseTag(\$Content, "version");
if(defined $In::Desc{$LVer}{"TargetVersion"}) {
$In::Desc{$LVer}{"Version"} = $In::Desc{$LVer}{"TargetVersion"};
}
if($In::Desc{$LVer}{"Version"} eq "") {
exitStatus("Error", "version in the XML descriptor is not specified (<version> section)");
}
if(my $Archives = parseTag(\$Content, "archives"))
{
foreach my $Path (split(/\s*\n\s*/, $Archives))
{
if(not -e $Path) {
exitStatus("Access_Error", "can't access \'$Path\'");
}
$Path = getAbsPath($Path);
$In::Desc{$LVer}{"Archives"}{$Path} = 1;
}
}
else {
exitStatus("Error", "descriptor does not contain info about Java archives");
}
foreach my $Package (split(/\s*\n\s*/, parseTag(\$Content, "skip_packages"))) {
$In::Desc{$LVer}{"SkipPackages"}{$Package} = 1;
}
foreach my $Package (split(/\s*\n\s*/, parseTag(\$Content, "packages"))) {
$In::Desc{$LVer}{"KeepPackages"}{$Package} = 1;
}
}
return 1;
|
