[thirdparty/glibc.git] / stdio-common / tstscanf.c

/* Copyright (C) 1991-2021 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, see
   <https://www.gnu.org/licenses/>.  */

#include <array_length.h>
#ifdef	BSD
#include </usr/include/stdio.h>
#else
#include <stdio.h>
#endif
#include <math.h>
#include <stdlib.h>
#include <string.h>


int
main (int argc, char **argv)
{
  char buf[BUFSIZ];
  FILE *in = stdin, *out = stdout;
  int x;
  int result = 0;

  if (sscanf ("0", "%d", &x) != 1)
    {
      fputs ("test failed!\n", stdout);
      result = 1;
    }

  if (sscanf ("08905x", "%9[0-9]", buf) != 1
      || strcmp (buf, "08905") != 0)
    {
      fputs ("test failed!\n", stdout);
      result = 1;
    }

  if (sscanf ("", "%10[a-z]", buf) != EOF)
    {
      fputs ("test failed!\n", stdout);
      result = 1;
    }

  sscanf ("conversion] Zero flag Ze]ro#\n", "%*[^]] %[^#]\n", buf);
  if (strcmp (buf, "] Zero flag Ze]ro") != 0)
    {
      fputs ("test failed!\n", stdout);
      result = 1;
    }

  if (argc == 2 && !strcmp (argv[1], "-opipe"))
    {
      out = popen ("/bin/cat", "w");
      if (out == NULL)
	{
	  perror ("popen: /bin/cat");
	  result = 1;
	}
    }
  else if (argc == 3 && !strcmp (argv[1], "-ipipe"))
    {
      sprintf (buf, "/bin/cat %s", argv[2]);
      in = popen (buf, "r");
      if (in == NULL)
	{
	  perror ("popen: /bin/cat");
	  result = 1;
	}
    }

  {
    char name[50];
    fprintf (out,
	     "sscanf (\"thompson\", \"%%s\", name) == %d, name == \"%s\"\n",
	     sscanf ("thompson", "%s", name),
	     name);
    if (strcmp (name, "thompson") != 0)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Testing scanf (vfscanf)\n", out);

  fputs ("Test 1:\n", out);
  {
    int n, i;
    float x;
    char name[50];
    n = fscanf (in, "%d%f%s", &i, &x, name);
    fprintf (out, "n = %d, i = %d, x = %f, name = \"%.50s\"\n",
	     n, i, x, name);
    if (n != 3 || i != 25 || x != 5.432F || strcmp (name, "thompson"))
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }
  fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
  if (strcmp (buf, "\n"))
    {
      fputs ("test failed!\n", stdout);
      result = 1;
    }
  fputs ("Test 2:\n", out);
  {
    int i;
    float x;
    char name[50];
    (void) fscanf (in, "%2d%f%*d %[0123456789]", &i, &x, name);
    fprintf (out, "i = %d, x = %f, name = \"%.50s\"\n", i, x, name);
    if (i != 56 || x != 789.0F || strcmp (name, "56"))
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }
  fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
  if (strcmp (buf, "a72\n"))
    {
      fputs ("test failed!\n", stdout);
      result = 1;
    }
  fputs ("Test 3:\n", out);
  {
    static struct {
      int count;
      float quant;
      const char *units;
      const char *item;
    } ok[] = {
      { 3, 2.0F, "quarts", "oil" },
      { 2, -12.8F, "degrees", "" },
      { 0, 0.0F, "", "" },
      { 3, 10.0F, "LBS", "fertilizer" },
      { 3, 100.0F, "rgs", "energy" },
      { -1, 0.0F, "", "" }};
    size_t rounds = 0;
    float quant;
    char units[21], item[21];
    while (!feof (in) && !ferror (in))
      {
	int count;

	if (rounds++ >= array_length (ok))
	  {
	    fputs ("test failed!\n", stdout);
	    result = 1;
	  }

	quant = 0.0;
	units[0] = item[0] = '\0';
	count = fscanf (in, "%f%20s of %20s", &quant, units, item);
	(void) fscanf (in, "%*[^\n]");
	fprintf (out, "count = %d, quant = %f, item = %.21s, units = %.21s\n",
		 count, quant, item, units);
	if (count != ok[rounds-1].count || quant != ok[rounds-1].quant
	    || strcmp (item, ok[rounds-1].item)
	    || strcmp (units, ok[rounds-1].units))
	  {
	    fputs ("test failed!\n", stdout);
	    result = 1;
	  }
      }
  }
  buf[0] = '\0';
  fprintf (out, "Residual: \"%s\"\n", fgets (buf, sizeof (buf), in));
  if (strcmp (buf, ""))
    {
      fputs ("test failed!\n", stdout);
      result = 1;
    }

  if (out != stdout)
    pclose (out);

  fputs ("Test 4:\n", out);
  {
    int res, val, n;

    res = sscanf ("-242", "%3o%n", &val, &n);
    printf ("res = %d, val = %d, n = %d\n", res, val, n);
    if (res != 1 || val != -20 || n != 3)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 5:\n", out);
  {
    double a = 0, b = 0;
    int res, n;

    res = sscanf ("1234567", "%3lg%3lg%n", &a, &b, &n);
    printf ("res = %d, a = %g, b = %g, n = %d\n", res, a, b, n);

    if (res != 2 || a != 123 || b != 456 || n != 6)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }

    res = sscanf ("0", "%lg", &a);
    printf ("res = %d, a = %g\n", res, a);

    if (res != 1 || a != 0)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }

    res = sscanf ("1e3", "%lg%n", &a, &n);
    printf ("res = %d, a = %g, n = %d\n", res, a, n);

    if (res != 1 || a != 1000 || n != 3)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 6:\n", stdout);
  {
    char *p = (char *) -1;
    int res;

    sprintf (buf, "%p", NULL);
    res = sscanf (buf, "%p", &p);
    printf ("sscanf (\"%s\", \"%%p\", &p) = %d, p == %p\n", buf, res, p);

    if (res != 1 || p != NULL)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 7:\n", stdout);
  {
    short a[2] = { -1, -1 };
    int res;

    res = sscanf ("32767 1234", "%hd %hd", &a[0], &a[1]);
    printf ("res = %d, a[0] = %d, a[1] = %d\n", res, a[0], a[1]);

    if (res != 2 || a[0] != 32767 || a[1] != 1234)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 8:\n", stdout);
  {
    double d = 123456.789;
    int res;

    res = sscanf ("0x1234", "%lf", &d);
    printf ("res = %d, d = %f\n", res, d);

    if (res != 1 || d != 4660)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 9:\n", stdout);
  {
    /* From PR libc/1313 reported by Ben Caradoc-Davies <bmcd@physics.otago.ac.nz>.  */
    float value;
    int res;

    res = sscanf ("0123", "%2f", &value);
    if (res != 1 || value != 1.0)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 10:\n", stdout);
  {
    float value;
    int res;

    res = sscanf ("--", "%f", &value);
    if (res != 0)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 11:\n", stdout);
  {
    char uart[50];
    int res;

    res = sscanf ("uart:16550A tx:0", "uart:%31s tx:%*u", uart);
    if (res != 1)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 12:\n", stdout);
  {
    char uart[50];
    int res;

    res = sscanf ("uart:16550A", "uart:%31s tx:%*u", uart);
    if (res != 1)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

  fputs ("Test 13:\n", stdout);
  {
    float value;
    int res;

    res = sscanf ("-InF", "%f", &value);
    if (res != 1 || isinf (value) != -1)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }

    res = sscanf ("+InfiNiTY", "%f", &value);
    if (res != 1 || isinf (value) != 1)
      {
	fputs ("test failed!\n", stdout);
	result = 1;
      }
  }

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