StdLib/BsdSocketLib/inet_net_pton.c - third_party/edk2 - Git at Google

 /*
  * 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.
  */

 /*
  * Portions copyright (c) 1999, 2000
  * Intel Corporation.
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  *
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
  *
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
  *
  * 3. All advertising materials mentioning features or use of this software
  *    must display the following acknowledgement:
  *
  *    This product includes software developed by Intel Corporation and
  *    its contributors.
  *
  * 4. Neither the name of Intel Corporation or its contributors may be
  *    used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
  * THIS SOFTWARE IS PROVIDED BY INTEL CORPORATION AND CONTRIBUTORS ``AS IS''
  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  * ARE DISCLAIMED.  IN NO EVENT SHALL INTEL CORPORATION OR CONTRIBUTORS BE
  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
  * THE POSSIBILITY OF SUCH DAMAGE.
  *
  */

 #if defined(LIBC_SCCS) && !defined(lint)
 static const char orig_rcsid[] = "From Id: inet_net_pton.c,v 1.8 1996/11/21 10:28:12 vixie Exp $";
 static const char rcsid[] = "$Id: inet_net_pton.c,v 1.1.1.1 2003/11/19 01:51:29 kyu3 Exp $";
 #endif

 #include <sys/types.h>
 #include <sys/socket.h>
 #include <netinet/in.h>
 #include <arpa/inet.h>

 #include <assert.h>
 #include <ctype.h>
 #include <errno.h>
 #include <stdio.h>
 #include <string.h>
 #include <stdlib.h>

 #ifdef SPRINTF_CHAR
 # define SPRINTF(x) strlen(sprintf/**/x)
 #else
 # define SPRINTF(x) ((size_t)sprintf x)
 #endif

 static int	inet_net_pton_ipv4 (const char *src, u_char *dst,
 					size_t size);

 /*
  * static int
  * inet_net_pton(af, src, dst, size)
  *	convert network number from presentation to network format.
  *	accepts hex octets, hex strings, decimal octets, and /CIDR.
  *	"size" is in bytes and describes "dst".
  * return:
  *	number of bits, either imputed classfully or specified with /CIDR,
  *	or -1 if some failure occurred (check errno).  ENOENT means it was
  *	not a valid network specification.
  * author:
  *	Paul Vixie (ISC), June 1996
  */
 int
 inet_net_pton(
 	int af,
 	const char *src,
 	void *dst,
 	size_t size
 	)
 {
 	switch (af) {
 	case AF_INET:
 		return (inet_net_pton_ipv4(src, dst, size));
 	default:
 		errno = EAFNOSUPPORT;
 		return (-1);
 	}
 }

 /*
  * static int
  * inet_net_pton_ipv4(src, dst, size)
  *	convert IPv4 network number from presentation to network format.
  *	accepts hex octets, hex strings, decimal octets, and /CIDR.
  *	"size" is in bytes and describes "dst".
  * return:
  *	number of bits, either imputed classfully or specified with /CIDR,
  *	or -1 if some failure occurred (check errno).  ENOENT means it was
  *	not an IPv4 network specification.
  * note:
  *	network byte order assumed.  this means 192.5.5.240/28 has
  *	0x11110000 in its fourth octet.
  * author:
  *	Paul Vixie (ISC), June 1996
  */
 static int
 inet_net_pton_ipv4(
 	const char *src,
 	u_char *dst,
 	size_t size
 	)
 {
 	static const char xdigits[] = "0123456789abcdef";
 	static const char digits[] = "0123456789";
 	int n;
   int ch;
   int tmp;
   int dirty;
   int bits;
 	const u_char *odst = dst;

 	ch = *src++;
 	if (ch == '0' && (src[0] == 'x' || src[0] == 'X')
 	    && isascii(src[1]) && isxdigit(src[1])) {
 		/* Hexadecimal: Eat nybble string. */
 		if (size <= 0)
 			goto emsgsize;
 		*dst = 0, dirty = 0;
 		src++;	/* skip x or X. */
 		while ((ch = *src++) != '\0' &&
 		       isascii(ch) && isxdigit(ch)) {
 			if (isupper(ch))
 				ch = tolower(ch);
 			n = (int)(strchr(xdigits, ch) - xdigits);
 			assert(n >= 0 && n <= 15);
 			*dst |= n;
 			if (!dirty++)
 				*dst <<= 4;
 			else if (size-- > 0)
 				*++dst = 0, dirty = 0;
 			else
 				goto emsgsize;
 		}
 		if (dirty)
 			size--;
 	} else if (isascii(ch) && isdigit(ch)) {
 		/* Decimal: eat dotted digit string. */
 		for (;;) {
 			tmp = 0;
 			do {
 				n = (int)(strchr(digits, ch) - digits);
 				assert(n >= 0 && n <= 9);
 				tmp *= 10;
 				tmp += n;
 				if (tmp > 255)
 					goto enoent;
 			} while ((ch = *src++) != '\0' &&
 				 isascii(ch) && isdigit(ch));
 			if (size-- <= 0)
 				goto emsgsize;
 			*dst++ = (u_char) tmp;
 			if (ch == '\0' || ch == '/')
 				break;
 			if (ch != '.')
 				goto enoent;
 			ch = *src++;
 			if (!isascii(ch) || !isdigit(ch))
 				goto enoent;
 		}
 	} else
 		goto enoent;

 	bits = -1;
 	if (ch == '/' && isascii(src[0]) && isdigit(src[0]) && dst > odst) {
 		/* CIDR width specifier.  Nothing can follow it. */
 		ch = *src++;	/* Skip over the /. */
 		bits = 0;
 		do {
 			n = (int)(strchr(digits, ch) - digits);
 			assert(n >= 0 && n <= 9);
 			bits *= 10;
 			bits += n;
 		} while ((ch = *src++) != '\0' && isascii(ch) && isdigit(ch));
 		if (ch != '\0')
 			goto enoent;
 		if (bits > 32)
 			goto emsgsize;
 	}

 	/* Firey death and destruction unless we prefetched EOS. */
 	if (ch != '\0')
 		goto enoent;

 	/* If nothing was written to the destination, we found no address. */
 	if (dst == odst)
 		goto enoent;
 	/* If no CIDR spec was given, infer width from net class. */
 	if (bits == -1) {
 		if (*odst >= 240)	/* Class E */
 			bits = 32;
 		else if (*odst >= 224)	/* Class D */
 			bits = 4;
 		else if (*odst >= 192)	/* Class C */
 			bits = 24;
 		else if (*odst >= 128)	/* Class B */
 			bits = 16;
 		else			/* Class A */
 			bits = 8;
 		/* If imputed mask is narrower than specified octets, widen. */
 		if (bits >= 8 && bits < ((dst - odst) * 8))
 			bits = (int)(dst - odst) * 8;
 	}
 	/* Extend network to cover the actual mask. */
 	while (bits > ((dst - odst) * 8)) {
 		if (size-- <= 0)
 			goto emsgsize;
 		*dst++ = '\0';
 	}
 	return (bits);

  enoent:
 	errno = ENOENT;
 	return (-1);

  emsgsize:
 	errno = EMSGSIZE;
 	return (-1);
 }
	/*
	* 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.
	*/

	/*
	* Portions copyright (c) 1999, 2000
	* Intel Corporation.
	* All rights reserved.
	*
	* Redistribution and use in source and binary forms, with or without
	* modification, are permitted provided that the following conditions
	* are met:
	*
	* 1. Redistributions of source code must retain the above copyright
	* notice, this list of conditions and the following disclaimer.
	*
	* 2. Redistributions in binary form must reproduce the above copyright
	* notice, this list of conditions and the following disclaimer in the
	* documentation and/or other materials provided with the distribution.
	*
	* 3. All advertising materials mentioning features or use of this software
	* must display the following acknowledgement:
	*
	* This product includes software developed by Intel Corporation and
	* its contributors.
	*
	* 4. Neither the name of Intel Corporation or its contributors may be
	* used to endorse or promote products derived from this software
	* without specific prior written permission.
	*
	* THIS SOFTWARE IS PROVIDED BY INTEL CORPORATION AND CONTRIBUTORS ``AS IS''
	* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	* ARE DISCLAIMED. IN NO EVENT SHALL INTEL CORPORATION OR CONTRIBUTORS BE
	* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
	* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
	* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
	* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
	* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
	* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
	* THE POSSIBILITY OF SUCH DAMAGE.
	*
	*/

	#if defined(LIBC_SCCS) && !defined(lint)
	static const char orig_rcsid[] = "From Id: inet_net_pton.c,v 1.8 1996/11/21 10:28:12 vixie Exp $";
	static const char rcsid[] = "$Id: inet_net_pton.c,v 1.1.1.1 2003/11/19 01:51:29 kyu3 Exp $";
	#endif

	#include <sys/types.h>
	#include <sys/socket.h>
	#include <netinet/in.h>
	#include <arpa/inet.h>

	#include <assert.h>
	#include <ctype.h>
	#include <errno.h>
	#include <stdio.h>
	#include <string.h>
	#include <stdlib.h>

	#ifdef SPRINTF_CHAR
	# define SPRINTF(x) strlen(sprintf/**/x)
	#else
	# define SPRINTF(x) ((size_t)sprintf x)
	#endif

	static int inet_net_pton_ipv4 (const char src, u_char dst,
	size_t size);

	/*
	* static int
	* inet_net_pton(af, src, dst, size)
	* convert network number from presentation to network format.
	* accepts hex octets, hex strings, decimal octets, and /CIDR.
	* "size" is in bytes and describes "dst".
	* return:
	* number of bits, either imputed classfully or specified with /CIDR,
	* or -1 if some failure occurred (check errno). ENOENT means it was
	* not a valid network specification.
	* author:
	* Paul Vixie (ISC), June 1996
	*/
	int
	inet_net_pton(
	int af,
	const char *src,
	void *dst,
	size_t size
	)
	{
	switch (af) {
	case AF_INET:
	return (inet_net_pton_ipv4(src, dst, size));
	default:
	errno = EAFNOSUPPORT;
	return (-1);
	}
	}

	/*
	* static int
	* inet_net_pton_ipv4(src, dst, size)
	* convert IPv4 network number from presentation to network format.
	* accepts hex octets, hex strings, decimal octets, and /CIDR.
	* "size" is in bytes and describes "dst".
	* return:
	* number of bits, either imputed classfully or specified with /CIDR,
	* or -1 if some failure occurred (check errno). ENOENT means it was
	* not an IPv4 network specification.
	* note:
	* network byte order assumed. this means 192.5.5.240/28 has
	* 0x11110000 in its fourth octet.
	* author:
	* Paul Vixie (ISC), June 1996
	*/
	static int
	inet_net_pton_ipv4(
	const char *src,
	u_char *dst,
	size_t size
	)
	{
	static const char xdigits[] = "0123456789abcdef";
	static const char digits[] = "0123456789";
	int n;
	int ch;
	int tmp;
	int dirty;
	int bits;
	const u_char *odst = dst;

	ch = *src++;
	if (ch == '0' && (src[0] == 'x' \|\| src[0] == 'X')
	&& isascii(src[1]) && isxdigit(src[1])) {
	/* Hexadecimal: Eat nybble string. */
	if (size <= 0)
	goto emsgsize;
	*dst = 0, dirty = 0;
	src++; /* skip x or X. */
	while ((ch = *src++) != '\0' &&
	isascii(ch) && isxdigit(ch)) {
	if (isupper(ch))
	ch = tolower(ch);
	n = (int)(strchr(xdigits, ch) - xdigits);
	assert(n >= 0 && n <= 15);
	*dst \|= n;
	if (!dirty++)
	*dst <<= 4;
	else if (size-- > 0)
	*++dst = 0, dirty = 0;
	else
	goto emsgsize;
	}
	if (dirty)
	size--;
	} else if (isascii(ch) && isdigit(ch)) {
	/* Decimal: eat dotted digit string. */
	for (;;) {
	tmp = 0;
	do {
	n = (int)(strchr(digits, ch) - digits);
	assert(n >= 0 && n <= 9);
	tmp *= 10;
	tmp += n;
	if (tmp > 255)
	goto enoent;
	} while ((ch = *src++) != '\0' &&
	isascii(ch) && isdigit(ch));
	if (size-- <= 0)
	goto emsgsize;
	*dst++ = (u_char) tmp;
	if (ch == '\0' \|\| ch == '/')
	break;
	if (ch != '.')
	goto enoent;
	ch = *src++;
	if (!isascii(ch) \|\| !isdigit(ch))
	goto enoent;
	}
	} else
	goto enoent;

	bits = -1;
	if (ch == '/' && isascii(src[0]) && isdigit(src[0]) && dst > odst) {
	/* CIDR width specifier. Nothing can follow it. */
	ch = src++; / Skip over the /. */
	bits = 0;
	do {
	n = (int)(strchr(digits, ch) - digits);
	assert(n >= 0 && n <= 9);
	bits *= 10;
	bits += n;
	} while ((ch = *src++) != '\0' && isascii(ch) && isdigit(ch));
	if (ch != '\0')
	goto enoent;
	if (bits > 32)
	goto emsgsize;
	}

	/* Firey death and destruction unless we prefetched EOS. */
	if (ch != '\0')
	goto enoent;

	/* If nothing was written to the destination, we found no address. */
	if (dst == odst)
	goto enoent;
	/* If no CIDR spec was given, infer width from net class. */
	if (bits == -1) {
	if (odst >= 240) / Class E */
	bits = 32;
	else if (odst >= 224) / Class D */
	bits = 4;
	else if (odst >= 192) / Class C */
	bits = 24;
	else if (odst >= 128) / Class B */
	bits = 16;
	else /* Class A */
	bits = 8;
	/* If imputed mask is narrower than specified octets, widen. */
	if (bits >= 8 && bits < ((dst - odst) * 8))
	bits = (int)(dst - odst) * 8;
	}
	/* Extend network to cover the actual mask. */
	while (bits > ((dst - odst) * 8)) {
	if (size-- <= 0)
	goto emsgsize;
	*dst++ = '\0';
	}
	return (bits);

	enoent:
	errno = ENOENT;
	return (-1);

	emsgsize:
	errno = EMSGSIZE;
	return (-1);
	}