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