stdio-common/scanf15.c

   1 #undef _GNU_SOURCE
   2 #define _XOPEN_SOURCE 600
   3 #undef _LIBC
   4 #undef _IO_MTSAFE_IO
   5 /* The following macro definitions are a hack.  They word around disabling
   6    the GNU extension while still using a few internal headers.  */
   7 #define u_char unsigned char
   8 #define u_short unsigned short
   9 #define u_int unsigned int
  10 #define u_long unsigned long
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13 #include <string.h>
  14 #include <wchar.h>
  15
  16 #define FAIL() \
  17   do {                                                  \
  18     result = 1;                                         \
  19     printf ("test at line %d failed\n", __LINE__);      \
  20   } while (0)
  21
  22 int
  23 main (void)
  24 {
  25   float f;
  26   double d;
  27   char c[8];
  28   int result = 0;
  29
  30   if (sscanf (" 0.25s x", "%e%3c", &f, c) != 2)
  31     FAIL ();
  32   else if (f != 0.25 || memcmp (c, "s x", 3) != 0)
  33     FAIL ();
  34   if (sscanf (" 1.25s x", "%as%2c", &f, c) != 2)
  35     FAIL ();
  36   else if (f != 1.25 || memcmp (c, " x", 2) != 0)
  37     FAIL ();
  38   if (sscanf (" 2.25s x", "%las%2c", &d, c) != 2)
  39     FAIL ();
  40   else if (d != 2.25 || memcmp (c, " x", 2) != 0)
  41     FAIL ();
  42   if (sscanf (" 3.25S x", "%4aS%2c", &f, c) != 2)
  43     FAIL ();
  44   else if (f != 3.25 || memcmp (c, " x", 2) != 0)
  45     FAIL ();
  46   if (sscanf (" 4.25[0-9.] x", "%a[0-9.]%2c", &f, c) != 2)
  47     FAIL ();
  48   else if (f != 4.25 || memcmp (c, " x", 2) != 0)
  49     FAIL ();
  50   if (sscanf (" 5.25[0-9.] x", "%la[0-9.]%2c", &d, c) != 2)
  51     FAIL ();
  52   else if (d != 5.25 || memcmp (c, " x", 2) != 0)
  53     FAIL ();
  54
  55   const char *tmpdir = getenv ("TMPDIR");
  56   if (tmpdir == NULL || tmpdir[0] == '\0')
  57     tmpdir = "/tmp";
  58
  59   char fname[strlen (tmpdir) + sizeof "/tst-scanf15.XXXXXX"];
  60   sprintf (fname, "%s/tst-scanf15.XXXXXX", tmpdir);
  61   if (fname == NULL)
  62     FAIL ();
  63
  64   /* Create a temporary file.   */
  65   int fd = mkstemp (fname);
  66   if (fd == -1)
  67     FAIL ();
  68
  69   FILE *fp = fdopen (fd, "w+");
  70   if (fp == NULL)
  71     FAIL ();
  72   else
  73     {
  74       if (fputs (" 1.25s x", fp) == EOF)
  75         FAIL ();
  76       if (fseek (fp, 0, SEEK_SET) != 0)
  77         FAIL ();
  78       if (fscanf (fp, "%as%2c", &f, c) != 2)
  79         FAIL ();
  80       else if (f != 1.25 || memcmp (c, " x", 2) != 0)
  81         FAIL ();
  82
  83       if (freopen (fname, "r", stdin) == NULL)
  84         FAIL ();
  85       else
  86         {
  87           if (scanf ("%as%2c", &f, c) != 2)
  88             FAIL ();
  89           else if (f != 1.25 || memcmp (c, " x", 2) != 0)
  90             FAIL ();
  91         }
  92
  93       fclose (fp);
  94     }
  95
  96   remove (fname);
  97
  98   return result;
  99 }