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