Files
RedBear-OS/recipes/tools/gettext/source/gettext-tools/tests/xgettext-tcl-4
T
vasilito facf0c92e0 feat: track all source trees in git — full fork offline-first model
Red Bear OS is a full fork. All sources must be available from git clone
with zero network access. Removed gitignore rules that excluded fetched
source trees under recipes/*/source/, local/recipes/kde/*/source/,
local/recipes/qt/*/source/, and vendor source trees.

Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded.

127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt
frameworks, mesa, wayland, DRM drivers, and every other recipe source.
2026-05-14 10:55:53 +01:00

63 lines
1.3 KiB
Bash
Executable File
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
#!/bin/sh
. "${srcdir=.}/init.sh"; path_prepend_ . ../src
# Test of Tcl support: escape sequences.
cat <<\EOF > xg-t-4.tcl
puts [_ "Hello\u200e\u201cWorld\u201d"]
puts [_ "x\u20y\x20z"]
puts [_ "\xFF20"]
puts [_ "\UFF20"]
puts [_ "\uD83D\udc1c"]
# Does not work yet in Tcl 8.6:
# puts [_ "\U0001F41C"]
EOF
: ${XGETTEXT=xgettext}
${XGETTEXT} --add-comments --no-location -k_ -o xg-t-4.tmp xg-t-4.tcl 2>xg-t-4.err
result=$?
cat xg-t-4.err
test $result = 0 || Exit 1
func_filter_POT_Creation_Date xg-t-4.tmp xg-t-4.pot
cat <<\EOF > xg-t-4.ok
# 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"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
msgid "Hello‎“World”"
msgstr ""
msgid "x y z"
msgstr ""
msgid "ÿ20"
msgstr ""
msgid ""
msgstr ""
msgid "🐜"
msgstr ""
EOF
: ${DIFF=diff}
${DIFF} xg-t-4.ok xg-t-4.pot
result=$?
exit $result