Replace str2long with strtol.

Author: davidgiven

lang/pc/comp/LLlex.c

@@ -522,7 +522,7 @@ int LLlex(void)
 				np = &buf[1];
 				while (*np == '0')	/* skip leading zeros */
 					np++;
-				tk->TOK_INT = str2long(np, 10);
+				tk->TOK_INT = strtol(np, NULL, 10);
 				if( (tk->TOK_INT < 0) ||
 				    (strlen(np) > strlen(maxint_str)) ||
 					(strlen(np) == strlen(maxint_str) &&

modules/src/read_em/reade.c

@@ -353,7 +353,7 @@ static int getnumber(int c, struct e_arg *ap)
 	}
 
 	ungetbyte(c);
-	ap->ema_cst = (arith) str2long(str, 10);
+	ap->ema_cst = (arith) strtol(str, NULL, 10);
 	return sp_cst4;
 }
 

modules/src/string/ack_string.h

@@ -8,7 +8,6 @@
 #define __ACK_STRING_INCLUDED__
 
 char *long2str(long l, int b);
-long str2long(char *s, int b);
 char *btscpy(char *b1, char *b2, int n);
 char *bts2str(char *b, int n, char *s);
 

modules/src/string/build.lua

@@ -3,7 +3,6 @@ clibrary {
 	srcs = {
 		"./bts2str.c",
 		"./btscpy.c","./long2str.c",
-		"./str2long.c",
 	},
 	hdrs = { "./ack_string.h", },
 }

modules/src/string/str2long.c

@@ -11,8 +11,6 @@ conversions between strings and row of bytes
 .PP
 .B char *long2str(long l, int b)
 .PP
-.B long str2long(char *s, int b)
-.PP
 .B char *btscpy(char *b1, char *b2, int n)
 .PP
 .B char *bts2str(char *b, int n, char *s)
@@ -60,11 +58,6 @@ This base may be any of 2..16.
 A negative base (in the range -16..-2) indicates that the long must be
 seen as unsigned.
 A pointer to the string is returned.
-.I str2long
-returns the value that is represented in
-.IR s ,
-according to
-.IR base .
 .PP
 .I btscpy
 copies