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