/* * From: $NetBSD: if_prom.c,v 1.10 1997/09/06 14:08:33 drochner Exp $ * $FreeBSD: src/sys/boot/alpha/libalpha/srmnet.c,v 1.4 1999/09/06 18:32:40 dfr Exp $ * $DragonFly: src/sys/boot/alpha/libalpha/Attic/srmnet.c,v 1.3 2003/11/10 06:08:30 dillon 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 #include #include #include #include #include #include #include #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); }