lang/cem/libcc.ansi/stdio/ecvt.c

   1 /* $Id: ecvt.c,v 1.5 1994/06/24 11:48:33 ceriel Exp $ */
   2
   3 #ifndef NOFLOAT
   4
   5 #include        "../stdlib/ext_fmt.h"
   6 void _dbl_ext_cvt(double value, struct EXTEND *e);
   7 char *_ext_str_cvt(struct EXTEND *e, int ndigit, int *decpt, int * sign, int ecvtflag);
   8
   9 static char *
  10 cvt(long double value, int ndigit, int *decpt, int *sign, int ecvtflag)
  11 {
  12         struct EXTEND e;
  13
  14         _dbl_ext_cvt(value, &e);
  15         return _ext_str_cvt(&e, ndigit, decpt, sign, ecvtflag);
  16 }
  17
  18 char *
  19 _ecvt(long double value, int ndigit, int *decpt, int *sign)
  20 {
  21
  22         return cvt(value, ndigit, decpt, sign, 1);
  23 }
  24
  25 char *
  26 _fcvt(long double value, int ndigit, int *decpt, int *sign)
  27 {
  28         return cvt(value, ndigit, decpt, sign, 0);
  29 }
  30
  31 #endif  /* NOFLOAT */