projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
interfac queueing, restrictions on packets, tcp keep alives done
[unix-history] / usr / src / sys / netinet / ip_output.c
diff --git a/usr/src/sys/netinet/ip_output.c b/usr/src/sys/netinet/ip_output.c
index a6295b7..68a9d19 100644 (file)
--- a/usr/src/sys/netinet/ip_output.c
+++ b/usr/src/sys/netinet/ip_output.c
@@ -1,204 +1,156 @@
-/* ip_output.c 1.3 81/10/21 */
+/*     ip_output.c     1.26    82/03/15        */
 
 #include "../h/param.h"
 
 #include "../h/param.h"
-#include "../bbnnet/net.h"
-#include "../bbnnet/mbuf.h"
-#include "../bbnnet/host.h"
-#include "../bbnnet/tcp.h"
-#include "../bbnnet/ip.h"
-#include "../bbnnet/imp.h"
-#include "../bbnnet/ucb.h"
-
-ip_output(mp)
-       struct mbuf *mp;
+#include "../h/mbuf.h"
+#include "../h/mtpr.h"
+#include "../h/socket.h"
+#include "../h/socketvar.h"
+#include "../net/in.h"
+#include "../net/in_systm.h"
+#include "../net/if.h"
+#include "../net/ip.h"
+#include "../net/ip_var.h"
+
+ip_output(m, opt, allowbroadcast)
+       struct mbuf *m;
+       struct mbuf *opt;
+       int allowbroadcast;
 {
 {
-       register i, rnd;
-       register struct mbuf *m, *n;
-       register struct ip *p;
-       struct mbuf *mm;
-       int hlen, adj, max, len, off;
+       register struct ip *ip = mtod(m, struct ip *);
+       register struct ifnet *ifp;
+       int len, hlen = sizeof (struct ip), off;
 
 COUNT(IP_OUTPUT);
 
 COUNT(IP_OUTPUT);
-       p = (struct ip *)((int)mp + mp->m_off); /* -> ip header */
-       hlen = sizeof (struct ip);               /* header length */
-
+       if (opt)                                /* XXX */
+               (void) m_free(opt);             /* XXX */
        /*
        /*
-        * Fill in and byte swap ip header.
+        * Fill in IP header.
         */
         */
-       p->ip_v = IPVERSION;
-       p->ip_hl = hlen >> 2;
-       p->ip_off = 0 | (p->ip_off & ip_df);
-       p->ip_ttl = MAXTTL;
-       p->ip_id = netcb.n_ip_cnt++;
-
-       if (p->ip_len > MTU) {          /* must fragment */
-               if (p->ip_off & ip_df)
-                       return (0);
-               max = MTU - hlen;       /* maximum data length in fragment */
-               len = p->ip_len - hlen; /* data length */
-               off = 0;                /* fragment offset */
-               m = mp;
-
-               while (len > 0) {
-
-                       /* correct the header */
-
-                       p->ip_off |= off >> 3;
-
-                       /* find the end of the fragment */
-
-                       i = -hlen;
-                       while (m != NULL) {
-                               i += m->m_len;
-                               if (i > max)
-                                       break;
-                               n = m;
-                               m = m->m_next;
-                       }
-
-                       if (i < max || m == NULL) {     /* last fragment */
-                               p->ip_off = p->ip_off & ~ip_mf;
-                               p->ip_len = i + hlen;
-                               break;
-
-                       } else {                        /* more fragments */
-
-                               /* allocate header mbuf for next fragment */
-
-                               if ((mm = m_get(1)) == NULL)    /* no more bufs */
-                                       return(0);
-
-                               p->ip_off |= ip_mf;
-
-                               /* terminate fragment at 8 byte boundary (round down) */
-
-                               i -= m->m_len;
-                               rnd = i & ~7;           /* fragment length */
-                               adj = i - rnd;          /* leftover in mbuf */
-                               p->ip_len = rnd + hlen;
+       ip->ip_v = IPVERSION;
+       ip->ip_hl = hlen >> 2;
+       ip->ip_off &= IP_DF;
+       ip->ip_id = htons(ip_id++);
 
 
-                               /* setup header for next fragment and
-                                  append remaining fragment data */
-
-                               n->m_next = NULL;
-                               mm->m_next = m;
-                               m = mm;
-                               m->m_off = MSIZE - hlen - adj;
-                               m->m_len = hlen + adj;
-
-                               /* copy old header to new */
-
-                               bcopy(p, (caddr_t)((int)m + m->m_off), hlen);
-
-                               /* copy leftover data from previous frag */
+       /*
+        * Find interface for this packet.
+        */
+       ifp = if_ifonnetof(ip->ip_dst);
+       if (ifp == 0) {
+               ifp = if_gatewayfor(ip->ip_dst);
+               if (ifp == 0)
+                       goto bad;
+       }
+       if (!allowbroadcast && ifp->if_broadaddr.s_addr != 0 &&
+           ifp->if_broadaddr.s_addr == ip->ip_dst.s_addr)
+               goto bad;
 
 
-                               if (adj) {
-                                       n->m_len -= adj;
-                                       bcopy((caddr_t)((int)n + n->m_len + n->m_off),
-                                             (caddr_t)((int)m + m->m_off + hlen), adj);
-                               }
-                       }
+       /*
+        * If small enough for interface, can just send directly.
+        */
+       if (ip->ip_len <= ifp->if_mtu) {
+#if vax
+               ip->ip_len = htons((u_short)ip->ip_len);
+               ip->ip_off = htons((u_short)ip->ip_off);
+#endif
+               ip->ip_sum = 0;
+               ip->ip_sum = in_cksum(m, hlen);
+               return ((*ifp->if_output)(ifp, m, PF_INET));
+       }
 
 
-                       ip_send(p);             /* pass frag to local net level */
+       /*
+        * Too large for interface; fragment if possible.
+        * Must be able to put at least 8 bytes per fragment.
+        */
+       if (ip->ip_off & IP_DF)
+               goto bad;
+       len = (ifp->if_mtu - hlen) &~ 7;
+       if (len < 8)
+               goto bad;
 
 
-                       p = (struct ip *)((int)m + m->m_off);   /* -> new hdr */
-                       len -= rnd;
-                       off += rnd;
+       /*
+        * Discard IP header from logical mbuf for m_copy's sake.
+        * Loop through length of segment, make a copy of each
+        * part and output.
+        */
+       m->m_len -= sizeof (struct ip);
+       m->m_off += sizeof (struct ip);
+       for (off = 0; off < ip->ip_len-hlen; off += len) {
+               struct mbuf *mh = m_get(M_DONTWAIT);
+               struct ip *mhip;
+
+               if (mh == 0)
+                       goto bad;
+               mh->m_off = MMAXOFF - hlen;
+               mhip = mtod(mh, struct ip *);
+               *mhip = *ip;
+               if (hlen > sizeof (struct ip)) {
+                       int olen = ip_optcopy(ip, mhip, off);
+                       mh->m_len = sizeof (struct ip) + olen;
+               } else
+                       mh->m_len = sizeof (struct ip);
+               mhip->ip_off = off >> 3;
+               if (off + len >= ip->ip_len-hlen)
+                       len = mhip->ip_len = ip->ip_len - hlen - off;
+               else {
+                       mhip->ip_len = len;
+                       mhip->ip_off |= IP_MF;
                }
                }
+               mhip->ip_len += sizeof (struct ip);
+#if vax
+               mhip->ip_len = htons((u_short)mhip->ip_len);
+#endif
+               mh->m_next = m_copy(m, off, len);
+               if (mh->m_next == 0) {
+                       (void) m_free(mh);
+                       goto bad;
+               }
+#if vax
+               mhip->ip_off = htons((u_short)mhip->ip_off);
+#endif
+               mhip->ip_sum = 0;
+               mhip->ip_sum = in_cksum(mh, hlen);
+               if ((*ifp->if_output)(ifp, mh, PF_INET) == 0)
+                       goto bad;
        }
        }
-
-       return(ip_send(p));     /* pass datagram to local net level */
-}
-
-ip_send(p)      /* format header and send message to 1822 level */
-struct ip *p;
-{
-       register struct mbuf *m;
-       register struct imp *l;
-       int s;
-COUNT(IP_SEND);
-
-       m = dtom(p);                    /* ->header mbuf */
-
-       /* set up 1822 leader fields for transmit */
-
-       l = (struct imp *)((int)m + m->m_off - L1822);
-/*
-       l->i_hst = p->ip_dst.s_host;
-       l->i_impno = p->ip_dst.s_imp;
-       l->i_mlen = p->ip_len + L1822;
-       l->i_link = IPLINK;
-       l->i_type = 0;
-       l->i_htype = 0;
-       l->i_stype = 0;
-*/
-       if ((l->i_shost = p->ip_src.s_host) == 0)
-               l->i_shost = 253;
-       if ((l->i_dhost = p->ip_dst.s_host) == 0)
-               l->i_dhost = 253;
-       l->i_type = IPTYPE;
-
-       /* finish ip leader by calculating checksum and doing
-          necessary byte-swapping  */
-
-       p->ip_sum = 0;
-       ip_bswap(p);
-       p->ip_sum = cksum(m, sizeof(struct ip));
-
-       m->m_off -= L1822;              /* -> 1822 leader */
-       m->m_len += L1822;
-
-       m->m_act = NULL;
-
-#ifndef IMPLOOP
-
-       /* put output message on queue */
-
-       s = spl_imp();
-       if (imp_stat.outq_head != NULL)
-               imp_stat.outq_tail->m_act = m;
-       else
-               imp_stat.outq_head = m;
-       imp_stat.outq_tail = m;
-       splx(s);
-
-       /* if no outstanding output, start some */
-
-       if (!imp_stat.outactive)
-               imp_output(0);
-
-#else
-       /* software looping: put msg chain on input queue */
-
-       if (imp_stat.inq_head != NULL)
-               imp_stat.inq_tail->m_act = m;
-       else
-               imp_stat.inq_head = m;
-       imp_stat.inq_tail = m;
-
-#endif IMPLOOP
+       m_freem(m);
        return (1);
        return (1);
+bad:
+       m_freem(m);
+       return (0);
 }
 
 }
 
