release ktcc 0.9.26

git-svn-id: svn://kolibrios.org@6424 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/ktcc/trunk/libc/stdlib/strtod.c

@@ -0,0 +1,70 @@
+#include <stdlib.h>
+#include <ctype.h>
+
+double strtod (const char* str, char** endptr)
+{
+	double 	res = 0.0;
+	int		pwr = 0, pwr1, esign = 1, sign = 1;
+
+	while (isspace(*str)) str++;
+
+	if (*str == '-') { sign = -1; str++; }
+		else
+	if (*str == '+') str++;
+
+
+	while (isdigit(*str))
+	{
+		res = 10 * res + (*str - '0');
+		str++;
+	}
+
+	if (*str =='.')
+	{
+		str++;
+		double div = 10.0;
+		while (isdigit(*str))
+		{
+			res += (*str - '0') / div;
+			str++;
+			div *= 10;
+		}
+	}
+
+	if (*str =='e' || *str =='E')
+	{
+		str++;
+		if (*str == '-') { esign = -1; str++; }
+			else
+		if (*str == '+') str++;
+
+		while (isdigit(*str))
+		{
+			pwr = 10.0 * pwr + (*str - '0');
+			str++;
+		}
+
+		// fck, i've no pow() yet
+		//  res = res * pow(10, pwr);
+		for (pwr1 = pwr; pwr1 !=0; pwr1--)
+			if (esign == 1)
+				res *= 10;
+			else
+			    res /= 10;
+
+	}
+	if (endptr)
+		*endptr = (char*)str;
+
+	return res * sign;
+}
+
+long double strtold (const char* str, char** endptr)
+{
+    return (long double)strtod(str, endptr);
+}
+
+float strtof (const char* str, char** endptr)
+{
+    return (float)strtod(str, endptr);
+}