1*0Sstevel@tonic-gate /*
2*0Sstevel@tonic-gate * CDDL HEADER START
3*0Sstevel@tonic-gate *
4*0Sstevel@tonic-gate * The contents of this file are subject to the terms of the
5*0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
6*0Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
7*0Sstevel@tonic-gate * with the License.
8*0Sstevel@tonic-gate *
9*0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
11*0Sstevel@tonic-gate * See the License for the specific language governing permissions
12*0Sstevel@tonic-gate * and limitations under the License.
13*0Sstevel@tonic-gate *
14*0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
15*0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
17*0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
18*0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
19*0Sstevel@tonic-gate *
20*0Sstevel@tonic-gate * CDDL HEADER END
21*0Sstevel@tonic-gate */
22*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI"
23*0Sstevel@tonic-gate
24*0Sstevel@tonic-gate /*
25*0Sstevel@tonic-gate * Copyright (c) 1988 by Sun Microsystems, Inc.
26*0Sstevel@tonic-gate */
27*0Sstevel@tonic-gate
28*0Sstevel@tonic-gate #include "base_conversion.h"
29*0Sstevel@tonic-gate
30*0Sstevel@tonic-gate static char *nanstring = "NaN";
31*0Sstevel@tonic-gate static char *infstring = "Infinity";
32*0Sstevel@tonic-gate
33*0Sstevel@tonic-gate char *
econvert(arg,ndigits,decpt,sign,buf)34*0Sstevel@tonic-gate econvert(arg, ndigits, decpt, sign, buf)
35*0Sstevel@tonic-gate double arg;
36*0Sstevel@tonic-gate int ndigits, *decpt, *sign;
37*0Sstevel@tonic-gate char *buf;
38*0Sstevel@tonic-gate {
39*0Sstevel@tonic-gate decimal_mode dm;
40*0Sstevel@tonic-gate decimal_record dr;
41*0Sstevel@tonic-gate fp_exception_field_type ef;
42*0Sstevel@tonic-gate int i;
43*0Sstevel@tonic-gate char *pc;
44*0Sstevel@tonic-gate int nc;
45*0Sstevel@tonic-gate
46*0Sstevel@tonic-gate dm.rd = fp_direction; /* Rounding direction. */
47*0Sstevel@tonic-gate dm.df = floating_form; /* E format. */
48*0Sstevel@tonic-gate dm.ndigits = ndigits; /* Number of significant digits. */
49*0Sstevel@tonic-gate double_to_decimal(&arg, &dm, &dr, &ef);
50*0Sstevel@tonic-gate *sign = dr.sign;
51*0Sstevel@tonic-gate switch (dr.fpclass) {
52*0Sstevel@tonic-gate case fp_normal:
53*0Sstevel@tonic-gate case fp_subnormal:
54*0Sstevel@tonic-gate *decpt = dr.exponent + ndigits;
55*0Sstevel@tonic-gate for (i = 0; i < ndigits; i++)
56*0Sstevel@tonic-gate buf[i] = dr.ds[i];
57*0Sstevel@tonic-gate buf[ndigits] = 0;
58*0Sstevel@tonic-gate break;
59*0Sstevel@tonic-gate case fp_zero:
60*0Sstevel@tonic-gate *decpt = 1;
61*0Sstevel@tonic-gate for (i = 0; i < ndigits; i++)
62*0Sstevel@tonic-gate buf[i] = '0';
63*0Sstevel@tonic-gate buf[ndigits] = 0;
64*0Sstevel@tonic-gate break;
65*0Sstevel@tonic-gate case fp_infinity:
66*0Sstevel@tonic-gate *decpt = 0;
67*0Sstevel@tonic-gate pc = infstring;
68*0Sstevel@tonic-gate if (ndigits < 8)
69*0Sstevel@tonic-gate nc = 3;
70*0Sstevel@tonic-gate else
71*0Sstevel@tonic-gate nc = 8;
72*0Sstevel@tonic-gate goto movestring;
73*0Sstevel@tonic-gate case fp_quiet:
74*0Sstevel@tonic-gate case fp_signaling:
75*0Sstevel@tonic-gate *decpt = 0;
76*0Sstevel@tonic-gate pc = nanstring;
77*0Sstevel@tonic-gate nc = 3;
78*0Sstevel@tonic-gate movestring:
79*0Sstevel@tonic-gate for (i = 0; i < nc; i++)
80*0Sstevel@tonic-gate buf[i] = pc[i];
81*0Sstevel@tonic-gate buf[nc] = 0;
82*0Sstevel@tonic-gate break;
83*0Sstevel@tonic-gate }
84*0Sstevel@tonic-gate return buf; /* For compatibility with ecvt. */
85*0Sstevel@tonic-gate }
86*0Sstevel@tonic-gate
87*0Sstevel@tonic-gate char *
fconvert(arg,ndigits,decpt,sign,buf)88*0Sstevel@tonic-gate fconvert(arg, ndigits, decpt, sign, buf)
89*0Sstevel@tonic-gate double arg;
90*0Sstevel@tonic-gate int ndigits, *decpt, *sign;
91*0Sstevel@tonic-gate char *buf;
92*0Sstevel@tonic-gate {
93*0Sstevel@tonic-gate decimal_mode dm;
94*0Sstevel@tonic-gate decimal_record dr;
95*0Sstevel@tonic-gate fp_exception_field_type ef;
96*0Sstevel@tonic-gate int i;
97*0Sstevel@tonic-gate char *pc;
98*0Sstevel@tonic-gate int nc;
99*0Sstevel@tonic-gate
100*0Sstevel@tonic-gate dm.rd = fp_direction; /* Rounding direction. */
101*0Sstevel@tonic-gate dm.df = fixed_form; /* F format. */
102*0Sstevel@tonic-gate dm.ndigits = ndigits; /* Number of digits after point. */
103*0Sstevel@tonic-gate double_to_decimal(&arg, &dm, &dr, &ef);
104*0Sstevel@tonic-gate *sign = dr.sign;
105*0Sstevel@tonic-gate switch (dr.fpclass) {
106*0Sstevel@tonic-gate case fp_normal:
107*0Sstevel@tonic-gate case fp_subnormal:
108*0Sstevel@tonic-gate if (ndigits >= 0)
109*0Sstevel@tonic-gate *decpt = dr.ndigits - ndigits;
110*0Sstevel@tonic-gate else
111*0Sstevel@tonic-gate *decpt = dr.ndigits;
112*0Sstevel@tonic-gate for (i = 0; i < dr.ndigits; i++)
113*0Sstevel@tonic-gate buf[i] = dr.ds[i];
114*0Sstevel@tonic-gate buf[dr.ndigits] = 0;
115*0Sstevel@tonic-gate break;
116*0Sstevel@tonic-gate case fp_zero:
117*0Sstevel@tonic-gate *decpt = 0;
118*0Sstevel@tonic-gate buf[0] = '0';
119*0Sstevel@tonic-gate for (i = 1; i < ndigits; i++)
120*0Sstevel@tonic-gate buf[i] = '0';
121*0Sstevel@tonic-gate buf[i] = 0;
122*0Sstevel@tonic-gate break;
123*0Sstevel@tonic-gate case fp_infinity:
124*0Sstevel@tonic-gate *decpt = 0;
125*0Sstevel@tonic-gate pc = infstring;
126*0Sstevel@tonic-gate if (ndigits < 8)
127*0Sstevel@tonic-gate nc = 3;
128*0Sstevel@tonic-gate else
129*0Sstevel@tonic-gate nc = 8;
130*0Sstevel@tonic-gate goto movestring;
131*0Sstevel@tonic-gate case fp_quiet:
132*0Sstevel@tonic-gate case fp_signaling:
133*0Sstevel@tonic-gate *decpt = 0;
134*0Sstevel@tonic-gate pc = nanstring;
135*0Sstevel@tonic-gate nc = 3;
136*0Sstevel@tonic-gate movestring:
137*0Sstevel@tonic-gate for (i = 0; i < nc; i++)
138*0Sstevel@tonic-gate buf[i] = pc[i];
139*0Sstevel@tonic-gate buf[nc] = 0;
140*0Sstevel@tonic-gate break;
141*0Sstevel@tonic-gate }
142*0Sstevel@tonic-gate return buf; /* For compatibility with fcvt. */
143*0Sstevel@tonic-gate }
144