Logo Search packages:      
Sourcecode: ksh version File versions

strtof.c

/***********************************************************************
*                                                                      *
*               This software is part of the ast package               *
*           Copyright (c) 1999-2007 AT&T Knowledge Ventures            *
*                      and is licensed under the                       *
*                  Common Public License, Version 1.0                  *
*                      by AT&T Knowledge Ventures                      *
*                                                                      *
*                A copy of the License is available at                 *
*            http://www.opensource.org/licenses/cpl1.0.txt             *
*         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
*                                                                      *
*              Information and Software Systems Research               *
*                            AT&T Research                             *
*                           Florham Park NJ                            *
*                                                                      *
*                 Glenn Fowler <gsf@research.att.com>                  *
*                                                                      *
***********************************************************************/
#pragma prototyped

/*
 * AT&T Research
 *
 * test harness for
 *
 *    strtod            strtold
 */

#if _PACKAGE_ast
#include <ast.h>
#else
#define _ast_fltmax_t   long double
#endif

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <locale.h>

#ifndef ERANGE
#define ERANGE    EINVAL
#endif

#ifndef errno
extern int  errno;
#endif

#if !_PACKAGE_ast
#undef      printf
#endif

int
main(int argc, char** argv)
{
      char*             s;
      char*             p;
      double                  d;
      _ast_fltmax_t           ld;
      int               sep = 0;

      while (s = *++argv)
      {
            if (!strncmp(s, "LC_ALL=", 7))
            {
                  if (!setlocale(LC_ALL, s + 7))
                  {
                        printf("%s failed\n", s);
                        return 0;
                  }
                  continue;
            }
            if (sep)
                  printf("\n");
            else
                  sep = 1;

            errno = 0;
            d = strtod(s, &p);
            printf("strtod   \"%s\" \"%s\" %.15e %s\n", s, p, d, errno == 0 ? "OK" : errno == ERANGE ? "ERANGE" : errno == EINVAL ? "EINVAL" : "ERROR");

            errno = 0;
            ld = strtold(s, &p);
            printf("strtold  \"%s\" \"%s\" %.31Le %s\n", s, p, ld, errno == 0 ? "OK" : errno == ERANGE ? "ERANGE" : errno == EINVAL ? "EINVAL" : "ERROR");

      }
      return 0;
}

Generated by  Doxygen 1.6.0   Back to index