strtol.c
2.62 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
/*
=============================================================================
Copyright (C) 1997-1999 NINTENDO Co.,Ltd.
$RCSfile: strtol.c,v $
$Revision: 1.1.1.1 $
$Date: 2002/10/30 02:07:09 $
=============================================================================
関数名：strtol
-----------------------------------------------------------------------------
書式： #include <stdlib.h>
long strtol(const char *string, char **endptr, int base)
引数： string 変換する文字列
endptr 認識不能文字列へのポインタ格納先
base 2〜36で基数。0で string の書式から基数を得る
戻り値：文字列 string を long 型に変換した値。
説明： 文字列 string を long 型に変換する。
文字列 stringは、次の形式で指定する。
[whitespace][{sign}][{0}][{x | X}][digits]
<whitespace> 空白類文字 (isspace 参照)
<sign> ＋か−
<digits> １桁以上の数値文字
基数 base に0を指定した場合の基数の扱いは、以下の通り。
string の最初が '0' で2文字目が 'x' か `X` でなければ8進数
string の最初が '0' で2文字目が 'x' か 'X' であれば16進数
string の最初が '1' 〜 '9' であれば10進数
数字の一部として認識出来ない文字が現れたところで変換を打ち切る。
endptr が NULL で無いとき、変換を打ち切った文字列へのポインタを
*endptr にセットする。
-----------------------------------------------------------------------------
*/
#include "stdlib.h"
#include "math.h"
#include "ctype.h"
#include "string.h"
static char hexstring[] = {"0123456789abcdefghijklmnopqrstuvwxyz"};
long strtol(const char *string, char **endptr, int base)
{
long a = 1, b = 0;
char c, *d;
while(isspace(*string))
string++;
if (!*string) return 0;
if (*string == '+') string++;
if (*string == '-') {string++; a = -1;}
b = 0;
if (!base) {
if (*string == '0') {
string++;
if (*string == 'x' || *string == 'X') {base = 16; string++;}
else base = 8;
} else base = 10;
}
while(*string) {
if (!isalnum(*string)) break;
c = *string++;
if (c>='A' && c<='Z') c += 'a' - 'A';
d = _nstrchr(hexstring, c);
if (d == NULL) {string --; break;}
c = d - &hexstring[0];
if (c >= base) {string --; break;}
if (b > (LNG_MAX-c)/base) {
if (a==1) return LNG_MAX;
else return -LNG_MAX-1;
}
b *= base;
b += c;
}
b *= a;
if (endptr != NULL) *endptr = (char *)string;
return b;
}