1 files changed, 96 insertions, 0 deletions
diff --git a/private/crt32/convert/atox.c b/private/crt32/convert/atox.c
new file mode 100644
index 000000000..4e3934735
--- /dev/null
+++ b/private/crt32/convert/atox.c
@@ -0,0 +1,96 @@
+/***
+*atox.c - atoi and atol conversion
+*
+*	Copyright (c) 1989-1992, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	Converts a character string into an int or long.
+*
+*Revision History:
+*	06-05-89  PHG	Module created, based on asm version
+*	03-05-90  GJF	Fixed calling type, added #include <cruntime.h> and
+*			cleaned up the formatting a bit. Also, fixed the
+*			copyright.
+*	09-27-90  GJF	New-style function declarators.
+*	10-21-92  GJF	Fixed conversions of char to int.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <stdlib.h>
+#include <ctype.h>
+
+/***
+*long atol(char *nptr) - Convert string to long
+*
+*Purpose:
+*	Converts ASCII string pointed to by nptr to binary.
+*	Overflow is not detected.
+*
+*Entry:
+*	nptr = ptr to string to convert
+*
+*Exit:
+*	return long int value of the string
+*
+*Exceptions:
+*	None - overflow is not detected.
+*
+*******************************************************************************/
+
+long _CRTAPI1 atol(
+	const char *nptr
+	)
+{
+	int c;			/* current char */
+	long total;		/* current total */
+	int sign;		/* if '-', then negative, otherwise positive */
+
+	/* skip whitespace */
+	while ( isspace((int)(unsigned char)*nptr) )
+		++nptr;
+
+	c = (int)(unsigned char)*nptr++;
+	sign = c;		/* save sign indication */
+	if (c == '-' || c == '+')
+		c = (int)(unsigned char)*nptr++;	/* skip sign */
+
+	total = 0;
+
+	while (isdigit(c)) {
+		total = 10 * total + (c - '0'); 	/* accumulate digit */
+		c = (int)(unsigned char)*nptr++;	/* get next char */
+	}
+
+	if (sign == '-')
+		return -total;
+	else
+		return total;	/* return result, negated if necessary */
+}
+
+
+/***
+*int atoi(char *nptr) - Convert string to long
+*
+*Purpose:
+*	Converts ASCII string pointed to by nptr to binary.
+*	Overflow is not detected.  Because of this, we can just use
+*	atol().
+*
+*Entry:
+*	nptr = ptr to string to convert
+*
+*Exit:
+*	return int value of the string
+*
+*Exceptions:
+*	None - overflow is not detected.
+*
+*******************************************************************************/
+
+int _CRTAPI1 atoi(
+	const char *nptr
+	)
+{
+	return (int)atol(nptr);
+}