1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #include "sfhdr.h"
23*b30d1939SAndy Fiddaman
24*b30d1939SAndy Fiddaman #if __STD_C
sffcvt(double dval,int n_digit,int * decpt,int * sign)25*b30d1939SAndy Fiddaman char *sffcvt(double dval, int n_digit, int* decpt, int* sign)
26*b30d1939SAndy Fiddaman #else
27*b30d1939SAndy Fiddaman char *sffcvt(dval,n_digit,decpt,sign)
28*b30d1939SAndy Fiddaman double dval; /* value to convert */
29*b30d1939SAndy Fiddaman int n_digit; /* number of digits wanted */
30*b30d1939SAndy Fiddaman int* decpt; /* to return decimal point */
31*b30d1939SAndy Fiddaman int* sign; /* to return sign */
32*b30d1939SAndy Fiddaman #endif
33*b30d1939SAndy Fiddaman {
34*b30d1939SAndy Fiddaman int len;
35*b30d1939SAndy Fiddaman static char buf[SF_MAXDIGITS];
36*b30d1939SAndy Fiddaman
37*b30d1939SAndy Fiddaman return _sfcvt(&dval,buf,sizeof(buf),n_digit,decpt,sign,&len,0);
38*b30d1939SAndy Fiddaman }
39