]>
git.ipfire.org Git - thirdparty/strongswan.git/blob - lib/liblwres/lwinetpton.c
2 * Copyright (C) 1996-2001 Internet Software Consortium.
4 * Permission to use, copy, modify, and distribute this software for any
5 * purpose with or without fee is hereby granted, provided that the above
6 * copyright notice and this permission notice appear in all copies.
8 * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
9 * DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
10 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
11 * INTERNET SOFTWARE CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT,
12 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
13 * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
14 * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
15 * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18 #if defined(LIBC_SCCS) && !defined(lint)
19 static char rcsid
[] = "$Id: lwinetpton.c,v 1.1 2004/03/15 20:35:25 as Exp $";
20 #endif /* LIBC_SCCS and not lint */
27 #include <lwres/net.h>
31 #define NS_IN6ADDRSZ 16
34 * WARNING: Don't even consider trying to compile this on a system where
35 * sizeof(int) < 4. sizeof(int) > 4 is fine; all the world's not a VAX.
38 static int inet_pton4(const char *src
, unsigned char *dst
);
39 static int inet_pton6(const char *src
, unsigned char *dst
);
42 * lwres_net_pton(af, src, dst)
43 * convert from presentation format (which usually means ASCII printable)
44 * to network format (which is usually some kind of binary format).
46 * 1 if the address was valid for the specified address family
47 * 0 if the address wasn't valid (`dst' is untouched in this case)
48 * -1 if some other error occurred (`dst' is untouched in this case, too)
53 lwres_net_pton(int af
, const char *src
, void *dst
) {
56 return (inet_pton4(src
, dst
));
58 return (inet_pton6(src
, dst
));
67 * inet_pton4(src, dst)
68 * like inet_aton() but without all the hexadecimal and shorthand.
70 * 1 if `src' is a valid dotted quad, else 0.
72 * does not touch `dst' unless it's returning 1.
77 inet_pton4(const char *src
, unsigned char *dst
) {
78 static const char digits
[] = "0123456789";
79 int saw_digit
, octets
, ch
;
80 unsigned char tmp
[NS_INADDRSZ
], *tp
;
85 while ((ch
= *src
++) != '\0') {
88 if ((pch
= strchr(digits
, ch
)) != NULL
) {
89 unsigned int new = *tp
* 10 + (pch
- digits
);
99 } else if (ch
== '.' && saw_digit
) {
109 memcpy(dst
, tmp
, NS_INADDRSZ
);
114 * inet_pton6(src, dst)
115 * convert presentation level address to network order binary form.
117 * 1 if `src' is a valid [RFC1884 2.2] address, else 0.
119 * (1) does not touch `dst' unless it's returning 1.
120 * (2) :: in a full address is silently ignored.
122 * inspired by Mark Andrews.
127 inet_pton6(const char *src
, unsigned char *dst
) {
128 static const char xdigits_l
[] = "0123456789abcdef",
129 xdigits_u
[] = "0123456789ABCDEF";
130 unsigned char tmp
[NS_IN6ADDRSZ
], *tp
, *endp
, *colonp
;
131 const char *xdigits
, *curtok
;
135 memset((tp
= tmp
), '\0', NS_IN6ADDRSZ
);
136 endp
= tp
+ NS_IN6ADDRSZ
;
138 /* Leading :: requires some special handling. */
145 while ((ch
= *src
++) != '\0') {
148 if ((pch
= strchr((xdigits
= xdigits_l
), ch
)) == NULL
)
149 pch
= strchr((xdigits
= xdigits_u
), ch
);
152 val
|= (pch
- xdigits
);
166 if (tp
+ NS_INT16SZ
> endp
)
168 *tp
++ = (unsigned char) (val
>> 8) & 0xff;
169 *tp
++ = (unsigned char) val
& 0xff;
174 if (ch
== '.' && ((tp
+ NS_INADDRSZ
) <= endp
) &&
175 inet_pton4(curtok
, tp
) > 0) {
178 break; /* '\0' was seen by inet_pton4(). */
183 if (tp
+ NS_INT16SZ
> endp
)
185 *tp
++ = (unsigned char) (val
>> 8) & 0xff;
186 *tp
++ = (unsigned char) val
& 0xff;
188 if (colonp
!= NULL
) {
190 * Since some memmove()'s erroneously fail to handle
191 * overlapping regions, we'll do the shift by hand.
193 const int n
= tp
- colonp
;
196 for (i
= 1; i
<= n
; i
++) {
197 endp
[- i
] = colonp
[n
- i
];
204 memcpy(dst
, tmp
, NS_IN6ADDRSZ
);