[SCM] Debian package checker branch, master, updated. 2.0.0-13-g0094324

["Frank Lichtenheld" <djpig@debian.org>]

The following commit has been merged in the master branch:
commit 8e4ea0ae42c3e58fd220a2f75f96652d12e56dc6
Author: Frank Lichtenheld <djpig@debian.org>
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 <frank@lichtenheld.de>
+#
+# 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