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 */
217c478bd9Sstevel@tonic-gate
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
27*7257d1b4Sraf /* Copyright (c) 1988 AT&T */
28*7257d1b4Sraf /* All Rights Reserved */
29*7257d1b4Sraf
307c478bd9Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI"
317c478bd9Sstevel@tonic-gate
327c478bd9Sstevel@tonic-gate /*
337c478bd9Sstevel@tonic-gate * ecvt converts to decimal
347c478bd9Sstevel@tonic-gate * the number of digits is specified by ndigit
357c478bd9Sstevel@tonic-gate * decpt is set to the position of the decimal point
367c478bd9Sstevel@tonic-gate * sign is set to 0 for positive, 1 for negative
377c478bd9Sstevel@tonic-gate *
387c478bd9Sstevel@tonic-gate */
397c478bd9Sstevel@tonic-gate
40*7257d1b4Sraf #pragma weak _ecvt = ecvt
41*7257d1b4Sraf #pragma weak _fcvt = fcvt
427c478bd9Sstevel@tonic-gate
43*7257d1b4Sraf #include "lint.h"
447c478bd9Sstevel@tonic-gate #include <sys/types.h>
457c478bd9Sstevel@tonic-gate #include <stdlib.h>
467c478bd9Sstevel@tonic-gate #include <floatingpoint.h>
477c478bd9Sstevel@tonic-gate #include "tsd.h"
487c478bd9Sstevel@tonic-gate
497c478bd9Sstevel@tonic-gate char *
ecvt(number,ndigits,decpt,sign)507c478bd9Sstevel@tonic-gate ecvt(number, ndigits, decpt, sign)
517c478bd9Sstevel@tonic-gate double number;
527c478bd9Sstevel@tonic-gate int ndigits;
537c478bd9Sstevel@tonic-gate int *decpt;
547c478bd9Sstevel@tonic-gate int *sign;
557c478bd9Sstevel@tonic-gate {
567c478bd9Sstevel@tonic-gate char *buf = tsdalloc(_T_ECVT, DECIMAL_STRING_LENGTH, NULL);
577c478bd9Sstevel@tonic-gate
587c478bd9Sstevel@tonic-gate return (econvert(number, ndigits, decpt, sign, buf));
597c478bd9Sstevel@tonic-gate }
607c478bd9Sstevel@tonic-gate
617c478bd9Sstevel@tonic-gate char *
fcvt(number,ndigits,decpt,sign)627c478bd9Sstevel@tonic-gate fcvt(number, ndigits, decpt, sign)
637c478bd9Sstevel@tonic-gate double number;
647c478bd9Sstevel@tonic-gate int ndigits;
657c478bd9Sstevel@tonic-gate int *decpt;
667c478bd9Sstevel@tonic-gate int *sign;
677c478bd9Sstevel@tonic-gate {
687c478bd9Sstevel@tonic-gate char *buf = tsdalloc(_T_ECVT, DECIMAL_STRING_LENGTH, NULL);
697c478bd9Sstevel@tonic-gate char *ptr, *val;
707c478bd9Sstevel@tonic-gate char ch;
717c478bd9Sstevel@tonic-gate int deci_val;
727c478bd9Sstevel@tonic-gate
737c478bd9Sstevel@tonic-gate ptr = fconvert(number, ndigits, decpt, sign, buf);
747c478bd9Sstevel@tonic-gate val = ptr;
757c478bd9Sstevel@tonic-gate deci_val = *decpt;
767c478bd9Sstevel@tonic-gate
777c478bd9Sstevel@tonic-gate while ((ch = *ptr) != '\0') {
787c478bd9Sstevel@tonic-gate if (ch != '0') { /* You execute this if there are no */
797c478bd9Sstevel@tonic-gate /* leading zero's remaining. */
807c478bd9Sstevel@tonic-gate *decpt = deci_val; /* If there are leading zero's */
817c478bd9Sstevel@tonic-gate return (ptr); /* gets updated. */
827c478bd9Sstevel@tonic-gate }
837c478bd9Sstevel@tonic-gate ptr++;
847c478bd9Sstevel@tonic-gate deci_val--;
857c478bd9Sstevel@tonic-gate }
867c478bd9Sstevel@tonic-gate return (val);
877c478bd9Sstevel@tonic-gate }
887c478bd9Sstevel@tonic-gate
897c478bd9Sstevel@tonic-gate char *
qecvt(number,ndigits,decpt,sign)907c478bd9Sstevel@tonic-gate qecvt(number, ndigits, decpt, sign)
917c478bd9Sstevel@tonic-gate long double number;
927c478bd9Sstevel@tonic-gate int ndigits;
937c478bd9Sstevel@tonic-gate int *decpt;
947c478bd9Sstevel@tonic-gate int *sign;
957c478bd9Sstevel@tonic-gate {
967c478bd9Sstevel@tonic-gate char *buf = tsdalloc(_T_ECVT, DECIMAL_STRING_LENGTH, NULL);
977c478bd9Sstevel@tonic-gate
987c478bd9Sstevel@tonic-gate return (qeconvert(&number, ndigits, decpt, sign, buf));
997c478bd9Sstevel@tonic-gate }
1007c478bd9Sstevel@tonic-gate
1017c478bd9Sstevel@tonic-gate char *
qfcvt(number,ndigits,decpt,sign)1027c478bd9Sstevel@tonic-gate qfcvt(number, ndigits, decpt, sign)
1037c478bd9Sstevel@tonic-gate long double number;
1047c478bd9Sstevel@tonic-gate int ndigits;
1057c478bd9Sstevel@tonic-gate int *decpt;
1067c478bd9Sstevel@tonic-gate int *sign;
1077c478bd9Sstevel@tonic-gate {
1087c478bd9Sstevel@tonic-gate char *buf = tsdalloc(_T_ECVT, DECIMAL_STRING_LENGTH, NULL);
1097c478bd9Sstevel@tonic-gate
1107c478bd9Sstevel@tonic-gate return (qfconvert(&number, ndigits, decpt, sign, buf));
1117c478bd9Sstevel@tonic-gate }
1127c478bd9Sstevel@tonic-gate
1137c478bd9Sstevel@tonic-gate char *
qgcvt(number,ndigits,buffer)1147c478bd9Sstevel@tonic-gate qgcvt(number, ndigits, buffer)
1157c478bd9Sstevel@tonic-gate long double number;
1167c478bd9Sstevel@tonic-gate int ndigits;
1177c478bd9Sstevel@tonic-gate char *buffer;
1187c478bd9Sstevel@tonic-gate {
1197c478bd9Sstevel@tonic-gate return (qgconvert(&number, ndigits, 0, buffer));
1207c478bd9Sstevel@tonic-gate }
121