Thu Jan 18 00:32:43 1996 Roland McGrath <roland@churchy.gnu.ai.mit.edu>
[kopensolaris-gnu/glibc.git] / stdio-common / tstscanf.c
1 /* Copyright (C) 1991, 1992 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
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA.  */
18
19 #include <ansidecl.h>
20 #ifdef  BSD
21 #include </usr/include/stdio.h>
22 #else
23 #include <stdio.h>
24 #endif
25 #include <stdlib.h>
26 #include <string.h>
27
28
29 int
30 DEFUN(main, (argc, argv), int argc AND char **argv)
31 {
32   char buf[BUFSIZ];
33   FILE *in = stdin, *out = stdout;
34
35   if (argc == 2 && !strcmp (argv[1], "-opipe"))
36     {
37       out = popen ("/bin/cat", "w");
38       if (out == NULL)
39         {
40           perror ("popen: /bin/cat");
41           exit (EXIT_FAILURE);
42         }
43     }
44   else if (argc == 3 && !strcmp (argv[1], "-ipipe"))
45     {
46       sprintf (buf, "/bin/cat %s", argv[2]);
47       in = popen (buf, "r");
48     }
49
50   {
51     char name[50];
52     fprintf (out,
53              "sscanf (\"thompson\", \"%%s\", name) == %d, name == \"%s\"\n",
54              sscanf ("thompson", "%s", name),
55              name);
56   }
57
58   fputs ("Testing scanf (vfscanf)\n", out);
59
60   fputs ("Test 1:\n", out);
61   {
62     int n, i;
63     float x;
64     char name[50];
65     n = fscanf (in, "%d%f%s", &i, &x, name);
66     fprintf (out, "n = %d, i = %d, x = %f, name = \"%.50s\"\n",
67              n, i, x, name);
68   }
69   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
70   fputs ("Test 2:\n", out);
71   {
72     int i;
73     float x;
74     char name[50];
75     (void) fscanf (in, "%2d%f%*d %[0123456789]", &i, &x, name);
76     fprintf (out, "i = %d, x = %f, name = \"%.50s\"\n", i, x, name);
77   }
78   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
79   fputs ("Test 3:\n", out);
80   {
81     float quant;
82     char units[21], item[21];
83     while (!feof (in) && !ferror (in))
84       {
85         int count;
86         quant = 0.0;
87         units[0] = item[0] = '\0';
88         count = fscanf (in, "%f%20s of %20s", &quant, units, item);
89         (void) fscanf (in, "%*[^\n]");
90         fprintf (out, "count = %d, quant = %f, item = %.21s, units = %.21s\n",
91                  count, quant, item, units);
92       }
93   }
94   fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
95
96   if (out != stdout)
97     pclose (out);
98
99   exit(EXIT_SUCCESS);
100 }