Include <string.h>.
[kopensolaris-gnu/glibc.git] / stdio-common / tstscanf.c
1 /* Copyright (C) 1991, 1992, 1996, 1997 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
35   if (sscanf ("0", "%d", &x) != 1)
36     exit (EXIT_FAILURE);
37
38   sscanf ("conversion] Zero flag Ze]ro#\n", "%*[^]] %[^#]\n", buf);
39   if (strcmp (buf, "] Zero flag Ze]ro") != 0)
40     {
41       fputs ("test failed!\n", stderr);
42       return 1;
43     }
44
45   if (argc == 2 && !strcmp (argv[1], "-opipe"))
46     {
47       out = popen ("/bin/cat", "w");
48       if (out == NULL)
49         {
50           perror ("popen: /bin/cat");
51           exit (EXIT_FAILURE);
52         }
53     }
54   else if (argc == 3 && !strcmp (argv[1], "-ipipe"))
55     {
56       sprintf (buf, "/bin/cat %s", argv[2]);
57       in = popen (buf, "r");
58     }
59
60   {
61     char name[50];
62     fprintf (out,
63              "sscanf (\"thompson\", \"%%s\", name) == %d, name == \"%s\"\n",
64              sscanf ("thompson", "%s", name),
65              name);
66     if (strcmp (name, "thompson") != 0)
67       return 1;
68   }
69
70   fputs ("Testing scanf (vfscanf)\n", out);
71
72   fputs ("Test 1:\n", out);
73   {
74     int n, i;
75     float x;
76     char name[50];
77     n = fscanf (in, "%d%f%s", &i, &x, name);
78     fprintf (out, "n = %d, i = %d, x = %f, name = \"%.50s\"\n",
79              n, i, x, name);
80     if (n != 3 || i != 25 || x != 5.432F || strcmp (name, "thompson"))
81       return 1;
82   }
83   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
84   if (strcmp (buf, "\n"))
85     return 1;
86   fputs ("Test 2:\n", out);
87   {
88     int i;
89     float x;
90     char name[50];
91     (void) fscanf (in, "%2d%f%*d %[0123456789]", &i, &x, name);
92     fprintf (out, "i = %d, x = %f, name = \"%.50s\"\n", i, x, name);
93     if (i != 56 || x != 789.0F || strcmp(name, "56"))
94       return 1;
95   }
96   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
97   if (strcmp (buf, "a72\n"))
98     return 1;
99   fputs ("Test 3:\n", out);
100   {
101     static struct {
102       int count;
103       float quant;
104       const char *units;
105       const char *item;
106     } ok[] = {
107       { 3, 2.0F, "quarts", "oil" },
108       { 2, -12.8F, "degrees", "" },
109       { 0, 0.0F, "", "" },
110       { 3, 10.0F, "LBS", "fertilizer" },
111       { 3, 100.0F, "rgs", "energy" },
112       { -1, 0.0F, "", "" }};
113     size_t rounds = 0;
114     float quant;
115     char units[21], item[21];
116     while (!feof (in) && !ferror (in))
117       {
118         int count;
119
120         if (rounds++ >= sizeof (ok) / sizeof (ok[0]))
121           return 1;
122
123         quant = 0.0;
124         units[0] = item[0] = '\0';
125         count = fscanf (in, "%f%20s of %20s", &quant, units, item);
126         (void) fscanf (in, "%*[^\n]");
127         fprintf (out, "count = %d, quant = %f, item = %.21s, units = %.21s\n",
128                  count, quant, item, units);
129         if (count != ok[rounds-1].count || quant != ok[rounds-1].quant
130             || strcmp (item, ok[rounds-1].item)
131             || strcmp (units, ok[rounds-1].units))
132           return 1;
133       }
134   }
135   buf[0] = '\0';
136   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
137   if (strcmp (buf, ""))
138     return 1;
139
140   if (out != stdout)
141     pclose (out);
142
143   fputs ("Test 3:\n", out);
144   {
145     int res, val, n;
146
147     res = sscanf ("-242", "%3o%n", &val, &n);
148     printf ("res = %d, val = %d, n = %d\n", res, val, n);
149     if (res != 1 || val != -20 || n != 3)
150       return 1;
151   }
152
153   fputs ("Test 4:\n", out);
154   {
155     double a = 0, b = 0;
156     int res, n;
157
158     res = sscanf ("1234567", "%3lg%3lg%n", &a, &b, &n);
159     printf ("res = %d, a = %g, b = %g, n = %d\n", res, a, b, n);
160
161     if (res != 2 || a != 123 || b != 456 || n != 6)
162       return 1;
163
164     res = sscanf ("0", "%lg", &a);
165     printf ("res = %d, a = %g\n", res, a);
166
167     if (res != 1 || a != 0)
168       exit (EXIT_FAILURE);
169   }
170
171   exit(EXIT_SUCCESS);
172 }