| #! /bin/sh | |
| . "${srcdir=.}/init.sh"; path_prepend_ . ../src | |
| # Test checking of Object Pascal format strings. | |
| cat <<\EOF > f-op-2.data | |
| # Valid: %% doesn't count | |
| msgid "abc%%def" | |
| msgstr "xyz" | |
| # Invalid: invalid msgstr | |
| msgid "abc%%def" | |
| msgstr "xyz%" | |
| # Valid: same arguments | |
| msgid "abc%s%gdef" | |
| msgstr "xyz%s%g" | |
| # Valid: same arguments, with different widths | |
| msgid "abc%2sdef" | |
| msgstr "xyz%3s" | |
| # Valid: same arguments but in numbered syntax | |
| msgid "abc%s%gdef" | |
| msgstr "xyz%0:s%1:g" | |
| # Valid: permutation | |
| msgid "abc%s%g%cdef" | |
| msgstr "xyz%2:c%1:g%0:s" | |
| # Invalid: too few arguments | |
| msgid "abc%1:xdef%0:s" | |
| msgstr "xyz%0:s" | |
| # Invalid: too few arguments | |
| msgid "abc%sdef%x" | |
| msgstr "xyz%s" | |
| # Invalid: too many arguments | |
| msgid "abc%xdef" | |
| msgstr "xyz%xvw%p" | |
| # Valid: same numbered arguments, with different widths | |
| msgid "abc%1:5s%0:4s" | |
| msgstr "xyz%1:4s%0:5s" | |
| # Valid: same numbered arguments | |
| msgid "abc%:s" | |
| msgstr "xyz%0:s" | |
| # Valid: same numbered arguments | |
| msgid "abc%0:s" | |
| msgstr "xyz%:s" | |
| # Invalid: missing argument | |
| msgid "abc%1:sdef%0:x" | |
| msgstr "xyz%0:x" | |
| # Invalid: missing argument | |
| msgid "abc%0:sdef%1:x" | |
| msgstr "xyz%1:x" | |
| # Invalid: added argument | |
| msgid "abc%0:xdef" | |
| msgstr "xyz%0:xvw%1:p" | |
| # Valid: type compatibility | |
| msgid "abc%d" | |
| msgstr "xyz%u" | |
| # Valid: type compatibility | |
| msgid "abc%d" | |
| msgstr "xyz%x" | |
| # Valid: type compatibility | |
| msgid "abc%u" | |
| msgstr "xyz%x" | |
| # Valid: type compatibility | |
| msgid "abc%e" | |
| msgstr "xyz%f" | |
| # Valid: type compatibility | |
| msgid "abc%e" | |
| msgstr "xyz%g" | |
| # Valid: type compatibility | |
| msgid "abc%e" | |
| msgstr "xyz%n" | |
| # Valid: type compatibility | |
| msgid "abc%e" | |
| msgstr "xyz%m" | |
| # Invalid: type incompatibility | |
| msgid "abc%d" | |
| msgstr "xyz%e" | |
| # Invalid: type incompatibility | |
| msgid "abc%d" | |
| msgstr "xyz%s" | |
| # Invalid: type incompatibility | |
| msgid "abc%d" | |
| msgstr "xyz%p" | |
| # Invalid: type incompatibility | |
| msgid "abc%e" | |
| msgstr "xyz%s" | |
| # Invalid: type incompatibility | |
| msgid "abc%e" | |
| msgstr "xyz%p" | |
| # Invalid: type incompatibility | |
| msgid "abc%s" | |
| msgstr "xyz%p" | |
| # Invalid: type incompatibility for width | |
| msgid "abc%g%*g" | |
| msgstr "xyz%*g%g" | |
| EOF | |
| : ${MSGFMT=msgfmt} | |
| n=0 | |
| while read comment; do | |
| read msgid_line | |
| read msgstr_line | |
| n=`expr $n + 1` | |
| cat <<EOF > f-op-2-$n.po | |
| #, object-pascal-format | |
| ${msgid_line} | |
| ${msgstr_line} | |
| EOF | |
| fail= | |
| if echo "$comment" | grep 'Valid:' > /dev/null; then | |
| if ${MSGFMT} --check-format -o f-op-2-$n.mo f-op-2-$n.po; then | |
| : | |
| else | |
| fail=yes | |
| fi | |
| else | |
| ${MSGFMT} --check-format -o f-op-2-$n.mo f-op-2-$n.po 2> /dev/null | |
| if test $? = 1; then | |
| : | |
| else | |
| fail=yes | |
| fi | |
| fi | |
| if test -n "$fail"; then | |
| echo "Format string checking error:" 1>&2 | |
| cat f-op-2-$n.po 1>&2 | |
| Exit 1 | |
| fi | |
| rm -f f-op-2-$n.po f-op-2-$n.mo | |
| done < f-op-2.data | |
| Exit 0 |