输入一个字符串，输出长型整数。

long   atol(char   *str)

{  

char   *p   =   str;  

long   l=1;m=0;  

if   (*p=='-')   

{  

l=-1;  

  ++p;  

  }  

while(isDigit(*p))

{  

  m   =   m*10   +   p;  

++p;  

  }  

if(!p)   

return   m*l;  

 else   

return   error;  

}