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

/*\r
 * Copyright (c) 1996, 1998 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
#if defined(LIBC_SCCS) && !defined(lint)\r
static char rcsid[] = "$Id: nsap_addr.c,v 1.1.1.1 2003/11/19 01:51:31 kyu3 Exp $";\r
#endif /* LIBC_SCCS and not lint */\r
\r
#include <sys/types.h>\r
#include <sys/param.h>\r
#include <sys/socket.h>\r
#include <netinet/in.h>\r
#include <arpa/inet.h>\r
#include <arpa/nameser.h>\r
#include <ctype.h>\r
#include <resolv.h>\r
\r
static char\r
xtob(\r
	register int c\r
	)\r
{\r
	return (char)(c - (((c >= '0') && (c <= '9')) ? '0' : '7'));\r
}\r
\r
u_int\r
inet_nsap_addr(\r
	const char *ascii,\r
	u_char *binary,\r
	int maxlen\r
	)\r
{\r
	u_char c, nib;\r
	u_int len = 0;\r
\r
	while ((c = *ascii++) != '\0' && len < (u_int)maxlen) {\r
		if (c == '.' || c == '+' || c == '/')\r
			continue;\r
		if (!isascii(c))\r
			return (0);\r
		if (islower(c))\r
			c = (u_char)( toupper(c));\r
		if (isxdigit(c)) {\r
			nib = xtob(c);\r
			c = *ascii++;\r
			if (c != '\0') {\r
				c = (u_char)( toupper(c));\r
				if (isxdigit(c)) {\r
					*binary++ = (nib << 4) | xtob(c);\r
					len++;\r
				} else\r
					return (0);\r
			}\r
			else\r
				return (0);\r
		}\r
		else\r
			return (0);\r
	}\r
	return (len);\r
}\r
\r
char *\r
inet_nsap_ntoa(\r
	int binlen,\r
	register const u_char *binary,\r
	register char *ascii\r
	)\r
{\r
	register int nib;\r
	int i;\r
	static char tmpbuf[255*3];\r
	char *start;\r
\r
	if (ascii)\r
		start = ascii;\r
	else {\r
		ascii = tmpbuf;\r
		start = tmpbuf;\r
	}\r
\r
	if (binlen > 255)\r
		binlen = 255;\r
\r
	for (i = 0; i < binlen; i++) {\r
		nib = *binary >> 4;\r
		*ascii++ = (char)( nib + (nib < 10 ? '0' : '7'));\r
		nib = *binary++ & 0x0f;\r
		*ascii++ = (char)( nib + (nib < 10 ? '0' : '7'));\r
		if (((i % 2) == 0 && (i + 1) < binlen))\r
			*ascii++ = '.';\r
	}\r
	*ascii = '\0';\r
	return (start);\r
}\r
Commit	Line	Data
d7ce7006	1	/*\r
	2	* Copyright (c) 1996, 1998 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	#if defined(LIBC_SCCS) && !defined(lint)\r
	19	static char rcsid[] = "$Id: nsap_addr.c,v 1.1.1.1 2003/11/19 01:51:31 kyu3 Exp $";\r
	20	#endif /* LIBC_SCCS and not lint */\r
	21	\r
	22	#include <sys/types.h>\r
	23	#include <sys/param.h>\r
	24	#include <sys/socket.h>\r
	25	#include <netinet/in.h>\r
	26	#include <arpa/inet.h>\r
	27	#include <arpa/nameser.h>\r
	28	#include <ctype.h>\r
	29	#include <resolv.h>\r
	30	\r
	31	static char\r
	32	xtob(\r
	33	register int c\r
	34	)\r
	35	{\r
	36	return (char)(c - (((c >= '0') && (c <= '9')) ? '0' : '7'));\r
	37	}\r
	38	\r
	39	u_int\r
	40	inet_nsap_addr(\r
	41	const char *ascii,\r
	42	u_char *binary,\r
	43	int maxlen\r
	44	)\r
	45	{\r
	46	u_char c, nib;\r
	47	u_int len = 0;\r
	48	\r
	49	while ((c = *ascii++) != '\0' && len < (u_int)maxlen) {\r
	50	if (c == '.' \|\| c == '+' \|\| c == '/')\r
	51	continue;\r
	52	if (!isascii(c))\r
	53	return (0);\r
	54	if (islower(c))\r
	55	c = (u_char)( toupper(c));\r
	56	if (isxdigit(c)) {\r
	57	nib = xtob(c);\r
	58	c = *ascii++;\r
	59	if (c != '\0') {\r
	60	c = (u_char)( toupper(c));\r
	61	if (isxdigit(c)) {\r
	62	*binary++ = (nib << 4) \| xtob(c);\r
	63	len++;\r
	64	} else\r
65	return (0);\r
66	}\r
67	else\r
68	return (0);\r
69	}\r
70	else\r
71	return (0);\r
72	}\r
73	return (len);\r
74	}\r
75	\r
76	char *\r
77	inet_nsap_ntoa(\r
78	int binlen,\r
79	register const u_char *binary,\r
80	register char *ascii\r
81	)\r
82	{\r
83	register int nib;\r
84	int i;\r
85	static char tmpbuf[255*3];\r
86	char *start;\r
87	\r
88	if (ascii)\r
89	start = ascii;\r
90	else {\r
91	ascii = tmpbuf;\r
92	start = tmpbuf;\r
93	}\r
94	\r
95	if (binlen > 255)\r
96	binlen = 255;\r
97	\r
98	for (i = 0; i < binlen; i++) {\r
99	nib = *binary >> 4;\r
100	*ascii++ = (char)( nib + (nib < 10 ? '0' : '7'));\r
101	nib = *binary++ & 0x0f;\r
102	*ascii++ = (char)( nib + (nib < 10 ? '0' : '7'));\r
103	if (((i % 2) == 0 && (i + 1) < binlen))\r
104	*ascii++ = '.';\r
105	}\r
106	*ascii = '\0';\r
107	return (start);\r
108	}\r