forked from Imagelibrary/rtems
cc2bcea47c
'rtems-4-10-branch'. Cherrypick from master 2011-02-01 05:48:30 UTC Ralf Corsepius <ralf.corsepius@rtems.org> '2011-02-01 Ralf Corsepius <ralf.corsepius@rtems.org>': cpukit/libmisc/stringto/stringtolongdouble.c testsuites/libtests/POSIX/htonl.c testsuites/libtests/math/.cvsignore testsuites/libtests/math/Makefile.am testsuites/libtests/math/domath.c testsuites/libtests/math/domath.in testsuites/libtests/math/domathf.c testsuites/libtests/math/domathl.c testsuites/libtests/math/init.c
59 lines
1.0 KiB
C
59 lines
1.0 KiB
C
/*
|
|
* COPYRIGHT (c) 2009.
|
|
* On-Line Applications Research Corporation (OAR).
|
|
*
|
|
* Copyright (c) 2011 Ralf Corsépius, Ulm, Germany.
|
|
*
|
|
* The license and distribution terms for this file may be
|
|
* found in the file LICENSE in this distribution or at
|
|
* http://www.rtems.com/license/LICENSE.
|
|
*
|
|
* $Id$
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include <errno.h>
|
|
#include <stdlib.h>
|
|
#include <math.h>
|
|
|
|
#include <rtems/stringto.h>
|
|
|
|
/*
|
|
* Instantiate an error checking wrapper for strtod (double)
|
|
*/
|
|
|
|
rtems_status_code rtems_string_to_long_double (
|
|
const char *s,
|
|
long double *n,
|
|
char **endptr
|
|
)
|
|
{
|
|
long double result;
|
|
char *end;
|
|
|
|
if ( !n )
|
|
return RTEMS_INVALID_ADDRESS;
|
|
|
|
errno = 0;
|
|
*n = 0;
|
|
|
|
result = strtold( s, &end );
|
|
|
|
if ( endptr )
|
|
*endptr = end;
|
|
|
|
if ( end == s )
|
|
return RTEMS_NOT_DEFINED;
|
|
|
|
if ( ( errno == ERANGE ) &&
|
|
(( result == 0 ) || ( result == HUGE_VALL ) || ( result == -HUGE_VALL )))
|
|
return RTEMS_INVALID_NUMBER;
|
|
|
|
*n = result;
|
|
|
|
return RTEMS_SUCCESSFUL;
|
|
}
|