2
* Copyright (C) 2004 Internet Systems Consortium, Inc. ("ISC")
3
* Copyright (C) 1996-2003 Internet Software Consortium.
5
* Permission to use, copy, modify, and distribute this software for any
6
* purpose with or without fee is hereby granted, provided that the above
7
* copyright notice and this permission notice appear in all copies.
9
* THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10
* REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11
* AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12
* INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13
* LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14
* OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15
* PERFORMANCE OF THIS SOFTWARE.
18
#if defined(LIBC_SCCS) && !defined(lint)
20
"$Id: inet_pton.c,v 1.10.2.4.2.1 2004/03/06 08:14:31 marka Exp $";
21
#endif /* LIBC_SCCS and not lint */
32
#define NS_IN6ADDRSZ 16
35
* WARNING: Don't even consider trying to compile this on a system where
36
* sizeof(int) < 4. sizeof(int) > 4 is fine; all the world's not a VAX.
39
static int inet_pton4(const char *src, unsigned char *dst);
40
static int inet_pton6(const char *src, unsigned char *dst);
43
* isc_net_pton(af, src, dst)
44
* convert from presentation format (which usually means ASCII printable)
45
* to network format (which is usually some kind of binary format).
47
* 1 if the address was valid for the specified address family
48
* 0 if the address wasn't valid (`dst' is untouched in this case)
49
* -1 if some other error occurred (`dst' is untouched in this case, too)
54
isc_net_pton(int af, const char *src, void *dst) {
57
return (inet_pton4(src, dst));
59
return (inet_pton6(src, dst));
68
* inet_pton4(src, dst)
69
* like inet_aton() but without all the hexadecimal and shorthand.
71
* 1 if `src' is a valid dotted quad, else 0.
73
* does not touch `dst' unless it's returning 1.
78
inet_pton4(const char *src, unsigned char *dst) {
79
static const char digits[] = "0123456789";
80
int saw_digit, octets, ch;
81
unsigned char tmp[NS_INADDRSZ], *tp;
86
while ((ch = *src++) != '\0') {
89
if ((pch = strchr(digits, ch)) != NULL) {
90
unsigned int new = *tp * 10 + (pch - digits);
92
if (saw_digit && *tp == 0)
96
*tp = (unsigned char) new;
102
} else if (ch == '.' && saw_digit) {
112
memcpy(dst, tmp, NS_INADDRSZ);
117
* inet_pton6(src, dst)
118
* convert presentation level address to network order binary form.
120
* 1 if `src' is a valid [RFC1884 2.2] address, else 0.
122
* (1) does not touch `dst' unless it's returning 1.
123
* (2) :: in a full address is silently ignored.
125
* inspired by Mark Andrews.
130
inet_pton6(const char *src, unsigned char *dst) {
131
static const char xdigits_l[] = "0123456789abcdef",
132
xdigits_u[] = "0123456789ABCDEF";
133
unsigned char tmp[NS_IN6ADDRSZ], *tp, *endp, *colonp;
134
const char *xdigits, *curtok;
138
memset((tp = tmp), '\0', NS_IN6ADDRSZ);
139
endp = tp + NS_IN6ADDRSZ;
141
/* Leading :: requires some special handling. */
148
while ((ch = *src++) != '\0') {
151
if ((pch = strchr((xdigits = xdigits_l), ch)) == NULL)
152
pch = strchr((xdigits = xdigits_u), ch);
155
val |= (pch - xdigits);
169
if (tp + NS_INT16SZ > endp)
171
*tp++ = (unsigned char) ((val >> 8) & 0xff);
172
*tp++ = (unsigned char) (val & 0xff);
177
if (ch == '.' && ((tp + NS_INADDRSZ) <= endp) &&
178
inet_pton4(curtok, tp) > 0) {
181
break; /* '\0' was seen by inet_pton4(). */
186
if (tp + NS_INT16SZ > endp)
188
*tp++ = (unsigned char) ((val >> 8) & 0xff);
189
*tp++ = (unsigned char) (val & 0xff);
191
if (colonp != NULL) {
193
* Since some memmove()'s erroneously fail to handle
194
* overlapping regions, we'll do the shift by hand.
196
const int n = tp - colonp;
201
for (i = 1; i <= n; i++) {
202
endp[- i] = colonp[n - i];
209
memcpy(dst, tmp, NS_IN6ADDRSZ);