1/* Snagged from GNU C library, version 2.0.3. */ 2 3/* 4 * ++Copyright++ 1983, 1990, 1993 5 * - 6 * Copyright (c) 1983, 1990, 1993 7 * The Regents of the University of California. All rights reserved. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 1. Redistributions of source code must retain the above copyright 13 * notice, this list of conditions and the following disclaimer. 14 * 2. Redistributions in binary form must reproduce the above copyright 15 * notice, this list of conditions and the following disclaimer in the 16 * documentation and/or other materials provided with the distribution. 17 * 3. All advertising materials mentioning features or use of this software 18 * must display the following acknowledgement: 19 * This product includes software developed by the University of 20 * California, Berkeley and its contributors. 21 * 4. Neither the name of the University nor the names of its contributors 22 * may be used to endorse or promote products derived from this software 23 * without specific prior written permission. 24 * 25 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 28 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 35 * SUCH DAMAGE. 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 * --Copyright-- 56 */ 57 58#if defined(LIBC_SCCS) && !defined(lint) 59static char sccsid[] = "@(#)inet_addr.c 8.1 (Berkeley) 6/17/93"; 60static char rcsid[] = "$Id: inet_addr.c,v 1.5 1996/08/14 03:48:37 drepper Exp $"; 61#endif /* LIBC_SCCS and not lint */ 62 63#include <config.h> 64 65#if !defined (HAVE_INET_ATON) && defined (HAVE_NETWORK) && defined (HAVE_NETINET_IN_H) && defined (HAVE_ARPA_INET_H) 66 67#include <sys/types.h> 68#include <sys/param.h> 69#include <netinet/in.h> 70#include <arpa/inet.h> 71 72#ifdef HAVE_UNISTD_H 73# include <unistd.h> 74#endif 75 76#include <bashansi.h> 77#include <ctype.h> 78#include <stdc.h> 79 80#ifndef INADDR_NONE 81# define INADDR_NONE 0xffffffff 82#endif 83 84/* these are compatibility routines, not needed on recent BSD releases */ 85 86#if 0 87/* Not used, not needed. */ 88/* 89 * Ascii internet address interpretation routine. 90 * The value returned is in network order. 91 */ 92u_long 93inet_addr(cp) 94 register const char *cp; 95{ 96 struct in_addr val; 97 98 if (inet_aton(cp, &val)) 99 return (val.s_addr); 100 return (INADDR_NONE); 101} 102#endif 103 104/* 105 * Check whether "cp" is a valid ascii representation 106 * of an Internet address and convert to a binary address. 107 * Returns 1 if the address is valid, 0 if not. 108 * This replaces inet_addr, the return value from which 109 * cannot distinguish between failure and a local broadcast address. 110 */ 111int 112inet_aton(cp, addr) 113 register const char *cp; 114 struct in_addr *addr; 115{ 116 register u_bits32_t val; 117 register int base, n; 118 register unsigned char c; 119 u_int parts[4]; 120 register u_int *pp = parts; 121 122 c = *cp; 123 for (;;) { 124 /* 125 * Collect number up to ``.''. 126 * Values are specified as for C: 127 * 0x=hex, 0=octal, isdigit=decimal. 128 */ 129#if 0 130 if (!isdigit(c)) 131#else 132 if (c != '0' && c != '1' && c != '2' && c != '3' && c != '4' && 133 c != '5' && c != '6' && c != '7' && c != '8' && c != '9') 134#endif 135 return (0); 136 val = 0; base = 10; 137 if (c == '0') { 138 c = *++cp; 139 if (c == 'x' || c == 'X') 140 base = 16, c = *++cp; 141 else 142 base = 8; 143 } 144 for (;;) { 145 if (isascii(c) && isdigit(c)) { 146 val = (val * base) + (c - '0'); 147 c = *++cp; 148 } else if (base == 16 && isascii(c) && isxdigit(c)) { 149 val = (val << 4) | 150 (c + 10 - (islower(c) ? 'a' : 'A')); 151 c = *++cp; 152 } else 153 break; 154 } 155 if (c == '.') { 156 /* 157 * Internet format: 158 * a.b.c.d 159 * a.b.c (with c treated as 16 bits) 160 * a.b (with b treated as 24 bits) 161 */ 162 if (pp >= parts + 3) 163 return (0); 164 *pp++ = val; 165 c = *++cp; 166 } else 167 break; 168 } 169 /* 170 * Check for trailing characters. 171 */ 172 if (c != '\0' && (!isascii(c) || !isspace(c))) 173 return (0); 174 /* 175 * Concoct the address according to 176 * the number of parts specified. 177 */ 178 n = pp - parts + 1; 179 switch (n) { 180 181 case 0: 182 return (0); /* initial nondigit */ 183 184 case 1: /* a -- 32 bits */ 185 break; 186 187 case 2: /* a.b -- 8.24 bits */ 188 if (val > 0xffffff) 189 return (0); 190 val |= parts[0] << 24; 191 break; 192 193 case 3: /* a.b.c -- 8.8.16 bits */ 194 if (val > 0xffff) 195 return (0); 196 val |= (parts[0] << 24) | (parts[1] << 16); 197 break; 198 199 case 4: /* a.b.c.d -- 8.8.8.8 bits */ 200 if (val > 0xff) 201 return (0); 202 val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8); 203 break; 204 } 205 if (addr) 206 addr->s_addr = htonl(val); 207 return (1); 208} 209 210#endif /* !HAVE_INET_ATON */ 211