xgettext-6 revision 1.1.1.1 
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.po"
91: ${XGETTEXT=xgettext}
92${XGETTEXT} --omit-header --no-location -d xg-test6 \
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; }
98
99tmpfiles="$tmpfiles xg-test6.ok"
100cat <<\EOF > xg-test6.ok
101#, c-format
102msgid "c-format positive1"
103msgstr ""
104
105msgid "c-format negative1"
106msgstr ""
107
108msgid "c-format negative2"
109msgstr ""
110
111#, sh-format
112msgid "sh-format positive1"
113msgstr ""
114
115msgid "sh-format negative1"
116msgstr ""
117
118msgid "sh-format negative2"
119msgstr ""
120
121#, python-format
122msgid "python-format positive1"
123msgstr ""
124
125msgid "python-format negative1"
126msgstr ""
127
128msgid "python-format negative2"
129msgstr ""
130
131#, lisp-format
132msgid "lisp-format positive1"
133msgstr ""
134
135msgid "lisp-format negative1"
136msgstr ""
137
138msgid "lisp-format negative2"
139msgstr ""
140
141#, elisp-format
142msgid "elisp-format positive1"
143msgstr ""
144
145msgid "elisp-format negative1"
146msgstr ""
147
148msgid "elisp-format negative2"
149msgstr ""
150
151#, librep-format
152msgid "librep-format positive1"
153msgstr ""
154
155msgid "librep-format negative1"
156msgstr ""
157
158msgid "librep-format negative2"
159msgstr ""
160
161#, java-format
162msgid "java-format positive1"
163msgstr ""
164
165msgid "java-format negative1"
166msgstr ""
167
168msgid "java-format negative2"
169msgstr ""
170
171#, awk-format
172msgid "awk-format positive1"
173msgstr ""
174
175msgid "awk-format negative1"
176msgstr ""
177
178#, awk-format
179msgid "awk-format positive2"
180msgstr ""
181
182msgid "awk-format negative2"
183msgstr ""
184
185#, awk-format
186msgid "awk-format positive3"
187msgstr ""
188
189msgid "awk-format negative3"
190msgstr ""
191
192msgid "awk-format negative4"
193msgstr ""
194
195#, ycp-format
196msgid "ycp-format positive1"
197msgstr ""
198
199msgid "ycp-format negative1"
200msgstr ""
201
202msgid "ycp-format negative2"
203msgstr ""
204
205#, tcl-format
206msgid "tcl-format positive1"
207msgstr ""
208
209msgid "tcl-format negative1"
210msgstr ""
211
212msgid "tcl-format negative2"
213msgstr ""
214
215#, perl-format
216msgid "perl-format positive1"
217msgstr ""
218
219msgid "perl-format negative1"
220msgstr ""
221
222msgid "perl-format negative2"
223msgstr ""
224
225#, perl-format
226msgid "perl-format positive2"
227msgstr ""
228
229msgid "perl-format negative3"
230msgstr ""
231
232msgid "perl-format negative4"
233msgstr ""
234
235#, perl-format
236msgid "perl-format positive3"
237msgstr ""
238
239msgid "perl-format negative5"
240msgstr ""
241
242#, php-format
243msgid "php-format positive1"
244msgstr ""
245
246msgid "php-format negative1"
247msgstr ""
248
249msgid "php-format negative2"
250msgstr ""
251EOF
252
253: ${DIFF=diff}
254${DIFF} xg-test6.ok xg-test6.po
255result=$?
256
257rm -fr $tmpfiles
258
259exit $result
260