mirror of
https://https.git.savannah.gnu.org/git/gettext.git
synced 2026-01-30 03:14:34 +00:00
0b781b0418
* gettext-tools/src/write-tcl.c (hexdigit): New variable. (write_tcl8_string): Renamed from write_tcl_string. Enable the escaping of braces. (write_tcl9_string, is_entirely_ucs2, write_tcl_string): New functions. * gettext-tools/tests/msgfmt-tcl-1: New file. * gettext-tools/tests/testdata/tcltest_pl.po: New file. * gettext-tools/tests/testdata/tcltest_pl.msg: New file. * gettext-tools/tests/msgfmt-tcl-2: New file. * gettext-tools/tests/testdata/tcltest_cs.po: New file. * gettext-tools/tests/testdata/tcltest_cs.msg: New file. * gettext-tools/tests/Makefile.am (TESTS): Add msgfmt-tcl-1, msgfmt-tcl-2. (EXTRA_DIST): Add the new testdata files. * NEWS: Mention the change.
3 lines
524 B
Plaintext
3 lines
524 B
Plaintext
set ::msgcat::header "Project-Id-Version: hello-tcl 0\nReport-Msgid-Bugs-To: bug-gnu-gettext@gnu.org\nPO-Revision-Date: 2003-10-20 10:13+0200\nLast-Translator: Marek \u010cernock\u00fd <marek@manet.cz>\nLanguage-Team: Czech <cs@li.org>\nMIME-Version: 1.0\nContent-Type: text/plain; charset=UTF-8\nContent-Transfer-Encoding: 8bit\nPlural-Forms: nplurals=3; plural=(n==1) ? 0 : (n>=2 && n<=4) ? 1 : 2;\n"
|
|
::msgcat::mcset cs "Hello, world!" [expr { $tcl_version < 9 ? "Ahoj sv\u011bte 😃!" : "Ahoj sv\u011bte \U0001f603!" }]
|