1 files changed, 60 insertions, 0 deletions
diff --git a/src/stdlib/strtol.c b/src/stdlib/strtol.c
new file mode 100644
index 00000000..247ac5de
--- /dev/null
+++ b/src/stdlib/strtol.c
@@ -0,0 +1,60 @@
+#include <stdlib.h>
+#include "limits.h"
+#include "errno.h"
+
+#if defined __STDC_VERSION__ && 199912L <= __STDC_VERSION__
+#include "inttypes.h"
+#else
+typedef long intmax_t;
+#define strtoimax(n, e, b) ((long)n & (long)e & (long)b) ? 0 : 0
+#endif
+
+/** convert string to long integer **/
+
+long int strtol(const char * restrict nptr, char ** restrict endptr, int base)
+{
+	/* FIXME: forward dependency on 9899-1999 */
+	intmax_t ret = strtoimax(nptr, endptr, base);
+
+	if (ret < LONG_MIN) {
+		ret = LONG_MIN;
+		errno = ERANGE;	/* converted value out of range */
+	}
+
+	if (ret > LONG_MAX) {
+		ret = LONG_MAX;
+		errno = ERANGE; /* converted value out of range */
+	}
+
+	return (long int)ret;
+}
+
+/***
+converts the string at ARGUMENT(nptr) to a TYPE(long int).
+Leading whitespace is ignored. The first character that is not a valid character
+for a integer constant and any characters after it are also ignored. A pointer
+to the first invalid character is stored in ARGUMENT(endptr), unless
+ARGUMENT(endptr) is CONSTANT(NULL).
+
+The conversion is conducted in the base specified by ARGUMENT(base).
+Specifying 0 for ARGUMENT(base) will check the first few characters of
+ARGUMENT(nptr) to determine the conversion base. If it begins with LITERAL(0x)
+or LITERAL(0X), a base of 16 will be used. Otherwise, if it begins with
+CHAR(0), base 8 will be used. If neither of those occur, base 10 will be used.
+
+If ARGUMENT(base) is specified, it must be in the range [2,36]. For bases
+larger than 10, the letters CHAR(a) through CHAR(z) and their uppercase
+conversions are assigned the values 10 through 35. Base 16 numbers may be
+preceded by LITERAL(0x) or LITERAL(0X).
+
+The numeric string consists of an optional leading plus or minus followed by
+digits in the appropriate base.
+***/
+
+/*
+RETURN(ZERO, no conversion could be performed)
+RETURN(CONSTANT(LONG_MAX), converted value too large)
+RETURN(CONSTANT(LONG_MIN), converted value too small)
+RETURN(a TYPE(long int) value, the converted value)
+STDC(1)
+*/