i386 log2 implementation.
[kopensolaris-gnu/glibc.git] / stdio-common / tstscanf.c
1 /* Copyright (C) 1991,92,96,97,98,99,2000,2001 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3
4    The GNU C Library is free software; you can redistribute it and/or
5    modify it under the terms of the GNU Library General Public License as
6    published by the Free Software Foundation; either version 2 of the
7    License, or (at your option) any later version.
8
9    The GNU C Library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Library General Public License for more details.
13
14    You should have received a copy of the GNU Library General Public
15    License along with the GNU C Library; see the file COPYING.LIB.  If not,
16    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17    Boston, MA 02111-1307, USA.  */
18
19 #ifdef  BSD
20 #include </usr/include/stdio.h>
21 #else
22 #include <stdio.h>
23 #endif
24 #include <stdlib.h>
25 #include <string.h>
26
27
28 int
29 main (int argc, char **argv)
30 {
31   char buf[BUFSIZ];
32   FILE *in = stdin, *out = stdout;
33   int x;
34   int result = 0;
35
36   if (sscanf ("0", "%d", &x) != 1)
37     {
38       fputs ("test failed!\n", stdout);
39       result = 1;
40     }
41
42   if (sscanf ("08905x", "%9[0-9]", buf) != 1
43       || strcmp (buf, "08905") != 0)
44     {
45       fputs ("test failed!\n", stdout);
46       result = 1;
47     }
48
49   if (sscanf ("", "%10[a-z]", buf) != EOF)
50     {
51       fputs ("test failed!\n", stdout);
52       result = 1;
53     }
54
55   sscanf ("conversion] Zero flag Ze]ro#\n", "%*[^]] %[^#]\n", buf);
56   if (strcmp (buf, "] Zero flag Ze]ro") != 0)
57     {
58       fputs ("test failed!\n", stdout);
59       result = 1;
60     }
61
62   if (argc == 2 && !strcmp (argv[1], "-opipe"))
63     {
64       out = popen ("/bin/cat", "w");
65       if (out == NULL)
66         {
67           perror ("popen: /bin/cat");
68           result = 1;
69         }
70     }
71   else if (argc == 3 && !strcmp (argv[1], "-ipipe"))
72     {
73       sprintf (buf, "/bin/cat %s", argv[2]);
74       in = popen (buf, "r");
75       if (in == NULL)
76         {
77           perror ("popen: /bin/cat");
78           result = 1;
79         }
80     }
81
82   {
83     char name[50];
84     fprintf (out,
85              "sscanf (\"thompson\", \"%%s\", name) == %d, name == \"%s\"\n",
86              sscanf ("thompson", "%s", name),
87              name);
88     if (strcmp (name, "thompson") != 0)
89       {
90         fputs ("test failed!\n", stdout);
91         result = 1;
92       }
93   }
94
95   fputs ("Testing scanf (vfscanf)\n", out);
96
97   fputs ("Test 1:\n", out);
98   {
99     int n, i;
100     float x;
101     char name[50];
102     n = fscanf (in, "%d%f%s", &i, &x, name);
103     fprintf (out, "n = %d, i = %d, x = %f, name = \"%.50s\"\n",
104              n, i, x, name);
105     if (n != 3 || i != 25 || x != 5.432F || strcmp (name, "thompson"))
106       {
107         fputs ("test failed!\n", stdout);
108         result = 1;
109       }
110   }
111   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
112   if (strcmp (buf, "\n"))
113     {
114       fputs ("test failed!\n", stdout);
115       result = 1;
116     }
117   fputs ("Test 2:\n", out);
118   {
119     int i;
120     float x;
121     char name[50];
122     (void) fscanf (in, "%2d%f%*d %[0123456789]", &i, &x, name);
123     fprintf (out, "i = %d, x = %f, name = \"%.50s\"\n", i, x, name);
124     if (i != 56 || x != 789.0F || strcmp (name, "56"))
125       {
126         fputs ("test failed!\n", stdout);
127         result = 1;
128       }
129   }
130   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
131   if (strcmp (buf, "a72\n"))
132     {
133       fputs ("test failed!\n", stdout);
134       result = 1;
135     }
136   fputs ("Test 3:\n", out);
137   {
138     static struct {
139       int count;
140       float quant;
141       const char *units;
142       const char *item;
143     } ok[] = {
144       { 3, 2.0F, "quarts", "oil" },
145       { 2, -12.8F, "degrees", "" },
146       { 0, 0.0F, "", "" },
147       { 3, 10.0F, "LBS", "fertilizer" },
148       { 3, 100.0F, "rgs", "energy" },
149       { -1, 0.0F, "", "" }};
150     size_t rounds = 0;
151     float quant;
152     char units[21], item[21];
153     while (!feof (in) && !ferror (in))
154       {
155         int count;
156
157         if (rounds++ >= sizeof (ok) / sizeof (ok[0]))
158           {
159             fputs ("test failed!\n", stdout);
160             result = 1;
161           }
162
163         quant = 0.0;
164         units[0] = item[0] = '\0';
165         count = fscanf (in, "%f%20s of %20s", &quant, units, item);
166         (void) fscanf (in, "%*[^\n]");
167         fprintf (out, "count = %d, quant = %f, item = %.21s, units = %.21s\n",
168                  count, quant, item, units);
169         if (count != ok[rounds-1].count || quant != ok[rounds-1].quant
170             || strcmp (item, ok[rounds-1].item)
171             || strcmp (units, ok[rounds-1].units))
172           {
173             fputs ("test failed!\n", stdout);
174             result = 1;
175           }
176       }
177   }
178   buf[0] = '\0';
179   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
180   if (strcmp (buf, ""))
181     {
182       fputs ("test failed!\n", stdout);
183       result = 1;
184     }
185
186   if (out != stdout)
187     pclose (out);
188
189   fputs ("Test 4:\n", out);
190   {
191     int res, val, n;
192
193     res = sscanf ("-242", "%3o%n", &val, &n);
194     printf ("res = %d, val = %d, n = %d\n", res, val, n);
195     if (res != 1 || val != -20 || n != 3)
196       {
197         fputs ("test failed!\n", stdout);
198         result = 1;
199       }
200   }
201
202   fputs ("Test 5:\n", out);
203   {
204     double a = 0, b = 0;
205     int res, n;
206
207     res = sscanf ("1234567", "%3lg%3lg%n", &a, &b, &n);
208     printf ("res = %d, a = %g, b = %g, n = %d\n", res, a, b, n);
209
210     if (res != 2 || a != 123 || b != 456 || n != 6)
211       {
212         fputs ("test failed!\n", stdout);
213         result = 1;
214       }
215
216     res = sscanf ("0", "%lg", &a);
217     printf ("res = %d, a = %g\n", res, a);
218
219     if (res != 1 || a != 0)
220       {
221         fputs ("test failed!\n", stdout);
222         result = 1;
223       }
224
225     res = sscanf ("1e3", "%lg%n", &a, &n);
226     printf ("res = %d, a = %g, n = %d\n", res, a, n);
227
228     if (res != 1 || a != 1000 || n != 3)
229       {
230         fputs ("test failed!\n", stdout);
231         result = 1;
232       }
233   }
234
235   fputs ("Test 6:\n", stdout);
236   {
237     char *p = (char *) -1;
238     int res;
239
240     sprintf (buf, "%p", NULL);
241     res = sscanf (buf, "%p", &p);
242     printf ("sscanf (\"%s\", \"%%p\", &p) = %d, p == %p\n", buf, res, p);
243
244     if (res != 1 || p != NULL)
245       {
246         fputs ("test failed!\n", stdout);
247         result = 1;
248       }
249   }
250
251   fputs ("Test 7:\n", stdout);
252   {
253     short a[2] = { -1, -1 };
254     int res;
255
256     res = sscanf ("32767 1234", "%hd %hd", &a[0], &a[1]);
257     printf ("res = %d, a[0] = %d, a[1] = %d\n", res, a[0], a[1]);
258
259     if (res != 2 || a[0] != 32767 || a[1] != 1234)
260       {
261         fputs ("test failed!\n", stdout);
262         result = 1;
263       }
264   }
265
266   fputs ("Test 8:\n", stdout);
267   {
268     double d = 123456.789;
269     int res;
270
271     res = sscanf ("0x1234", "%lf", &d);
272     printf ("res = %d, d = %f\n", res, d);
273
274     if (res != 0 || d != 123456.789)
275       {
276         fputs ("test failed!\n", stdout);
277         result = 1;
278       }
279   }
280
281   fputs ("Test 9:\n", stdout);
282   {
283     /* From PR libc/1313 reported by Ben Caradoc-Davies <bmcd@physics.otago.ac.nz>.  */
284     float value;
285     int res;
286
287     res = sscanf ("0123", "%2f", &value);
288     if (res != 1 || value != 1.0)
289       {
290         fputs ("test failed!\n", stdout);
291         result = 1;
292       }
293   }
294
295   fputs ("Test 10:\n", stdout);
296   {
297     float value;
298     int res;
299
300     res = sscanf ("--", "%f", &value);
301     if (res != 0)
302       {
303         fputs ("test failed!\n", stdout);
304         result = 1;
305       }
306   }
307
308   fputs ("Test 11:\n", stdout);
309   {
310     char uart[50];
311     int res;
312
313     res = sscanf ("uart:16550A tx:0", "uart:%31s tx:%*u", uart);
314     if (res != 1)
315       {
316         fputs ("test failed!\n", stdout);
317         result = 1;
318       }
319   }
320
321   fputs ("Test 12:\n", stdout);
322   {
323     char uart[50];
324     int res;
325
326     res = sscanf ("uart:16550A", "uart:%31s tx:%*u", uart);
327     if (res != 1)
328       {
329         fputs ("test failed!\n", stdout);
330         result = 1;
331       }
332   }
333
334
335   return result;
336 }