| #!/bin/sh |
| . "${srcdir=.}/init.sh"; path_prepend_ . ../src |
| |
| # Test of Tcl support. |
| |
| cat <<\EOF > xg-t-1.tcl |
| #!/usr/bin/tclsh |
| |
| proc isValid {target} { |
| global viScreenId |
| set address [valid $target] |
| # This comment is not extracted. |
| if {$address != 0} { |
| # First comment line. |
| |
| # Second comment line. |
| viMsg $viScreenId [format [_ "%s is %s"] $target [string trim $address]] |
| } else { |
| viMsg $viScreenId [format [_ "%s not found"] $target] |
| } |
| } |
| EOF |
| |
| : ${XGETTEXT=xgettext} |
| ${XGETTEXT} --add-comments --no-location -k_ -o xg-t-1.tmp xg-t-1.tcl 2>xg-t-1.err |
| test $? = 0 || { cat xg-t-1.err; Exit 1; } |
| func_filter_POT_Creation_Date xg-t-1.tmp xg-t-1.pot |
| |
| cat <<\EOF > xg-t-1.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=CHARSET\n" |
| "Content-Transfer-Encoding: 8bit\n" |
| |
| #. First comment line. |
| #. Second comment line. |
| #, tcl-format |
| msgid "%s is %s" |
| msgstr "" |
| |
| #, tcl-format |
| msgid "%s not found" |
| msgstr "" |
| EOF |
| |
| : ${DIFF=diff} |
| ${DIFF} xg-t-1.ok xg-t-1.pot |
| result=$? |
| |
| exit $result |