Annotation of sys/net/if_sl.c, Revision 1.1.1.1
1.1 nbrk 1: /* $OpenBSD: if_sl.c,v 1.32 2006/03/25 22:41:47 djm Exp $ */
2: /* $NetBSD: if_sl.c,v 1.39.4.1 1996/06/02 16:26:31 thorpej Exp $ */
3:
4: /*
5: * Copyright (c) 1987, 1989, 1992, 1993
6: * The Regents of the University of California. All rights reserved.
7: *
8: * Redistribution and use in source and binary forms, with or without
9: * modification, are permitted provided that the following conditions
10: * are met:
11: * 1. Redistributions of source code must retain the above copyright
12: * notice, this list of conditions and the following disclaimer.
13: * 2. Redistributions in binary form must reproduce the above copyright
14: * notice, this list of conditions and the following disclaimer in the
15: * documentation and/or other materials provided with the distribution.
16: * 3. Neither the name of the University nor the names of its contributors
17: * may be used to endorse or promote products derived from this software
18: * without specific prior written permission.
19: *
20: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30: * SUCH DAMAGE.
31: *
32: * @(#)if_sl.c 8.6 (Berkeley) 2/1/94
33: */
34:
35: /*
36: * Serial Line interface
37: *
38: * Rick Adams
39: * Center for Seismic Studies
40: * 1300 N 17th Street, Suite 1450
41: * Arlington, Virginia 22209
42: * (703)276-7900
43: * rick@seismo.ARPA
44: * seismo!rick
45: *
46: * Pounded on heavily by Chris Torek (chris@mimsy.umd.edu, umcp-cs!chris).
47: * N.B.: this belongs in netinet, not net, the way it stands now.
48: * Should have a link-layer type designation, but wouldn't be
49: * backwards-compatible.
50: *
51: * Converted to 4.3BSD Beta by Chris Torek.
52: * Other changes made at Berkeley, based in part on code by Kirk Smith.
53: * W. Jolitz added slip abort.
54: *
55: * Hacked almost beyond recognition by Van Jacobson (van@helios.ee.lbl.gov).
56: * Added priority queuing for "interactive" traffic; hooks for TCP
57: * header compression; ICMP filtering (at 2400 baud, some cretin
58: * pinging you can use up all your bandwidth). Made low clist behavior
59: * more robust and slightly less likely to hang serial line.
60: * Sped up a bunch of things.
61: */
62:
63: #include "bpfilter.h"
64:
65: #include <sys/param.h>
66: #include <sys/proc.h>
67: #include <sys/mbuf.h>
68: #include <sys/dkstat.h>
69: #include <sys/socket.h>
70: #include <sys/ioctl.h>
71: #include <sys/file.h>
72: #include <sys/tty.h>
73: #include <sys/kernel.h>
74: #include <sys/conf.h>
75: #if defined(__NetBSD__) || defined(__OpenBSD__)
76: #include <sys/systm.h>
77: #endif
78:
79: #include <machine/cpu.h>
80:
81: #include <net/if.h>
82: #include <net/if_types.h>
83: #include <net/netisr.h>
84: #include <net/route.h>
85:
86: #if INET
87: #include <netinet/in.h>
88: #include <netinet/in_systm.h>
89: #include <netinet/in_var.h>
90: #include <netinet/ip.h>
91: #else
92: #error Huh? Slip without inet?
93: #endif
94:
95: #include <net/slcompress.h>
96: #include <net/if_slvar.h>
97: #include <net/slip.h>
98:
99: #if NBPFILTER > 0
100: #include <sys/time.h>
101: #include <net/bpf.h>
102: #endif
103:
104: /*
105: * SLMAX is a hard limit on input packet size. To simplify the code
106: * and improve performance, we require that packets fit in an mbuf
107: * cluster, and if we get a compressed packet, there's enough extra
108: * room to expand the header into a max length tcp/ip header (128
109: * bytes). So, SLMAX can be at most
110: * MCLBYTES - 128
111: *
112: * SLMTU is a hard limit on output packet size. To insure good
113: * interactive response, SLMTU wants to be the smallest size that
114: * amortizes the header cost. (Remember that even with
115: * type-of-service queuing, we have to wait for any in-progress
116: * packet to finish. I.e., we wait, on the average, 1/2 * mtu /
117: * cps, where cps is the line speed in characters per second.
118: * E.g., 533ms wait for a 1024 byte MTU on a 9600 baud line. The
119: * average compressed header size is 6-8 bytes so any MTU > 90
120: * bytes will give us 90% of the line bandwidth. A 100ms wait is
121: * tolerable (500ms is not), so want an MTU around 296. (Since TCP
122: * will send 256 byte segments (to allow for 40 byte headers), the
123: * typical packet size on the wire will be around 260 bytes). In
124: * 4.3tahoe+ systems, we can set an MTU in a route so we do that &
125: * leave the interface MTU relatively high (so we don't IP fragment
126: * when acting as a gateway to someone using a stupid MTU).
127: *
128: * Similar considerations apply to SLIP_HIWAT: It's the amount of
129: * data that will be queued 'downstream' of us (i.e., in clists
130: * waiting to be picked up by the tty output interrupt). If we
131: * queue a lot of data downstream, it's immune to our t.o.s. queuing.
132: * E.g., if SLIP_HIWAT is 1024, the interactive traffic in mixed
133: * telnet/ftp will see a 1 sec wait, independent of the mtu (the
134: * wait is dependent on the ftp window size but that's typically
135: * 1k - 4k). So, we want SLIP_HIWAT just big enough to amortize
136: * the cost (in idle time on the wire) of the tty driver running
137: * off the end of its clists & having to call back slstart for a
138: * new packet. For a tty interface with any buffering at all, this
139: * cost will be zero. Even with a totally brain dead interface (like
140: * the one on a typical workstation), the cost will be <= 1 character
141: * time. So, setting SLIP_HIWAT to ~100 guarantees that we'll lose
142: * at most 1% while maintaining good interactive response.
143: */
144: #if NBPFILTER > 0
145: #define BUFOFFSET (128+sizeof(struct ifnet **)+SLIP_HDRLEN)
146: #else
147: #define BUFOFFSET (128+sizeof(struct ifnet **))
148: #endif
149: #define SLMAX (MCLBYTES - BUFOFFSET)
150: #define SLBUFSIZE (SLMAX + BUFOFFSET)
151: #ifndef SLMTU
152: #define SLMTU 296
153: #endif
154: #if (SLMTU < 3)
155: #error Huh? SLMTU way too small.
156: #endif
157: #define SLIP_HIWAT roundup(50,CBSIZE)
158: #if !(defined(__NetBSD__) || defined(__OpenBSD__)) /* XXX - cgd */
159: #define CLISTRESERVE 1024 /* Can't let clists get too low */
160: #endif /* !NetBSD */
161:
162: /*
163: * SLIP ABORT ESCAPE MECHANISM:
164: * (inspired by HAYES modem escape arrangement)
165: * 1sec escape 1sec escape 1sec escape { 1sec escape 1sec escape }
166: * within window time signals a "soft" exit from slip mode by remote end
167: * if the IFF_DEBUG flag is on.
168: */
169: #define ABT_ESC '\033' /* can't be t_intr - distant host must know it*/
170: #define ABT_IDLE 1 /* in seconds - idle before an escape */
171: #define ABT_COUNT 3 /* count of escapes for abort */
172: #define ABT_WINDOW (ABT_COUNT*2+2) /* in seconds - time to count */
173:
174:
175: #define FRAME_END 0xc0 /* Frame End */
176: #define FRAME_ESCAPE 0xdb /* Frame Esc */
177: #define TRANS_FRAME_END 0xdc /* transposed frame end */
178: #define TRANS_FRAME_ESCAPE 0xdd /* transposed frame esc */
179:
180: static int slinit(struct sl_softc *);
181: static struct mbuf *sl_btom(struct sl_softc *, int);
182:
183: int sl_clone_create(struct if_clone *, int);
184: int sl_clone_destroy(struct ifnet *);
185:
186: LIST_HEAD(, sl_softc) sl_softc_list;
187: struct if_clone sl_cloner =
188: IF_CLONE_INITIALIZER("sl", sl_clone_create, sl_clone_destroy);
189:
190: /*
191: * Called from boot code to establish sl interfaces.
192: */
193: void
194: slattach(n)
195: int n;
196: {
197: LIST_INIT(&sl_softc_list);
198: if_clone_attach(&sl_cloner);
199: }
200:
201: int
202: sl_clone_create(ifc, unit)
203: struct if_clone *ifc;
204: int unit;
205: {
206: struct sl_softc *sc;
207: int s;
208:
209: sc = malloc(sizeof(*sc), M_DEVBUF, M_NOWAIT);
210: if (!sc)
211: return (ENOMEM);
212: bzero(sc, sizeof(*sc));
213:
214: sc->sc_unit = unit; /* XXX */
215: snprintf(sc->sc_if.if_xname, sizeof sc->sc_if.if_xname, "%s%d",
216: ifc->ifc_name, unit);
217: sc->sc_if.if_softc = sc;
218: sc->sc_if.if_mtu = SLMTU;
219: sc->sc_if.if_flags =
220: IFF_POINTOPOINT | SC_AUTOCOMP | IFF_MULTICAST;
221: sc->sc_if.if_type = IFT_SLIP;
222: sc->sc_if.if_ioctl = slioctl;
223: sc->sc_if.if_output = sloutput;
224: IFQ_SET_MAXLEN(&sc->sc_if.if_snd, 50);
225: sc->sc_fastq.ifq_maxlen = 32;
226: IFQ_SET_READY(&sc->sc_if.if_snd);
227: if_attach(&sc->sc_if);
228: if_alloc_sadl(&sc->sc_if);
229: #if NBPFILTER > 0
230: bpfattach(&sc->sc_bpf, &sc->sc_if, DLT_SLIP, SLIP_HDRLEN);
231: #endif
232: s = splnet();
233: LIST_INSERT_HEAD(&sl_softc_list, sc, sc_list);
234: splx(s);
235:
236: return (0);
237: }
238:
239: int
240: sl_clone_destroy(ifp)
241: struct ifnet *ifp;
242: {
243: struct sl_softc *sc = ifp->if_softc;
244: int s;
245:
246: if (sc->sc_ttyp != NULL)
247: return (EBUSY);
248:
249: s = splnet();
250: LIST_REMOVE(sc, sc_list);
251: splx(s);
252:
253: if_detach(ifp);
254:
255: free(sc, M_DEVBUF);
256: return (0);
257: }
258:
259: static int
260: slinit(sc)
261: struct sl_softc *sc;
262: {
263: if (sc->sc_ep == (u_char *) 0) {
264: MGETHDR(sc->sc_mbuf, M_WAIT, MT_DATA);
265: if (sc->sc_mbuf)
266: MCLGET(sc->sc_mbuf, M_WAIT);
267: if (sc->sc_mbuf == NULL || sc->sc_mbuf->m_ext.ext_buf == NULL) {
268: printf("sl%d: can't allocate buffer\n", sc->sc_unit);
269: sc->sc_if.if_flags &= ~IFF_UP;
270: return (0);
271: }
272: }
273: sc->sc_ep = (u_char *) sc->sc_mbuf->m_ext.ext_buf +
274: sc->sc_mbuf->m_ext.ext_size;
275: sc->sc_mp = sc->sc_pktstart = (u_char *) sc->sc_mbuf->m_ext.ext_buf +
276: BUFOFFSET;
277:
278: sl_compress_init(&sc->sc_comp);
279:
280: return (1);
281: }
282:
283: /*
284: * Line specific open routine.
285: * Attach the given tty to the first available sl unit.
286: */
287: /* ARGSUSED */
288: int
289: slopen(dev, tp)
290: dev_t dev;
291: struct tty *tp;
292: {
293: struct proc *p = curproc; /* XXX */
294: struct sl_softc *sc;
295: int error, s;
296:
297: if ((error = suser(p, 0)) != 0)
298: return (error);
299:
300: if (tp->t_line == SLIPDISC)
301: return (0);
302:
303: LIST_FOREACH(sc, &sl_softc_list, sc_list)
304: if (sc->sc_ttyp == NULL) {
305: if (slinit(sc) == 0)
306: return (ENOBUFS);
307: tp->t_sc = (caddr_t)sc;
308: sc->sc_ttyp = tp;
309: sc->sc_if.if_baudrate = tp->t_ospeed;
310: s = spltty();
311: tp->t_state |= TS_ISOPEN | TS_XCLUDE;
312: splx(s);
313: ttyflush(tp, FREAD | FWRITE);
314: #if defined(__NetBSD__) || defined(__OpenBSD__)
315: /*
316: * make sure tty output queue is large enough
317: * to hold a full-sized packet (including frame
318: * end, and a possible extra frame end). full-sized
319: * packet occupies a max of 2*SLMTU bytes (because
320: * of possible escapes), and add two on for frame
321: * ends.
322: */
323: s = spltty();
324: if (tp->t_outq.c_cn < 2*SLMTU+2) {
325: sc->sc_oldbufsize = tp->t_outq.c_cn;
326: sc->sc_oldbufquot = tp->t_outq.c_cq != 0;
327:
328: clfree(&tp->t_outq);
329: error = clalloc(&tp->t_outq, 3*SLMTU, 0);
330: if (error) {
331: splx(s);
332: return (error);
333: }
334: } else
335: sc->sc_oldbufsize = sc->sc_oldbufquot = 0;
336: splx(s);
337: #endif /* NetBSD */
338: return (0);
339: }
340: return (ENXIO);
341: }
342:
343: /*
344: * Line specific close routine.
345: * Detach the tty from the sl unit.
346: */
347: void
348: slclose(tp)
349: struct tty *tp;
350: {
351: struct sl_softc *sc;
352: int s;
353:
354: ttywflush(tp);
355: tp->t_line = 0;
356: sc = (struct sl_softc *)tp->t_sc;
357: if (sc != NULL) {
358: s = spltty();
359:
360: if_down(&sc->sc_if);
361: sc->sc_ttyp = NULL;
362: tp->t_sc = NULL;
363:
364: m_freem(sc->sc_mbuf);
365: sc->sc_mbuf = NULL;
366: sc->sc_ep = sc->sc_mp = sc->sc_pktstart = NULL;
367:
368: #if defined(__NetBSD__) || defined(__OpenBSD__)
369: /* if necessary, install a new outq buffer of the appropriate size */
370: if (sc->sc_oldbufsize != 0) {
371: clfree(&tp->t_outq);
372: clalloc(&tp->t_outq, sc->sc_oldbufsize, sc->sc_oldbufquot);
373: }
374: #endif
375: splx(s);
376: }
377: }
378:
379: /*
380: * Line specific (tty) ioctl routine.
381: * Provide a way to get the sl unit number.
382: */
383: /* ARGSUSED */
384: int
385: sltioctl(tp, cmd, data, flag)
386: struct tty *tp;
387: u_long cmd;
388: caddr_t data;
389: int flag;
390: {
391: struct sl_softc *sc = (struct sl_softc *)tp->t_sc;
392:
393: switch (cmd) {
394: case SLIOCGUNIT:
395: *(int *)data = sc->sc_unit; /* XXX */
396: break;
397:
398: default:
399: return (-1);
400: }
401: return (0);
402: }
403:
404: /*
405: * Queue a packet. Start transmission if not active.
406: * Compression happens in slstart; if we do it here, IP TOS
407: * will cause us to not compress "background" packets, because
408: * ordering gets trashed. It can be done for all packets in slstart.
409: */
410: int
411: sloutput(ifp, m, dst, rtp)
412: struct ifnet *ifp;
413: struct mbuf *m;
414: struct sockaddr *dst;
415: struct rtentry *rtp;
416: {
417: struct sl_softc *sc = ifp->if_softc;
418: struct ip *ip;
419: int s, error;
420:
421: /*
422: * `Cannot happen' (see slioctl). Someday we will extend
423: * the line protocol to support other address families.
424: */
425: if (dst->sa_family != AF_INET) {
426: printf("%s: af%d not supported\n", sc->sc_if.if_xname,
427: dst->sa_family);
428: m_freem(m);
429: sc->sc_if.if_noproto++;
430: return (EAFNOSUPPORT);
431: }
432:
433: if (sc->sc_ttyp == NULL) {
434: m_freem(m);
435: return (ENETDOWN); /* sort of */
436: }
437: if ((sc->sc_ttyp->t_state & TS_CARR_ON) == 0 &&
438: (sc->sc_ttyp->t_cflag & CLOCAL) == 0) {
439: m_freem(m);
440: return (EHOSTUNREACH);
441: }
442: ip = mtod(m, struct ip *);
443: if (sc->sc_if.if_flags & SC_NOICMP && ip->ip_p == IPPROTO_ICMP) {
444: m_freem(m);
445: return (ENETRESET); /* XXX ? */
446: }
447: s = spltty();
448: if (sc->sc_oqlen && sc->sc_ttyp->t_outq.c_cc == sc->sc_oqlen) {
449: struct timeval tv, tm;
450:
451: getmicrotime(&tm);
452: /* if output's been stalled for too long, and restart */
453: timersub(&tm, &sc->sc_lastpacket, &tv);
454: if (tv.tv_sec > 0) {
455: sc->sc_otimeout++;
456: slstart(sc->sc_ttyp);
457: }
458: }
459:
460: (void) splnet();
461: IFQ_ENQUEUE(&sc->sc_if.if_snd, m, NULL, error);
462: if (error) {
463: splx(s);
464: sc->sc_if.if_oerrors++;
465: return (error);
466: }
467:
468: (void) spltty();
469: getmicrotime(&sc->sc_lastpacket);
470: if ((sc->sc_oqlen = sc->sc_ttyp->t_outq.c_cc) == 0)
471: slstart(sc->sc_ttyp);
472: splx(s);
473: return (0);
474: }
475:
476: /*
477: * Start output on interface. Get another datagram
478: * to send from the interface queue and map it to
479: * the interface before starting output.
480: */
481: void
482: slstart(tp)
483: struct tty *tp;
484: {
485: struct sl_softc *sc = (struct sl_softc *)tp->t_sc;
486: struct mbuf *m;
487: u_char *cp;
488: struct ip *ip;
489: int s;
490: struct mbuf *m2;
491: #if NBPFILTER > 0
492: u_char bpfbuf[SLMTU + SLIP_HDRLEN];
493: int len = 0;
494: #endif
495: #if !(defined(__NetBSD__) || defined(__OpenBSD__)) /* XXX - cgd */
496: extern int cfreecount;
497: #endif
498:
499: for (;;) {
500: /*
501: * If there is more in the output queue, just send it now.
502: * We are being called in lieu of ttstart and must do what
503: * it would.
504: */
505: if (tp->t_outq.c_cc != 0) {
506: (*tp->t_oproc)(tp);
507: if (tp->t_outq.c_cc > SLIP_HIWAT)
508: return;
509: }
510: /*
511: * This happens briefly when the line shuts down.
512: */
513: if (sc == NULL)
514: return;
515:
516: #if defined(__NetBSD__) || defined(__OpenBSD__) /* XXX - cgd */
517: /*
518: * Do not remove the packet from the IP queue if it
519: * doesn't look like the packet will fit into the
520: * current serial output queue, with a packet full of
521: * escapes this could be as bad as SLMTU*2+2.
522: */
523: if (tp->t_outq.c_cn - tp->t_outq.c_cc < 2*SLMTU+2)
524: return;
525: #endif /* NetBSD */
526:
527: /*
528: * Get a packet and send it to the interface.
529: */
530: s = splnet();
531: IF_DEQUEUE(&sc->sc_fastq, m);
532: if (m)
533: sc->sc_if.if_omcasts++; /* XXX */
534: else
535: IFQ_DEQUEUE(&sc->sc_if.if_snd, m);
536: splx(s);
537: if (m == NULL)
538: return;
539:
540: /*
541: * We do the header compression here rather than in sloutput
542: * because the packets will be out of order if we are using TOS
543: * queueing, and the connection id compression will get
544: * munged when this happens.
545: */
546: #if NBPFILTER > 0
547: if (sc->sc_bpf) {
548: /*
549: * We need to save the TCP/IP header before it's
550: * compressed. To avoid complicated code, we just
551: * copy the entire packet into a stack buffer (since
552: * this is a serial line, packets should be short
553: * and/or the copy should be negligible cost compared
554: * to the packet transmission time).
555: */
556: struct mbuf *m1 = m;
557: u_char *cp = bpfbuf + SLIP_HDRLEN;
558:
559: len = 0;
560: do {
561: int mlen = m1->m_len;
562:
563: bcopy(mtod(m1, caddr_t), cp, mlen);
564: cp += mlen;
565: len += mlen;
566: } while ((m1 = m1->m_next) != NULL);
567: }
568: #endif
569: if ((ip = mtod(m, struct ip *))->ip_p == IPPROTO_TCP) {
570: if (sc->sc_if.if_flags & SC_COMPRESS)
571: *mtod(m, u_char *) |= sl_compress_tcp(m, ip,
572: &sc->sc_comp, 1);
573: }
574: #if NBPFILTER > 0
575: if (sc->sc_bpf) {
576: /*
577: * Put the SLIP pseudo-"link header" in place. The
578: * compressed header is now at the beginning of the
579: * mbuf.
580: */
581: bpfbuf[SLX_DIR] = SLIPDIR_OUT;
582: bcopy(mtod(m, caddr_t), &bpfbuf[SLX_CHDR], CHDR_LEN);
583: bpf_tap(sc->sc_bpf, bpfbuf, len + SLIP_HDRLEN,
584: BPF_DIRECTION_OUT);
585: }
586: #endif
587: getmicrotime(&sc->sc_lastpacket);
588:
589: #if !(defined(__NetBSD__) || defined(__OpenBSD__)) /* XXX - cgd */
590: /*
591: * If system is getting low on clists, just flush our
592: * output queue (if the stuff was important, it'll get
593: * retransmitted).
594: */
595: if (cfreecount < CLISTRESERVE + SLMTU) {
596: m_freem(m);
597: sc->sc_if.if_collisions++;
598: continue;
599: }
600: #endif /* !__NetBSD__ */
601: /*
602: * The extra FRAME_END will start up a new packet, and thus
603: * will flush any accumulated garbage. We do this whenever
604: * the line may have been idle for some time.
605: */
606: if (tp->t_outq.c_cc == 0) {
607: ++sc->sc_if.if_obytes;
608: (void) putc(FRAME_END, &tp->t_outq);
609: }
610:
611: while (m) {
612: u_char *ep;
613:
614: cp = mtod(m, u_char *); ep = cp + m->m_len;
615: while (cp < ep) {
616: /*
617: * Find out how many bytes in the string we can
618: * handle without doing something special.
619: */
620: u_char *bp = cp;
621:
622: while (cp < ep) {
623: switch (*cp++) {
624: case FRAME_ESCAPE:
625: case FRAME_END:
626: --cp;
627: goto out;
628: }
629: }
630: out:
631: if (cp > bp) {
632: /*
633: * Put n characters at once
634: * into the tty output queue.
635: */
636: #if defined(__NetBSD__) || defined(__OpenBSD__) /* XXX - cgd */
637: if (b_to_q((u_char *)bp, cp - bp,
638: #else
639: if (b_to_q((char *)bp, cp - bp,
640: #endif
641: &tp->t_outq))
642: break;
643: sc->sc_if.if_obytes += cp - bp;
644: }
645: /*
646: * If there are characters left in the mbuf,
647: * the first one must be special..
648: * Put it out in a different form.
649: */
650: if (cp < ep) {
651: if (putc(FRAME_ESCAPE, &tp->t_outq))
652: break;
653: if (putc(*cp++ == FRAME_ESCAPE ?
654: TRANS_FRAME_ESCAPE : TRANS_FRAME_END,
655: &tp->t_outq)) {
656: (void) unputc(&tp->t_outq);
657: break;
658: }
659: sc->sc_if.if_obytes += 2;
660: }
661: }
662: MFREE(m, m2);
663: m = m2;
664: }
665:
666: if (putc(FRAME_END, &tp->t_outq)) {
667: /*
668: * Not enough room. Remove a char to make room
669: * and end the packet normally.
670: * If you get many collisions (more than one or two
671: * a day) you probably do not have enough clists
672: * and you should increase "nclist" in param.c.
673: */
674: (void) unputc(&tp->t_outq);
675: (void) putc(FRAME_END, &tp->t_outq);
676: sc->sc_if.if_collisions++;
677: } else {
678: ++sc->sc_if.if_obytes;
679: sc->sc_if.if_opackets++;
680: }
681: }
682: }
683:
684: /*
685: * Copy data buffer to mbuf chain; add ifnet pointer.
686: */
687: static struct mbuf *
688: sl_btom(sc, len)
689: struct sl_softc *sc;
690: int len;
691: {
692: struct mbuf *m;
693:
694: /*
695: * Allocate a new input buffer and swap.
696: */
697: m = sc->sc_mbuf;
698: MGETHDR(sc->sc_mbuf, M_DONTWAIT, MT_DATA);
699: if (sc->sc_mbuf == NULL) {
700: sc->sc_mbuf = m;
701: return (NULL);
702: }
703: MCLGET(sc->sc_mbuf, M_DONTWAIT);
704: if ((sc->sc_mbuf->m_flags & M_EXT) == 0) {
705: /*
706: * we couldn't get a cluster - if memory's this
707: * low, it's time to start dropping packets.
708: */
709: m_freem(sc->sc_mbuf);
710: sc->sc_mbuf = m;
711: return (NULL);
712: }
713: sc->sc_ep = (u_char *) sc->sc_mbuf->m_ext.ext_buf +
714: sc->sc_mbuf->m_ext.ext_size;
715:
716: m->m_data = sc->sc_pktstart;
717:
718: m->m_len = len;
719: m->m_pkthdr.len = len;
720: m->m_pkthdr.rcvif = &sc->sc_if;
721: return (m);
722: }
723:
724: /*
725: * tty interface receiver interrupt.
726: */
727: void
728: slinput(c, tp)
729: int c;
730: struct tty *tp;
731: {
732: struct sl_softc *sc;
733: struct mbuf *m;
734: int len;
735: int s;
736: #if NBPFILTER > 0
737: u_char chdr[CHDR_LEN];
738: #endif
739:
740: tk_nin++;
741: sc = (struct sl_softc *)tp->t_sc;
742: if (sc == NULL)
743: return;
744: if (c & TTY_ERRORMASK || ((tp->t_state & TS_CARR_ON) == 0 &&
745: (tp->t_cflag & CLOCAL) == 0)) {
746: sc->sc_flags |= SC_ERROR;
747: return;
748: }
749: c &= TTY_CHARMASK;
750:
751: ++sc->sc_if.if_ibytes;
752:
753: if (sc->sc_if.if_flags & IFF_DEBUG) {
754: if (c == ABT_ESC) {
755: /*
756: * If we have a previous abort, see whether
757: * this one is within the time limit.
758: */
759: if (sc->sc_abortcount &&
760: time_second >= sc->sc_starttime + ABT_WINDOW)
761: sc->sc_abortcount = 0;
762: /*
763: * If we see an abort after "idle" time, count it;
764: * record when the first abort escape arrived.
765: */
766: if (time_second >= sc->sc_lasttime + ABT_IDLE) {
767: if (++sc->sc_abortcount == 1)
768: sc->sc_starttime = time_second;
769: if (sc->sc_abortcount >= ABT_COUNT) {
770: slclose(tp);
771: return;
772: }
773: }
774: } else
775: sc->sc_abortcount = 0;
776: sc->sc_lasttime = time_second;
777: }
778:
779: switch (c) {
780:
781: case TRANS_FRAME_ESCAPE:
782: if (sc->sc_escape)
783: c = FRAME_ESCAPE;
784: break;
785:
786: case TRANS_FRAME_END:
787: if (sc->sc_escape)
788: c = FRAME_END;
789: break;
790:
791: case FRAME_ESCAPE:
792: sc->sc_escape = 1;
793: return;
794:
795: case FRAME_END:
796: if(sc->sc_flags & SC_ERROR) {
797: sc->sc_flags &= ~SC_ERROR;
798: goto newpack;
799: }
800: len = sc->sc_mp - sc->sc_pktstart;
801: if (len < 3)
802: /* less than min length packet - ignore */
803: goto newpack;
804:
805: #if NBPFILTER > 0
806: if (sc->sc_bpf) {
807: /*
808: * Save the compressed header, so we
809: * can tack it on later. Note that we
810: * will end up copying garbage in some
811: * cases but this is okay. We remember
812: * where the buffer started so we can
813: * compute the new header length.
814: */
815: bcopy(sc->sc_pktstart, chdr, CHDR_LEN);
816: }
817: #endif
818:
819: if ((c = (*sc->sc_pktstart & 0xf0)) != (IPVERSION << 4)) {
820: if (c & 0x80)
821: c = TYPE_COMPRESSED_TCP;
822: else if (c == TYPE_UNCOMPRESSED_TCP)
823: *sc->sc_pktstart &= 0x4f; /* XXX */
824: /*
825: * We've got something that's not an IP packet.
826: * If compression is enabled, try to decompress it.
827: * Otherwise, if `auto-enable' compression is on and
828: * it's a reasonable packet, decompress it and then
829: * enable compression. Otherwise, drop it.
830: */
831: if (sc->sc_if.if_flags & SC_COMPRESS) {
832: len = sl_uncompress_tcp(&sc->sc_pktstart, len,
833: (u_int)c, &sc->sc_comp);
834: if (len <= 0)
835: goto error;
836: } else if ((sc->sc_if.if_flags & SC_AUTOCOMP) &&
837: c == TYPE_UNCOMPRESSED_TCP && len >= 40) {
838: len = sl_uncompress_tcp(&sc->sc_pktstart, len,
839: (u_int)c, &sc->sc_comp);
840: if (len <= 0)
841: goto error;
842: sc->sc_if.if_flags |= SC_COMPRESS;
843: } else
844: goto error;
845: }
846:
847: m = sl_btom(sc, len);
848: if (m == NULL)
849: goto error;
850:
851: #if NBPFILTER > 0
852: if (sc->sc_bpf) {
853: /*
854: * Put the SLIP pseudo-"link header" in place.
855: * Note this M_PREPEND() should bever fail,
856: * since we know we always have enough space
857: * in the input buffer.
858: */
859: u_char *hp;
860:
861: M_PREPEND(m, SLIP_HDRLEN, M_DONTWAIT);
862: if (m == NULL)
863: goto error;
864:
865: hp = mtod(m, u_char *);
866: hp[SLX_DIR] = SLIPDIR_IN;
867: memcpy(&hp[SLX_CHDR], chdr, CHDR_LEN);
868:
869: s = splnet();
870: bpf_mtap(sc->sc_bpf, m, BPF_DIRECTION_IN);
871: splx(s);
872:
873: m_adj(m, SLIP_HDRLEN);
874: }
875: #endif
876:
877: sc->sc_if.if_ipackets++;
878: getmicrotime(&sc->sc_lastpacket);
879: s = splnet();
880: if (IF_QFULL(&ipintrq)) {
881: IF_DROP(&ipintrq);
882: sc->sc_if.if_ierrors++;
883: sc->sc_if.if_iqdrops++;
884: m_freem(m);
885: if (!ipintrq.ifq_congestion)
886: if_congestion(&ipintrq);
887: } else {
888: IF_ENQUEUE(&ipintrq, m);
889: schednetisr(NETISR_IP);
890: }
891: splx(s);
892: goto newpack;
893: }
894: if (sc->sc_mp < sc->sc_ep) {
895: *sc->sc_mp++ = c;
896: sc->sc_escape = 0;
897: return;
898: }
899:
900: /* can't put lower; would miss an extra frame */
901: sc->sc_flags |= SC_ERROR;
902:
903: error:
904: sc->sc_if.if_ierrors++;
905: newpack:
906: sc->sc_mp = sc->sc_pktstart = (u_char *) sc->sc_mbuf->m_ext.ext_buf +
907: BUFOFFSET;
908: sc->sc_escape = 0;
909: }
910:
911: /*
912: * Process an ioctl request.
913: */
914: int
915: slioctl(ifp, cmd, data)
916: struct ifnet *ifp;
917: u_long cmd;
918: caddr_t data;
919: {
920: struct sl_softc *sc = ifp->if_softc;
921: struct ifaddr *ifa = (struct ifaddr *)data;
922: struct ifreq *ifr;
923: int s = splnet(), error = 0;
924: struct sl_stats *slsp;
925:
926: switch (cmd) {
927:
928: case SIOCSIFADDR:
929: if (ifa->ifa_addr->sa_family == AF_INET)
930: ifp->if_flags |= IFF_UP;
931: else
932: error = EAFNOSUPPORT;
933: break;
934:
935: case SIOCSIFDSTADDR:
936: if (ifa->ifa_addr->sa_family != AF_INET)
937: error = EAFNOSUPPORT;
938: break;
939:
940: case SIOCADDMULTI:
941: case SIOCDELMULTI:
942: ifr = (struct ifreq *)data;
943: if (ifr == 0) {
944: error = EAFNOSUPPORT; /* XXX */
945: break;
946: }
947: switch (ifr->ifr_addr.sa_family) {
948:
949: #ifdef INET
950: case AF_INET:
951: break;
952: #endif
953:
954: default:
955: error = EAFNOSUPPORT;
956: break;
957: }
958: break;
959:
960: case SIOCGSLSTATS:
961: slsp = &((struct ifslstatsreq *) data)->stats;
962: bzero(slsp, sizeof(*slsp));
963: /* slsp->sl = sc->sc_stats; */
964: slsp->sl.sl_ibytes = sc->sc_if.if_ibytes;
965: slsp->sl.sl_obytes = sc->sc_if.if_obytes;
966: slsp->sl.sl_ipackets = sc->sc_if.if_ipackets;
967: slsp->sl.sl_opackets = sc->sc_if.if_opackets;
968: #ifdef INET
969: slsp->vj.vjs_packets = sc->sc_comp.sls_packets;
970: slsp->vj.vjs_compressed = sc->sc_comp.sls_compressed;
971: slsp->vj.vjs_searches = sc->sc_comp.sls_searches;
972: slsp->vj.vjs_misses = sc->sc_comp.sls_misses;
973: slsp->vj.vjs_uncompressedin = sc->sc_comp.sls_uncompressedin;
974: slsp->vj.vjs_compressedin = sc->sc_comp.sls_compressedin;
975: slsp->vj.vjs_errorin = sc->sc_comp.sls_errorin;
976: slsp->vj.vjs_tossed = sc->sc_comp.sls_tossed;
977: #endif /* INET */
978: break;
979:
980: default:
981: error = EINVAL;
982: }
983: splx(s);
984: return (error);
985: }
CVSweb