diff options
Diffstat (limited to 'src/stdlib')
| -rw-r--r-- | src/stdlib/ecvt.c | 19 | ||||
| -rw-r--r-- | src/stdlib/fcvt.c | 25 | ||||
| -rw-r--r-- | src/stdlib/gcvt.c | 8 | 
3 files changed, 52 insertions, 0 deletions
diff --git a/src/stdlib/ecvt.c b/src/stdlib/ecvt.c new file mode 100644 index 00000000..48e70cd8 --- /dev/null +++ b/src/stdlib/ecvt.c @@ -0,0 +1,19 @@ +#include <stdlib.h> +#include <stdio.h> + +char *ecvt(double x, int n, int *dp, int *sign) +{ +	static char buf[16]; +	char tmp[32]; +	int i, j; + +	if (n-1U > 15) n = 15; +	sprintf(tmp, "%.*e", n-1, x); +	i = *sign = (tmp[0]=='-'); +	for (j=0; tmp[i]!='e'; j+=(tmp[i++]!='.')) +		buf[j] = tmp[i]; +	buf[j] = 0; +	*dp = atoi(tmp+i+1); + +	return buf; +} diff --git a/src/stdlib/fcvt.c b/src/stdlib/fcvt.c new file mode 100644 index 00000000..003aa5aa --- /dev/null +++ b/src/stdlib/fcvt.c @@ -0,0 +1,25 @@ +#define _GNU_SOURCE +#include <stdlib.h> +#include <stdio.h> +#include <string.h> + +char *fcvt(double x, int n, int *dp, int *sign) +{ +	char tmp[1500]; +	int i, lz; + +	if (n > 1400U) n = 1400; +	sprintf(tmp, "%.*f", n, x); +	i = (tmp[0] == '-'); +	if (tmp[i] == '0') lz = strspn(tmp+i+2, "0"); +	else lz = -(int)strcspn(tmp+i, "."); + +	if (n<=lz) { +		*sign = i; +		*dp = 0; +		if (n>14U) n = 14; +		return "000000000000000"+14-n; +	} + +	return ecvt(x, n-lz, dp, sign); +} diff --git a/src/stdlib/gcvt.c b/src/stdlib/gcvt.c new file mode 100644 index 00000000..6c075e25 --- /dev/null +++ b/src/stdlib/gcvt.c @@ -0,0 +1,8 @@ +#include <stdlib.h> +#include <stdio.h> + +char *gcvt(double x, int n, char *b) +{ +	sprintf(b, "%.*g", n, x); +	return b; +}  | 
