2fe8fb192f
There is important information about booting non-ack images in docs/UPDATING. ack/aout-format images can't be built any more, and booting clang/ELF-format ones is a little different. Updating to the new boot monitor is recommended. Changes in this commit: . drop boot monitor -> allowing dropping ack support . facility to copy ELF boot files to /boot so that old boot monitor can still boot fairly easily, see UPDATING . no more ack-format libraries -> single-case libraries . some cleanup of OBJECT_FMT, COMPILER_TYPE, etc cases . drop several ack toolchain commands, but not all support commands (e.g. aal is gone but acksize is not yet). . a few libc files moved to netbsd libc dir . new /bin/date as minix date used code in libc/ . test compile fix . harmonize includes . /usr/lib is no longer special: without ack, /usr/lib plays no kind of special bootstrapping role any more and bootstrapping is done exclusively through packages, so releases depend even less on the state of the machine making them now. . rename nbsd_lib* to lib* . reduce mtree
413 lines
9.3 KiB
C
413 lines
9.3 KiB
C
/*
|
|
* Copyright (c) 1996,1999 by Internet Software Consortium.
|
|
*
|
|
* Permission to use, copy, modify, and distribute this software for any
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
* copyright notice and this permission notice appear in all copies.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
|
|
* ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
|
|
* OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
|
|
* CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
|
|
* DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
|
* PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
|
|
* ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
|
|
* SOFTWARE.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#if defined(LIBC_SCCS) && !defined(lint)
|
|
#if 0
|
|
static const char rcsid[] = "Id: inet_net_pton.c,v 1.4.2.1 2002/08/02 02:17:21 marka Exp ";
|
|
#else
|
|
__RCSID("$NetBSD: inet_net_pton.c,v 1.1 2004/05/20 23:13:02 christos Exp $");
|
|
#endif
|
|
#endif
|
|
|
|
#include "port_before.h"
|
|
|
|
#include "namespace.h"
|
|
#include <sys/types.h>
|
|
#include <sys/socket.h>
|
|
#include <netinet/in.h>
|
|
#include <arpa/nameser.h>
|
|
#include <arpa/inet.h>
|
|
|
|
#include <isc/assertions.h>
|
|
#include <ctype.h>
|
|
#include <errno.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "port_after.h"
|
|
|
|
#ifdef __weak_alias
|
|
__weak_alias(inet_net_pton,_inet_net_pton)
|
|
#endif
|
|
|
|
#ifdef SPRINTF_CHAR
|
|
# define SPRINTF(x) strlen(sprintf/**/x)
|
|
#else
|
|
# define SPRINTF(x) ((size_t)sprintf x)
|
|
#endif
|
|
|
|
|
|
/*
|
|
* static int
|
|
* inet_net_pton_ipv4(src, dst, size)
|
|
* convert IPv4 network number from presentation to network format.
|
|
* accepts hex octets, hex strings, decimal octets, and /CIDR.
|
|
* "size" is in bytes and describes "dst".
|
|
* return:
|
|
* number of bits, either imputed classfully or specified with /CIDR,
|
|
* or -1 if some failure occurred (check errno). ENOENT means it was
|
|
* not an IPv4 network specification.
|
|
* note:
|
|
* network byte order assumed. this means 192.5.5.240/28 has
|
|
* 0b11110000 in its fourth octet.
|
|
* author:
|
|
* Paul Vixie (ISC), June 1996
|
|
*/
|
|
static int
|
|
inet_net_pton_ipv4( const char *src, u_char *dst, size_t size) {
|
|
static const char xdigits[] = "0123456789abcdef";
|
|
static const char digits[] = "0123456789";
|
|
int n, ch, tmp = 0, dirty, bits;
|
|
const u_char *odst = dst;
|
|
|
|
ch = *src++;
|
|
if (ch == '0' && (src[0] == 'x' || src[0] == 'X')
|
|
&& isascii((u_char)(src[1]))
|
|
&& isxdigit((u_char)(src[1]))) {
|
|
/* Hexadecimal: Eat nybble string. */
|
|
if (size == 0)
|
|
goto emsgsize;
|
|
dirty = 0;
|
|
src++; /* skip x or X. */
|
|
while ((ch = *src++) != '\0' && isascii((u_char)ch)
|
|
&& isxdigit((u_char)ch)) {
|
|
if (isupper((u_char)ch))
|
|
ch = tolower((u_char)ch);
|
|
n = strchr(xdigits, ch) - xdigits;
|
|
INSIST(n >= 0 && n <= 15);
|
|
if (dirty == 0)
|
|
tmp = n;
|
|
else
|
|
tmp = (tmp << 4) | n;
|
|
if (++dirty == 2) {
|
|
if (size-- == 0)
|
|
goto emsgsize;
|
|
*dst++ = (u_char) tmp;
|
|
dirty = 0;
|
|
}
|
|
}
|
|
if (dirty) { /* Odd trailing nybble? */
|
|
if (size-- == 0)
|
|
goto emsgsize;
|
|
*dst++ = (u_char) (tmp << 4);
|
|
}
|
|
} else if (isascii((u_char)ch) && isdigit((u_char)ch)) {
|
|
/* Decimal: eat dotted digit string. */
|
|
for (;;) {
|
|
tmp = 0;
|
|
do {
|
|
n = strchr(digits, ch) - digits;
|
|
INSIST(n >= 0 && n <= 9);
|
|
tmp *= 10;
|
|
tmp += n;
|
|
if (tmp > 255)
|
|
goto enoent;
|
|
} while ((ch = *src++) != '\0' &&
|
|
isascii((u_char)ch) && isdigit((u_char)ch));
|
|
if (size-- == 0)
|
|
goto emsgsize;
|
|
*dst++ = (u_char) tmp;
|
|
if (ch == '\0' || ch == '/')
|
|
break;
|
|
if (ch != '.')
|
|
goto enoent;
|
|
ch = *src++;
|
|
if (!isascii((u_char)ch) || !isdigit((u_char)ch))
|
|
goto enoent;
|
|
}
|
|
} else
|
|
goto enoent;
|
|
|
|
bits = -1;
|
|
if (ch == '/' && isascii((u_char)(src[0])) &&
|
|
isdigit((u_char)(src[0])) && dst > odst) {
|
|
/* CIDR width specifier. Nothing can follow it. */
|
|
ch = *src++; /* Skip over the /. */
|
|
bits = 0;
|
|
do {
|
|
n = strchr(digits, ch) - digits;
|
|
INSIST(n >= 0 && n <= 9);
|
|
bits *= 10;
|
|
bits += n;
|
|
} while ((ch = *src++) != '\0' && isascii((u_char)ch)
|
|
&& isdigit((u_char)ch));
|
|
if (ch != '\0')
|
|
goto enoent;
|
|
if (bits > 32)
|
|
goto emsgsize;
|
|
}
|
|
|
|
/* Firey death and destruction unless we prefetched EOS. */
|
|
if (ch != '\0')
|
|
goto enoent;
|
|
|
|
/* If nothing was written to the destination, we found no address. */
|
|
if (dst == odst)
|
|
goto enoent;
|
|
/* If no CIDR spec was given, infer width from net class. */
|
|
if (bits == -1) {
|
|
if (*odst >= 240) /* Class E */
|
|
bits = 32;
|
|
else if (*odst >= 224) /* Class D */
|
|
bits = 4;
|
|
else if (*odst >= 192) /* Class C */
|
|
bits = 24;
|
|
else if (*odst >= 128) /* Class B */
|
|
bits = 16;
|
|
else /* Class A */
|
|
bits = 8;
|
|
/* If imputed mask is narrower than specified octets, widen. */
|
|
if (bits >= 8 && bits < ((dst - odst) * 8))
|
|
bits = (dst - odst) * 8;
|
|
}
|
|
/* Extend network to cover the actual mask. */
|
|
while (bits > ((dst - odst) * 8)) {
|
|
if (size-- == 0)
|
|
goto emsgsize;
|
|
*dst++ = '\0';
|
|
}
|
|
return (bits);
|
|
|
|
enoent:
|
|
errno = ENOENT;
|
|
return (-1);
|
|
|
|
emsgsize:
|
|
errno = EMSGSIZE;
|
|
return (-1);
|
|
}
|
|
|
|
static int
|
|
getbits(const char *src, int *bitsp) {
|
|
static const char digits[] = "0123456789";
|
|
int n;
|
|
int val;
|
|
char ch;
|
|
|
|
val = 0;
|
|
n = 0;
|
|
while ((ch = *src++) != '\0') {
|
|
const char *pch;
|
|
|
|
pch = strchr(digits, ch);
|
|
if (pch != NULL) {
|
|
if (n++ != 0 && val == 0) /* no leading zeros */
|
|
return (0);
|
|
val *= 10;
|
|
val += (pch - digits);
|
|
if (val > 128) /* range */
|
|
return (0);
|
|
continue;
|
|
}
|
|
return (0);
|
|
}
|
|
if (n == 0)
|
|
return (0);
|
|
*bitsp = val;
|
|
return (1);
|
|
}
|
|
|
|
static int
|
|
getv4(const char *src, u_char *dst, int *bitsp) {
|
|
static const char digits[] = "0123456789";
|
|
u_char *odst = dst;
|
|
int n;
|
|
u_int val;
|
|
char ch;
|
|
|
|
val = 0;
|
|
n = 0;
|
|
while ((ch = *src++) != '\0') {
|
|
const char *pch;
|
|
|
|
pch = strchr(digits, ch);
|
|
if (pch != NULL) {
|
|
if (n++ != 0 && val == 0) /* no leading zeros */
|
|
return (0);
|
|
val *= 10;
|
|
val += (pch - digits);
|
|
if (val > 255) /* range */
|
|
return (0);
|
|
continue;
|
|
}
|
|
if (ch == '.' || ch == '/') {
|
|
if (dst - odst > 3) /* too many octets? */
|
|
return (0);
|
|
*dst++ = val;
|
|
if (ch == '/')
|
|
return (getbits(src, bitsp));
|
|
val = 0;
|
|
n = 0;
|
|
continue;
|
|
}
|
|
return (0);
|
|
}
|
|
if (n == 0)
|
|
return (0);
|
|
if (dst - odst > 3) /* too many octets? */
|
|
return (0);
|
|
*dst++ = val;
|
|
return (1);
|
|
}
|
|
|
|
static int
|
|
inet_net_pton_ipv6(const char *src, u_char *dst, size_t size) {
|
|
static const char xdigits_l[] = "0123456789abcdef",
|
|
xdigits_u[] = "0123456789ABCDEF";
|
|
u_char tmp[NS_IN6ADDRSZ], *tp, *endp, *colonp;
|
|
const char *xdigits, *curtok;
|
|
int ch, saw_xdigit;
|
|
u_int val;
|
|
int digits;
|
|
int bits;
|
|
size_t bytes;
|
|
int words;
|
|
int ipv4;
|
|
|
|
memset((tp = tmp), '\0', NS_IN6ADDRSZ);
|
|
endp = tp + NS_IN6ADDRSZ;
|
|
colonp = NULL;
|
|
/* Leading :: requires some special handling. */
|
|
if (*src == ':')
|
|
if (*++src != ':')
|
|
goto enoent;
|
|
curtok = src;
|
|
saw_xdigit = 0;
|
|
val = 0;
|
|
digits = 0;
|
|
bits = -1;
|
|
ipv4 = 0;
|
|
while ((ch = *src++) != '\0') {
|
|
const char *pch;
|
|
|
|
if ((pch = strchr((xdigits = xdigits_l), ch)) == NULL)
|
|
pch = strchr((xdigits = xdigits_u), ch);
|
|
if (pch != NULL) {
|
|
val <<= 4;
|
|
val |= (pch - xdigits);
|
|
if (++digits > 4)
|
|
goto enoent;
|
|
saw_xdigit = 1;
|
|
continue;
|
|
}
|
|
if (ch == ':') {
|
|
curtok = src;
|
|
if (!saw_xdigit) {
|
|
if (colonp)
|
|
goto enoent;
|
|
colonp = tp;
|
|
continue;
|
|
} else if (*src == '\0')
|
|
goto enoent;
|
|
if (tp + NS_INT16SZ > endp)
|
|
return (0);
|
|
*tp++ = (u_char) (val >> 8) & 0xff;
|
|
*tp++ = (u_char) val & 0xff;
|
|
saw_xdigit = 0;
|
|
digits = 0;
|
|
val = 0;
|
|
continue;
|
|
}
|
|
if (ch == '.' && ((tp + NS_INADDRSZ) <= endp) &&
|
|
getv4(curtok, tp, &bits) > 0) {
|
|
tp += NS_INADDRSZ;
|
|
saw_xdigit = 0;
|
|
ipv4 = 1;
|
|
break; /* '\0' was seen by inet_pton4(). */
|
|
}
|
|
if (ch == '/' && getbits(src, &bits) > 0)
|
|
break;
|
|
goto enoent;
|
|
}
|
|
if (saw_xdigit) {
|
|
if (tp + NS_INT16SZ > endp)
|
|
goto enoent;
|
|
*tp++ = (u_char) (val >> 8) & 0xff;
|
|
*tp++ = (u_char) val & 0xff;
|
|
}
|
|
if (bits == -1)
|
|
bits = 128;
|
|
|
|
words = (bits + 15) / 16;
|
|
if (words < 2)
|
|
words = 2;
|
|
if (ipv4)
|
|
words = 8;
|
|
endp = tmp + 2 * words;
|
|
|
|
if (colonp != NULL) {
|
|
/*
|
|
* Since some memmove()'s erroneously fail to handle
|
|
* overlapping regions, we'll do the shift by hand.
|
|
*/
|
|
const int n = tp - colonp;
|
|
int i;
|
|
|
|
if (tp == endp)
|
|
goto enoent;
|
|
for (i = 1; i <= n; i++) {
|
|
endp[- i] = colonp[n - i];
|
|
colonp[n - i] = 0;
|
|
}
|
|
tp = endp;
|
|
}
|
|
if (tp != endp)
|
|
goto enoent;
|
|
|
|
bytes = (bits + 7) / 8;
|
|
if (bytes > size)
|
|
goto emsgsize;
|
|
memcpy(dst, tmp, bytes);
|
|
return (bits);
|
|
|
|
enoent:
|
|
errno = ENOENT;
|
|
return (-1);
|
|
|
|
emsgsize:
|
|
errno = EMSGSIZE;
|
|
return (-1);
|
|
}
|
|
|
|
/*
|
|
* int
|
|
* inet_net_pton(af, src, dst, size)
|
|
* convert network number from presentation to network format.
|
|
* accepts hex octets, hex strings, decimal octets, and /CIDR.
|
|
* "size" is in bytes and describes "dst".
|
|
* return:
|
|
* number of bits, either imputed classfully or specified with /CIDR,
|
|
* or -1 if some failure occurred (check errno). ENOENT means it was
|
|
* not a valid network specification.
|
|
* author:
|
|
* Paul Vixie (ISC), June 1996
|
|
*/
|
|
int
|
|
inet_net_pton(int af, const char *src, void *dst, size_t size) {
|
|
switch (af) {
|
|
case AF_INET:
|
|
return (inet_net_pton_ipv4(src, dst, size));
|
|
case AF_INET6:
|
|
return (inet_net_pton_ipv6(src, dst, size));
|
|
default:
|
|
errno = EAFNOSUPPORT;
|
|
return (-1);
|
|
}
|
|
}
|