xgettext parsing of Tcl unicode code point escapes is broken, it
tries to replace the escape with the literal unicode character but
does not consume the last character of the escape but copies it
into the output which results in corrupt .po files, e.g.:

----8<----
$ cat gettext-bug.tcl
#!/usr/bin/tclsh

package require msgcat

puts [msgcat::mc "Hello\u200e\u201cWorld\u201d"]

$ /usr/bin/xgettext -o- gettext-bug.tcl
# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2013-06-24 16:24+0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <[email protected]>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"

#: gettext-bug.tcl:5
msgid "Hello‎e“cWorld”d"
msgstr ""
---->8----

It should probably not try to substitute these escapes at all as it
results in fragile .po files with embedded control characters, see
e.g. the U+200E left-to-right mark in the above example.
--
Guido Berhoerster

Reply via email to