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