source: buchla-68k/orig/IOLIB/ATOL.C@ 0170798

/*
   =============================================================================
        atol.c -- ascii to long conversion
        Version 3 -- 1987-06-29 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stddefs.h"
#include "ctype.h"

long
atol(cp)
register char *cp;
{
        register long n;
        register short sign;

        sign = 0;

        if (*cp EQ '-') {

                ++cp;
                sign = 1;

        } else {

                if (*cp EQ '+')
                ++cp;
        }

        for (n = 0; isdigit(*cp); )
                n = n * 10 + *cp++ - '0';

        return(sign ? -n : n);
}