From 750af00abb5efcca217593cd6a3d04ebbc07ade2 Mon Sep 17 00:00:00 2001 From: Leonardo Arena Date: Wed, 11 May 2016 13:41:37 +0000 Subject: main/docbook2x: move to main --- ...ix_442782_preprocessor_declaration_syntax.patch | 90 ---------------------- 1 file changed, 90 deletions(-) delete mode 100644 testing/docbook2x/04_fix_442782_preprocessor_declaration_syntax.patch (limited to 'testing/docbook2x/04_fix_442782_preprocessor_declaration_syntax.patch') diff --git a/testing/docbook2x/04_fix_442782_preprocessor_declaration_syntax.patch b/testing/docbook2x/04_fix_442782_preprocessor_declaration_syntax.patch deleted file mode 100644 index b6ddbfa2a0..0000000000 --- a/testing/docbook2x/04_fix_442782_preprocessor_declaration_syntax.patch +++ /dev/null @@ -1,90 +0,0 @@ -#! /bin/sh /usr/share/dpatch/dpatch-run -## 04_fix_442782_preprocessor_declaration_syntax.dpatch by Colin Watson . -## -## All lines beginning with `## DP:' are a description of the patch. -## DP: Conventionally, preprocessor declarations should start with -## DP: '\" -## DP: rather than -## DP: .\" -## DP: Current man-db only supports the first (and recommended) syntax. So -## DP: Colin Watson provided this patch to fix docbook2x. -## DP: -## DP: -## DP: - -@DPATCH@ -diff -urNad trunk~/perl/db2x_manxml.pl trunk/perl/db2x_manxml.pl ---- trunk~/perl/db2x_manxml.pl 2006-04-22 17:21:32.000000000 +0200 -+++ trunk/perl/db2x_manxml.pl 2007-11-24 01:27:37.000000000 +0100 -@@ -342,6 +342,25 @@ - $self->{line_start} = 1; - } - -+# -+# Print a comment in the output, without causing a break. -+# Params: comment - the comment text. -+# May use any characters; they need not be escaped. -+# -+sub comment_nobreak -+{ -+ my ($self, $comment) = @_; -+ $self->write("\n") unless $self->{line_start}; -+ -+ foreach my $line (split(/\n/, $comment)) { -+ $self->write('\'\" '); -+ $self->write($line); -+ $self->write("\n"); -+ } -+ -+ $self->{line_start} = 1; -+} -+ - - # - # Use a roff "escape" i.e. commands embedded in text starting with \ -@@ -510,16 +529,20 @@ - - $self->{'adjust-stack'} = [ 'b' ]; - -- $self->{rw}->comment($elem->attr('preprocessors')) -- if($elem->attr('preprocessors') ne ''); -- -+ my $preprocessors = $elem->attr('preprocessors'); - # I've dug through the Internet to see if there was any - # standard way to specify encoding with man pages. - # The following seems to be a reasonable proposal: - # - my $encoding = $self->{options}->{'encoding'}; - $encoding =~ s#//TRANSLIT$##i; -- $self->{rw}->comment("-*- coding: $encoding -*-"); -+ $encoding = "-*- coding: $encoding -*-"; -+ if ($preprocessors eq '') { -+ $preprocessors = $encoding; -+ } else { -+ $preprocessors = "$preprocessors $encoding"; -+ } -+ $self->{rw}->comment_nobreak($preprocessors); - - # Define escapes for switching to and from monospace fonts (groff only) - $self->{rw}->request(qw{ .if \n(.g .ds T< \\\\FC}); -diff -urNad trunk~/xslt/backend/db2x_manxml.xsl trunk/xslt/backend/db2x_manxml.xsl ---- trunk~/xslt/backend/db2x_manxml.xsl 2006-04-23 16:44:52.000000000 +0200 -+++ trunk/xslt/backend/db2x_manxml.xsl 2007-11-24 01:27:37.000000000 +0100 -@@ -528,7 +528,7 @@ - -- .\" -*- coding: -+ '\" -*- coding: - - -*- - -@@ -538,7 +538,7 @@ - -- .\" -*- coding: -+ '\" -*- coding: - - -*- - -- cgit v1.2.3