-ip_setup(up, m, len)            /* setup an ip header for raw write */
-register struct ucb *up;
-register struct mbuf *m;
-int len;
+/*
+ * Copy options from ip to jp.
+ * If off is 0 all options are copied
+ * otherwise copy selectively.
+ */
+ip_optcopy(ip, jp, off)
+       struct ip *ip, *jp;
+       int off;
 {
 {
-       register struct ip *ip;
-COUNT(IP_SETUP);
-
-       m->m_off = MSIZE - sizeof(struct ip);
-       m->m_len = sizeof(struct ip);
-
-       ip = (struct ip *)((int)m + m->m_off);
-
-       ip->ip_tos = 0;
-       ip->ip_id = 0;
-       ip->ip_off = 0;
-       ip->ip_p = up->uc_lolink;
-       ip->ip_len = len + sizeof(struct ip);
-
-       ip->ip_src.s_addr = netcb.n_lhost.s_addr;
-        ip->ip_dst.s_addr = up->uc_host->h_addr.s_addr;
+       register u_char *cp, *dp;
+       int opt, optlen, cnt;
+
+COUNT(IP_OPTCOPY);
+       cp = (u_char *)(ip + 1);
+       dp = (u_char *)(jp + 1);
+       cnt = (ip->ip_hl << 2) - sizeof (struct ip);
+       for (; cnt > 0; cnt -= optlen, cp += optlen) {
+               opt = cp[0];
+               if (opt == IPOPT_EOL)
+                       break;
+               if (opt == IPOPT_NOP)
+                       optlen = 1;
+               else
+                       optlen = cp[1];
+               if (optlen > cnt)                       /* XXX */
+                       optlen = cnt;                   /* XXX */
+               if (off == 0 || IPOPT_COPIED(opt)) {
+                       bcopy((caddr_t)cp, (caddr_t)dp, (unsigned)optlen);
+                       dp += optlen;
+               }
+       }
+       for (optlen = dp - (u_char *)(jp+1); optlen & 0x3; optlen++)
+               *dp++ = IPOPT_EOL;
+       return (optlen);
 }
 }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.