mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-08-08 05:29:10 -04:00
296 lines
6.8 KiB
C
296 lines
6.8 KiB
C
/* $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
|