1#!/bin/sh 2 3# Test of position dependent recognition of format strings. 4 5tmpfiles="" 6trap 'rm -fr $tmpfiles' 1 2 3 15 7 8tmpfiles="$tmpfiles xg-test6.c" 9cat <<\EOF > xg-test6.c 10fprintf (fp, gettext ("c-format positive1"), gettext ("c-format negative1")); 11printk (gettext ("c-format negative2")); 12EOF 13 14tmpfiles="$tmpfiles xg-test6.sh" 15cat <<\EOF > xg-test6.sh 16eval_gettext "sh-format positive1" "`gettext \"sh-format negative1\"`" 17echo "`gettext \"sh-format negative2\"`" 18EOF 19 20tmpfiles="$tmpfiles xg-test6.py" 21cat <<\EOF > xg-test6.py 22my_printf (gettext ("python-format positive1"), 23 gettext ("python-format negative1")); 24printk (gettext ("python-format negative2")); 25EOF 26 27tmpfiles="$tmpfiles xg-test6.lisp" 28cat <<\EOF > xg-test6.lisp 29(format t (gettext "lisp-format positive1") (gettext "lisp-format negative1")) 30(prin1 (gettext "lisp-format negative2")) 31EOF 32 33tmpfiles="$tmpfiles xg-test6.el" 34cat <<\EOF > xg-test6.el 35(format (_ "elisp-format positive1") (_ "elisp-format negative1")) 36(printk (_ "elisp-format negative2")) 37EOF 38 39tmpfiles="$tmpfiles xg-test6.jl" 40cat <<\EOF > xg-test6.jl 41(format stream (_ "librep-format positive1") (_ "librep-format negative1")) 42(printk (_ "librep-format negative2")) 43EOF 44 45tmpfiles="$tmpfiles xg-test6.java" 46cat <<\EOF > xg-test6.java 47MessageFormat.format(gettext("java-format positive1"), 48 gettext("java-format negative1")); 49System.err.println(gettext("java-format negative2")); 50EOF 51 52tmpfiles="$tmpfiles xg-test6.awk" 53cat <<\EOF > xg-test6.awk 54printf dcgettext ("awk-format positive1"), dcgettext ("awk-format negative1"); 55printf (dcgettext ("awk-format positive2"), dcgettext ("awk-format negative2")); 56printf dcgettext ("awk-format positive3"); dcgettext ("awk-format negative3"); 57printk dcgettext ("awk-format negative4"); 58EOF 59 60tmpfiles="$tmpfiles xg-test6.ycp" 61cat <<\EOF > xg-test6.ycp 62sformat (_("ycp-format positive1"), _("ycp-format negative1")); 63printk (_("ycp-format negative2")); 64EOF 65 66tmpfiles="$tmpfiles xg-test6.tcl" 67cat <<\EOF > xg-test6.tcl 68[format [::msgcat::mc "tcl-format positive1"] 69 [::msgcat::mc "tcl-format negative1"]] 70[print [::msgcat::mc "tcl-format negative2"]] 71EOF 72 73tmpfiles="$tmpfiles xg-test6.pl" 74cat <<\EOF > xg-test6.pl 75printf gettext "perl-format positive1", gettext ("perl-format negative1"); 76gettext ("perl-format negative2"); 77printf gettext "perl-format positive2"; gettext ("perl-format negative3"); 78gettext ("perl-format negative4"); 79print sprintf gettext "perl-format positive3"; 80print kprintf gettext "perl-format negative5"; 81EOF 82 83tmpfiles="$tmpfiles xg-test6.php" 84cat <<\EOF > xg-test6.php 85<? php 86printf (_ ("php-format positive1"), _ ("php-format negative1")); 87printk (_ ("php-format negative2")); 88EOF 89 90tmpfiles="$tmpfiles xg-test6.tmp.po xg-test6.po" 91: ${XGETTEXT=xgettext} 92${XGETTEXT} --omit-header --no-location -d xg-test6.tmp \ 93 --flag=my_printf:1:python-format \ 94 xg-test6.c xg-test6.sh xg-test6.py xg-test6.lisp xg-test6.el \ 95 xg-test6.jl xg-test6.java xg-test6.awk xg-test6.ycp xg-test6.tcl \ 96 xg-test6.pl xg-test6.php 97test $? = 0 || { rm -fr $tmpfiles; exit 1; } 98tr -d '\r' < xg-test6.tmp.po > xg-test6.po 99test $? = 0 || { rm -fr $tmpfiles; exit 1; } 100 101tmpfiles="$tmpfiles xg-test6.ok" 102cat <<\EOF > xg-test6.ok 103#, c-format 104msgid "c-format positive1" 105msgstr "" 106 107msgid "c-format negative1" 108msgstr "" 109 110msgid "c-format negative2" 111msgstr "" 112 113#, sh-format 114msgid "sh-format positive1" 115msgstr "" 116 117msgid "sh-format negative1" 118msgstr "" 119 120msgid "sh-format negative2" 121msgstr "" 122 123#, python-format 124msgid "python-format positive1" 125msgstr "" 126 127msgid "python-format negative1" 128msgstr "" 129 130msgid "python-format negative2" 131msgstr "" 132 133#, lisp-format 134msgid "lisp-format positive1" 135msgstr "" 136 137msgid "lisp-format negative1" 138msgstr "" 139 140msgid "lisp-format negative2" 141msgstr "" 142 143#, elisp-format 144msgid "elisp-format positive1" 145msgstr "" 146 147msgid "elisp-format negative1" 148msgstr "" 149 150msgid "elisp-format negative2" 151msgstr "" 152 153#, librep-format 154msgid "librep-format positive1" 155msgstr "" 156 157msgid "librep-format negative1" 158msgstr "" 159 160msgid "librep-format negative2" 161msgstr "" 162 163#, java-format 164msgid "java-format positive1" 165msgstr "" 166 167msgid "java-format negative1" 168msgstr "" 169 170msgid "java-format negative2" 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 259rm -fr $tmpfiles 260 261exit $result 262