gettext-tools/tests/xgettext-tcl-2

   1 #!/bin/sh
   2 . "${srcdir=.}/init.sh"; path_prepend_ . ../src
   3
   4 # Test Tcl support: --add-comments option.
   5
   6 cat <<EOF > xg-t-2.tcl
   7 # This comment will not be extracted.
   8 puts [_ "help"]
   9 #  TRANSLATORS: This is an extracted comment.
  10 puts [_ "me"]
  11 # Not extracted either.
  12 puts [_ "Hey Jude"]
  13 # TRANSLATORS:
  14 #    Nickname of the Beatles
  15 puts [_ "The Fabulous Four"]
  16 EOF
  17
  18 : ${XGETTEXT=xgettext}
  19 ${XGETTEXT} --omit-header --no-location --add-comments=TRANSLATORS: -k_ \
  20   -d xg-t-2.tmp xg-t-2.tcl || exit 1
  21 LC_ALL=C tr -d '\r' < xg-t-2.tmp.po > xg-t-2.po || exit 1
  22
  23 cat <<EOF > xg-t-2.ok
  24 msgid "help"
  25 msgstr ""
  26
  27 #. TRANSLATORS: This is an extracted comment.
  28 msgid "me"
  29 msgstr ""
  30
  31 msgid "Hey Jude"
  32 msgstr ""
  33
  34 #. TRANSLATORS:
  35 #. Nickname of the Beatles
  36 msgid "The Fabulous Four"
  37 msgstr ""
  38 EOF
  39
  40 : ${DIFF=diff}
  41 ${DIFF} xg-t-2.ok xg-t-2.po
  42 result=$?
  43
  44 exit $result