qemu-devel.nongnu.org archive mirror
 help / color / mirror / Atom feed
* [Qemu-devel] [PATCH 1/2] Support @documentencoding in scripts/texi2pod.pl
@ 2012-02-02 14:16 Michael Tokarev
  2012-03-11  9:56 ` Michael Tokarev
  0 siblings, 1 reply; 11+ messages in thread
From: Michael Tokarev @ 2012-02-02 14:16 UTC (permalink / raw)
  To: qemu-devel; +Cc: Michael Tokarev

Currently our texi2pod ignores @documentencoding even if it is set
properly in *.texi files.  This results in a mojibake in documents
generated from qemu.pod (which is generated from qemu-doc.texi by
texi2pod), because the rest of the tools assumes ASCII encoding.

This patch recognizes first @documentencoding in input and places
it at the beginning of output as =encoding directive.

Signed-Off-By: Michael Tokarev <mjt@tls.msk.ru>
---
 scripts/texi2pod.pl |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/scripts/texi2pod.pl b/scripts/texi2pod.pl
index 9ed056a..94097fb 100755
--- a/scripts/texi2pod.pl
+++ b/scripts/texi2pod.pl
@@ -36,6 +36,7 @@ $fnno = 1;
 $inf = "";
 $ibase = "";
 @ipath = ();
+$encoding = undef;
 
 while ($_ = shift) {
     if (/^-D(.*)$/) {
@@ -97,6 +98,12 @@ while(<$inf>) {
     /^\@setfilename\s+([^.]+)/ and $fn = $1, next;
     /^\@settitle\s+([^.]+)/ and $tl = postprocess($1), next;
 
+    # Look for document encoding
+    /^\@documentencoding\s+([^.]+)/ and do {
+        $encoding = $1 unless defined $encoding;
+        next;
+    };
+
     # Identify a man title but keep only the one we are interested in.
     /^\@c\s+man\s+title\s+([A-Za-z0-9-]+)\s+(.+)/ and do {
 	if (exists $defs{$1}) {
@@ -336,6 +343,8 @@ $inf = pop @instack;
 
 die "No filename or title\n" unless defined $fn && defined $tl;
 
+print "=encoding $encoding\n\n" if defined $encoding;
+
 $sects{NAME} = "$fn \- $tl\n";
 $sects{FOOTNOTES} .= "=back\n" if exists $sects{FOOTNOTES};
 
-- 
1.7.2.5

^ permalink raw reply related	[flat|nested] 11+ messages in thread
[parent not found: <1328192202-23450-1-git-send-email-mjt@tls.msk.ru>]

end of thread, other threads:[~2012-03-12 10:33 UTC | newest]

Thread overview: 11+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-02-02 14:16 [Qemu-devel] [PATCH 1/2] Support @documentencoding in scripts/texi2pod.pl Michael Tokarev
2012-03-11  9:56 ` Michael Tokarev
2012-03-12  8:21   ` Stefan Hajnoczi
2012-03-12 10:14     ` Michael Tokarev
2012-03-12 10:33       ` Stefan Hajnoczi
     [not found] <1328192202-23450-1-git-send-email-mjt@tls.msk.ru>
2012-02-02 14:16 ` [Qemu-devel] [PATCH 2/2] Run pod2man with --utf8 option to enable utf8 in manpages Michael Tokarev
2012-02-02 14:32   ` Peter Maydell
2012-02-02 14:46     ` Michael Tokarev
2012-02-02 14:49       ` Peter Maydell
2012-02-02 14:54         ` Michael Tokarev
2012-03-11  9:57   ` Michael Tokarev

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).