added string.atoo (octal version of atoi)

Need to clean up these function names and make them global.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/string.c b/src/string.c
index ba55923c..0c69d1b2 100644
--- a/src/string.c
+++ b/src/string.c
@@ -228,6 +228,17 @@ Word strAtoi( Head *str )
 	return res;
 }
 
+Word strAtoo( Head *str )
+{
+	/* FIXME: need to implement this by hand. There is no null terminator. */
+	char *nulled = (char*)malloc( str->length + 1 );
+	memcpy( nulled, str->data, str->length );
+	nulled[str->length] = 0;
+	int res = strtol( nulled, 0, 8 );
+	free( nulled );
+	return res;
+}
+
 Head *intToStr( Program *prg, Word i )
 {
 	char data[20];