1/*	$NetBSD: inet_addr.c,v 1.1 2005/12/20 19:28:51 christos Exp $	*/
2
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
36/*
37 * Portions Copyright (c) 1993 by Digital Equipment Corporation.
38 *
39 * Permission to use, copy, modify, and distribute this software for any
40 * purpose with or without fee is hereby granted, provided that the above
41 * copyright notice and this permission notice appear in all copies, and that
42 * the name of Digital Equipment Corporation not be used in advertising or
43 * publicity pertaining to distribution of the document or software without
44 * specific, written prior permission.
45 *
46 * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
47 * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
48 * OF MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
49 * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
50 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
51 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
52 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
53 * SOFTWARE.
54 */
55
56/*
57 * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
58 * Portions Copyright (c) 1996-1999 by Internet Software Consortium.
59 *
60 * Permission to use, copy, modify, and distribute this software for any
61 * purpose with or without fee is hereby granted, provided that the above
62 * copyright notice and this permission notice appear in all copies.
63 *
64 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
65 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
66 * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR
67 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
68 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
69 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
70 * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
71 */
72
73#if !defined(_KERNEL) && !defined(_STANDALONE)
74#include <sys/cdefs.h>
75#if defined(LIBC_SCCS) && !defined(lint)
76#if 0
77static const char sccsid[] = "@(#)inet_addr.c	8.1 (Berkeley) 6/17/93";
78static const char rcsid[] = "Id: inet_addr.c,v 1.2.206.2 2004/03/17 00:29:45 marka Exp";
79#else
80__RCSID("$NetBSD: inet_addr.c,v 1.1 2005/12/20 19:28:51 christos Exp $");
81#endif
82#endif /* LIBC_SCCS and not lint */
83
84#include "port_before.h"
85
86#include "namespace.h"
87#include <sys/types.h>
88#include <sys/param.h>
89
90#include <netinet/in.h>
91#include <arpa/inet.h>
92
93#include <ctype.h>
94
95#include "port_after.h"
96
97#ifdef __weak_alias
98__weak_alias(inet_aton,_inet_aton)
99#endif
100#else
101#include <lib/libkern/libkern.h>
102#include <netinet/in.h>
103#endif
104
105/*
106 * Ascii internet address interpretation routine.
107 * The value returned is in network order.
108 */
109uint32_t
110inet_addr(const char *cp) {
111	struct in_addr val;
112
113	if (inet_aton(cp, &val))
114		return (val.s_addr);
115	return (INADDR_NONE);
116}
117
118/*
119 * Check whether "cp" is a valid ascii representation
120 * of an Internet address and convert to a binary address.
121 * Returns 1 if the address is valid, 0 if not.
122 * This replaces inet_addr, the return value from which
123 * cannot distinguish between failure and a local broadcast address.
124 */
125int
126inet_aton(const char *cp, struct in_addr *addr) {
127	uint32_t val;
128	int base, n;
129	char c;
130	uint8_t parts[4];
131	uint8_t *pp = parts;
132	int digit;
133
134	c = *cp;
135	for (;;) {
136		/*
137		 * Collect number up to ``.''.
138		 * Values are specified as for C:
139		 * 0x=hex, 0=octal, isdigit=decimal.
140		 */
141		if (!isdigit((unsigned char)c))
142			return (0);
143		val = 0; base = 10; digit = 0;
144		if (c == '0') {
145			c = *++cp;
146			if (c == 'x' || c == 'X')
147				base = 16, c = *++cp;
148			else {
149				base = 8;
150				digit = 1 ;
151			}
152		}
153		for (;;) {
154			if (isascii(c) && isdigit((unsigned char)c)) {
155				if (base == 8 && (c == '8' || c == '9'))
156					return (0);
157				val = (val * base) + (c - '0');
158				c = *++cp;
159				digit = 1;
160			} else if (base == 16 && isascii(c) &&
161				   isxdigit((unsigned char)c)) {
162				val = (val << 4) |
163					(c + 10 - (islower((unsigned char)c) ? 'a' : 'A'));
164				c = *++cp;
165				digit = 1;
166			} else
167				break;
168		}
169		if (c == '.') {
170			/*
171			 * Internet format:
172			 *	a.b.c.d
173			 *	a.b.c	(with c treated as 16 bits)
174			 *	a.b	(with b treated as 24 bits)
175			 */
176			if (pp >= parts + 3 || val > 0xffU)
177				return (0);
178			*pp++ = val;
179			c = *++cp;
180		} else
181			break;
182	}
183	/*
184	 * Check for trailing characters.
185	 */
186	if (c != '\0' && (!isascii(c) || !isspace((unsigned char)c)))
187		return (0);
188	/*
189	 * Did we get a valid digit?
190	 */
191	if (!digit)
192		return (0);
193	/*
194	 * Concoct the address according to
195	 * the number of parts specified.
196	 */
197	n = pp - parts + 1;
198	switch (n) {
199	case 1:				/* a -- 32 bits */
200		break;
201
202	case 2:				/* a.b -- 8.24 bits */
203		if (val > 0xffffffU)
204			return (0);
205		val |= parts[0] << 24;
206		break;
207
208	case 3:				/* a.b.c -- 8.8.16 bits */
209		if (val > 0xffffU)
210			return (0);
211		val |= (parts[0] << 24) | (parts[1] << 16);
212		break;
213
214	case 4:				/* a.b.c.d -- 8.8.8.8 bits */
215		if (val > 0xffU)
216			return (0);
217		val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8);
218		break;
219	}
220	if (addr != NULL)
221		addr->s_addr = htonl(val);
222	return (1);
223}
224