xref: /titanic_52/usr/src/cmd/ipf/lib/common/inet_addr.c (revision 4e5b757fbcf21077677360be274461dcd9064106)
1 /*
2  * ++Copyright++ 1983, 1990, 1993
3  * -
4  * Copyright (c) 1983, 1990, 1993
5  *    The Regents of the University of California.  All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. All advertising materials mentioning features or use of this software
16  *    must display the following acknowledgement:
17  * 	This product includes software developed by the University of
18  * 	California, Berkeley and its contributors.
19  * 4. Neither the name of the University nor the names of its contributors
20  *    may be used to endorse or promote products derived from this software
21  *    without specific prior written permission.
22  *
23  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33  * SUCH DAMAGE.
34  * -
35  * Portions Copyright (c) 1993 by Digital Equipment Corporation.
36  *
37  * Permission to use, copy, modify, and distribute this software for any
38  * purpose with or without fee is hereby granted, provided that the above
39  * copyright notice and this permission notice appear in all copies, and that
40  * the name of Digital Equipment Corporation not be used in advertising or
41  * publicity pertaining to distribution of the document or software without
42  * specific, written prior permission.
43  *
44  * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
45  * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
46  * OF MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
47  * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
48  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
49  * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
50  * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
51  * SOFTWARE.
52  * -
53  * --Copyright--
54  */
55 
56 #if !defined(lint)
57 static const char sccsid[] = "@(#)inet_addr.c	8.1 (Berkeley) 6/17/93";
58 static const char rcsid[] = "@(#)$Id: inet_addr.c,v 1.8.2.3 2004/12/09 19:41:20 darrenr Exp $";
59 #endif /* LIBC_SCCS and not lint */
60 
61 #include <sys/param.h>
62 #include <netinet/in.h>
63 #include <arpa/inet.h>
64 #include <ctype.h>
65 
66 #ifndef	__P
67 # ifdef	__STDC__
68 #  define	__P(x)	x
69 # else
70 #  define	__P(x)	()
71 # endif
72 #endif
73 #ifndef linux
74 int inet_aton __P((const char *, struct in_addr *));
75 
76 /*
77  * Because the ctype(3) posix definition, if used "safely" in code everywhere,
78  * would mean all normal code that walks through strings needed casts.  Yuck.
79  */
80 #define	ISALNUM(x)	isalnum((u_char)(x))
81 #define	ISALPHA(x)	isalpha((u_char)(x))
82 #define	ISASCII(x)	isascii((u_char)(x))
83 #define	ISDIGIT(x)	isdigit((u_char)(x))
84 #define	ISPRINT(x)	isprint((u_char)(x))
85 #define	ISSPACE(x)	isspace((u_char)(x))
86 #define	ISUPPER(x)	isupper((u_char)(x))
87 #define	ISXDIGIT(x)	isxdigit((u_char)(x))
88 #define	ISLOWER(x)	islower((u_char)(x))
89 
90 /*
91  * Check whether "cp" is a valid ascii representation
92  * of an Internet address and convert to a binary address.
93  * Returns 1 if the address is valid, 0 if not.
94  * This replaces inet_addr, the return value from which
95  * cannot distinguish between failure and a local broadcast address.
96  */
97 int
98 inet_aton(cp, addr)
99 	register const char *cp;
100 	struct in_addr *addr;
101 {
102 	register u_long val;
103 	register int base, n;
104 	register char c;
105 	u_int parts[4];
106 	register u_int *pp = parts;
107 
108 	c = *cp;
109 	for (;;) {
110 		/*
111 		 * Collect number up to ``.''.
112 		 * Values are specified as for C:
113 		 * 0x=hex, 0=octal, isdigit=decimal.
114 		 */
115 		if (!ISDIGIT(c))
116 			return (0);
117 		val = 0; base = 10;
118 		if (c == '0') {
119 			c = *++cp;
120 			if (c == 'x' || c == 'X')
121 				base = 16, c = *++cp;
122 			else
123 				base = 8;
124 		}
125 		for (;;) {
126 			if (ISASCII(c) && ISDIGIT(c)) {
127 				val = (val * base) + (c - '0');
128 				c = *++cp;
129 			} else if (base == 16 && ISASCII(c) && ISXDIGIT(c)) {
130 				val = (val << 4) |
131 					(c + 10 - (ISLOWER(c) ? 'a' : 'A'));
132 				c = *++cp;
133 			} else
134 				break;
135 		}
136 		if (c == '.') {
137 			/*
138 			 * Internet format:
139 			 *	a.b.c.d
140 			 *	a.b.c	(with c treated as 16 bits)
141 			 *	a.b	(with b treated as 24 bits)
142 			 */
143 			if (pp >= parts + 3)
144 				return (0);
145 			*pp++ = val;
146 			c = *++cp;
147 		} else
148 			break;
149 	}
150 	/*
151 	 * Check for trailing characters.
152 	 */
153 	if (c != '\0' && (!ISASCII(c) || !ISSPACE(c)))
154 		return (0);
155 	/*
156 	 * Concoct the address according to
157 	 * the number of parts specified.
158 	 */
159 	n = pp - parts + 1;
160 	switch (n) {
161 
162 	case 0:
163 		return (0);		/* initial nondigit */
164 
165 	case 1:				/* a -- 32 bits */
166 		break;
167 
168 	case 2:				/* a.b -- 8.24 bits */
169 		if (val > 0xffffff)
170 			return (0);
171 		val |= parts[0] << 24;
172 		break;
173 
174 	case 3:				/* a.b.c -- 8.8.16 bits */
175 		if (val > 0xffff)
176 			return (0);
177 		val |= (parts[0] << 24) | (parts[1] << 16);
178 		break;
179 
180 	case 4:				/* a.b.c.d -- 8.8.8.8 bits */
181 		if (val > 0xff)
182 			return (0);
183 		val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8);
184 		break;
185 	}
186 	if (addr)
187 		addr->s_addr = htonl(val);
188 	return (1);
189 }
190 #endif
191 
192 /* these are compatibility routines, not needed on recent BSD releases */
193 
194 /*
195  * Ascii internet address interpretation routine.
196  * The value returned is in network order.
197  */
198 #if 0
199 inet_addr(cp)
200 	const char *cp;
201 {
202 	struct in_addr val;
203 
204 	if (inet_aton(cp, &val))
205 		return (val.s_addr);
206 	return (0xffffffff);
207 }
208 #endif
209