【C语言库函数源代码】

【本程序在Dev C++ 4.9.9.2 下编译通过】

/*

这个函数会将参数nptr字符串根据参数base来转换成长整型数。

参数base范围从2至36，或0。参数base代表采用的进制方式，

如base值为10则采用10进制，若base值为16则采用16进制等。

当base值为0时则是采用10进制做转换，但遇到如’0x’前置

字符则会使用16进制做转换、遇到’0’前置字符而不是’0x’

的时候会使用8进制做转换。一开始strtol()会扫描参数nptr

字符串，跳过前面的空格字符，直到遇上数字或正负符号才

开始做转换，再遇到非数字或字符串结束时('\0')结束转换，

并将结果返回。若参数endptr不为NULL，则会将遇到不合条件

而终止的nptr中的字符指针由endptr返回。

*/

#include

#defineLONG_MAX2147483647L/*0x7FFFFFFF*/

#defineLONG_MIN(-2147483647L-1L) /*-0x80000000*/

intmy_strtol(const char *nptr, char

**endptr, int base)

{

const char *p = nptr;

unsigned long ret;

int ch;

unsigned long Overflow;

int sign = 0,

flag, LimitRemainder;

/*

跳过前面多余的空格，并判断正负符号。

如果base是0，允许以0x开头的十六进制数，

以0开头的8进制数。

如果base是16，则同时也允许以0x开头。

*/

do

{

ch = *p++;

} while

(isspace(ch));

if (ch ==

'-')

{

sign = 1;

ch = *p++;

}

else if (ch == '+')

ch = *p++;

if ((base ==

0 || base == 16) &&

ch == '0' && (*p == 'x' || *p ==

'X'))

{

ch = p[1];

p += 2;

base = 16;

}

if (base ==

0)

base = ch == '0' ? 8 : 10;

Overflow = sign ? -(unsigned

long)LONG_MIN : LONG_MAX;

LimitRemainder = Overflow % (unsigned long)base;

Overflow /= (unsigned

long)base;

for (ret = 0,

flag = 0;; ch = *p++)

{

/*把当前字符转换为相应运算中需要的值。*/

if

(isdigit(ch))

ch -= '0';

else if (isalpha(ch))

ch -= isupper(ch) ? 'A' - 10 : 'a' - 10;

else

break;

if (ch

>= base)

break;

/*如果产生溢出，则置标志位，以后不再做计算。*/

if (flag

< 0 || ret > Overflow || (ret == Overflow && ch >

LimitRemainder))

flag = -1;

else

{

flag = 1;

ret *= base;

ret += ch;

}

}

/*

如果溢出，则返回相应的Overflow的峰值。

没有溢出，如是符号位为负，则转换为负数。

*/

if (flag <

0)

ret = sign ? LONG_MIN : LONG_MAX;

else if (sign)

ret = -ret;

/*

如字符串不为空，则*endptr等于指向nptr结束

符的指针值；否则*endptr等于nptr的首地址。

*/

if (endptr !=

0)

*endptr = (char

*)(flag ?(p - 1) : nptr);

return ret;

}

intmain()

{

char * str =

"2147483647";

printf("%d\n",my_strtol(str, NULL,

0));

str = "-2147483648";

printf("%d\n",my_strtol(str, NULL,

0));

str = "0x7FFFFFFF";

printf("%d\n",my_strtol(str, NULL,

0));

str = "-0x80000000";

printf("%d\n",my_strtol(str, NULL,

0));

str = "0x7FFFFFFF";

printf("%d\n",my_strtol(str, NULL,

16));

str = "-0x80000000";

printf("%d\n",my_strtol(str, NULL,

16));

str = "017777777777";

printf("%d\n",my_strtol(str, NULL,

0));

str = "-020000000000";

printf("%d\n",my_strtol(str, NULL,

0));

system("pause");

return 0;

}