Initial revision

lang/cem/libcc/stdio/fltpr.c

@@ -0,0 +1,57 @@
+#ifndef NOFLOAT
+extern char     *fcvt();
+extern char     *ecvt();
+
+char *
+_pfloat(r,s,n,b)
+	double r;
+	register char *s;
+{
+	int sign,dp,i; char *s1;
+
+	if (b == 0)
+		n = 6;
+	s1 = fcvt(r,n,&dp,&sign);
+	if (sign)
+		*s++ = '-';
+	if (dp<=0)
+		*s++ = '0';
+	for (i=dp; i>0; i--)
+		*s++ = *s1++;
+	if ((i=n) > 0)
+		*s++ = '.';
+	while (++dp <= 0) {
+		if (--i<0)
+			break;
+		*s++ = '0';
+	}
+	while (--i >= 0)
+		*s++ = *s1++;
+	return(s);
+}
+
+char *_pscien(r,s,n,b) float r; char *s; {
+	int sign,dp; char *s1;
+
+	if (b == 0)
+		n = 7;
+	else    n += 1;
+	s1 = ecvt(r,n,&dp,&sign);
+	if (sign)
+		*s++ = '-';
+	*s++ = *s1++;
+	*s++ = '.';
+	while (--n>0)
+		*s++ = *s1++;
+	*s++ = 'e';
+	if ( r ) --dp ;
+	if ( dp<0 ) {
+		*s++ = '-' ; dp= -dp ;
+	} else {
+		*s++ = '+' ;
+	}
+	*s++ = '0' + (dp/10);
+	*s++ = '0' + (dp%10);
+	return(s);
+}
+#endif