/* $NetBSD: netif_sun.c,v 1.2 1995/09/23 03:42:42 gwr Exp $ */ /* * Copyright (c) 1995 Gordon W. Ross * 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. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * 4. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by Gordon W. Ross * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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. */ /* * The Sun PROM has a fairly general set of network drivers, * so it is easiest to just replace the netif module with * this adaptation to the PROM network interface. */ #include #include #include #include #include #include #include #include #include #include #include #include #include "stand.h" #include "net.h" #include "netif.h" #include "clock.h" #include "dvma.h" #include "promdev.h" static struct netif netif_prom; static void sun3_getether __P((u_char *)); #ifdef NETIF_DEBUG int netif_debug; #endif struct iodesc sockets[SOPEN_MAX]; struct iodesc * socktodesc(sock) int sock; { if (sock != 0) { return(NULL); } return (sockets); } int netif_open(machdep_hint) void *machdep_hint; { struct saioreq *si; struct iodesc *io; int error; /* find a free socket */ io = sockets; if (io->io_netif) { #ifdef DEBUG printf("netif_open: device busy\n"); #endif return (-1); } bzero(io, sizeof(*io)); /* * Note: Sun PROMs will do RARP on open, but does not tell * you the IP address it gets, so it is just noise to us... */ if ((error = prom_iopen(&si)) != 0) { #ifdef DEBUG printf("netif_open: prom_iopen, error=%d\n", error); #endif return (-1); } if (si->si_sif == NULL) { #ifdef DEBUG printf("netif_open: not a network device\n"); #endif prom_iclose(si); return (-1); } netif_prom.devdata = si; io->io_netif = &netif_prom; /* Put our ethernet address in io->myea */ sun3_getether(io->myea); return(0); } int netif_close(fd) int fd; { struct iodesc *io; struct netif *ni; if (fd != 0) { errno = EBADF; return(-1); } io = sockets; ni = io->io_netif; if (ni != NULL) { prom_iclose(ni->devdata); ni->devdata = NULL; io->io_netif = NULL; } return(0); } /* * Send a packet. The ether header is already there. * Return the length sent (or -1 on error). */ int netif_put(desc, pkt, len) struct iodesc *desc; void *pkt; size_t len; { struct saioreq *si; struct saif *sif; char *dmabuf; int rv, sendlen; #ifdef NETIF_DEBUG if (netif_debug) { struct ether_header *eh; printf("netif_put: desc=0x%x pkt=0x%x len=%d\n", desc, pkt, len); eh = pkt; printf("dst: %s ", ether_sprintf(eh->ether_dhost)); printf("src: %s ", ether_sprintf(eh->ether_shost)); printf("type: 0x%x\n", eh->ether_type & 0xFFFF); } #endif si = desc->io_netif->devdata; sif = si->si_sif; sendlen = len; if (sendlen < 60) { sendlen = 60; #ifdef NETIF_DEBUG printf("netif_put: length padded to %d\n", sendlen); #endif } #ifdef PARANOID if (sif == NULL) panic("netif_put: no saif ptr\n"); #endif dmabuf = dvma_mapin(pkt, sendlen); rv = sif->sif_xmit(si->si_devdata, dmabuf, sendlen); dvma_mapout(dmabuf, sendlen); #ifdef NETIF_DEBUG if (netif_debug) printf("netif_put: xmit returned %d\n", rv); #endif if (rv == 0) rv = len; else rv = -1; return rv; } /* * Receive a packet, including the ether header. * Return the total length received (or -1 on error). */ int netif_get(desc, pkt, maxlen, timo) struct iodesc *desc; void *pkt; size_t maxlen; time_t timo; { struct saioreq *si; struct saif *sif; char *dmabuf; int tick0, tmo_ticks; int len; #ifdef NETIF_DEBUG if (netif_debug) printf("netif_get: pkt=0x%x, maxlen=%d, tmo=%d\n", pkt, maxlen, timo); #endif si = desc->io_netif->devdata; sif = si->si_sif; #ifdef PARANOID if (sif == NULL) panic("netif_get: no saif ptr\n"); #endif tmo_ticks = timo * hz; tick0 = getticks(); dmabuf = dvma_mapin(pkt, maxlen); do len = sif->sif_poll(si->si_devdata, dmabuf); while ((len == 0) && ((getticks() - tick0) < tmo_ticks)); dvma_mapout(dmabuf, maxlen); #ifdef NETIF_DEBUG if (netif_debug) printf("netif_get: received len=%d\n", len); #endif if (len < 12) return -1; #ifdef NETIF_DEBUG if (netif_debug) { struct ether_header *eh = pkt; printf("dst: %s ", ether_sprintf(eh->ether_dhost)); printf("src: %s ", ether_sprintf(eh->ether_shost)); printf("type: 0x%x\n", eh->ether_type & 0xFFFF); } #endif return len; } static struct idprom sun3_idprom; static void sun3_getether(ea) u_char *ea; { u_char *src, *dst; int len, x; if (sun3_idprom.idp_format == 0) { dst = (char*)&sun3_idprom; src = (char*)IDPROM_BASE; len = IDPROM_SIZE; do { x = get_control_byte(src++); *dst++ = x; } while (--len > 0); } MACPY(sun3_idprom.idp_etheraddr, ea); }