1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright 1987 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27 #pragma ident "%Z%%M% %I% %E% SMI"
28 /* from UCB 4.5 82/11/14 */
29
30 #include <sys/types.h>
31 #include <ctype.h>
32 #include <netinet/in.h>
33
34 /*
35 * Internet address interpretation routine.
36 * All the network library routines call this
37 * routine to interpret entries in the data bases
38 * which are expected to be an address.
39 * The value returned is in network order.
40 */
41 u_long
inet_addr(cp)42 inet_addr(cp)
43 register char *cp;
44 {
45 register u_long val, base, n;
46 register char c;
47 u_long parts[4], *pp = parts;
48
49 again:
50 /*
51 * Collect number up to ``.''.
52 * Values are specified as for C:
53 * 0x=hex, 0=octal, other=decimal.
54 */
55 val = 0; base = 10;
56 if (*cp == '0') {
57 if (*++cp == 'x' || *cp == 'X')
58 base = 16, cp++;
59 else
60 base = 8;
61 }
62 while (c = *cp) {
63 if (isdigit(c)) {
64 if ((c - '0') >= base)
65 break;
66 val = (val * base) + (c - '0');
67 cp++;
68 continue;
69 }
70 if (base == 16 && isxdigit(c)) {
71 val = (val << 4) + (c + 10 - (islower(c) ? 'a' : 'A'));
72 cp++;
73 continue;
74 }
75 break;
76 }
77 if (*cp == '.') {
78 /*
79 * Internet format:
80 * a.b.c.d
81 * a.b.c (with c treated as 16-bits)
82 * a.b (with b treated as 24 bits)
83 */
84 if (pp >= parts + 4)
85 return (-1);
86 *pp++ = val, cp++;
87 goto again;
88 }
89 /*
90 * Check for trailing characters.
91 */
92 if (*cp && !isspace(*cp))
93 return (-1);
94 *pp++ = val;
95 /*
96 * Concoct the address according to
97 * the number of parts specified.
98 */
99 n = pp - parts;
100 switch (n) {
101
102 case 1: /* a -- 32 bits */
103 val = parts[0];
104 break;
105
106 case 2: /* a.b -- 8.24 bits */
107 val = (parts[0] << 24) | (parts[1] & 0xffffff);
108 break;
109
110 case 3: /* a.b.c -- 8.8.16 bits */
111 val = (parts[0] << 24) | ((parts[1] & 0xff) << 16) |
112 (parts[2] & 0xffff);
113 break;
114
115 case 4: /* a.b.c.d -- 8.8.8.8 bits */
116 val = (parts[0] << 24) | ((parts[1] & 0xff) << 16) |
117 ((parts[2] & 0xff) << 8) | (parts[3] & 0xff);
118 break;
119
120 default:
121 return (-1);
122 }
123 val = htonl(val);
124 return (val);
125 }
126