1 /* Copyright (c) 1996 by Internet Software Consortium.
3 * Permission to use, copy, modify, and distribute this software for any
4 * purpose with or without fee is hereby granted, provided that the above
5 * copyright notice and this permission notice appear in all copies.
7 * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
8 * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
9 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
10 * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
11 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
12 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
13 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
17 #if defined(LIBC_SCCS) && !defined(lint)
18 static char rcsid
[] = "$Id$";
19 #endif /* LIBC_SCCS and not lint */
21 #include <sys/param.h>
22 #include <sys/types.h>
23 #include <sys/socket.h>
24 #include <netinet/in.h>
25 #include <arpa/inet.h>
26 #include <arpa/nameser.h>
30 #include <conf/portability.h>
33 * WARNING: Don't even consider trying to compile this on a system where
34 * sizeof(int) < 4. sizeof(int) > 4 is fine; all the world's not a VAX.
37 static int inet_pton4
__P((const char *src
, u_char
*dst
)) internal_function
;
38 static int inet_pton6
__P((const char *src
, u_char
*dst
)) internal_function
;
41 * inet_pton(af, src, dst)
42 * convert from presentation format (which usually means ASCII printable)
43 * to network format (which is usually some kind of binary format).
45 * 1 if the address was valid for the specified address family
46 * 0 if the address wasn't valid (`dst' is untouched in this case)
47 * -1 if some other error occurred (`dst' is untouched in this case, too)
52 inet_pton(af
, src
, dst
)
59 return (inet_pton4(src
, dst
));
61 return (inet_pton6(src
, dst
));
63 __set_errno (EAFNOSUPPORT
);
70 * inet_pton4(src, dst)
71 * like inet_aton() but without all the hexadecimal and shorthand.
73 * 1 if `src' is a valid dotted quad, else 0.
75 * does not touch `dst' unless it's returning 1.
85 int saw_digit
, octets
, ch
;
86 u_char tmp
[INADDRSZ
], *tp
;
91 while ((ch
= *src
++) != '\0') {
93 if (ch
>= '0' && ch
<= '9') {
94 u_int
new = *tp
* 10 + (ch
- '0');
104 } else if (ch
== '.' && saw_digit
) {
115 memcpy(dst
, tmp
, INADDRSZ
);
120 * inet_pton6(src, dst)
121 * convert presentation level address to network order binary form.
123 * 1 if `src' is a valid [RFC1884 2.2] address, else 0.
125 * (1) does not touch `dst' unless it's returning 1.
126 * (2) :: in a full address is silently ignored.
128 * inspired by Mark Andrews.
138 static const char xdigits
[] = "0123456789abcdef";
139 u_char tmp
[IN6ADDRSZ
], *tp
, *endp
, *colonp
;
144 tp
= memset(tmp
, '\0', IN6ADDRSZ
);
145 endp
= tp
+ IN6ADDRSZ
;
147 /* Leading :: requires some special handling. */
154 while ((ch
= tolower (*src
++)) != '\0') {
157 pch
= strchr(xdigits
, ch
);
160 val
|= (pch
- xdigits
);
174 if (tp
+ INT16SZ
> endp
)
176 *tp
++ = (u_char
) (val
>> 8) & 0xff;
177 *tp
++ = (u_char
) val
& 0xff;
182 if (ch
== '.' && ((tp
+ INADDRSZ
) <= endp
) &&
183 inet_pton4(curtok
, tp
) > 0) {
186 break; /* '\0' was seen by inet_pton4(). */
191 if (tp
+ INT16SZ
> endp
)
193 *tp
++ = (u_char
) (val
>> 8) & 0xff;
194 *tp
++ = (u_char
) val
& 0xff;
196 if (colonp
!= NULL
) {
198 * Since some memmove()'s erroneously fail to handle
199 * overlapping regions, we'll do the shift by hand.
201 const int n
= tp
- colonp
;
204 for (i
= 1; i
<= n
; i
++) {
205 endp
[- i
] = colonp
[n
- i
];
212 memcpy(dst
, tmp
, IN6ADDRSZ
);