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