mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-14 17:50:04 -04:00
52 lines
931 B
Bash
52 lines
931 B
Bash
#!/bin/sh
|
|
|
|
# Test Tcl support: --add-comments option.
|
|
|
|
tmpfiles=""
|
|
trap 'rm -fr $tmpfiles' 1 2 3 15
|
|
|
|
tmpfiles="$tmpfiles xg-t-2.tcl"
|
|
cat <<EOF > xg-t-2.tcl
|
|
# This comment will not be extracted.
|
|
puts [_ "help"]
|
|
# TRANSLATORS: This is an extracted comment.
|
|
puts [_ "me"]
|
|
# Not extracted either.
|
|
puts [_ "Hey Jude"]
|
|
# TRANSLATORS:
|
|
# Nickname of the Beatles
|
|
puts [_ "The Fabulous Four"]
|
|
EOF
|
|
|
|
tmpfiles="$tmpfiles xg-t-2.po"
|
|
: ${XGETTEXT=xgettext}
|
|
${XGETTEXT} --omit-header --no-location --add-comments=TRANSLATORS: -k_ \
|
|
xg-t-2.tcl -d xg-t-2
|
|
test $? = 0 || { rm -fr $tmpfiles; exit 1; }
|
|
|
|
tmpfiles="$tmpfiles xg-t-2.ok"
|
|
cat <<EOF > xg-t-2.ok
|
|
msgid "help"
|
|
msgstr ""
|
|
|
|
#. TRANSLATORS: This is an extracted comment.
|
|
msgid "me"
|
|
msgstr ""
|
|
|
|
msgid "Hey Jude"
|
|
msgstr ""
|
|
|
|
#. TRANSLATORS:
|
|
#. Nickname of the Beatles
|
|
msgid "The Fabulous Four"
|
|
msgstr ""
|
|
EOF
|
|
|
|
: ${DIFF=diff}
|
|
${DIFF} xg-t-2.ok xg-t-2.po
|
|
result=$?
|
|
|
|
rm -fr $tmpfiles
|
|
|
|
exit $result
|