1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768 |
- /* $Id$ */
- /*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- * This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- * Dr. Andrew S. Tanenbaum
- * Wiskundig Seminarium
- * Vrije Universiteit
- * Postbox 7161
- * 1007 MC Amsterdam
- * The Netherlands
- *
- */
- /* Author: J.W. Stevenson */
- #include <pc_err.h>
- #include <pc_file.h>
- extern _wstrin();
- extern char *_fcvt();
- #define assert(x) /* nothing */
- #if __STDC__
- #include <float.h>
- #define HUGE_DIG DBL_MAX_10_EXP /* log10(maxreal) */
- #else
- #define HUGE_DIG 400 /* log10(maxreal) */
- #endif
- #define PREC_DIG 80 /* the maximum digits returned by _fcvt() */
- #define FILL_CHAR '0' /* char printed if all of _fcvt() used */
- #define BUFSIZE HUGE_DIG + PREC_DIG + 3
- _wrf(n,w,r,f) int n,w; double r; struct file *f; {
- char *p,*b; int s,d; char buf[BUFSIZE];
- if ( n < 0 || w < 0) _trp(EWIDTH);
- p = buf;
- if (n > PREC_DIG)
- n = PREC_DIG;
- b = _fcvt(r,n,&d,&s);
- assert(abs(d) <= HUGE_DIG);
- if (s)
- *p++ = '-';
- if (d<=0)
- *p++ = '0';
- else
- do
- *p++ = (*b ? *b++ : FILL_CHAR);
- while (--d > 0);
- if (n > 0)
- *p++ = '.';
- while (++d <= 0) {
- if (--n < 0)
- break;
- *p++ = '0';
- }
- while (--n >= 0) {
- *p++ = (*b ? *b++ : FILL_CHAR);
- assert(p <= buf+BUFSIZE);
- }
- _wstrin(w,(int)(p-buf),buf,f);
- }
|