/* Copyright (c) 1996 by Internet Software Consortium. * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS * SOFTWARE. */ #include "apr_private.h" #include "apr_arch_networkio.h" #if APR_HAVE_SYS_TYPES_H #include #endif #if APR_HAVE_SYS_SOCKET_H #include #endif #if APR_HAVE_NETINET_IN_H #include #endif #if APR_HAVE_ARPA_INET_H #include #endif #include #if APR_HAVE_ERRNO_H #include #endif #ifndef IN6ADDRSZ #define IN6ADDRSZ 16 #endif #ifndef INT16SZ #define INT16SZ sizeof(apr_int16_t) #endif #ifndef INADDRSZ #define INADDRSZ 4 #endif #ifndef __P #define __P(x) x #endif #if !defined(EAFNOSUPPORT) && defined(WSAEAFNOSUPPORT) #define EAFNOSUPPORT WSAEAFNOSUPPORT #endif /* * WARNING: Don't even consider trying to compile this on a system where * sizeof(int) < 4. sizeof(int) > 4 is fine; all the world's not a VAX. */ static int inet_pton4 __P((const char *src, unsigned char *dst)); #if APR_HAVE_IPV6 static int inet_pton6 __P((const char *src, unsigned char *dst)); #endif /* int * inet_pton(af, src, dst) * convert from presentation format (which usually means ASCII printable) * to network format (which is usually some kind of binary format). * return: * 1 if the address was valid for the specified address family * 0 if the address wasn't valid (`dst' is untouched in this case) * -1 if some other error occurred (`dst' is untouched in this case, too) * author: * Paul Vixie, 1996. */ int apr_inet_pton(int af, const char *src, void *dst) 93 { 93 switch (af) { case AF_INET: 46 return (inet_pton4(src, dst)); #if APR_HAVE_IPV6 case AF_INET6: 47 return (inet_pton6(src, dst)); #endif default: ###### errno = EAFNOSUPPORT; ###### return (-1); } /* NOTREACHED */ } /* int * inet_pton4(src, dst) * like inet_aton() but without all the hexadecimal and shorthand. * return: * 1 if `src' is a valid dotted quad, else 0. * notice: * does not touch `dst' unless it's returning 1. * author: * Paul Vixie, 1996. */ static int inet_pton4(const char *src, unsigned char *dst) 78 { 78 static const char digits[] = "0123456789"; 78 int saw_digit, octets, ch; 78 unsigned char tmp[INADDRSZ], *tp; 78 saw_digit = 0; 78 octets = 0; 78 *(tp = tmp) = 0; 793 while ((ch = *src++) != '\0') { 725 const char *pch; 725 if ((pch = strchr(digits, ch)) != NULL) { 518 unsigned int new = *tp * 10 + (pch - digits); 518 if (new > 255) 3 return (0); 515 *tp = new; 515 if (! saw_digit) { 275 if (++octets > 4) ###### return (0); 275 saw_digit = 1; } 207 } else if (ch == '.' && saw_digit) { 204 if (octets == 4) 4 return (0); 200 *++tp = 0; 200 saw_digit = 0; } else 3 return (0); } 68 if (octets < 4) 9 return (0); 59 memcpy(dst, tmp, INADDRSZ); 59 return (1); } #if APR_HAVE_IPV6 /* int * inet_pton6(src, dst) * convert presentation level address to network order binary form. * return: * 1 if `src' is a valid [RFC1884 2.2] address, else 0. * notice: * (1) does not touch `dst' unless it's returning 1. * (2) :: in a full address is silently ignored. * credit: * inspired by Mark Andrews. * author: * Paul Vixie, 1996. */ static int inet_pton6(const char *src, unsigned char *dst) 47 { 47 static const char xdigits_l[] = "0123456789abcdef", 47 xdigits_u[] = "0123456789ABCDEF"; 47 unsigned char tmp[IN6ADDRSZ], *tp, *endp, *colonp; 47 const char *xdigits, *curtok; 47 int ch, saw_xdigit; 47 unsigned int val; 47 memset((tp = tmp), '\0', IN6ADDRSZ); 47 endp = tp + IN6ADDRSZ; 47 colonp = NULL; /* Leading :: requires some special handling. */ 47 if (*src == ':') 3 if (*++src != ':') ###### return (0); 47 curtok = src; 47 saw_xdigit = 0; 47 val = 0; 221 while ((ch = *src++) != '\0') { 206 const char *pch; 206 if ((pch = strchr((xdigits = xdigits_l), ch)) == NULL) 62 pch = strchr((xdigits = xdigits_u), ch); 206 if (pch != NULL) { 147 val <<= 4; 147 val |= (pch - xdigits); 147 if (val > 0xffff) ###### return (0); 147 saw_xdigit = 1; 147 continue; } 59 if (ch == ':') { 27 curtok = src; 27 if (!saw_xdigit) { 14 if (colonp) ###### return (0); 14 colonp = tp; 14 continue; } 13 if (tp + INT16SZ > endp) ###### return (0); 13 *tp++ = (unsigned char) (val >> 8) & 0xff; 13 *tp++ = (unsigned char) val & 0xff; 13 saw_xdigit = 0; 13 val = 0; 13 continue; } 32 if (ch == '.' && ((tp + INADDRSZ) <= endp) && inet_pton4(curtok, tp) > 0) { 28 tp += INADDRSZ; 28 saw_xdigit = 0; 28 break; /* '\0' was seen by inet_pton4(). */ } 4 return (0); } 43 if (saw_xdigit) { 10 if (tp + INT16SZ > endp) ###### return (0); 10 *tp++ = (unsigned char) (val >> 8) & 0xff; 10 *tp++ = (unsigned char) val & 0xff; } 43 if (colonp != NULL) { /* * Since some memmove()'s erroneously fail to handle * overlapping regions, we'll do the shift by hand. */ 14 const int n = tp - colonp; 14 int i; 36 for (i = 1; i <= n; i++) { 22 endp[- i] = colonp[n - i]; 22 colonp[n - i] = 0; } 14 tp = endp; } 43 if (tp != endp) 29 return (0); 14 memcpy(dst, tmp, IN6ADDRSZ); 14 return (1); } #endif