|
|
1.1 root 1: /****************************************************************************/
2: /* Converts an ASCII Hex string into an unsigned long */
3: /****************************************************************************/
4: unsigned long ahtoul(char *str)
5: {
6: unsigned long l,val=0;
7:
8: while((l=(*str++)|0x20)!=0x20)
9: val=(l&0xf)+(l>>6&1)*9+val*16;
10: return(val);
11: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.