Latest fixes from Nesheim@cornell
[unix-history] / usr / src / sys / deprecated / netpup / raw_pup.c
index f4b14b0..1cafbaa 100644 (file)
-/*     raw_pup.c       4.3     82/02/15        */
+/*     raw_pup.c       6.2     84/08/29        */
 
 
-#include "../h/param.h"
-#include "../h/mbuf.h"
-#include "../h/socket.h"
-#include "../h/protosw.h"
-#include "../h/socketvar.h"
-#include "../net/in.h"
-#include "../net/in_systm.h"
-#include "../net/pup.h"
+#include "param.h"
+#include "mbuf.h"
+#include "socket.h"
+#include "protosw.h"
+#include "socketvar.h"
+#include "errno.h"
+
+#include "../net/if.h"
+#include "../net/route.h"
 #include "../net/raw_cb.h"
 #include "../net/raw_cb.h"
-#include "/usr/include/errno.h"
+
+#include "../netpup/pup.h"
 
 /*
  * Raw PUP protocol interface.
  */
 
 
 /*
  * Raw PUP protocol interface.
  */
 
-static struct sockaddr_pup pupsrc = { AF_PUP };
-static struct sockaddr_pup pupdst = { AF_PUP };
-static struct sockproto pupproto = { PF_PUP };
-
+struct sockaddr_pup pupsrc = { AF_PUP };
+struct sockaddr_pup pupdst = { AF_PUP };
+struct sockproto pupproto = { PF_PUP };
 /*
 /*
- * Setup generic address and protocol structures
- * for raw_input routine, then pass them along with
- * mbuf chain.
+ * Raw PUP input.
  */
 rpup_input(m)
        struct mbuf *m;
 {
        register struct pup_header *pup = mtod(m, struct pup_header *);
 
  */
 rpup_input(m)
        struct mbuf *m;
 {
        register struct pup_header *pup = mtod(m, struct pup_header *);
 
-COUNT(RAWPUP_INPUT);
        pupproto.sp_protocol = pup->pup_type;
        pupproto.sp_protocol = pup->pup_type;
-       pupdst.spup_addr = pup->pup_daddr;
-       pupsrc.spup_addr = pup->pup_saddr;
-       raw_input(m, &pupproto, &pupdst, &pupsrc);
-}
-
-/*ARGSUSED*/
-rpup_ctlinput(m)
-       struct mbuf *m;
-{
-COUNT(RPUP_CTLINPUT);
+       bcopy((caddr_t)&pup->pup_dnet, (caddr_t)&pupdst.spup_net,
+           sizeof (struct pupport));
+       bcopy((caddr_t)&pup->pup_snet, (caddr_t)&pupsrc.spup_net,
+           sizeof (struct pupport));
+       raw_input(m, &pupproto, (struct sockaddr *)&pupsrc,
+         (struct sockaddr *)&pupdst);
 }
 
 /*
  * Encapsulate packet in PUP header which is supplied by the
  * user.  This is done to allow user to specify PUP identifier.
  */
 }
 
 /*
  * Encapsulate packet in PUP header which is supplied by the
  * user.  This is done to allow user to specify PUP identifier.
  */
