1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License, Version 1.0 only 6 * (the "License"). You may not use this file except in compliance 7 * with the License. 8 * 9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10 * or http://www.opensolaris.org/os/licensing. 11 * See the License for the specific language governing permissions 12 * and limitations under the License. 13 * 14 * When distributing Covered Code, include this CDDL HEADER in each 15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16 * If applicable, add the following below this CDDL HEADER, with the 17 * fields enclosed by brackets "[]" replaced with your own identifying 18 * information: Portions Copyright [yyyy] [name of copyright owner] 19 * 20 * CDDL HEADER END 21 */ 22 #pragma ident "%Z%%M% %I% %E% SMI" 23 24 /* 25 * Copyright (c) 1987 by Sun Microsystems, Inc. 26 */ 27 28 #include <errno.h> 29 #include <stdio.h> 30 #include <values.h> 31 #include <floatingpoint.h> 32 33 double 34 strtod(cp, ptr) 35 char *cp; 36 char **ptr; 37 { 38 double x; 39 decimal_mode mr; 40 decimal_record dr; 41 fp_exception_field_type fs; 42 enum decimal_string_form form; 43 char *pechar; 44 45 string_to_decimal(&cp, MAXINT, 0, &dr, &form, &pechar); 46 if (ptr != (char **) NULL) 47 *ptr = cp; 48 if (form == invalid_form) 49 return 0.0; /* Shameful kluge for SVID's sake. */ 50 mr.rd = fp_direction; 51 decimal_to_double(&x, &mr, &dr, &fs); 52 if (fs & (1 << fp_overflow)) { /* Overflow. */ 53 errno = ERANGE; 54 } 55 if (fs & (1 << fp_underflow)) { /* underflow */ 56 errno = ERANGE; 57 } 58 return x; 59 } 60