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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
/*
* This file has been modified for the cdrkit suite.
*
* The behaviour and appearence of the program code below can differ to a major
* extent from the version distributed by the original author(s).
*
* For details, see Changelog file distributed with the cdrkit package. If you
* received this file from another source then ask the distributing person for
* a log of modifications.
*
*/
/* @(#)astoll.c 1.3 03/06/15 Copyright 1985, 2000-2003 J. Schilling */
/*
* astoll() converts a string to long long
*
* Leading tabs and spaces are ignored.
* Both return pointer to the first char that has not been used.
* Caller must check if this means a bad conversion.
*
* leading "+" is ignored
* leading "0" makes conversion octal (base 8)
* leading "0x" makes conversion hex (base 16)
*
* Llong is silently reverted to long if the compiler does not
* support long long.
*
* Copyright (c) 1985, 2000-2003 J. Schilling
*/
/*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2
* as published by the Free Software Foundation.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License along with
* this program; see the file COPYING. If not, write to the Free Software
* Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#include <mconfig.h>
#include <standard.h>
#include <utypes.h>
#include <schily.h>
#define is_space(c) ((c) == ' ' || (c) == '\t')
#define is_digit(c) ((c) >= '0' && (c) <= '9')
#define is_hex(c) (\
((c) >= 'a' && (c) <= 'f') || \
((c) >= 'A' && (c) <= 'F'))
#define to_lower(c) (((c) >= 'A' && (c) <= 'Z') ? (c) - 'A'+'a' : (c))
char *
astoll(s, l)
register const char *s;
Llong *l;
{
return (astollb(s, l, 0));
}
char *
astollb(s, l, base)
register const char *s;
Llong *l;
register int base;
{
int neg = 0;
register Llong ret = (Llong)0;
register int digit;
register char c;
while (is_space(*s))
s++;
if (*s == '+') {
s++;
} else if (*s == '-') {
s++;
neg++;
}
if (base == 0) {
if (*s == '0') {
base = 8;
s++;
if (*s == 'x' || *s == 'X') {
s++;
base = 16;
}
} else {
base = 10;
}
}
for (; (c = *s) != 0; s++) {
if (is_digit(c)) {
digit = c - '0';
} else if (is_hex(c)) {
digit = to_lower(c) - 'a' + 10;
} else {
break;
}
if (digit < base) {
ret *= base;
ret += digit;
} else {
break;
}
}
if (neg)
ret = -ret;
*l = ret;
return ((char *)s);
}
|