/*      $NetBSD: if_prom.c,v 1.11 2011/01/12 15:32:43 tsutsui Exp $ */

/* Copyright (c) 1999 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Gregory McGarry.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/

#include <sys/param.h>
#include <sys/types.h>

#include <net/if_ether.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/ip.h>

#include <lib/libsa/stand.h>
#include <lib/libsa/net.h>
#include <lib/libsa/netif.h>
#include <lib/libsa/dev_net.h>
#include <lib/libkern/libkern.h>

#include <machine/dec_prom.h>
#include <stand/common/common.h>

#ifdef NET_DEBUG
#define DPRINTF(x)      printf(x)
#else
#define DPRINTF(x)
#endif

#ifdef NET_DEBUG
void dump_packet_info(void *, int);
#endif

/*
*  For some reason the proms won't pass arp responses back to us.  I
*  have checked if the first parameter to bootread/bootwrite do anything
*  but it doesn't appear so.  Therefore, we stop the upper layers from
*  sending arp requests in the first place, by monitoring packets which
*  come in and filling the arp cache ourselves.  - gmcgarry
*/
#ifdef FILL_ARPCACHE
struct arp_list {
       struct in_addr  addr;
       u_char          ea[6];
};
extern struct arp_list arp_list[8];
extern int arp_num;
void fill_arpcache(void *, int);
#endif

/* forward declarations */
int prom_probe(struct netif *, void *);
int prom_match(struct netif *, void *);
void prom_init(struct iodesc *, void *);
int prom_get(struct iodesc *, void *, size_t, saseconds_t);
int prom_put(struct iodesc *, void *, size_t);
void prom_end(struct netif *);

extern struct netif_stats       prom_stats[];
struct netif_dif prom_ifs[] = {
/*      dif_unit        dif_nsel        dif_stats       dif_private     */
{       0,              1,              &prom_stats[0], 0,              },
};
#define NPROM_IFS (sizeof(prom_ifs) / sizeof(prom_ifs[0]))
struct netif_stats prom_stats[NPROM_IFS];

struct netif_driver prom_netif_driver = {
       "prom",                         /* netif_bname */
       prom_match,                     /* netif_match */
       prom_probe,                     /* netif_probe */
       prom_init,                      /* netif_init */
       prom_get,                       /* netif_get */
       prom_put,                       /* netif_put */
       prom_end,                       /* netif_end */
       prom_ifs,                       /* netif_ifs */
       NPROM_IFS                       /* netif_nifs */
};

static int sc_fd;                               /* PROM file id */

int
prom_match(struct netif *nif, void *machdep_hint)
{

       DPRINTF(("prom_match: called\n"));
       return 1;
}


int
prom_probe(struct netif *nif, void *machdep_hint)
{

       DPRINTF(("prom_probe: called\n"));
       return 0;
}


void
prom_init(struct iodesc *desc, void *machdep_hint)
{
       struct netif *nif;
       char *device, *enet;
       uint8_t *cp, *dest;
       int i;

       DPRINTF(("prom_init: called\n"));

       try_bootp = 1;

       /*
        * Get our hardware address (this prom call is one of the rare ones
        * which is the same for new and old proms)
        */
       enet = (*callv->_getenv)("enet");

       if (enet == NULL) {
               printf("No `enet' environment variable found.\n"
                   "Set MAC address to `enet' manually by setenv command.\n");
               prom_restart();
               /* NOTREACHED */
       }

#ifdef NET_DEBUG
       if (debug)
               printf("enet=%s\n", enet);
#endif

#define atox(c) (((c) <= '9') ? ((c) - '0') : ((toupper(c) - 'A') + 10))

       cp = (uint8_t *)enet;
       dest = desc->myea;
       for (i = 0; i < 6; i++) {
               if (isxdigit(*cp)) {
                       *dest = atox(*cp);
                       cp++;
                       if (isxdigit(*cp)) {
                               *dest = (*dest << 4) | atox(*cp);
                               cp++;
                       }
               }
               dest++;
               cp++;   /* skip '-' or ':' etc. */
       }

       desc->xid = 0x66d30000;

       nif = desc->io_netif;
       device = nif->nif_driver->netif_bname;
       if (callv == &callvec)
               sc_fd = prom_open(device, 0);
       else
               sc_fd = (*callv->_bootinit)(device);

       if (sc_fd < 0)
               printf("problem initialising device\n");
}


int
prom_put(struct iodesc *desc, void *pkt, size_t len)
{
       int s;

       DPRINTF(("prom_put: called\n"));

#ifdef NET_DEBUG
       if (debug)
               dump_packet_info(pkt,len);
#endif

       if (callv == &callvec)
               s = prom_write(sc_fd, pkt, len);
       else {
               s = (*callv->_bootwrite)(0, pkt, len);
               (*callv->_wbflush)(); /* didn't really make a difference */
       }
       if (s < 0)
               return EIO;
       return s;
}


int
prom_get(struct iodesc *desc, void *pkt, size_t len, saseconds_t timeout)
{
       int s;
       satime_t t;

       DPRINTF(("prom_get: called\n"));

       t = getsecs();
       s = 0;
       while (((getsecs() - t) < timeout) && !s) {
               if (callv == &callvec)
                       s = prom_read(sc_fd, pkt, len);
               else
                       s = (*callv->_bootread)(0, pkt, len);
       }

#ifdef FILL_ARPCACHE
       if (s > 0)
               fill_arpcache(pkt,s);
#endif

       return s;
}


void
prom_end(struct netif *nif)
{

       DPRINTF(("prom_end: called\n"));

       if (callv == &callvec)
               prom_close(sc_fd);
}


#ifdef FILL_ARPCACHE
void
fill_arpcache(void *pkt, int len)
{
       int i;
       struct arp_list *al;
       struct ether_header *eh = (struct ether_header *)pkt;
       struct ip *ih = (struct ip *)(eh + 1);

#ifdef NET_DEBUG
       if (debug)
               dump_packet_info(pkt, len);
#endif

       if (ntohs(eh->ether_type) == 0x0800) {

               /* check arp cache */
               for (i=0, al=arp_list; i<arp_num; ++i, ++al) {
                       if (al->addr.s_addr == ih->ip_src.s_addr) {
                               /* already in cache */
                               return;
                       }
               }
               if (arp_num > 7)
                       arp_num = 1;    /* recycle */
               al->addr.s_addr = ih->ip_src.s_addr;
               for (i = 0; i < 6; i++)
                       al->ea[i] = eh->ether_shost[i];
               ++arp_num;
       }
}
#endif

#ifdef NET_DEBUG
void
dump_packet_info(void *pkt, int len)
{
       struct ether_header *eh = (struct ether_header *)pkt;
       struct ip *ih = (struct ip *)(eh + 1);

       printf("ether_dhost = %s\n", ether_sprintf(eh->ether_dhost));
       printf("ether_shost = %s\n", ether_sprintf(eh->ether_shost));
       printf("ether_type = 0x%x\n", ntohs(eh->ether_type));

       if (ntohs(eh->ether_type) == 0x0800) {
               printf("ip packet version %d\n", ih->ip_v);
               printf("source ip: 0x%x\n", ih->ip_src.s_addr);
               printf("dest ip: 0x%x\n", ih->ip_dst.s_addr);
       }
}
#endif

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.