| #! /bin/sh |
| . "${srcdir=.}/init.sh"; path_prepend_ . ../src |
| |
| # Test of gettext facilities in the Emacs Lisp language. |
| |
| cat <<\EOF > prog.el |
| (textdomain "prog") |
| (bindtextdomain "prog" ".") |
| |
| (format standard-output "%s\n" (_ "'Your command, please?', asked the waiter.")) |
| |
| (format standard-output "%s\n" |
| (format nil (_ "%s is replaced by %s.") "FF" "EUR")) |
| EOF |
| |
| : ${XGETTEXT=xgettext} |
| ${XGETTEXT} -o prog.tmp --omit-header --no-location prog.el || Exit 1 |
| LC_ALL=C tr -d '\r' < prog.tmp > prog.pot || Exit 1 |
| |
| cat <<EOF > prog.ok |
| msgid "'Your command, please?', asked the waiter." |
| msgstr "" |
| |
| #, elisp-format |
| msgid "%s is replaced by %s." |
| msgstr "" |
| EOF |
| |
| : ${DIFF=diff} |
| ${DIFF} prog.ok prog.pot || Exit 1 |
| |
| cat <<\EOF > fr.po |
| msgid "" |
| msgstr "" |
| "Content-Type: text/plain; charset=ISO-8859-1\n" |
| "Plural-Forms: nplurals=2; plural=(n > 1);\n" |
| |
| msgid "'Your command, please?', asked the waiter." |
| msgstr "«Votre commande, s'il vous plait», dit le garçon." |
| |
| # Reverse the arguments. |
| #, elisp-format |
| msgid "%s is replaced by %s." |
| msgstr "%2$s remplace %1$s." |
| EOF |
| |
| : ${MSGMERGE=msgmerge} |
| ${MSGMERGE} -q -o fr.po.tmp fr.po prog.pot || Exit 1 |
| LC_ALL=C tr -d '\r' < fr.po.tmp > fr.po.new || Exit 1 |
| |
| : ${DIFF=diff} |
| ${DIFF} fr.po fr.po.new || Exit 1 |
| |
| test -d fr || mkdir fr |
| test -d fr/LC_MESSAGES || mkdir fr/LC_MESSAGES |
| |
| : ${MSGFMT=msgfmt} |
| ${MSGFMT} -o fr/LC_MESSAGES/prog.mo fr.po |
| |
| Exit 0 |
