glibc/sysdeps/ieee754/ldbl-128ibm-compat/test-scanf-ldbl-compat-template.c

135 lines
3.2 KiB
C
Raw Normal View History

/* Test for the long double variants of *scanf functions.
Copyright (C) 2019 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 <stdarg.h>
#include <stdint.h>
#include <stdio.h>
#include <string.h>
#include <wchar.h>
#include <support/check.h>
#define CLEAR_VARGS \
va_start (args, format); \
ldptr = va_arg (args, long double *); \
fptr = va_arg (args, float *); \
*ldptr = 0; \
*fptr = 0; \
va_end (args);
#define CHECK_VARGS \
va_start (args, format); \
ldptr = va_arg (args, long double *); \
fptr = va_arg (args, float *); \
va_end (args); \
if (*ldptr == -1 && *fptr == -2) \
printf ("OK"); \
else \
printf ("ERROR (%Lf %f)", *ldptr, *fptr); \
printf ("\n");
#define CLEAR_VALUE \
ld = 0; \
f = 0;
#define CHECK_VALUE \
if (ld == -1 && f == -2) \
printf ("OK"); \
else \
printf ("ERROR (%Lf %f)", ld, f); \
printf ("\n");
static void
do_test_call (FILE *stream, CHAR *string, const CHAR *format, ...)
{
float f;
long double ld;
float *fptr;
long double *ldptr;
va_list args;
CLEAR_VALUE
printf ("fscanf: ");
FSCANF (stream, format, &ld, &f);
CHECK_VALUE
CLEAR_VALUE
printf ("scanf: ");
SCANF (format, &ld, &f);
CHECK_VALUE
CLEAR_VALUE
printf ("sscanf: ");
SSCANF (string, format, &ld, &f);
CHECK_VALUE
CLEAR_VARGS
printf ("vfscanf: ");
va_start (args, format);
VFSCANF (stream, format, args);
va_end (args);
CHECK_VARGS
CLEAR_VARGS
printf ("vscanf: ");
va_start (args, format);
VSCANF (format, args);
va_end (args);
CHECK_VARGS
CLEAR_VARGS
printf ("vsscanf: ");
va_start (args, format);
VSSCANF (string, format, args);
va_end (args);
CHECK_VARGS
}
static int
do_test (void)
{
CHAR string[256];
float f;
long double ld;
/* Scan in decimal notation. */
STRCPY (string,
L ("-1.0 -2.0\n")
L ("-1.0 -2.0\n") );
do_test_call (stdin, string, L("%Lf %f"), &ld, &f);
/* Scan in hexadecimal notation. */
STRCPY (string,
L ("-0x1.0p+0 -0x2.0p+0\n")
L ("-0x1.0p+0 -0x2.0p+0\n") );
/* For ISO C99, scan the single-precision value with "%as" to test
that __isoc99_*scanf ignores the 's'. For DEPRECATED_SCANF, do not
use "%as", because that would try to scan a string and allocate
space for it. */
#if __GLIBC_USE (DEPRECATED_SCANF)
# define FMT "%La %a"
#else
# define FMT "%La %as"
#endif
do_test_call (stdin, string, L(FMT), &ld, &f);
return 0;
}
#include <support/test-driver.c>