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