Added strtol()

lang/cem/libcc/gen/LIST

@@ -4,6 +4,7 @@ atof.c
 strtod.c
 atoi.c
 atol.c
+strtol.c
 bcmp.c
 bfill.c
 bmove.c

lang/cem/libcc/gen/strtol.c

@@ -0,0 +1,56 @@
+/*
+ * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ */
+/* $Header$ */
+
+#include	<ctype.h>
+
+long int
+strtol(nptr, endptr, base)
+	register char	*nptr;
+	char		**endptr;
+{
+	register int v;
+	register long val = 0;
+	register int c;
+	int sign = 1;
+	char *startnptr = nptr, *nrstart;
+
+	if (endptr) *endptr = (char *)nptr;
+	while (isspace(*nptr)) nptr++;
+	c = *nptr;
+
+	if (c == '-' || c == '+') {
+		if (c == '-') sign = -1;
+		nptr++;
+	}
+	nrstart = nptr;			/* start of the number */
+
+	/* When base is 0, the syntax determines the actual base */
+	if (base == 0)
+		if (*nptr == '0')
+			if (*++nptr == 'x' || *nptr == 'X') {
+				base = 16;
+				nptr++;
+			}
+			else	base = 8;
+		else	base = 10;
+	else if (base==16 && *nptr=='0' && (*++nptr =='x' || *nptr =='X'))
+		nptr++;
+
+	while (isdigit(c = *nptr) || isalpha(c)) {
+		if (isalpha(c))
+			v = 10 + (isupper(c) ? c - 'A' : c - 'a');
+		else
+			v = c - '0';
+		if (v >= base) break;
+		val = (val * base) + v;
+		nptr++;
+	}
+	if (endptr) {
+		if (nrstart == nptr) *endptr = (char *)startnptr;
+		else *endptr = (char *)nptr;
+	}
+	return (long) sign * val;
+}