source: rtems-libbsd/freebsd/contrib/libpcap/nametoaddr.c @ 8440506

#include <machine/rtems-bsd-user-space.h>

/*
 * Copyright (c) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998
 *      The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that: (1) source code distributions
 * retain the above copyright notice and this paragraph in its entirety, (2)
 * distributions including binary code include the above copyright notice and
 * this paragraph in its entirety in the documentation or other materials
 * provided with the distribution, and (3) all advertising materials mentioning
 * features or use of this software display the following acknowledgement:
 * ``This product includes software developed by the University of California,
 * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
 * the University nor the names of its contributors may be used to endorse
 * or promote products derived from this software without specific prior
 * written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 *
 * Name to id translation routines used by the scanner.
 * These functions are not time critical.
 *
 * $FreeBSD$
 */

#ifndef lint
static const char rcsid[] _U_ =
    "@(#) $Header: /tcpdump/master/libpcap/nametoaddr.c,v 1.83 2008-02-06 10:21:30 guy Exp $ (LBL)";
#endif

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#ifdef DECNETLIB
#include <rtems/bsd/sys/types.h>
#include <netdnet/dnetdb.h>
#endif

#ifdef WIN32
#include <pcap-stdinc.h>

#else /* WIN32 */

#include <rtems/bsd/sys/param.h>
#include <rtems/bsd/sys/types.h>                                /* concession to AIX */
#include <sys/socket.h>
#include <rtems/bsd/sys/time.h>

#include <netinet/in.h>
#endif /* WIN32 */

#ifndef WIN32
#ifdef HAVE_ETHER_HOSTTON
/*
 * XXX - do we need any of this if <netinet/if_ether.h> doesn't declare
 * ether_hostton()?
 */
#ifdef HAVE_NETINET_IF_ETHER_H
struct mbuf;            /* Squelch compiler warnings on some platforms for */
struct rtentry;         /* declarations in <net/if.h> */
#include <net/if.h>     /* for "struct ifnet" in "struct arpcom" on Solaris */
#include <netinet/if_ether.h>
#endif /* HAVE_NETINET_IF_ETHER_H */
#ifdef NETINET_ETHER_H_DECLARES_ETHER_HOSTTON
#include <netinet/ether.h>
#endif /* NETINET_ETHER_H_DECLARES_ETHER_HOSTTON */
#endif /* HAVE_ETHER_HOSTTON */
#include <arpa/inet.h>
#include <netdb.h>
#endif /* WIN32 */

#include <ctype.h>
#include <errno.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>

#include "pcap-int.h"

#include "gencode.h"
#include <pcap/namedb.h>

#ifdef HAVE_OS_PROTO_H
#include "os-proto.h"
#endif

#ifndef NTOHL
#define NTOHL(x) (x) = ntohl(x)
#define NTOHS(x) (x) = ntohs(x)
#endif

static inline int xdtoi(int);

/*
 *  Convert host name to internet address.
 *  Return 0 upon failure.
 */
bpf_u_int32 **
pcap_nametoaddr(const char *name)
{
#ifndef h_addr
        static bpf_u_int32 *hlist[2];
#endif
        bpf_u_int32 **p;
        struct hostent *hp;

        if ((hp = gethostbyname(name)) != NULL) {
#ifndef h_addr
                hlist[0] = (bpf_u_int32 *)hp->h_addr;
                NTOHL(hp->h_addr);
                return hlist;
#else
                for (p = (bpf_u_int32 **)hp->h_addr_list; *p; ++p)
                        NTOHL(**p);
                return (bpf_u_int32 **)hp->h_addr_list;
#endif
        }
        else
                return 0;
}

#ifdef INET6
struct addrinfo *
pcap_nametoaddrinfo(const char *name)
{
        struct addrinfo hints, *res;
        int error;

        memset(&hints, 0, sizeof(hints));
        hints.ai_family = PF_UNSPEC;
        hints.ai_socktype = SOCK_STREAM;        /*not really*/
        hints.ai_protocol = IPPROTO_TCP;        /*not really*/
        error = getaddrinfo(name, NULL, &hints, &res);
        if (error)
                return NULL;
        else
                return res;
}
#endif /*INET6*/

/*
 *  Convert net name to internet address.
 *  Return 0 upon failure.
 */
bpf_u_int32
pcap_nametonetaddr(const char *name)
{
#ifndef WIN32
        struct netent *np;

        if ((np = getnetbyname(name)) != NULL)
                return np->n_net;
        else
                return 0;
#else
        /*
         * There's no "getnetbyname()" on Windows.
         */
        return 0;
#endif
}

/*
 * Convert a port name to its port and protocol numbers.
 * We assume only TCP or UDP.
 * Return 0 upon failure.
 */
