Merge from vendor branch HEIMDAL:
[dragonfly.git] / contrib / dhcp-3.0 / omapip / inet_addr.c
1 /*      $NetBSD: inet_addr.c,v 1.6 1996/02/02 15:22:23 mrg 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 #if defined(LIBC_SCCS) && !defined(lint)
37 #if 0
38 static char sccsid[] = "@(#)inet_addr.c 8.1 (Berkeley) 6/17/93";
39 #else
40 static char rcsid[] = "$NetBSD: inet_addr.c,v 1.6 1996/02/02 15:22:23 mrg Exp $";
41 #endif
42 #endif /* LIBC_SCCS and not lint */
43
44 #ifndef lint
45 static char copyright[] =
46 "$Id: inet_addr.c,v 1.1 2000/09/20 00:01:50 mellon Exp $ Copyright (c) 1983, 1990, 1993 The Regents of the University of California.  All rights reserved.\n";
47 #endif /* not lint */
48
49 #include "omapip/omapip_p.h"
50
51 #ifdef NEED_INET_ATON
52 /* 
53  * Check whether "cp" is a valid ascii representation
54  * of an Internet address and convert to a binary address.
55  * Returns 1 if the address is valid, 0 if not.
56  * This replaces inet_addr, the return value from which
57  * cannot distinguish between failure and a local broadcast address.
58  */
59 int
60 inet_aton(cp, addr)
61         const char *cp;
62         struct in_addr *addr;
63 {
64         register u_long val;
65         register int base, n;
66         register char c;
67         u_int parts[4];
68         register u_int *pp = parts;
69
70         for (;;) {
71                 /*
72                  * Collect number up to ``.''.
73                  * Values are specified as for C:
74                  * 0x=hex, 0=octal, other=decimal.
75                  */
76                 val = 0; base = 10;
77                 if (*cp == '0') {
78                         if (*++cp == 'x' || *cp == 'X')
79                                 base = 16, cp++;
80                         else
81                                 base = 8;
82                 }
83                 while ((c = *cp) != '\0') {
84                         if (isascii(c) && isdigit(c)) {
85                                 val = (val * base) + (c - '0');
86                                 cp++;
87                                 continue;
88                         }
89                         if (base == 16 && isascii(c) && isxdigit(c)) {
90                                 val = (val << 4) + 
91                                         (c + 10 - (islower(c) ? 'a' : 'A'));
92                                 cp++;
93                                 continue;
94                         }
95                         break;
96                 }
97                 if (*cp == '.') {
98                         /*
99                          * Internet format:
100                          *      a.b.c.d
101                          *      a.b.c   (with c treated as 16-bits)
102                          *      a.b     (with b treated as 24 bits)
103                          */
104                         if (pp >= parts + 3 || val > 0xff)
105                                 return (0);
106                         *pp++ = val, cp++;
107                 } else
108                         break;
109         }
110         /*
111          * Check for trailing characters.
112          */
113         if (*cp && (!isascii(*cp) || !isspace(*cp)))
114                 return (0);
115         /*
116          * Concoct the address according to
117          * the number of parts specified.
118          */
119         n = pp - parts + 1;
120         switch (n) {
121
122         case 0:
123                 return (0);             /* initial nondigit */
124
125         case 1:                         /* a -- 32 bits */
126                 break;
127
128         case 2:                         /* a.b -- 8.24 bits */
129                 if (val > 0xffffff)
130                         return (0);
131                 val |= parts[0] << 24;
132                 break;
133
134         case 3:                         /* a.b.c -- 8.8.16 bits */
135                 if (val > 0xffff)
136                         return (0);
137                 val |= (parts[0] << 24) | (parts[1] << 16);
138                 break;
139
140         case 4:                         /* a.b.c.d -- 8.8.8.8 bits */
141                 if (val > 0xff)
142                         return (0);
143                 val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8);
144                 break;
145         }
146         if (addr)
147                 addr->s_addr = htonl(val);
148         return (1);
149 }
150 #endif