freebsd-dev/sys/boot/alpha/libalpha/srmnet.c
1999-09-06 18:32:40 +00:00

260 lines
6.4 KiB
C

/*
* $FreeBSD$
* From: $NetBSD: if_prom.c,v 1.10 1997/09/06 14:08:33 drochner Exp $
*/
/*
* Copyright (c) 1997 Christopher G. Demetriou. All rights reserved.
* Copyright (c) 1993 Adam Glass
* All rights reserved.
*
* 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Adam Glass.
* 4. The name of the Author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY Adam Glass ``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 REGENTS 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 <netinet/in.h>
#include <netinet/in_systm.h>
#include <stand.h>
#include <net.h>
#include <netif.h>
#include <machine/prom.h>
#include "bbinfo.h"
int prom_probe();
int prom_match();
void prom_init();
int prom_get();
int prom_put();
void prom_end();
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, },
};
struct netif_stats prom_stats[NENTS(prom_ifs)];
struct netbbinfo netbbinfo = {
0xfeedbabedeadbeef, /* magic number */
0, /* set */
{0, 0, 0, 0, 0, 0}, /* ether address */
0, /* force */
{ 0, }, /* pad2 */
0, /* cksum */
0xfeedbeefdeadbabe, /* magic number */
};
struct netif_driver srmnet = {
"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 */
NENTS(prom_ifs) /* netif_nifs */
};
int netfd = 0, broken_firmware;
int
prom_match(nif, machdep_hint)
struct netif *nif;
void *machdep_hint;
{
return (1);
}
int
prom_probe(nif, machdep_hint)
struct netif *nif;
void *machdep_hint;
{
return 0;
}
int
prom_put(desc, pkt, len)
struct iodesc *desc;
void *pkt;
int len;
{
prom_write(netfd, len, pkt, 0);
return len;
}
int
prom_get(desc, pkt, len, timeout)
struct iodesc *desc;
void *pkt;
int len;
time_t timeout;
{
prom_return_t ret;
time_t t;
int cc;
char hate[2000];
t = getsecs();
cc = 0;
while (((getsecs() - t) < timeout) && !cc) {
if (broken_firmware)
ret.bits = prom_read(netfd, 0, hate, 0);
else
ret.bits = prom_read(netfd, sizeof hate, hate, 0);
if (ret.u.status == 0)
cc = ret.u.retval;
}
if (broken_firmware)
cc = min(cc, len);
else
cc = len;
bcopy(hate, pkt, cc);
return cc;
}
extern char *strchr();
void
prom_init(desc, machdep_hint)
struct iodesc *desc;
void *machdep_hint;
{
prom_return_t ret;
char devname[64];
int devlen, i;
int netbbinfovalid;
char *enet_addr;
u_int64_t *qp, csum;
broken_firmware = 0;
csum = 0;
for (i = 0, qp = (u_int64_t *)&netbbinfo;
i < (sizeof netbbinfo / sizeof (u_int64_t)); i++, qp++)
csum += *qp;
netbbinfovalid = (csum == 0);
if (netbbinfovalid)
netbbinfovalid = netbbinfo.set;
#if 0
printf("netbbinfo ");
if (!netbbinfovalid)
printf("invalid\n");
else
printf("valid: force = %d, ea = %s\n", netbbinfo.force,
ether_sprintf(netbbinfo.ether_addr));
#endif
ret.bits = prom_getenv(PROM_E_BOOTED_DEV, devname, sizeof(devname));
devlen = ret.u.retval;
/* Ethernet address is the 9th component of the booted_dev string. */
enet_addr = devname;
for (i = 0; i < 8; i++) {
enet_addr = strchr(enet_addr, ' ');
if (enet_addr == NULL) {
printf("boot: boot device name does not contain ethernet address.\n");
goto punt;
}
enet_addr++;
}
if (enet_addr != NULL) {
int hv, lv;
#define dval(c) (((c) >= '0' && (c) <= '9') ? ((c) - '0') : \
(((c) >= 'A' && (c) <= 'F') ? (10 + (c) - 'A') : \
(((c) >= 'a' && (c) <= 'f') ? (10 + (c) - 'a') : -1)))
for (i = 0; i < 6; i++) {
hv = dval(*enet_addr); enet_addr++;
lv = dval(*enet_addr); enet_addr++;
enet_addr++;
if (hv == -1 || lv == -1) {
printf("boot: boot device name contains bogus ethernet address.\n");
goto punt;
}
desc->myea[i] = (hv << 4) | lv;
}
#undef dval
}
if (netbbinfovalid && netbbinfo.force) {
printf("boot: using hard-coded ethernet address (forced).\n");
bcopy(netbbinfo.ether_addr, desc->myea, sizeof desc->myea);
}
gotit:
printf("boot: ethernet address: %s\n", ether_sprintf(desc->myea));
ret.bits = prom_open(devname, devlen + 1);
if (ret.u.status) {
printf("prom_init: open failed: %d\n", ret.u.status);
goto reallypunt;
}
netfd = ret.u.retval;
return;
punt:
broken_firmware = 1;
if (netbbinfovalid) {
printf("boot: using hard-coded ethernet address.\n");
bcopy(netbbinfo.ether_addr, desc->myea, sizeof desc->myea);
goto gotit;
}
reallypunt:
printf("\n");
printf("Boot device name was: \"%s\"\n", devname);
printf("\n");
printf("Your firmware may be too old to network-boot FreeBSD/alpha,\n");
printf("or you might have to hard-code an ethernet address into\n");
printf("your network boot block with setnetbootinfo(8).\n");
halt();
}
void
prom_end(nif)
struct netif *nif;
{
prom_close(netfd);
}