int
pcap_nametoport(const char *name, int *port, int *proto)
{
        struct servent *sp;
        int tcp_port = -1;
        int udp_port = -1;

        /*
         * We need to check /etc/services for ambiguous entries.
         * If we find the ambiguous entry, and it has the
         * same port number, change the proto to PROTO_UNDEF
         * so both TCP and UDP will be checked.
         */
        sp = getservbyname(name, "tcp");
        if (sp != NULL) tcp_port = ntohs(sp->s_port);
        sp = getservbyname(name, "udp");
        if (sp != NULL) udp_port = ntohs(sp->s_port);
        if (tcp_port >= 0) {
                *port = tcp_port;
                *proto = IPPROTO_TCP;
                if (udp_port >= 0) {
                        if (udp_port == tcp_port)
                                *proto = PROTO_UNDEF;
#ifdef notdef
                        else
                                /* Can't handle ambiguous names that refer
                                   to different port numbers. */
                                warning("ambiguous port %s in /etc/services",
                                        name);
#endif
                }
                return 1;
        }
        if (udp_port >= 0) {
                *port = udp_port;
                *proto = IPPROTO_UDP;
                return 1;
        }
#if defined(ultrix) || defined(__osf__)
        /* Special hack in case NFS isn't in /etc/services */
        if (strcmp(name, "nfs") == 0) {
                *port = 2049;
                *proto = PROTO_UNDEF;
                return 1;
        }
#endif
        return 0;
}

/*
 * Convert a string in the form PPP-PPP, where correspond to ports, to
 * a starting and ending port in a port range.
 * Return 0 on failure.
 */
int
pcap_nametoportrange(const char *name, int *port1, int *port2, int *proto)
{
        u_int p1, p2;
        char *off, *cpy;
        int save_proto;

        if (sscanf(name, "%d-%d", &p1, &p2) != 2) {
                if ((cpy = strdup(name)) == NULL)
                        return 0;

                if ((off = strchr(cpy, '-')) == NULL) {
                        free(cpy);
                        return 0;
                }

                *off = '\0';

                if (pcap_nametoport(cpy, port1, proto) == 0) {
                        free(cpy);
                        return 0;
                }
                save_proto = *proto;

                if (pcap_nametoport(off + 1, port2, proto) == 0) {
                        free(cpy);
                        return 0;
                }
                free(cpy);

                if (*proto != save_proto)
                        *proto = PROTO_UNDEF;
        } else {
                *port1 = p1;
                *port2 = p2;
                *proto = PROTO_UNDEF;
        }

        return 1;
}

int
pcap_nametoproto(const char *str)
{
        struct protoent *p;

        p = getprotobyname(str);
        if (p != 0)
                return p->p_proto;
        else
                return PROTO_UNDEF;
}

#include "ethertype.h"

struct eproto {
        const char *s;
        u_short p;
};

/* Static data base of ether protocol types. */
struct eproto eproto_db[] = {
#if 0
        /* The FreeBSD elf linker generates a request to copy this array
         * (including its size) when you link with -lpcap.  In order to
         * not bump the major version number of this libpcap.so, we need
         * to ensure that the array stays the same size.  Since PUP is
         * likely never seen in real life any more, it's the first to
         * be sacrificed (in favor of ip6).
         */
        { "pup", ETHERTYPE_PUP },
#endif
        { "xns", ETHERTYPE_NS },
        { "ip", ETHERTYPE_IP },
#ifdef INET6
        { "ip6", ETHERTYPE_IPV6 },
#endif
        { "arp", ETHERTYPE_ARP },
        { "rarp", ETHERTYPE_REVARP },
        { "sprite", ETHERTYPE_SPRITE },
        { "mopdl", ETHERTYPE_MOPDL },
        { "moprc", ETHERTYPE_MOPRC },
        { "decnet", ETHERTYPE_DN },
        { "lat", ETHERTYPE_LAT },
        { "sca", ETHERTYPE_SCA },
        { "lanbridge", ETHERTYPE_LANBRIDGE },
        { "vexp", ETHERTYPE_VEXP },
        { "vprod", ETHERTYPE_VPROD },
        { "atalk", ETHERTYPE_ATALK },
        { "atalkarp", ETHERTYPE_AARP },
        { "loopback", ETHERTYPE_LOOPBACK },
        { "decdts", ETHERTYPE_DECDTS },
        { "decdns", ETHERTYPE_DECDNS },
        { (char *)0, 0 }
};

int
pcap_nametoeproto(const char *s)
{
        struct eproto *p = eproto_db;

        while (p->s != 0) {
                if (strcmp(p->s, s) == 0)
                        return p->p;
                p += 1;
        }
        return PROTO_UNDEF;
}

#include "llc.h"

