1 /* $NetBSD: strtoull.c,v 1.3 2023/06/19 21:41:45 christos Exp $ */
2
3 /*-
4 * Copyright (c) 1992, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Copyright (c) 2011 The FreeBSD Foundation
8 * All rights reserved.
9 * Portions of this software were developed by David Chisnall
10 * under sponsorship from the FreeBSD Foundation.
11 *
12 * Redistribution and use in source and binary forms, with or without
13 * modification, are permitted provided that the following conditions
14 * are met:
15 * 1. Redistributions of source code must retain the above copyright
16 * notice, this list of conditions and the following disclaimer.
17 * 2. Redistributions in binary form must reproduce the above copyright
18 * notice, this list of conditions and the following disclaimer in the
19 * documentation and/or other materials provided with the distribution.
20 * 4. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
23 *
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 * SUCH DAMAGE.
35 */
36
37 #include <config.h>
38
39 #include <string.h>
40
41 #include <krb5/roken.h>
42
43 #ifndef HAVE_STRTOULL
44
45 /* #include <sys/cdefs.h> */
46
47 #include <limits.h>
48 #include <errno.h>
49 #include <ctype.h>
50 #include <stdlib.h>
51 #include <stdint.h>
52
53 /*
54 * Convert a string to an unsigned long long integer.
55 *
56 * Assumes that the upper and lower case
57 * alphabets and digits are each contiguous.
58 */
59 ROKEN_LIB_FUNCTION unsigned long long ROKEN_LIB_CALL
strtoull(const char * nptr,char ** endptr,int base)60 strtoull(const char * nptr, char ** endptr, int base)
61 {
62 const char *s;
63 unsigned long long acc;
64 char c;
65 unsigned long long cutoff;
66 int neg, any, cutlim;
67
68 /*
69 * See strtoq for comments as to the logic used.
70 */
71 s = nptr;
72 do {
73 c = *s++;
74 } while (isspace((unsigned char)c));
75 if (c == '-') {
76 neg = 1;
77 c = *s++;
78 } else {
79 neg = 0;
80 if (c == '+')
81 c = *s++;
82 }
83 if ((base == 0 || base == 16) &&
84 c == '0' && (*s == 'x' || *s == 'X') &&
85 ((s[1] >= '0' && s[1] <= '9') ||
86 (s[1] >= 'A' && s[1] <= 'F') ||
87 (s[1] >= 'a' && s[1] <= 'f'))) {
88 c = s[1];
89 s += 2;
90 base = 16;
91 }
92 if (base == 0)
93 base = c == '0' ? 8 : 10;
94 acc = any = 0;
95 if (base < 2 || base > 36)
96 goto noconv;
97
98 cutoff = ULLONG_MAX / base;
99 cutlim = ULLONG_MAX % base;
100 for ( ; ; c = *s++) {
101 if (c >= '0' && c <= '9')
102 c -= '0';
103 else if (c >= 'A' && c <= 'Z')
104 c -= 'A' - 10;
105 else if (c >= 'a' && c <= 'z')
106 c -= 'a' - 10;
107 else
108 break;
109 if (c >= base)
110 break;
111 if (any < 0 || acc > cutoff || (acc == cutoff && c > cutlim))
112 any = -1;
113 else {
114 any = 1;
115 acc *= base;
116 acc += c;
117 }
118 }
119 if (any < 0) {
120 acc = ULLONG_MAX;
121 errno = ERANGE;
122 } else if (!any) {
123 noconv:
124 errno = EINVAL;
125 } else if (neg)
126 acc = -acc;
127 if (endptr != NULL)
128 *endptr = (char *)(any ? s - 1 : nptr);
129 return (acc);
130 }
131 #endif /* !HAVE_STRTOULL */
132