www.pudn.com > system.rar > atol.c

/****************************************************************************/ 
/*  atol v2.54                                                              */ 
/*  Copyright (c) 1993-2004 Texas Instruments Incorporated                  */ 
/****************************************************************************/ 
#include  
#include  
 
_CODE_ACCESS long atol(const char *st) 
{ 
    long result = 0; 
    char cp; 
    int  sign; 
 
    while (_isspace(*st)) ++st;  /* SKIP WHITE SPACE */ 
 
    if (sign = ((cp = *st) == '-')) cp = *++st; 
    else if (cp == '+')             cp = *++st; 
 
    while (_isdigit(cp)) 
    { 
        result *= 10; 
        result += cp - '0'; 
        cp = *++st; 
    } 
 
    if (sign) result *= -1; 
    return result; 
}