[mirror_edk2.git] / StdLib / BsdSocketLib / inet_net_pton.c

/*\r
 * Copyright (c) 1996 by Internet Software Consortium.\r
 *\r
 * Permission to use, copy, modify, and distribute this software for any\r
 * purpose with or without fee is hereby granted, provided that the above\r
 * copyright notice and this permission notice appear in all copies.\r
 *\r
 * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS\r
 * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES\r
 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE\r
 * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL\r
 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR\r
 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS\r
 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS\r
 * SOFTWARE.\r
 */\r
\r
/*\r
 * Portions copyright (c) 1999, 2000\r
 * Intel Corporation.\r
 * All rights reserved.\r
 * \r
 * Redistribution and use in source and binary forms, with or without\r
 * modification, are permitted provided that the following conditions\r
 * are met:\r
 * \r
 * 1. Redistributions of source code must retain the above copyright\r
 *    notice, this list of conditions and the following disclaimer.\r
 * \r
 * 2. Redistributions in binary form must reproduce the above copyright\r
 *    notice, this list of conditions and the following disclaimer in the\r
 *    documentation and/or other materials provided with the distribution.\r
 * \r
 * 3. All advertising materials mentioning features or use of this software\r
 *    must display the following acknowledgement:\r
 * \r
 *    This product includes software developed by Intel Corporation and\r
 *    its contributors.\r
 * \r
 * 4. Neither the name of Intel Corporation or its contributors may be\r
 *    used to endorse or promote products derived from this software\r
 *    without specific prior written permission.\r
 * \r
 * THIS SOFTWARE IS PROVIDED BY INTEL CORPORATION AND CONTRIBUTORS ``AS IS''\r
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
 * ARE DISCLAIMED.  IN NO EVENT SHALL INTEL CORPORATION OR CONTRIBUTORS BE\r
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR\r
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF\r
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS\r
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN\r
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)\r
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF\r
 * THE POSSIBILITY OF SUCH DAMAGE.\r
 * \r
 */\r
\r
#if defined(LIBC_SCCS) && !defined(lint)\r
static const char orig_rcsid[] = "From Id: inet_net_pton.c,v 1.8 1996/11/21 10:28:12 vixie Exp $";\r
static const char rcsid[] = "$Id: inet_net_pton.c,v 1.1.1.1 2003/11/19 01:51:29 kyu3 Exp $";\r
#endif\r
\r
#include <sys/types.h>\r
#include <sys/socket.h>\r
#include <netinet/in.h>\r
#include <arpa/inet.h>\r
\r
#include <assert.h>\r
#include <ctype.h>\r
#include <errno.h>\r
#include <stdio.h>\r
#include <string.h>\r
#include <stdlib.h>\r
\r
#ifdef SPRINTF_CHAR\r
# define SPRINTF(x) strlen(sprintf/**/x)\r
#else\r
# define SPRINTF(x) ((size_t)sprintf x)\r
#endif\r
\r
static int	inet_net_pton_ipv4 (const char *src, u_char *dst,\r
					size_t size);\r
\r
/*\r
 * static int\r
 * inet_net_pton(af, src, dst, size)\r
 *	convert network number from presentation to network format.\r
 *	accepts hex octets, hex strings, decimal octets, and /CIDR.\r
 *	"size" is in bytes and describes "dst".\r
 * return:\r
 *	number of bits, either imputed classfully or specified with /CIDR,\r
 *	or -1 if some failure occurred (check errno).  ENOENT means it was\r
 *	not a valid network specification.\r
 * author:\r
 *	Paul Vixie (ISC), June 1996\r
 */\r
int\r
inet_net_pton(\r
	int af,\r
	const char *src,\r
	void *dst,\r
	size_t size\r
	)\r
{\r
	switch (af) {\r
	case AF_INET:\r
		return (inet_net_pton_ipv4(src, dst, size));\r
	default:\r
		errno = EAFNOSUPPORT;\r
		return (-1);\r
	}\r
}\r
\r
/*\r
 * static int\r
 * inet_net_pton_ipv4(src, dst, size)\r
 *	convert IPv4 network number from presentation to network format.\r
 *	accepts hex octets, hex strings, decimal octets, and /CIDR.\r
 *	"size" is in bytes and describes "dst".\r
 * return:\r
 *	number of bits, either imputed classfully or specified with /CIDR,\r
 *	or -1 if some failure occurred (check errno).  ENOENT means it was\r
 *	not an IPv4 network specification.\r
 * note:\r
 *	network byte order assumed.  this means 192.5.5.240/28 has\r
 *	0x11110000 in its fourth octet.\r
 * author:\r
 *	Paul Vixie (ISC), June 1996\r
 */\r
