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 char *
qeconvert(arg,ndigits,decpt,sign,buf)31*0Sstevel@tonic-gate qeconvert(arg, ndigits, decpt, sign, buf)
32*0Sstevel@tonic-gate quadruple *arg;
33*0Sstevel@tonic-gate int ndigits, *decpt, *sign;
34*0Sstevel@tonic-gate char *buf;
35*0Sstevel@tonic-gate {
36*0Sstevel@tonic-gate decimal_mode dm;
37*0Sstevel@tonic-gate decimal_record dr;
38*0Sstevel@tonic-gate fp_exception_field_type ef;
39*0Sstevel@tonic-gate int i;
40*0Sstevel@tonic-gate static char *nanstring = "NaN";
41*0Sstevel@tonic-gate static char *infstring = "Infinity";
42*0Sstevel@tonic-gate char *pc;
43*0Sstevel@tonic-gate int nc;
44*0Sstevel@tonic-gate
45*0Sstevel@tonic-gate dm.rd = fp_direction; /* Rounding direction. */
46*0Sstevel@tonic-gate dm.df = floating_form; /* E format. */
47*0Sstevel@tonic-gate dm.ndigits = ndigits; /* Number of significant digits. */
48*0Sstevel@tonic-gate quadruple_to_decimal(arg, &dm, &dr, &ef);
49*0Sstevel@tonic-gate *sign = dr.sign;
50*0Sstevel@tonic-gate switch (dr.fpclass) {
51*0Sstevel@tonic-gate case fp_normal:
52*0Sstevel@tonic-gate case fp_subnormal:
53*0Sstevel@tonic-gate *decpt = dr.exponent + ndigits;
54*0Sstevel@tonic-gate for (i = 0; i < ndigits; i++)
55*0Sstevel@tonic-gate buf[i] = dr.ds[i];
56*0Sstevel@tonic-gate buf[ndigits] = 0;
57*0Sstevel@tonic-gate break;
58*0Sstevel@tonic-gate case fp_zero:
59*0Sstevel@tonic-gate *decpt = 1;
60*0Sstevel@tonic-gate for (i = 0; i < ndigits; i++)
61*0Sstevel@tonic-gate buf[i] = '0';
62*0Sstevel@tonic-gate buf[ndigits] = 0;
63*0Sstevel@tonic-gate break;
64*0Sstevel@tonic-gate case fp_infinity:
65*0Sstevel@tonic-gate *decpt = 0;
66*0Sstevel@tonic-gate pc = infstring;
67*0Sstevel@tonic-gate if (ndigits < 8)
68*0Sstevel@tonic-gate nc = 3;
69*0Sstevel@tonic-gate else
70*0Sstevel@tonic-gate nc = 8;
71*0Sstevel@tonic-gate goto movestring;
72*0Sstevel@tonic-gate case fp_quiet:
73*0Sstevel@tonic-gate case fp_signaling:
74*0Sstevel@tonic-gate *decpt = 0;
75*0Sstevel@tonic-gate pc = nanstring;
76*0Sstevel@tonic-gate nc = 3;
77*0Sstevel@tonic-gate movestring:
78*0Sstevel@tonic-gate for (i = 0; i < nc; i++)
79*0Sstevel@tonic-gate buf[i] = pc[i];
80*0Sstevel@tonic-gate buf[nc] = 0;
81*0Sstevel@tonic-gate break;
82*0Sstevel@tonic-gate }
83*0Sstevel@tonic-gate return buf; /* For compatibility with ecvt. */
84*0Sstevel@tonic-gate }
85*0Sstevel@tonic-gate
86*0Sstevel@tonic-gate char *
qfconvert(arg,ndigits,decpt,sign,buf)87*0Sstevel@tonic-gate qfconvert(arg, ndigits, decpt, sign, buf)
88*0Sstevel@tonic-gate quadruple *arg;
89*0Sstevel@tonic-gate int ndigits, *decpt, *sign;
90*0Sstevel@tonic-gate char *buf;
91*0Sstevel@tonic-gate {
92*0Sstevel@tonic-gate decimal_mode dm;
93*0Sstevel@tonic-gate decimal_record dr;
94*0Sstevel@tonic-gate fp_exception_field_type ef;
95*0Sstevel@tonic-gate int i;
96*0Sstevel@tonic-gate
97*0Sstevel@tonic-gate dm.rd = fp_direction; /* Rounding direction. */
98*0Sstevel@tonic-gate dm.df = fixed_form; /* F format. */
99*0Sstevel@tonic-gate dm.ndigits = ndigits; /* Number of digits after point. */
100*0Sstevel@tonic-gate quadruple_to_decimal(arg, &dm, &dr, &ef);
101*0Sstevel@tonic-gate *sign = dr.sign;
102*0Sstevel@tonic-gate switch (dr.fpclass) {
103*0Sstevel@tonic-gate case fp_normal:
104*0Sstevel@tonic-gate case fp_subnormal:
105*0Sstevel@tonic-gate if (ndigits >= 0)
106*0Sstevel@tonic-gate *decpt = dr.ndigits - ndigits;
107*0Sstevel@tonic-gate else
108*0Sstevel@tonic-gate *decpt = dr.ndigits;
109*0Sstevel@tonic-gate for (i = 0; i < dr.ndigits; i++)
110*0Sstevel@tonic-gate buf[i] = dr.ds[i];
111*0Sstevel@tonic-gate buf[dr.ndigits] = 0;
112*0Sstevel@tonic-gate break;
113*0Sstevel@tonic-gate case fp_zero:
114*0Sstevel@tonic-gate *decpt = 0;
115*0Sstevel@tonic-gate buf[0] = '0';
116*0Sstevel@tonic-gate for (i = 1; i < ndigits; i++)
117*0Sstevel@tonic-gate buf[i] = '0';
118*0Sstevel@tonic-gate buf[i] = 0;
119*0Sstevel@tonic-gate break;
120*0Sstevel@tonic-gate case fp_infinity:
121*0Sstevel@tonic-gate *decpt = 0;
122*0Sstevel@tonic-gate if (ndigits < 8)
123*0Sstevel@tonic-gate buf = "Inf";
124*0Sstevel@tonic-gate else
125*0Sstevel@tonic-gate buf = "Infinity";
126*0Sstevel@tonic-gate break;
127*0Sstevel@tonic-gate case fp_quiet:
128*0Sstevel@tonic-gate case fp_signaling:
129*0Sstevel@tonic-gate *decpt = 0;
130*0Sstevel@tonic-gate buf = "NaN";
131*0Sstevel@tonic-gate break;
132*0Sstevel@tonic-gate }
133*0Sstevel@tonic-gate return buf; /* For compatibility with fcvt. */
134*0Sstevel@tonic-gate }
135*0Sstevel@tonic-gate
136*0Sstevel@tonic-gate extern void _gcvt();
137*0Sstevel@tonic-gate
138*0Sstevel@tonic-gate char *
qgconvert(number,ndigit,trailing,buf)139*0Sstevel@tonic-gate qgconvert(number, ndigit, trailing, buf)
140*0Sstevel@tonic-gate quadruple *number;
141*0Sstevel@tonic-gate int ndigit, trailing;
142*0Sstevel@tonic-gate char *buf;
143*0Sstevel@tonic-gate {
144*0Sstevel@tonic-gate decimal_mode dm;
145*0Sstevel@tonic-gate decimal_record dr;
146*0Sstevel@tonic-gate fp_exception_field_type fef;
147*0Sstevel@tonic-gate
148*0Sstevel@tonic-gate dm.rd = fp_direction;
149*0Sstevel@tonic-gate dm.df = floating_form;
150*0Sstevel@tonic-gate dm.ndigits = ndigit;
151*0Sstevel@tonic-gate quadruple_to_decimal(number, &dm, &dr, &fef);
152*0Sstevel@tonic-gate _gcvt(ndigit, &dr, trailing, buf);
153*0Sstevel@tonic-gate return (buf);
154*0Sstevel@tonic-gate }
155