stdio-common/scanf15.c

   1 /* Copyright (C) 2007-2024 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 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.
   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    Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public
  15    License along with the GNU C Library; if not, see
  16    <https://www.gnu.org/licenses/>.  */
  17
  18 #include <stdio.h>
  19 #include <stdlib.h>
  20 #include <string.h>
  21 #include <wchar.h>
  22
  23 #if __GLIBC_USE_DEPRECATED_SCANF
  24 # error "This file should not be compiled with deprecated scanf"
  25 #endif
  26
  27 #define FAIL() \
  28   do {                                                  \
  29     result = 1;                                         \
  30     printf ("test at line %d failed\n", __LINE__);      \
  31   } while (0)
  32
  33 int
  34 main (void)
  35 {
  36   float f;
  37   double d;
  38   char c[8];
  39   int result = 0;
  40
  41   if (sscanf (" 0.25s x", "%e%3c", &f, c) != 2)
  42     FAIL ();
  43   else if (f != 0.25 || memcmp (c, "s x", 3) != 0)
  44     FAIL ();
  45   if (sscanf (" 1.25s x", "%as%2c", &f, c) != 2)
  46     FAIL ();
  47   else if (f != 1.25 || memcmp (c, " x", 2) != 0)
  48     FAIL ();
  49   if (sscanf (" 2.25s x", "%las%2c", &d, c) != 2)
  50     FAIL ();
  51   else if (d != 2.25 || memcmp (c, " x", 2) != 0)
  52     FAIL ();
  53   if (sscanf (" 3.25S x", "%4aS%2c", &f, c) != 2)
  54     FAIL ();
  55   else if (f != 3.25 || memcmp (c, " x", 2) != 0)
  56     FAIL ();
  57   if (sscanf (" 4.25[0-9.] x", "%a[0-9.]%2c", &f, c) != 2)
  58     FAIL ();
  59   else if (f != 4.25 || memcmp (c, " x", 2) != 0)
  60     FAIL ();
  61   if (sscanf (" 5.25[0-9.] x", "%la[0-9.]%2c", &d, c) != 2)
  62     FAIL ();
  63   else if (d != 5.25 || memcmp (c, " x", 2) != 0)
  64     FAIL ();
  65
  66   const char *tmpdir = getenv ("TMPDIR");
  67   if (tmpdir == NULL || tmpdir[0] == '\0')
  68     tmpdir = "/tmp";
  69
  70   char fname[strlen (tmpdir) + sizeof "/tst-scanf15.XXXXXX"];
  71   sprintf (fname, "%s/tst-scanf15.XXXXXX", tmpdir);
  72
  73   /* Create a temporary file.   */
  74   int fd = mkstemp (fname);
  75   if (fd == -1)
  76     FAIL ();
  77
  78   FILE *fp = fdopen (fd, "w+");
  79   if (fp == NULL)
  80     FAIL ();
  81   else
  82     {
  83       if (fputs (" 1.25s x", fp) == EOF)
  84         FAIL ();
  85       if (fseek (fp, 0, SEEK_SET) != 0)
  86         FAIL ();
  87       if (fscanf (fp, "%as%2c", &f, c) != 2)
  88         FAIL ();
  89       else if (f != 1.25 || memcmp (c, " x", 2) != 0)
  90         FAIL ();
  91
  92       if (freopen (fname, "r", stdin) == NULL)
  93         FAIL ();
  94       else
  95         {
  96           if (scanf ("%as%2c", &f, c) != 2)
  97             FAIL ();
  98           else if (f != 1.25 || memcmp (c, " x", 2) != 0)
  99             FAIL ();
 100         }
 101
 102       fclose (fp);
 103     }
 104
 105   remove (fname);
 106
 107   return result;
 108 }