static int\r
inet_net_pton_ipv4(\r
	const char *src,\r
	u_char *dst,\r
	size_t size\r
	)\r
{\r
	static const char xdigits[] = "0123456789abcdef";\r
	static const char digits[] = "0123456789";\r
	int n;\r
  int ch;\r
  int tmp;\r
  int dirty;\r
  int bits;\r
	const u_char *odst = dst;\r
\r
	ch = *src++;\r
	if (ch == '0' && (src[0] == 'x' || src[0] == 'X')\r
	    && isascii(src[1]) && isxdigit(src[1])) {\r
		/* Hexadecimal: Eat nybble string. */\r
		if (size <= 0)\r
			goto emsgsize;\r
		*dst = 0, dirty = 0;\r
		src++;	/* skip x or X. */\r
		while ((ch = *src++) != '\0' &&\r
		       isascii(ch) && isxdigit(ch)) {\r
			if (isupper(ch))\r
				ch = tolower(ch);\r
			n = (int)(strchr(xdigits, ch) - xdigits);\r
			assert(n >= 0 && n <= 15);\r
			*dst |= n;\r
			if (!dirty++)\r
				*dst <<= 4;\r
			else if (size-- > 0)\r
				*++dst = 0, dirty = 0;\r
			else\r
				goto emsgsize;\r
		}\r
		if (dirty)\r
			size--;\r
	} else if (isascii(ch) && isdigit(ch)) {\r
		/* Decimal: eat dotted digit string. */\r
		for (;;) {\r
			tmp = 0;\r
			do {\r
				n = (int)(strchr(digits, ch) - digits);\r
				assert(n >= 0 && n <= 9);\r
				tmp *= 10;\r
				tmp += n;\r
				if (tmp > 255)\r
					goto enoent;\r
			} while ((ch = *src++) != '\0' &&\r
				 isascii(ch) && isdigit(ch));\r
			if (size-- <= 0)\r
				goto emsgsize;\r
			*dst++ = (u_char) tmp;\r
			if (ch == '\0' || ch == '/')\r
				break;\r
			if (ch != '.')\r
				goto enoent;\r
			ch = *src++;\r
			if (!isascii(ch) || !isdigit(ch))\r
				goto enoent;\r
		}\r
	} else\r
		goto enoent;\r
\r
	bits = -1;\r
	if (ch == '/' && isascii(src[0]) && isdigit(src[0]) && dst > odst) {\r
		/* CIDR width specifier.  Nothing can follow it. */\r
		ch = *src++;	/* Skip over the /. */\r
		bits = 0;\r
		do {\r
			n = (int)(strchr(digits, ch) - digits);\r
			assert(n >= 0 && n <= 9);\r
			bits *= 10;\r
			bits += n;\r
		} while ((ch = *src++) != '\0' && isascii(ch) && isdigit(ch));\r
		if (ch != '\0')\r
			goto enoent;\r
		if (bits > 32)\r
			goto emsgsize;\r
	}\r
\r
	/* Firey death and destruction unless we prefetched EOS. */\r
	if (ch != '\0')\r
		goto enoent;\r
\r
	/* If nothing was written to the destination, we found no address. */\r
	if (dst == odst)\r
		goto enoent;\r
	/* If no CIDR spec was given, infer width from net class. */\r
	if (bits == -1) {\r
		if (*odst >= 240)	/* Class E */\r
			bits = 32;\r
		else if (*odst >= 224)	/* Class D */\r
			bits = 4;\r
		else if (*odst >= 192)	/* Class C */\r
			bits = 24;\r
		else if (*odst >= 128)	/* Class B */\r
			bits = 16;\r
		else			/* Class A */\r
			bits = 8;\r
		/* If imputed mask is narrower than specified octets, widen. */\r
		if (bits >= 8 && bits < ((dst - odst) * 8))\r
			bits = (int)(dst - odst) * 8;\r
	}\r
	/* Extend network to cover the actual mask. */\r
	while (bits > ((dst - odst) * 8)) {\r
		if (size-- <= 0)\r
			goto emsgsize;\r
		*dst++ = '\0';\r
	}\r
	return (bits);\r
\r
 enoent:\r
	errno = ENOENT;\r
	return (-1);\r
\r
 emsgsize:\r
	errno = EMSGSIZE;\r
	return (-1);\r
}\r
Commit	Line	Data
d7ce7006	1	/*\r
	2	* Copyright (c) 1996 by Internet Software Consortium.\r
	3	*\r
	4	* Permission to use, copy, modify, and distribute this software for any\r
	5	* purpose with or without fee is hereby granted, provided that the above\r
	6	* copyright notice and this permission notice appear in all copies.\r
	7	*\r
	8	* THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS\r
	9	* ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES\r
	10	* OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE\r
	11	* CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL\r
	12	* DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR\r
	13	* PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS\r
	14	* ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS\r
	15	* SOFTWARE.\r
	16	*/\r
	17	\r
	18	/*\r
	19	* Portions copyright (c) 1999, 2000\r
	20	* Intel Corporation.\r
	21	* All rights reserved.\r
	22	* \r
	23	* Redistribution and use in source and binary forms, with or without\r
	24	* modification, are permitted provided that the following conditions\r
	25	* are met:\r
	26	* \r
	27	* 1. Redistributions of source code must retain the above copyright\r
	28	* notice, this list of conditions and the following disclaimer.\r
	29	* \r
	30	* 2. Redistributions in binary form must reproduce the above copyright\r
	31	* notice, this list of conditions and the following disclaimer in the\r
	32	* documentation and/or other materials provided with the distribution.\r
	33	* \r
	34	* 3. All advertising materials mentioning features or use of this software\r
	35	* must display the following acknowledgement:\r
	36	* \r
	37	* This product includes software developed by Intel Corporation and\r
	38	* its contributors.\r
	39	* \r
	40	* 4. Neither the name of Intel Corporation or its contributors may be\r
	41	* used to endorse or promote products derived from this software\r
	42	* without specific prior written permission.\r
	43	* \r
	44	* THIS SOFTWARE IS PROVIDED BY INTEL CORPORATION AND CONTRIBUTORS ``AS IS''\r
	45	* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
	46	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
	47	* ARE DISCLAIMED. IN NO EVENT SHALL INTEL CORPORATION OR CONTRIBUTORS BE\r
	48	* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR\r
	49	* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF\r
	50	* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS\r
	51	* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN\r
	52	* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)\r
	53	* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF\r
	54	* THE POSSIBILITY OF SUCH DAMAGE.\r
	55	* \r
	56	*/\r
	57	\r
	58	#if defined(LIBC_SCCS) && !defined(lint)\r
	59	static const char orig_rcsid[] = "From Id: inet_net_pton.c,v 1.8 1996/11/21 10:28:12 vixie Exp $";\r
	60	static const char rcsid[] = "$Id: inet_net_pton.c,v 1.1.1.1 2003/11/19 01:51:29 kyu3 Exp $";\r
	61	#endif\r
	62	\r
	63	#include <sys/types.h>\r
	64	#include <sys/socket.h>\r