-rpup_output(m0, so)
-       struct mbuf *m0;
+rpup_output(m, so)
+       register struct mbuf *m;
        struct socket *so;
 {
        register struct rawcb *rp = sotorawcb(so);
        register struct pup_header *pup;
        struct socket *so;
 {
        register struct rawcb *rp = sotorawcb(so);
        register struct pup_header *pup;
-       int len;
-       struct mbuf *n;
-       struct sockaddr_pup *spup;
+       int len, error = 0;
+       register struct mbuf *n, *last;
+       struct sockaddr_pup *dst;
+       struct ifnet *ifp;
+       u_short *pc;
 
 
-COUNT(RPUP_OUTPUT);
        /*
         * Verify user has supplied necessary space
         * for the header and check parameters in it.
         */
        if ((m->m_off > MMAXOFF || m->m_len < sizeof(struct pup_header)) &&
        /*
         * Verify user has supplied necessary space
         * for the header and check parameters in it.
         */
        if ((m->m_off > MMAXOFF || m->m_len < sizeof(struct pup_header)) &&
-           (m = m_pullup(m, sizeof(struct pup_header)) == 0) {
+           (m = m_pullup(m, sizeof(struct pup_header))) == 0) {
+               error = EINVAL;
                goto bad;
                goto bad;
+       }
        pup = mtod(m, struct pup_header *);
        pup = mtod(m, struct pup_header *);
-       if (pup->pup_type == 0)
-               goto bad;
-       if (pup->pup_tcontrol && (pup->pup_tcontrol & ~PUP_TRACE))
+       if (pup->pup_type == 0 || (pup->pup_tcontrol &~ PUP_TRACE)) {
+               error = EINVAL;
                goto bad;
                goto bad;
-       for (len = 0, n = m; n; n = n->m_next)
+       }
+       for (len = 0, n = last = m; n; last = n, n = n->m_next)
                len += n->m_len;
                len += n->m_len;
-       pup->pup_length = len;
-       spup = (struct sockaddr_pup *)&rp->rcb_addr;
-       pup->pup_dport = spup->spup_addr;
-
+       /* assume user leaves space for checksum */
+       if ((len & 1) || len < MINPUPSIZ || len > MAXPUPSIZ) {
+               error = EMSGSIZE;
+               goto bad;
+       }
+       pup->pup_length = htons((u_short)len);
+       dst = (struct sockaddr_pup *)&rp->rcb_faddr;
+       bcopy((caddr_t)&dst->spup_net, (caddr_t)&pup->pup_dnet,
+           sizeof (struct pupport));
+       if (rp->rcb_route.ro_rt == 0)
+               ifp = if_ifonnetof(dst->spup_net);
+       else {
+               rp->rcb_route.ro_rt->rt_use++;
+               ifp = rp->rcb_route.ro_rt->rt_ifp;
+       }
+       if (ifp == 0) {
+               error = ENETUNREACH;
+               goto bad;
+       }
+       if (rp->rcb_flags & RAW_LADDR) {
+               register struct sockaddr_pup *src;
+
+               src = (struct sockaddr_pup *)&rp->rcb_laddr;
+               bcopy((caddr_t)&src->spup_net, (caddr_t)&pup->pup_snet,
+                   sizeof (struct pupport));
+       } else {
+               pup->pup_snet = ifp->if_net;
+               pup->pup_shost = ifp->if_host[0];
+               /* socket is specified by user */
+       }
        /*
        /*
-        * Insure proper source address is included.
+        * Fill in checksum unless user indicates none should be specified.
         */
         */
-       spup = (struct sockadrr_pup *)rp->rcb_socket->so_addr;
-       pup->pup_sport = spup->spup_addr;
-       /* for now, assume user generates PUP checksum. */
-
-       if (rp->rcb_pcb == 0)                   /* XXX */
-               panic("rawpup_output");
-       return (enoutput((struct ifnet *)rp->rcb_pcb, m, PF_PUP));
-
+       pc = (u_short *)(mtod(last, caddr_t) + last->m_len - sizeof (short));
+       if (*pc != PUP_NOCKSUM)
+               *pc = htons((u_short)pup_cksum(m, len - sizeof (short)));
+       return ((*ifp->if_output)(ifp, m, (struct sockaddr *)dst));
 bad:
        m_freem(m);
 bad:
        m_freem(m);
-       return (0);
-}
-
-/*
- * Intercept connects and sends to verify interface
- * exists for destination address.  Disconnects are
- * also looked at to insure pointer is invalidated.
- */
-rpup_usrreq(so, req, m, addr)
-       struct socket *so;
-       int req;
-       struct mbuf *m;
-       caddr_t addr;
-{
-       register struct rawcb *rp = sotorawcb(so);
-
-COUNT(RPUP_USRREQ);
-       if (rp == 0 && req != PRU_ATTACH)
-               return (EINVAL);
-
-       switch (req) {
-
-       /*
-        * Verify address has an interface to go with it
-        * and record information for use in output routine.
-        */
-       case PRU_SEND:
-       case PRU_CONNECT: {
-               register struct sockaddr_pup *spup;
-               register struct ifnet *ifp;
-
-               spup = (struct sockaddr_pup *)addr;
-               ifp = if_ifonnetof(spup->spup_addr);
-               if (ifp == 0) {
-                       ifp = if_gatewayfor(spup->spup_addr);
-                       if (ifp == 0)
-                               return (EADDRNOTAVAIL); /* XXX */
-               }
-               rp->rcb_pcb = (caddr_t)ifp;
-               break;
-               }
-
-       case PRU_DISCONNECT:
-               rp->rcb_pcb = 0;
-               break;
-       
-       case PRU_CONTROL:
-               return (EOPNOTSUPP);
-       }
-       return (raw_usrreq(so, req, m, addr));
+       return (error);
 }
 }