xref: /illumos-gate/usr/src/lib/libc/port/gen/strtod.c (revision 7257d1b4)
17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate  * CDDL HEADER START
37c478bd9Sstevel@tonic-gate  *
47c478bd9Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
5*7257d1b4Sraf  * Common Development and Distribution License (the "License").
6*7257d1b4Sraf  * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate  *
87c478bd9Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate  * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate  * and limitations under the License.
127c478bd9Sstevel@tonic-gate  *
137c478bd9Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate  *
197c478bd9Sstevel@tonic-gate  * CDDL HEADER END
207c478bd9Sstevel@tonic-gate  */
21*7257d1b4Sraf 
227c478bd9Sstevel@tonic-gate /*
23*7257d1b4Sraf  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
247c478bd9Sstevel@tonic-gate  * Use is subject to license terms.
257c478bd9Sstevel@tonic-gate  */
267c478bd9Sstevel@tonic-gate 
277c478bd9Sstevel@tonic-gate /*	Copyright (c) 1988 AT&T	*/
287c478bd9Sstevel@tonic-gate /*	  All Rights Reserved  	*/
297c478bd9Sstevel@tonic-gate 
30*7257d1b4Sraf #pragma ident	"%Z%%M%	%I%	%E% SMI"
317c478bd9Sstevel@tonic-gate 
32*7257d1b4Sraf #include "lint.h"
337c478bd9Sstevel@tonic-gate #include <errno.h>
347c478bd9Sstevel@tonic-gate #include <stdio.h>
357c478bd9Sstevel@tonic-gate #include <values.h>
367c478bd9Sstevel@tonic-gate #include <floatingpoint.h>
377c478bd9Sstevel@tonic-gate #include <stdlib.h>
387c478bd9Sstevel@tonic-gate #include <sys/types.h>
397c478bd9Sstevel@tonic-gate #include "libc.h"
407c478bd9Sstevel@tonic-gate #include "xpg6.h"
417c478bd9Sstevel@tonic-gate 
427c478bd9Sstevel@tonic-gate double
strtod(const char * cp,char ** ptr)437c478bd9Sstevel@tonic-gate strtod(const char *cp, char **ptr)
447c478bd9Sstevel@tonic-gate {
457c478bd9Sstevel@tonic-gate 	double		x;
467c478bd9Sstevel@tonic-gate 	decimal_mode	mr;
477c478bd9Sstevel@tonic-gate 	decimal_record  dr;
487c478bd9Sstevel@tonic-gate 	fp_exception_field_type fs;
497c478bd9Sstevel@tonic-gate 	enum decimal_string_form form;
507c478bd9Sstevel@tonic-gate 	char		*pechar;
517c478bd9Sstevel@tonic-gate 	int		lc;
527c478bd9Sstevel@tonic-gate 
537c478bd9Sstevel@tonic-gate 	lc = (__xpg6 & _C99SUSv3_recognize_hexfp)? -1 : 0;
547c478bd9Sstevel@tonic-gate 	string_to_decimal((char **)&cp, MAXINT, lc, &dr, &form, &pechar);
557c478bd9Sstevel@tonic-gate 	if (ptr != NULL)
567c478bd9Sstevel@tonic-gate 		*ptr = (char *)cp;
577c478bd9Sstevel@tonic-gate 	if (form == invalid_form)
587c478bd9Sstevel@tonic-gate 		return (0.0);	/* Shameful kluge for SVID's sake. */
597c478bd9Sstevel@tonic-gate #if defined(__sparc)
607c478bd9Sstevel@tonic-gate 	mr.rd = _QgetRD();
617c478bd9Sstevel@tonic-gate #elif defined(__i386) || defined(__amd64)
627c478bd9Sstevel@tonic-gate 	mr.rd = __xgetRD();
637c478bd9Sstevel@tonic-gate #else
647c478bd9Sstevel@tonic-gate #error Unknown architecture
657c478bd9Sstevel@tonic-gate #endif
667c478bd9Sstevel@tonic-gate 	if ((int)form < 0)
677c478bd9Sstevel@tonic-gate 		__hex_to_double(&dr, mr.rd, &x, &fs);
687c478bd9Sstevel@tonic-gate 	else
697c478bd9Sstevel@tonic-gate 		decimal_to_double(&x, &mr, &dr, &fs);
707c478bd9Sstevel@tonic-gate 	if (fs & ((1 << fp_overflow) | (1 << fp_underflow)))
717c478bd9Sstevel@tonic-gate 		errno = ERANGE;
727c478bd9Sstevel@tonic-gate 	return (x);
737c478bd9Sstevel@tonic-gate }
747c478bd9Sstevel@tonic-gate 
757c478bd9Sstevel@tonic-gate float
strtof(const char * cp,char ** ptr)767c478bd9Sstevel@tonic-gate strtof(const char *cp, char **ptr)
777c478bd9Sstevel@tonic-gate {
787c478bd9Sstevel@tonic-gate 	float		x;
797c478bd9Sstevel@tonic-gate 	decimal_mode	mr;
807c478bd9Sstevel@tonic-gate 	decimal_record	dr;
817c478bd9Sstevel@tonic-gate 	fp_exception_field_type fs;
827c478bd9Sstevel@tonic-gate 	enum decimal_string_form form;
837c478bd9Sstevel@tonic-gate 	char		*pechar;
847c478bd9Sstevel@tonic-gate 
857c478bd9Sstevel@tonic-gate 	string_to_decimal((char **)&cp, MAXINT, -1, &dr, &form, &pechar);
867c478bd9Sstevel@tonic-gate 	if (ptr != NULL)
877c478bd9Sstevel@tonic-gate 		*ptr = (char *)cp;
887c478bd9Sstevel@tonic-gate 	if (form == invalid_form)
897c478bd9Sstevel@tonic-gate 		return (0.0f);
907c478bd9Sstevel@tonic-gate #if defined(__sparc)
917c478bd9Sstevel@tonic-gate 	mr.rd = _QgetRD();
927c478bd9Sstevel@tonic-gate #elif defined(__i386) || defined(__amd64)
937c478bd9Sstevel@tonic-gate 	mr.rd = __xgetRD();
947c478bd9Sstevel@tonic-gate #else
957c478bd9Sstevel@tonic-gate #error Unknown architecture
967c478bd9Sstevel@tonic-gate #endif
977c478bd9Sstevel@tonic-gate 	if ((int)form < 0)
987c478bd9Sstevel@tonic-gate 		__hex_to_single(&dr, mr.rd, &x, &fs);
997c478bd9Sstevel@tonic-gate 	else
1007c478bd9Sstevel@tonic-gate 		decimal_to_single(&x, &mr, &dr, &fs);
1017c478bd9Sstevel@tonic-gate 	if (fs & ((1 << fp_overflow) | (1 << fp_underflow)))
1027c478bd9Sstevel@tonic-gate 		errno = ERANGE;
1037c478bd9Sstevel@tonic-gate 	return (x);
1047c478bd9Sstevel@tonic-gate }
1057c478bd9Sstevel@tonic-gate 
1067c478bd9Sstevel@tonic-gate long double
strtold(const char * cp,char ** ptr)1077c478bd9Sstevel@tonic-gate strtold(const char *cp, char **ptr)
1087c478bd9Sstevel@tonic-gate {
1097c478bd9Sstevel@tonic-gate 	long double	x;
1107c478bd9Sstevel@tonic-gate 	decimal_mode	mr;
1117c478bd9Sstevel@tonic-gate 	decimal_record	dr;
1127c478bd9Sstevel@tonic-gate 	fp_exception_field_type fs;
1137c478bd9Sstevel@tonic-gate 	enum decimal_string_form form;
1147c478bd9Sstevel@tonic-gate 	char		*pechar;
1157c478bd9Sstevel@tonic-gate 
1167c478bd9Sstevel@tonic-gate 	string_to_decimal((char **)&cp, MAXINT, -1, &dr, &form, &pechar);
1177c478bd9Sstevel@tonic-gate 	if (ptr != NULL)
1187c478bd9Sstevel@tonic-gate 		*ptr = (char *)cp;
1197c478bd9Sstevel@tonic-gate 	if (form == invalid_form)
1207c478bd9Sstevel@tonic-gate 		return (0.0L);
1217c478bd9Sstevel@tonic-gate #if defined(__sparc)
1227c478bd9Sstevel@tonic-gate 	mr.rd = _QgetRD();
1237c478bd9Sstevel@tonic-gate 	if ((int)form < 0)
1247c478bd9Sstevel@tonic-gate 		__hex_to_quadruple(&dr, mr.rd, &x, &fs);
1257c478bd9Sstevel@tonic-gate 	else
1267c478bd9Sstevel@tonic-gate 		decimal_to_quadruple(&x, &mr, &dr, &fs);
1277c478bd9Sstevel@tonic-gate #elif defined(__i386) || defined(__amd64)
1287c478bd9Sstevel@tonic-gate 	mr.rd = __xgetRD();
1297c478bd9Sstevel@tonic-gate 	if ((int)form < 0)
1307c478bd9Sstevel@tonic-gate 		__hex_to_extended(&dr, mr.rd, (extended *)&x, &fs);
1317c478bd9Sstevel@tonic-gate 	else
1327c478bd9Sstevel@tonic-gate 		decimal_to_extended((extended *)&x, &mr, &dr, &fs);
1337c478bd9Sstevel@tonic-gate #else
1347c478bd9Sstevel@tonic-gate #error Unknown architecture
1357c478bd9Sstevel@tonic-gate #endif
1367c478bd9Sstevel@tonic-gate 	if (fs & ((1 << fp_overflow) | (1 << fp_underflow)))
1377c478bd9Sstevel@tonic-gate 		errno = ERANGE;
1387c478bd9Sstevel@tonic-gate 	return (x);
1397c478bd9Sstevel@tonic-gate }
140