1  /* Copyright (C) 2007-2023 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  }