The following commit has been merged in the master branch:
commit 8e4ea0ae42c3e58fd220a2f75f96652d12e56dc6
Author: Frank Lichtenheld <[EMAIL PROTECTED]>
Date: Wed Sep 24 23:31:14 2008 +0200
Add an XML output as demonstration for print_{start,end}_pkg
diff --git a/frontend/lintian b/frontend/lintian
index 8b81066..b54674e 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -649,6 +649,9 @@ if (defined $experimental_output_opts) {
} elsif ($opts{$_} eq 'letterqualifier') {
require Lintian::Output::LetterQualifier;
$Lintian::Output::GLOBAL = new Lintian::Output::LetterQualifier;
+ } elsif ($opts{$_} eq 'xml') {
+ require Lintian::Output::XML;
+ $Lintian::Output::GLOBAL = new Lintian::Output::XML;
}
}
no strict 'refs';
diff --git a/lib/Lintian/Output/XML.pm b/lib/Lintian/Output/XML.pm
new file mode 100644
index 0000000..7913f17
--- /dev/null
+++ b/lib/Lintian/Output/XML.pm
@@ -0,0 +1,73 @@
+# Copyright © 2008 Frank Lichtenheld <[EMAIL PROTECTED]>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, you can find it on the World Wide
+# Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
+# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
+# MA 02110-1301, USA.
+
+package Lintian::Output::XML;
+use strict;
+use warnings;
+
+use HTML::Entities;
+
+use Lintian::Output qw(:util);
+use base qw(Lintian::Output);
+
+sub print_tag {
+ my ($self, $pkg_info, $tag_info, $information) = @_;
+
+ $self->_print_xml('',
+ qq{<tag severity="$tag_info->{severity}"
certainty="$tag_info->{certainty}"},
+ 'flags="'.(exists($tag_info->{experimental}) ?
'experimental' : ''),
+ ($tag_info->{overridden}{override} ? 'overridden' :
'').'"',
+
qq{name="$tag_info->{tag}">}.encode_entities("@$information","<>&\"'").qq{</tag},
+ );
+}
+
+sub print_start_pkg {
+ my ($self, $pkg_info) = @_;
+
+ $self->_print_xml('',
+ qq{<package type="$pkg_info->{type}"
name="$pkg_info->{pkg}"},
+ qq{architecture="$pkg_info->{arch}"
version="$pkg_info->{version}">}
+ );
+}
+
+sub print_end_pkg {
+ my ($self) = @_;
+ $self->_print_xml('', '</package>');
+}
+
+sub _delimiter {
+ return;
+}
+
+sub _print {
+ my ($self, $stream, $lead, @args) = @_;
+ $stream ||= $self->stderr;
+
+ my $output = $self->string($lead, @args);
+ print {$stream} $output;
+}
+
+sub _print_xml {
+ my ($self, $stream, @args) = @_;
+ $stream ||= $self->stdout;
+
+ print {$stream} join(' ',@args), "\n";
+}
+
+1;
+
--
Debian package checker
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
