stdio-common/scanf14.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   wchar_t *lsp;
  37   char *sp;
  38   float f;
  39   double d;
  40   char c[8];
  41   int result = 0;
  42
  43   if (sscanf (" 0.25s x", "%e%3c", &f, c) != 2)
  44     FAIL ();
  45   else if (f != 0.25 || memcmp (c, "s x", 3) != 0)
  46     FAIL ();
  47   if (sscanf (" 1.25s x", "%ms%2c", &sp, c) != 2)
  48     FAIL ();
  49   else
  50     {
  51       if (strcmp (sp, "1.25s") != 0 || memcmp (c, " x", 2) != 0)
  52         FAIL ();
  53       memset (sp, 'x', sizeof "1.25s");
  54       free (sp);
  55     }
  56   if (sscanf (" 2.25s x", "%las%2c", &d, c) != 2)
  57     FAIL ();
  58   else if (d != 2.25 || memcmp (c, " x", 2) != 0)
  59     FAIL ();
  60   if (sscanf (" 3.25S x", "%4mS%3c", &lsp, c) != 2)
  61     FAIL ();
  62   else
  63     {
  64       if (wcscmp (lsp, L"3.25") != 0 || memcmp (c, "S x", 3) != 0)
  65         FAIL ();
  66       memset (lsp, 'x', sizeof L"3.25");
  67       free (lsp);
  68     }
  69   if (sscanf ("4.25[0-9.] x", "%m[0-9.]%8c", &sp, c) != 2)
  70     FAIL ();
  71   else
  72     {
  73       if (strcmp (sp, "4.25") != 0 || memcmp (c, "[0-9.] x", 8) != 0)
  74         FAIL ();
  75       memset (sp, 'x', sizeof "4.25");
  76       free (sp);
  77     }
  78   if (sscanf ("5.25[0-9.] x", "%la[0-9.]%2c", &d, c) != 2)
  79     FAIL ();
  80   else if (d != 5.25 || memcmp (c, " x", 2) != 0)
  81     FAIL ();
  82
  83   const char *tmpdir = getenv ("TMPDIR");
  84   if (tmpdir == NULL || tmpdir[0] == '\0')
  85     tmpdir = "/tmp";
  86
  87   char fname[strlen (tmpdir) + sizeof "/tst-scanf14.XXXXXX"];
  88   sprintf (fname, "%s/tst-scanf14.XXXXXX", tmpdir);
  89
  90   /* Create a temporary file.   */
  91   int fd = mkstemp (fname);
  92   if (fd == -1)
  93     FAIL ();
  94
  95   FILE *fp = fdopen (fd, "w+");
  96   if (fp == NULL)
  97     FAIL ();
  98   else
  99     {
 100       if (fputs (" 1.25s x", fp) == EOF)
 101         FAIL ();
 102       if (fseek (fp, 0, SEEK_SET) != 0)
 103         FAIL ();
 104       if (fscanf (fp, "%ms%2c", &sp, c) != 2)
 105         FAIL ();
 106       else
 107         {
 108           if (strcmp (sp, "1.25s") != 0 || memcmp (c, " x", 2) != 0)
 109             FAIL ();
 110           memset (sp, 'x', sizeof "1.25s");
 111           free (sp);
 112         }
 113
 114       if (freopen (fname, "r", stdin) == NULL)
 115         FAIL ();
 116       else
 117         {
 118           if (scanf ("%ms%2c", &sp, c) != 2)
 119             FAIL ();
 120           else
 121             {
 122               if (strcmp (sp, "1.25s") != 0 || memcmp (c, " x", 2) != 0)
 123                 FAIL ();
 124               memset (sp, 'x', sizeof "1.25s");
 125               free (sp);
 126             }
 127         }
 128
 129       fclose (fp);
 130     }
 131
 132   remove (fname);
 133
 134   return result;
 135 }