head 1.1; branch 1.1.1; access; symbols netbsd-11-0-RC4:1.1.1.1 netbsd-11-0-RC3:1.1.1.1 netbsd-11-0-RC2:1.1.1.1 netbsd-11-0-RC1:1.1.1.1 perseant-exfatfs-base-20250801:1.1.1.1 netbsd-11:1.1.1.1.0.30 netbsd-11-base:1.1.1.1 netbsd-10-1-RELEASE:1.1.1.1 perseant-exfatfs-base-20240630:1.1.1.1 perseant-exfatfs:1.1.1.1.0.28 perseant-exfatfs-base:1.1.1.1 netbsd-8-3-RELEASE:1.1.1.1 netbsd-9-4-RELEASE:1.1.1.1 netbsd-10-0-RELEASE:1.1.1.1 netbsd-10-0-RC6:1.1.1.1 netbsd-10-0-RC5:1.1.1.1 netbsd-10-0-RC4:1.1.1.1 netbsd-10-0-RC3:1.1.1.1 netbsd-10-0-RC2:1.1.1.1 netbsd-10-0-RC1:1.1.1.1 netbsd-10:1.1.1.1.0.26 netbsd-10-base:1.1.1.1 netbsd-9-3-RELEASE:1.1.1.1 cjep_sun2x-base1:1.1.1.1 cjep_sun2x:1.1.1.1.0.24 cjep_sun2x-base:1.1.1.1 cjep_staticlib_x-base1:1.1.1.1 netbsd-9-2-RELEASE:1.1.1.1 cjep_staticlib_x:1.1.1.1.0.22 cjep_staticlib_x-base:1.1.1.1 netbsd-9-1-RELEASE:1.1.1.1 phil-wifi-20200421:1.1.1.1 phil-wifi-20200411:1.1.1.1 is-mlppp:1.1.1.1.0.20 is-mlppp-base:1.1.1.1 phil-wifi-20200406:1.1.1.1 netbsd-8-2-RELEASE:1.1.1.1 netbsd-9-0-RELEASE:1.1.1.1 netbsd-9-0-RC2:1.1.1.1 netbsd-9-0-RC1:1.1.1.1 phil-wifi-20191119:1.1.1.1 netbsd-9:1.1.1.1.0.18 netbsd-9-base:1.1.1.1 phil-wifi-20190609:1.1.1.1 netbsd-8-1-RELEASE:1.1.1.1 netbsd-8-1-RC1:1.1.1.1 pgoyette-compat-merge-20190127:1.1.1.1 pgoyette-compat-20190127:1.1.1.1 pgoyette-compat-20190118:1.1.1.1 pgoyette-compat-1226:1.1.1.1 pgoyette-compat-1126:1.1.1.1 pgoyette-compat-1020:1.1.1.1 pgoyette-compat-0930:1.1.1.1 pgoyette-compat-0906:1.1.1.1 pgoyette-compat-0728:1.1.1.1 netbsd-8-0-RELEASE:1.1.1.1 phil-wifi:1.1.1.1.0.16 phil-wifi-base:1.1.1.1 pgoyette-compat-0625:1.1.1.1 netbsd-8-0-RC2:1.1.1.1 pgoyette-compat-0521:1.1.1.1 pgoyette-compat-0502:1.1.1.1 pgoyette-compat-0422:1.1.1.1 netbsd-8-0-RC1:1.1.1.1 pgoyette-compat-0415:1.1.1.1 pgoyette-compat-0407:1.1.1.1 pgoyette-compat-0330:1.1.1.1 pgoyette-compat-0322:1.1.1.1 pgoyette-compat-0315:1.1.1.1 pgoyette-compat:1.1.1.1.0.14 pgoyette-compat-base:1.1.1.1 matt-nb8-mediatek:1.1.1.1.0.12 matt-nb8-mediatek-base:1.1.1.1 perseant-stdc-iso10646:1.1.1.1.0.10 perseant-stdc-iso10646-base:1.1.1.1 netbsd-8:1.1.1.1.0.8 netbsd-8-base:1.1.1.1 prg-localcount2-base3:1.1.1.1 prg-localcount2-base2:1.1.1.1 prg-localcount2-base1:1.1.1.1 prg-localcount2:1.1.1.1.0.6 prg-localcount2-base:1.1.1.1 pgoyette-localcount-20170426:1.1.1.1 bouyer-socketcan-base1:1.1.1.1 pgoyette-localcount-20170320:1.1.1.1 bouyer-socketcan:1.1.1.1.0.4 bouyer-socketcan-base:1.1.1.1 pgoyette-localcount-20170107:1.1.1.1 pgoyette-localcount-20161104:1.1.1.1 localcount-20160914:1.1.1.1 pgoyette-localcount-20160806:1.1.1.1 pgoyette-localcount-20160726:1.1.1.1 pgoyette-localcount:1.1.1.1.0.2 pgoyette-localcount-base:1.1.1.1 v0_16_1:1.1.1.1 GNU:1.1.1; locks; strict; comment @# @; 1.1 date 2016.01.12.19.50.40; author christos; state Exp; branches 1.1.1.1; next ; commitid mjqfEJ9Ohc4GbGQy; 1.1.1.1 date 2016.01.12.19.50.40; author christos; state Exp; branches; next ; commitid mjqfEJ9Ohc4GbGQy; desc @@ 1.1 log @Initial revision @ text @#! /bin/sh # Test of gettext facilities in the Object Pascal language. # Assumes the following packages are installed: fpk. # Note: This test fails with fpk 1.0.10 when an UTF-8 locale is present, # because fpk ignores the locale's encoding. It supports only unibyte locales. # This here is a quick workaround: UTF8_LOCALE_UNSUPPORTED=yes tmpfiles="" trap 'rm -fr $tmpfiles' 1 2 3 15 tmpfiles="$tmpfiles prog.pp" cat <<\EOF > prog.pp program prog; {$mode delphi} uses gettext, sysutils; resourcestring question = '''Your command, please?'', asked the waiter.'; currencies = '%s is replaced by %s.'; begin translateresourcestrings('%s/LC_MESSAGES/prog.mo'); writeln(question); writeln(format(currencies, ['FF', 'EUR'])); end. EOF tmpfiles="$tmpfiles prog.o prog.rst prog" (ppc386 prog.pp) >/dev/null 2>&1 || { echo "Skipping test: ppc386 compiler not found" rm -fr $tmpfiles; exit 77 } tmpfiles="$tmpfiles prog.pot" : ${XGETTEXT=xgettext} ${XGETTEXT} -o prog.pot --omit-header --add-location prog.rst tmpfiles="$tmpfiles prog.ok" cat < prog.ok #: prog.question msgid "'Your command, please?', asked the waiter." msgstr "" #: prog.currencies #, object-pascal-format msgid "%s is replaced by %s." msgstr "" EOF : ${DIFF=diff} ${DIFF} prog.ok prog.pot || exit 1 tmpfiles="$tmpfiles fr.po" cat <<\EOF > fr.po msgid "" msgstr "Content-Type: text/plain; charset=ISO-8859-1\n" #: prog.question msgid "'Your command, please?', asked the waiter." msgstr "«Votre commande, s'il vous plait», dit le garçon." # Reverse the arguments. #: prog.currencies #, object-pascal-format msgid "%s is replaced by %s." msgstr "%1:s remplace %0:s." EOF tmpfiles="$tmpfiles fr.po.new" : ${MSGMERGE=msgmerge} ${MSGMERGE} -q -o fr.po.new fr.po prog.pot : ${DIFF=diff} ${DIFF} fr.po fr.po.new || exit 1 tmpfiles="$tmpfiles fr" 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 tmpfiles="$tmpfiles prog.ok prog.oku prog.out" : ${DIFF=diff} cat <<\EOF > prog.ok «Votre commande, s'il vous plait», dit le garçon. EUR remplace FF. EOF cat <<\EOF > prog.oku «Votre commande, s'il vous plait», dit le garçon. EUR remplace FF. EOF : ${LOCALE_FR=fr_FR} : ${LOCALE_FR_UTF8=fr_FR.UTF-8} if test $LOCALE_FR != none; then LANGUAGE= LC_ALL= LC_MESSAGES= LC_CTYPE= LANG=$LOCALE_FR ./prog > prog.out || exit 1 : ${DIFF=diff} ${DIFF} prog.ok prog.out || exit 1 fi if test -z "$UTF8_LOCALE_UNSUPPORTED"; then if test $LOCALE_FR_UTF8 != none; then LANGUAGE= LC_ALL= LC_MESSAGES= LC_CTYPE= LANG=$LOCALE_FR_UTF8 ./prog > prog.out || exit 1 : ${DIFF=diff} ${DIFF} prog.oku prog.out || exit 1 fi if test $LOCALE_FR = none && test $LOCALE_FR_UTF8 = none; then if test -f /usr/bin/localedef; then echo "Skipping test: no french locale is installed" else echo "Skipping test: no french locale is supported" fi rm -fr $tmpfiles; exit 77 fi else if test $LOCALE_FR = none; then if test -f /usr/bin/localedef; then echo "Skipping test: no traditional french locale is installed" else echo "Skipping test: no traditional french locale is supported" fi rm -fr $tmpfiles; exit 77 fi fi rm -fr $tmpfiles exit 0 @ 1.1.1.1 log @import latest GPLv2 gettext @ text @@