forked from Imagelibrary/rtems
5410c14a56
* libmisc/Makefile.am: Add stringto/stringtolongdouble.c. * libmisc/stringto/stringtolongdouble.c: New.
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;
|
|
}
|