/* Static data base of LLC values. */
static struct eproto llc_db[] = {
        { "iso", LLCSAP_ISONS },
        { "stp", LLCSAP_8021D },
        { "ipx", LLCSAP_IPX },
        { "netbeui", LLCSAP_NETBEUI },
        { (char *)0, 0 }
};

int
pcap_nametollc(const char *s)
{
        struct eproto *p = llc_db;

        while (p->s != 0) {
                if (strcmp(p->s, s) == 0)
                        return p->p;
                p += 1;
        }
        return PROTO_UNDEF;
}

/* Hex digit to integer. */
static inline int
xdtoi(c)
        register int c;
{
        if (isdigit(c))
                return c - '0';
        else if (islower(c))
                return c - 'a' + 10;
        else
                return c - 'A' + 10;
}

int
__pcap_atoin(const char *s, bpf_u_int32 *addr)
{
        u_int n;
        int len;

        *addr = 0;
        len = 0;
        while (1) {
                n = 0;
                while (*s && *s != '.')
                        n = n * 10 + *s++ - '0';
                *addr <<= 8;
                *addr |= n & 0xff;
                len += 8;
                if (*s == '\0')
                        return len;
                ++s;
        }
        /* NOTREACHED */
}

int
__pcap_atodn(const char *s, bpf_u_int32 *addr)
{
#define AREASHIFT 10
#define AREAMASK 0176000
#define NODEMASK 01777

        u_int node, area;

        if (sscanf(s, "%d.%d", &area, &node) != 2)
                bpf_error("malformed decnet address '%s'", s);

        *addr = (area << AREASHIFT) & AREAMASK;
        *addr |= (node & NODEMASK);

        return(32);
}

/*
 * Convert 's', which can have the one of the forms:
 *
 *      "xx:xx:xx:xx:xx:xx"
 *      "xx.xx.xx.xx.xx.xx"
 *      "xx-xx-xx-xx-xx-xx"
 *      "xxxx.xxxx.xxxx"
 *      "xxxxxxxxxxxx"
 *
 * (or various mixes of ':', '.', and '-') into a new
 * ethernet address.  Assumes 's' is well formed.
 */
u_char *
pcap_ether_aton(const char *s)
{
        register u_char *ep, *e;
        register u_int d;

        e = ep = (u_char *)malloc(6);

        while (*s) {
                if (*s == ':' || *s == '.' || *s == '-')
                        s += 1;
                d = xdtoi(*s++);
                if (isxdigit((unsigned char)*s)) {
                        d <<= 4;
                        d |= xdtoi(*s++);
                }
                *ep++ = d;
        }

        return (e);
}

#ifndef HAVE_ETHER_HOSTTON
/* Roll our own */
u_char *
pcap_ether_hostton(const char *name)
{
        register struct pcap_etherent *ep;
        register u_char *ap;
        static FILE *fp = NULL;
        static int init = 0;

        if (!init) {
                fp = fopen(PCAP_ETHERS_FILE, "r");
                ++init;
                if (fp == NULL)
                        return (NULL);
        } else if (fp == NULL)
                return (NULL);
        else
                rewind(fp);

        while ((ep = pcap_next_etherent(fp)) != NULL) {
                if (strcmp(ep->name, name) == 0) {
                        ap = (u_char *)malloc(6);
                        if (ap != NULL) {
                                memcpy(ap, ep->addr, 6);
                                return (ap);
                        }
                        break;
                }
        }
        return (NULL);
}
#else

#if !defined(HAVE_DECL_ETHER_HOSTTON) || !HAVE_DECL_ETHER_HOSTTON
#ifndef HAVE_STRUCT_ETHER_ADDR
struct ether_addr {
        unsigned char ether_addr_octet[6];
};
#endif
extern int ether_hostton(const char *, struct ether_addr *);
#endif

/* Use the os supplied routines */
u_char *
pcap_ether_hostton(const char *name)
{
        register u_char *ap;
        u_char a[6];

        ap = NULL;
        if (ether_hostton(name, (struct ether_addr *)a) == 0) {
                ap = (u_char *)malloc(6);
                if (ap != NULL)
                        memcpy((char *)ap, (char *)a, 6);
        }
        return (ap);
}
#endif

u_short
__pcap_nametodnaddr(const char *name)
{
#ifdef  DECNETLIB
        struct nodeent *getnodebyname();
        struct nodeent *nep;
        unsigned short res;

        nep = getnodebyname(name);
        if (nep == ((struct nodeent *)0))
                bpf_error("unknown decnet host name '%s'\n", name);

        memcpy((char *)&res, (char *)nep->n_addr, sizeof(unsigned short));
        return(res);
#else
        bpf_error("decnet name support not included, '%s' cannot be translated\n",
                name);
        return(0);
#endif
}