1#!/bin/sh 2. "${srcdir=.}/init.sh"; path_prepend_ . ../src 3 4# Test of position dependent recognition of format strings. 5 6cat <<\EOF > xg-test6.c 7fprintf (fp, gettext ("c-format positive1"), gettext ("c-format negative1")); 8printk (gettext ("c-format negative2")); 9EOF 10 11cat <<\EOF > xg-test6.sh 12eval_gettext "sh-format positive1" "`gettext \"sh-format negative1\"`" 13echo "`gettext \"sh-format negative2\"`" 14EOF 15 16cat <<\EOF > xg-test6.py 17my_printf (gettext ("python-format positive1"), 18 gettext ("python-format negative1")); 19printk (gettext ("python-format negative2")); 20EOF 21 22cat <<\EOF > xg-test6.lisp 23(format t (gettext "lisp-format positive1") (gettext "lisp-format negative1")) 24(prin1 (gettext "lisp-format negative2")) 25EOF 26 27cat <<\EOF > xg-test6.el 28(format (_ "elisp-format positive1") (_ "elisp-format negative1")) 29(printk (_ "elisp-format negative2")) 30EOF 31 32cat <<\EOF > xg-test6.jl 33(format stream (_ "librep-format positive1") (_ "librep-format negative1")) 34(printk (_ "librep-format negative2")) 35EOF 36 37cat <<\EOF > xg-test6.java 38MessageFormat.format(gettext("java-format positive1"), 39 gettext("java-format negative1")); 40String.format(gettext("java-printf-format positive1"), 41 gettext("java-printf-format negative1")); 42System.err.printf(gettext("java-printf-format positive2"), 43 gettext("java-printf-format negative2")); 44System.err.println(gettext("both java-format, java-printf-format negative3")); 45EOF 46 47cat <<\EOF > xg-test6.awk 48printf dcgettext ("awk-format positive1"), dcgettext ("awk-format negative1"); 49printf (dcgettext ("awk-format positive2"), dcgettext ("awk-format negative2")); 50printf dcgettext ("awk-format positive3"); dcgettext ("awk-format negative3"); 51printk dcgettext ("awk-format negative4"); 52EOF 53 54cat <<\EOF > xg-test6.ycp 55sformat (_("ycp-format positive1"), _("ycp-format negative1")); 56printk (_("ycp-format negative2")); 57EOF 58 59cat <<\EOF > xg-test6.tcl 60[format [::msgcat::mc "tcl-format positive1"] 61 [::msgcat::mc "tcl-format negative1"]] 62[print [::msgcat::mc "tcl-format negative2"]] 63EOF 64 65cat <<\EOF > xg-test6.pl 66printf gettext "perl-format positive1", gettext ("perl-format negative1"); 67gettext ("perl-format negative2"); 68printf gettext "perl-format positive2"; gettext ("perl-format negative3"); 69gettext ("perl-format negative4"); 70print sprintf gettext "perl-format positive3"; 71print kprintf gettext "perl-format negative5"; 72EOF 73 74cat <<\EOF > xg-test6.php 75<? php 76printf (_ ("php-format positive1"), _ ("php-format negative1")); 77printk (_ ("php-format negative2")); 78EOF 79 80: ${XGETTEXT=xgettext} 81${XGETTEXT} --omit-header --no-location -d xg-test6.tmp \ 82 --flag=my_printf:1:python-format \ 83 xg-test6.c xg-test6.sh xg-test6.py xg-test6.lisp xg-test6.el \ 84 xg-test6.jl xg-test6.java xg-test6.awk xg-test6.ycp xg-test6.tcl \ 85 xg-test6.pl xg-test6.php || Exit 1 86LC_ALL=C tr -d '\r' < xg-test6.tmp.po > xg-test6.po || Exit 1 87 88cat <<\EOF > xg-test6.ok 89#, c-format 90msgid "c-format positive1" 91msgstr "" 92 93msgid "c-format negative1" 94msgstr "" 95 96msgid "c-format negative2" 97msgstr "" 98 99#, sh-format 100msgid "sh-format positive1" 101msgstr "" 102 103msgid "sh-format negative1" 104msgstr "" 105 106msgid "sh-format negative2" 107msgstr "" 108 109#, python-format 110msgid "python-format positive1" 111msgstr "" 112 113msgid "python-format negative1" 114msgstr "" 115 116msgid "python-format negative2" 117msgstr "" 118 119#, lisp-format 120msgid "lisp-format positive1" 121msgstr "" 122 123msgid "lisp-format negative1" 124msgstr "" 125 126msgid "lisp-format negative2" 127msgstr "" 128 129#, elisp-format 130msgid "elisp-format positive1" 131msgstr "" 132 133msgid "elisp-format negative1" 134msgstr "" 135 136msgid "elisp-format negative2" 137msgstr "" 138 139#, librep-format 140msgid "librep-format positive1" 141msgstr "" 142 143msgid "librep-format negative1" 144msgstr "" 145 146msgid "librep-format negative2" 147msgstr "" 148 149#, java-format 150msgid "java-format positive1" 151msgstr "" 152 153msgid "java-format negative1" 154msgstr "" 155 156#, java-printf-format 157msgid "java-printf-format positive1" 158msgstr "" 159 160msgid "java-printf-format negative1" 161msgstr "" 162 163#, java-printf-format 164msgid "java-printf-format positive2" 165msgstr "" 166 167msgid "java-printf-format negative2" 168msgstr "" 169 170msgid "both java-format, java-printf-format negative3" 171msgstr "" 172 173#, awk-format 174msgid "awk-format positive1" 175msgstr "" 176 177msgid "awk-format negative1" 178msgstr "" 179 180#, awk-format 181msgid "awk-format positive2" 182msgstr "" 183 184msgid "awk-format negative2" 185msgstr "" 186 187#, awk-format 188msgid "awk-format positive3" 189msgstr "" 190 191msgid "awk-format negative3" 192msgstr "" 193 194msgid "awk-format negative4" 195msgstr "" 196 197#, ycp-format 198msgid "ycp-format positive1" 199msgstr "" 200 201msgid "ycp-format negative1" 202msgstr "" 203 204msgid "ycp-format negative2" 205msgstr "" 206 207#, tcl-format 208msgid "tcl-format positive1" 209msgstr "" 210 211msgid "tcl-format negative1" 212msgstr "" 213 214msgid "tcl-format negative2" 215msgstr "" 216 217#, perl-format 218msgid "perl-format positive1" 219msgstr "" 220 221msgid "perl-format negative1" 222msgstr "" 223 224msgid "perl-format negative2" 225msgstr "" 226 227#, perl-format 228msgid "perl-format positive2" 229msgstr "" 230 231msgid "perl-format negative3" 232msgstr "" 233 234msgid "perl-format negative4" 235msgstr "" 236 237#, perl-format 238msgid "perl-format positive3" 239msgstr "" 240 241msgid "perl-format negative5" 242msgstr "" 243 244#, php-format 245msgid "php-format positive1" 246msgstr "" 247 248msgid "php-format negative1" 249msgstr "" 250 251msgid "php-format negative2" 252msgstr "" 253EOF 254 255: ${DIFF=diff} 256${DIFF} xg-test6.ok xg-test6.po 257result=$? 258 259exit $result 260