65	#include <netinet/in.h>\r
66	#include <arpa/inet.h>\r
67	\r
68	#include <assert.h>\r
69	#include <ctype.h>\r
70	#include <errno.h>\r
71	#include <stdio.h>\r
72	#include <string.h>\r
73	#include <stdlib.h>\r
74	\r
75	#ifdef SPRINTF_CHAR\r
76	# define SPRINTF(x) strlen(sprintf/**/x)\r
77	#else\r
78	# define SPRINTF(x) ((size_t)sprintf x)\r
79	#endif\r
80	\r
81	static int inet_net_pton_ipv4 (const char src, u_char dst,\r
82	size_t size);\r
83	\r
84	/*\r
85	* static int\r
86	* inet_net_pton(af, src, dst, size)\r
87	* convert network number from presentation to network format.\r
88	* accepts hex octets, hex strings, decimal octets, and /CIDR.\r
89	* "size" is in bytes and describes "dst".\r
90	* return:\r
91	* number of bits, either imputed classfully or specified with /CIDR,\r
92	* or -1 if some failure occurred (check errno). ENOENT means it was\r
93	* not a valid network specification.\r
94	* author:\r
95	* Paul Vixie (ISC), June 1996\r
96	*/\r
97	int\r
98	inet_net_pton(\r
99	int af,\r
100	const char *src,\r
101	void *dst,\r
102	size_t size\r
103	)\r
104	{\r
105	switch (af) {\r
106	case AF_INET:\r
107	return (inet_net_pton_ipv4(src, dst, size));\r
108	default:\r
109	errno = EAFNOSUPPORT;\r
110	return (-1);\r
111	}\r
112	}\r
113	\r
114	/*\r
115	* static int\r
116	* inet_net_pton_ipv4(src, dst, size)\r
117	* convert IPv4 network number from presentation to network format.\r
118	* accepts hex octets, hex strings, decimal octets, and /CIDR.\r
119	* "size" is in bytes and describes "dst".\r
120	* return:\r
121	* number of bits, either imputed classfully or specified with /CIDR,\r
122	* or -1 if some failure occurred (check errno). ENOENT means it was\r
123	* not an IPv4 network specification.\r
124	* note:\r
125	* network byte order assumed. this means 192.5.5.240/28 has\r
126	* 0x11110000 in its fourth octet.\r
127	* author:\r
128	* Paul Vixie (ISC), June 1996\r
129	*/\r
130	static int\r
131	inet_net_pton_ipv4(\r
132	const char *src,\r
133	u_char *dst,\r
134	size_t size\r
135	)\r
136	{\r
137	static const char xdigits[] = "0123456789abcdef";\r
138	static const char digits[] = "0123456789";\r
139	int n;\r
140	int ch;\r
141	int tmp;\r
142	int dirty;\r
143	int bits;\r
144	const u_char *odst = dst;\r
145	\r
146	ch = *src++;\r
147	if (ch == '0' && (src[0] == 'x' \|\| src[0] == 'X')\r
148	&& isascii(src[1]) && isxdigit(src[1])) {\r
149	/* Hexadecimal: Eat nybble string. */\r
150	if (size <= 0)\r
151	goto emsgsize;\r
152	*dst = 0, dirty = 0;\r
153	src++; /* skip x or X. */\r
154	while ((ch = *src++) != '\0' &&\r
155	isascii(ch) && isxdigit(ch)) {\r
156	if (isupper(ch))\r
157	ch = tolower(ch);\r
158	n = (int)(strchr(xdigits, ch) - xdigits);\r
159	assert(n >= 0 && n <= 15);\r
160	*dst \|= n;\r
161	if (!dirty++)\r
162	*dst <<= 4;\r
163	else if (size-- > 0)\r
164	*++dst = 0, dirty = 0;\r
165	else\r
166	goto emsgsize;\r
167	}\r
168	if (dirty)\r
169	size--;\r
170	} else if (isascii(ch) && isdigit(ch)) {\r
171	/* Decimal: eat dotted digit string. */\r
172	for (;;) {\r
173	tmp = 0;\r
174	do {\r
175	n = (int)(strchr(digits, ch) - digits);\r
176	assert(n >= 0 && n <= 9);\r
177	tmp *= 10;\r
178	tmp += n;\r
179	if (tmp > 255)\r
180	goto enoent;\r
181	} while ((ch = *src++) != '\0' &&\r
182	isascii(ch) && isdigit(ch));\r
183	if (size-- <= 0)\r
184	goto emsgsize;\r
185	*dst++ = (u_char) tmp;\r
186	if (ch == '\0' \|\| ch == '/')\r
187	break;\r
188	if (ch != '.')\r
189	goto enoent;\r
190	ch = *src++;\r
191	if (!isascii(ch) \|\| !isdigit(ch))\r
192	goto enoent;\r
193	}\r
194	} else\r
195	goto enoent;\r
196	\r
197	bits = -1;\r
198	if (ch == '/' && isascii(src[0]) && isdigit(src[0]) && dst > odst) {\r
199	/* CIDR width specifier. Nothing can follow it. */\r
200	ch = src++; / Skip over the /. */\r
201	bits = 0;\r
202	do {\r
203	n = (int)(strchr(digits, ch) - digits);\r
204	assert(n >= 0 && n <= 9);\r
205	bits *= 10;\r
206	bits += n;\r
207	} while ((ch = *src++) != '\0' && isascii(ch) && isdigit(ch));\r
208	if (ch != '\0')\r
209	goto enoent;\r
210	if (bits > 32)\r
211	goto emsgsize;\r
212	}\r
213	\r
214	/* Firey death and destruction unless we prefetched EOS. */\r
215	if (ch != '\0')\r
216	goto enoent;\r
217	\r
218	/* If nothing was written to the destination, we found no address. */\r
219	if (dst == odst)\r
220	goto enoent;\r
221	/* If no CIDR spec was given, infer width from net class. */\r
222	if (bits == -1) {\r
223	if (odst >= 240) / Class E */\r
224	bits = 32;\r
225	else if (odst >= 224) / Class D */\r
226	bits = 4;\r
227	else if (odst >= 192) / Class C */\r
228	bits = 24;\r
229	else if (odst >= 128) / Class B */\r
230	bits = 16;\r
231	else /* Class A */\r
232	bits = 8;\r
233	/* If imputed mask is narrower than specified octets, widen. */\r
234	if (bits >= 8 && bits < ((dst - odst) * 8))\r
235	bits = (int)(dst - odst) * 8;\r
236	}\r
237	/* Extend network to cover the actual mask. */\r
238	while (bits > ((dst - odst) * 8)) {\r
239	if (size-- <= 0)\r
240	goto emsgsize;\r
241	*dst++ = '\0';\r
242	}\r
243	return (bits);\r
244	\r
245	enoent:\r
246	errno = ENOENT;\r
247	return (-1);\r
248	\r
249	emsgsize:\r
250	errno = EMSGSIZE;\r
251	return (-1);\r
252	}\r