17c478bdstevel@tonic-gate/*
27c478bdstevel@tonic-gate * CDDL HEADER START
37c478bdstevel@tonic-gate *
47c478bdstevel@tonic-gate * The contents of this file are subject to the terms of the
57257d1braf * Common Development and Distribution License (the "License").
67257d1braf * You may not use this file except in compliance with the License.
77c478bdstevel@tonic-gate *
87c478bdstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bdstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
107c478bdstevel@tonic-gate * See the License for the specific language governing permissions
117c478bdstevel@tonic-gate * and limitations under the License.
127c478bdstevel@tonic-gate *
137c478bdstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
147c478bdstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bdstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
167c478bdstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
177c478bdstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bdstevel@tonic-gate *
197c478bdstevel@tonic-gate * CDDL HEADER END
207c478bdstevel@tonic-gate */
217257d1braf
227c478bdstevel@tonic-gate/*
237257d1braf * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
247c478bdstevel@tonic-gate * Use is subject to license terms.
257c478bdstevel@tonic-gate */
267c478bdstevel@tonic-gate
277c478bdstevel@tonic-gate#pragma ident	"%Z%%M%	%I%	%E% SMI"
287c478bdstevel@tonic-gate
297257d1braf#include "lint.h"
307c478bdstevel@tonic-gate#include "base_conversion.h"
317c478bdstevel@tonic-gate#include <sys/types.h>
327c478bdstevel@tonic-gate#include "libc.h"
337c478bdstevel@tonic-gate
347c478bdstevel@tonic-gatechar *
357c478bdstevel@tonic-gatefconvert(double arg, int ndigits, int *decpt, int *sign, char *buf)
367c478bdstevel@tonic-gate{
377c478bdstevel@tonic-gate	decimal_mode    dm;
387c478bdstevel@tonic-gate	decimal_record  dr;
397c478bdstevel@tonic-gate	fp_exception_field_type ef;
407c478bdstevel@tonic-gate	int		i;
417c478bdstevel@tonic-gate
427c478bdstevel@tonic-gate#if defined(__sparc)
437c478bdstevel@tonic-gate	dm.rd = _QgetRD();
447c478bdstevel@tonic-gate#elif defined(__i386) || defined(__amd64)
457c478bdstevel@tonic-gate	dm.rd = __xgetRD();
467c478bdstevel@tonic-gate#else
477c478bdstevel@tonic-gate#error Unknown architecture
487c478bdstevel@tonic-gate#endif
497c478bdstevel@tonic-gate	dm.df = fixed_form;	/* F format. */
507c478bdstevel@tonic-gate	if (ndigits <= -DECIMAL_STRING_LENGTH)
517c478bdstevel@tonic-gate		ndigits = -DECIMAL_STRING_LENGTH + 1;
527c478bdstevel@tonic-gate	else if (ndigits >= DECIMAL_STRING_LENGTH)
537c478bdstevel@tonic-gate		ndigits = DECIMAL_STRING_LENGTH - 1;
547c478bdstevel@tonic-gate	dm.ndigits = ndigits;	/* Number of digits after point. */
557c478bdstevel@tonic-gate	double_to_decimal(&arg, &dm, &dr, &ef);
567c478bdstevel@tonic-gate	*sign = dr.sign;
577c478bdstevel@tonic-gate	switch (dr.fpclass) {
587c478bdstevel@tonic-gate	case fp_normal:
597c478bdstevel@tonic-gate	case fp_subnormal:
607c478bdstevel@tonic-gate		*decpt = dr.exponent + dr.ndigits;
617c478bdstevel@tonic-gate		for (i = 0; i < dr.ndigits; i++)
627c478bdstevel@tonic-gate			buf[i] = dr.ds[i];
637c478bdstevel@tonic-gate		/*
647c478bdstevel@tonic-gate		 * Pad with zeroes if we didn't get all the digits
657c478bdstevel@tonic-gate		 * we asked for.
667c478bdstevel@tonic-gate		 */
677c478bdstevel@tonic-gate		if (ndigits > 0 && dr.exponent > -ndigits) {
687c478bdstevel@tonic-gate			while (i < dr.ndigits + dr.exponent + ndigits)
697c478bdstevel@tonic-gate				buf[i++] = '0';
707c478bdstevel@tonic-gate		}
717c478bdstevel@tonic-gate		buf[i] = 0;
727c478bdstevel@tonic-gate		break;
737c478bdstevel@tonic-gate	case fp_zero:
747c478bdstevel@tonic-gate		*decpt = 0;
757c478bdstevel@tonic-gate		buf[0] = '0';
767c478bdstevel@tonic-gate		for (i = 1; i < ndigits; i++)
777c478bdstevel@tonic-gate			buf[i] = '0';
787c478bdstevel@tonic-gate		buf[i] = 0;
797c478bdstevel@tonic-gate		break;
807c478bdstevel@tonic-gate	default:
817c478bdstevel@tonic-gate		*decpt = 0;
827c478bdstevel@tonic-gate		__infnanstring(dr.fpclass, ndigits, buf);
837c478bdstevel@tonic-gate		break;
847c478bdstevel@tonic-gate	}
857c478bdstevel@tonic-gate	return (buf);
867c478bdstevel@tonic-gate}
877c478bdstevel@tonic-gate
887c478bdstevel@tonic-gatechar *
897c478bdstevel@tonic-gatesfconvert(single *arg, int ndigits, int *decpt, int *sign, char *buf)
907c478bdstevel@tonic-gate{
917c478bdstevel@tonic-gate	decimal_mode    dm;
927c478bdstevel@tonic-gate	decimal_record  dr;
937c478bdstevel@tonic-gate	fp_exception_field_type ef;
947c478bdstevel@tonic-gate	int		i;
957c478bdstevel@tonic-gate
967c478bdstevel@tonic-gate#if defined(__sparc)
977c478bdstevel@tonic-gate	dm.rd = _QgetRD();
987c478bdstevel@tonic-gate#elif defined(__i386) || defined(__amd64)
997c478bdstevel@tonic-gate	dm.rd = __xgetRD();
1007c478bdstevel@tonic-gate#else
1017c478bdstevel@tonic-gate#error Unknown architecture
1027c478bdstevel@tonic-gate#endif
1037c478bdstevel@tonic-gate	dm.df = fixed_form;	/* F format. */
1047c478bdstevel@tonic-gate	if (ndigits <= -DECIMAL_STRING_LENGTH)
1057c478bdstevel@tonic-gate		ndigits = -DECIMAL_STRING_LENGTH + 1;
1067c478bdstevel@tonic-gate	else if (ndigits >= DECIMAL_STRING_LENGTH)
1077c478bdstevel@tonic-gate		ndigits = DECIMAL_STRING_LENGTH - 1;
1087c478bdstevel@tonic-gate	dm.ndigits = ndigits;	/* Number of digits after point. */
1097c478bdstevel@tonic-gate	single_to_decimal(arg, &dm, &dr, &ef);
1107c478bdstevel@tonic-gate	*sign = dr.sign;
1117c478bdstevel@tonic-gate	switch (dr.fpclass) {
1127c478bdstevel@tonic-gate	case fp_normal:
1137c478bdstevel@tonic-gate	case fp_subnormal:
1147c478bdstevel@tonic-gate		*decpt = dr.exponent + dr.ndigits;
1157c478bdstevel@tonic-gate		for (i = 0; i < dr.ndigits; i++)
1167c478bdstevel@tonic-gate			buf[i] = dr.ds[i];
1177c478bdstevel@tonic-gate		/*
1187c478bdstevel@tonic-gate		 * Pad with zeroes if we didn't get all the digits
1197c478bdstevel@tonic-gate		 * we asked for.
1207c478bdstevel@tonic-gate		 */
1217c478bdstevel@tonic-gate		if (ndigits > 0 && dr.exponent > -ndigits) {
1227c478bdstevel@tonic-gate			while (i < dr.ndigits + dr.exponent + ndigits)
1237c478bdstevel@tonic-gate				buf[i++] = '0';
1247c478bdstevel@tonic-gate		}
1257c478bdstevel@tonic-gate		buf[i] = 0;
1267c478bdstevel@tonic-gate		break;
1277c478bdstevel@tonic-gate	case fp_zero:
1287c478bdstevel@tonic-gate		*decpt = 0;
1297c478bdstevel@tonic-gate		buf[0] = '0';
1307c478bdstevel@tonic-gate		for (i = 1; i < ndigits; i++)
1317c478bdstevel@tonic-gate			buf[i] = '0';
1327c478bdstevel@tonic-gate		buf[i] = 0;
1337c478bdstevel@tonic-gate		break;
1347c478bdstevel@tonic-gate	default:
1357c478bdstevel@tonic-gate		*decpt = 0;
1367c478bdstevel@tonic-gate		__infnanstring(dr.fpclass, ndigits, buf);
1377c478bdstevel@tonic-gate		break;
1387c478bdstevel@tonic-gate	}
1397c478bdstevel@tonic-gate	return (buf);
1407c478bdstevel@tonic-gate}
1417c478bdstevel@tonic-gate
1427c478bdstevel@tonic-gatechar *
1437c478bdstevel@tonic-gateqfconvert(quadruple *arg, int ndigits, int *decpt, int *sign, char *buf)
1447c478bdstevel@tonic-gate{
1457c478bdstevel@tonic-gate	decimal_mode    dm;
1467c478bdstevel@tonic-gate	decimal_record  dr;
1477c478bdstevel@tonic-gate	fp_exception_field_type ef;
1487c478bdstevel@tonic-gate	int		i;
1497c478bdstevel@tonic-gate
1507c478bdstevel@tonic-gate#if defined(__sparc)
1517c478bdstevel@tonic-gate	dm.rd = _QgetRD();
1527c478bdstevel@tonic-gate#elif defined(__i386) || defined(__amd64)
1537c478bdstevel@tonic-gate	dm.rd = __xgetRD();
1547c478bdstevel@tonic-gate#else
1557c478bdstevel@tonic-gate#error Unknown architecture
1567c478bdstevel@tonic-gate#endif
1577c478bdstevel@tonic-gate	dm.df = fixed_form;	/* F format. */
1587c478bdstevel@tonic-gate	if (ndigits <= -DECIMAL_STRING_LENGTH)
1597c478bdstevel@tonic-gate		ndigits = -DECIMAL_STRING_LENGTH + 1;
1607c478bdstevel@tonic-gate	else if (ndigits >= DECIMAL_STRING_LENGTH)
1617c478bdstevel@tonic-gate		ndigits = DECIMAL_STRING_LENGTH - 1;
1627c478bdstevel@tonic-gate	dm.ndigits = ndigits;	/* Number of digits after point. */
1637c478bdstevel@tonic-gate#if defined(__sparc)
1647c478bdstevel@tonic-gate	quadruple_to_decimal(arg, &dm, &dr, &ef);
1657c478bdstevel@tonic-gate#elif defined(__i386) || defined(__amd64)
1667c478bdstevel@tonic-gate	extended_to_decimal((extended *)arg, &dm, &dr, &ef);
1677c478bdstevel@tonic-gate#else
1687c478bdstevel@tonic-gate#error Unknown architecture
1697c478bdstevel@tonic-gate#endif
1707c478bdstevel@tonic-gate	*sign = dr.sign;
1717c478bdstevel@tonic-gate	if (ef & (1 << fp_overflow)) {
1727c478bdstevel@tonic-gate		/*
1737c478bdstevel@tonic-gate		 * *_to_decimal raises overflow whenever dr.ds isn't large
1747c478bdstevel@tonic-gate		 * enough to hold all the digits requested.  For float and
1757c478bdstevel@tonic-gate		 * double, this can only happen when the requested format
1767c478bdstevel@tonic-gate		 * would require trailing zeroes, in which case fconvert
1777c478bdstevel@tonic-gate		 * and sfconvert just add them.  For long double, the arg-
1787c478bdstevel@tonic-gate		 * ument might be large enough that even the nonzero digits
1797c478bdstevel@tonic-gate		 * would overflow dr.ds, so we punt instead.  (We could
1807c478bdstevel@tonic-gate		 * distinguish these two cases, but it doesn't seem worth
1817c478bdstevel@tonic-gate		 * changing things now, particularly since no real appli-
1827c478bdstevel@tonic-gate		 * cation prints floating point numbers to 500 digits.)
1837c478bdstevel@tonic-gate		 */
1847c478bdstevel@tonic-gate		*decpt = 0;
1857c478bdstevel@tonic-gate		buf[0] = 0;
1867c478bdstevel@tonic-gate		return (buf);
1877c478bdstevel@tonic-gate	}
1887c478bdstevel@tonic-gate	switch (dr.fpclass) {
1897c478bdstevel@tonic-gate	case fp_normal:
1907c478bdstevel@tonic-gate	case fp_subnormal:
1917c478bdstevel@tonic-gate		*decpt = dr.exponent + dr.ndigits;
1927c478bdstevel@tonic-gate		for (i = 0; i < dr.ndigits; i++)
1937c478bdstevel@tonic-gate			buf[i] = dr.ds[i];
1947c478bdstevel@tonic-gate		buf[i] = 0;
1957c478bdstevel@tonic-gate		break;
1967c478bdstevel@tonic-gate	case fp_zero:
1977c478bdstevel@tonic-gate		*decpt = 0;
1987c478bdstevel@tonic-gate		buf[0] = '0';
1997c478bdstevel@tonic-gate		for (i = 1; i < ndigits; i++)
2007c478bdstevel@tonic-gate			buf[i] = '0';
2017c478bdstevel@tonic-gate		buf[i] = 0;
2027c478bdstevel@tonic-gate		break;
2037c478bdstevel@tonic-gate	default:
2047c478bdstevel@tonic-gate		*decpt = 0;
2057c478bdstevel@tonic-gate		__infnanstring(dr.fpclass, ndigits, buf);
2067c478bdstevel@tonic-gate		break;
2077c478bdstevel@tonic-gate	}
2087c478bdstevel@tonic-gate	return (buf);
2097c478bdstevel@tonic-gate}
210