if_ct.c revision 133647
1/*
2 * Cronyx-Tau adapter driver for FreeBSD.
3 * Supports PPP/HDLC and Cisco/HDLC protocol in synchronous mode,
4 * and asyncronous channels with full modem control.
5 * Keepalive protocol implemented in both Cisco and PPP modes.
6 *
7 * Copyright (C) 1994-2002 Cronyx Engineering.
8 * Author: Serge Vakulenko, <vak@cronyx.ru>
9 *
10 * Copyright (C) 1999-2004 Cronyx Engineering.
11 * Author: Roman Kurakin, <rik@cronyx.ru>
12 *
13 * This software is distributed with NO WARRANTIES, not even the implied
14 * warranties for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15 *
16 * Authors grant any other persons or organisations a permission to use,
17 * modify and redistribute this software in source and binary forms,
18 * as long as this message is kept with the software, all derivative
19 * works or modified versions.
20 *
21 * Cronyx Id: if_ct.c,v 1.1.2.31 2004/06/23 17:09:13 rik Exp $
22 */
23
24#include <sys/cdefs.h>
25__FBSDID("$FreeBSD: head/sys/dev/ctau/if_ct.c 133647 2004-08-13 12:35:52Z rik $");
26
27#include <sys/param.h>
28
29#if __FreeBSD_version >= 500000
30#   define NCTAU 1
31#else
32#   include "ctau.h"
33#endif
34
35#if NCTAU > 0
36#include <sys/proc.h>
37#include <sys/systm.h>
38#include <sys/kernel.h>
39#include <sys/module.h>
40#include <sys/mbuf.h>
41#include <sys/sockio.h>
42#include <sys/malloc.h>
43#include <sys/socket.h>
44#include <sys/conf.h>
45#include <sys/errno.h>
46#include <sys/tty.h>
47#include <sys/bus.h>
48#include <machine/bus.h>
49#include <sys/rman.h>
50#include <isa/isavar.h>
51#include <sys/interrupt.h>
52#include <vm/vm.h>
53#include <vm/pmap.h>
54#include <net/if.h>
55#include <machine/cpufunc.h>
56#include <machine/cserial.h>
57#include <machine/clock.h>
58#if __FreeBSD_version < 500000
59#   include <i386/isa/isa_device.h>
60#endif
61#include <machine/resource.h>
62#if __FreeBSD_version <= 501000
63#   include <i386/isa/intr_machdep.h>
64#endif
65#include <dev/cx/machdep.h>
66#include <dev/ctau/ctddk.h>
67#include <dev/cx/cronyxfw.h>
68#include "opt_ng_cronyx.h"
69#ifdef NETGRAPH_CRONYX
70#   include "opt_netgraph.h"
71#   include <netgraph/ng_message.h>
72#   include <netgraph/netgraph.h>
73#   include <dev/ctau/ng_ct.h>
74#else
75#   include <net/if_types.h>
76#   if __FreeBSD_version < 500000
77#   include "sppp.h"
78#   if NSPPP <= 0
79#	error The device ctau requires sppp or netgraph.
80#   endif
81#   endif
82#   include <net/if_sppp.h>
83#   define PP_CISCO IFF_LINK2
84#   if __FreeBSD_version < 500000
85#	include <bpf.h>
86#   endif
87#   include <net/bpf.h>
88#   define NBPFILTER NBPF
89#endif
90
91/* If we don't have Cronyx's sppp version, we don't have fr support via sppp */
92#ifndef PP_FR
93#define PP_FR 0
94#endif
95
96#define CT_DEBUG(d,s)	({if (d->chan->debug) {\
97				printf ("%s: ", d->name); printf s;}})
98#define CT_DEBUG2(d,s)	({if (d->chan->debug>1) {\
99				printf ("%s: ", d->name); printf s;}})
100#define CDEV_MAJOR	99
101
102static void ct_identify		__P((driver_t *, device_t));
103static int ct_probe		__P((device_t));
104static int ct_attach		__P((device_t));
105static int ct_detach		__P((device_t));
106
107static device_method_t ct_isa_methods [] = {
108	DEVMETHOD(device_identify,	ct_identify),
109	DEVMETHOD(device_probe,		ct_probe),
110	DEVMETHOD(device_attach,	ct_attach),
111	DEVMETHOD(device_detach,	ct_detach),
112	{0, 0}
113};
114
115typedef struct _ct_dma_mem_t {
116	unsigned long	phys;
117	void		*virt;
118	size_t		size;
119#if __FreeBSD_version >= 500000
120	bus_dma_tag_t	dmat;
121	bus_dmamap_t	mapp;
122#endif
123} ct_dma_mem_t;
124
125typedef struct _drv_t {
126	char name [8];
127	ct_chan_t *chan;
128	ct_board_t *board;
129	ct_dma_mem_t dmamem;
130	int running;
131#ifdef NETGRAPH
132	char	nodename [NG_NODELEN+1];
133	hook_p	hook;
134	hook_p	debug_hook;
135	node_p	node;
136	struct	ifqueue queue;
137	struct	ifqueue hi_queue;
138	short	timeout;
139	struct	callout_handle timeout_handle;
140#else
141	struct sppp pp;
142#endif
143	struct cdev *devt;
144} drv_t;
145
146typedef struct _bdrv_t {
147	ct_board_t	*board;
148	struct resource	*base_res;
149	struct resource	*drq_res;
150	struct resource	*irq_res;
151	int		base_rid;
152	int		drq_rid;
153	int		irq_rid;
154	void		*intrhand;
155	drv_t		channel [NCHAN];
156} bdrv_t;
157
158static driver_t ct_isa_driver = {
159	"ct",
160	ct_isa_methods,
161	sizeof (bdrv_t),
162};
163
164static devclass_t ct_devclass;
165
166static void ct_receive (ct_chan_t *c, char *data, int len);
167static void ct_transmit (ct_chan_t *c, void *attachment, int len);
168static void ct_error (ct_chan_t *c, int data);
169static void ct_up (drv_t *d);
170static void ct_start (drv_t *d);
171static void ct_down (drv_t *d);
172static void ct_watchdog (drv_t *d);
173#ifdef NETGRAPH
174extern struct ng_type typestruct;
175#else
176static void ct_ifstart (struct ifnet *ifp);
177static void ct_tlf (struct sppp *sp);
178static void ct_tls (struct sppp *sp);
179static void ct_ifwatchdog (struct ifnet *ifp);
180static int ct_sioctl (struct ifnet *ifp, u_long cmd, caddr_t data);
181static void ct_initialize (void *softc);
182#endif
183
184static ct_board_t *adapter [NCTAU];
185static drv_t *channel [NCTAU*NCHAN];
186static struct callout_handle led_timo [NCTAU];
187static struct callout_handle timeout_handle;
188
189/*
190 * Print the mbuf chain, for debug purposes only.
191 */
192static void printmbuf (struct mbuf *m)
193{
194	printf ("mbuf:");
195	for (; m; m=m->m_next) {
196		if (m->m_flags & M_PKTHDR)
197			printf (" HDR %d:", m->m_pkthdr.len);
198		if (m->m_flags & M_EXT)
199			printf (" EXT:");
200		printf (" %d", m->m_len);
201	}
202	printf ("\n");
203}
204
205/*
206 * Make an mbuf from data.
207 */
208static struct mbuf *makembuf (void *buf, u_int len)
209{
210	struct mbuf *m;
211
212	MGETHDR (m, M_DONTWAIT, MT_DATA);
213	if (! m)
214		return 0;
215	MCLGET (m, M_DONTWAIT);
216	if (! (m->m_flags & M_EXT)) {
217		m_freem (m);
218		return 0;
219	}
220	m->m_pkthdr.len = m->m_len = len;
221	bcopy (buf, mtod (m, caddr_t), len);
222	return m;
223}
224
225static void ct_timeout (void *arg)
226{
227	drv_t *d;
228	int s, i;
229
230	for (i=0; i<NCTAU*NCHAN; ++i) {
231		d = channel[i];
232		if (! d)
233			continue;
234		if (d->chan->mode != M_G703)
235			continue;
236		s = splimp ();
237		ct_g703_timer (d->chan);
238		splx (s);
239	}
240	timeout_handle = timeout (ct_timeout, 0, hz);
241}
242
243static void ct_led_off (void *arg)
244{
245	ct_board_t *b = arg;
246	int s = splimp ();
247
248	ct_led (b, 0);
249	led_timo[b->num].callout = 0;
250	splx (s);
251}
252
253/*
254 * Activate interupt handler from DDK.
255 */
256static void ct_intr (void *arg)
257{
258	bdrv_t *bd = arg;
259	ct_board_t *b = bd->board;
260	int s = splimp ();
261
262	/* Turn LED on. */
263	ct_led (b, 1);
264
265	ct_int_handler (b);
266
267	/* Turn LED off 50 msec later. */
268	if (! led_timo[b->num].callout)
269		led_timo[b->num] = timeout (ct_led_off, b, hz/20);
270	splx (s);
271}
272
273static int probe_irq (ct_board_t *b, int irq)
274{
275	int mask, busy, cnt;
276
277	/* Clear pending irq, if any. */
278	ct_probe_irq (b, -irq);
279	DELAY (100);
280	for (cnt=0; cnt<5; ++cnt) {
281		/* Get the mask of pending irqs, assuming they are busy.
282		 * Activate the adapter on given irq. */
283		busy = ct_probe_irq (b, irq);
284		DELAY (1000);
285
286		/* Get the mask of active irqs.
287		 * Deactivate our irq. */
288		mask = ct_probe_irq (b, -irq);
289		DELAY (100);
290		if ((mask & ~busy) == 1 << irq) {
291			ct_probe_irq (b, 0);
292			/* printf ("ct%d: irq %d ok, mask=0x%04x, busy=0x%04x\n",
293				b->num, irq, mask, busy); */
294			return 1;
295		}
296	}
297	/* printf ("ct%d: irq %d not functional, mask=0x%04x, busy=0x%04x\n",
298		b->num, irq, mask, busy); */
299	ct_probe_irq (b, 0);
300	return 0;
301}
302
303static	short porttab [] = {
304		0x200, 0x220, 0x240, 0x260, 0x280, 0x2a0, 0x2c0, 0x2e0,
305		0x300, 0x320, 0x340, 0x360, 0x380, 0x3a0, 0x3c0, 0x3e0, 0
306	};
307static	char dmatab [] = { 7, 6, 5, 0 };
308static	char irqtab [] = { 5, 10, 11, 7, 3, 15, 12, 0 };
309
310static int ct_is_free_res (device_t dev, int rid, int type, u_long start,
311	u_long end, u_long count)
312{
313	struct resource *res;
314
315	if (!(res = bus_alloc_resource (dev, type, &rid, start, end, count,
316	    RF_ALLOCATED)))
317		return 0;
318
319	bus_release_resource (dev, type, rid, res);
320
321	return 1;
322}
323
324static void ct_identify (driver_t *driver, device_t dev)
325{
326	u_long iobase, rescount;
327	int devcount;
328	device_t *devices;
329	device_t child;
330	devclass_t my_devclass;
331	int i, k;
332
333	if ((my_devclass = devclass_find ("ct")) == NULL)
334		return;
335
336	devclass_get_devices (my_devclass, &devices, &devcount);
337
338	if (devcount == 0) {
339		/* We should find all devices by our self. We could alter other
340		 * devices, but we don't have a choise
341		 */
342		for (i = 0; (iobase = porttab [i]) != 0; i++) {
343			if (!ct_is_free_res (dev, 0, SYS_RES_IOPORT,
344			    iobase, iobase + NPORT, NPORT))
345				continue;
346			if (ct_probe_board (iobase, -1, -1) == 0)
347				continue;
348
349			devcount++;
350			child = BUS_ADD_CHILD (dev, ISA_ORDER_SPECULATIVE, "ct",
351			    -1);
352
353			if (child == NULL)
354				return;
355
356			device_set_desc_copy (child, "Cronyx Tau-ISA");
357			device_set_driver (child, driver);
358			bus_set_resource (child, SYS_RES_IOPORT, 0,
359			    iobase, NPORT);
360
361			if (devcount >= NCTAU)
362				break;
363		}
364	} else {
365		static	short porttab [] = {
366			0x200, 0x220, 0x240, 0x260, 0x280, 0x2a0, 0x2c0, 0x2e0,
367			0x300, 0x320, 0x340, 0x360, 0x380, 0x3a0, 0x3c0, 0x3e0, 0
368		};
369		/* Lets check user choise.
370		 */
371		for (k = 0; k < devcount; k++) {
372			if (bus_get_resource (devices[k], SYS_RES_IOPORT, 0,
373			    &iobase, &rescount) != 0)
374				continue;
375
376			for (i = 0; porttab [i] != 0; i++) {
377				if (porttab [i] != iobase)
378					continue;
379
380				if (!ct_is_free_res (devices[k], 0, SYS_RES_IOPORT,
381				    iobase, iobase + NPORT, NPORT))
382					continue;
383
384				if (ct_probe_board (iobase, -1, -1) == 0)
385					continue;
386				porttab [i] = -1;
387				device_set_desc_copy (devices[k], "Cronyx Tau-ISA");
388				break;
389			}
390			if (porttab [i] == 0) {
391				device_delete_child (
392				    device_get_parent (devices[k]),
393				    devices [k]);
394				devices[k] = 0;
395				continue;
396			}
397		}
398		for (k = 0; k < devcount; k++) {
399			if (devices[k] == 0)
400				continue;
401			if (bus_get_resource (devices[k], SYS_RES_IOPORT, 0,
402			    &iobase, &rescount) == 0)
403				continue;
404			for (i = 0; (iobase = porttab [i]) != 0; i++) {
405				if (porttab [i] == -1)
406					continue;
407				if (!ct_is_free_res (devices[k], 0, SYS_RES_IOPORT,
408				    iobase, iobase + NPORT, NPORT))
409					continue;
410				if (ct_probe_board (iobase, -1, -1) == 0)
411					continue;
412
413				bus_set_resource (devices[k], SYS_RES_IOPORT, 0,
414				    iobase, NPORT);
415				porttab [i] = -1;
416				device_set_desc_copy (devices[k], "Cronyx Tau-ISA");
417				break;
418			}
419			if (porttab [i] == 0) {
420				device_delete_child (
421				    device_get_parent (devices[k]),
422				    devices [k]);
423			}
424		}
425		free (devices, M_TEMP);
426	}
427
428	return;
429}
430
431static int ct_probe (device_t dev)
432{
433	int unit = device_get_unit (dev);
434	u_long iobase, rescount;
435
436	if (!device_get_desc (dev) ||
437	    strcmp (device_get_desc (dev), "Cronyx Tau-ISA"))
438		return ENXIO;
439
440/*	KASSERT ((bd != NULL), ("ct%d: NULL device softc\n", unit));*/
441	if (bus_get_resource (dev, SYS_RES_IOPORT, 0, &iobase, &rescount) != 0) {
442		printf ("ct%d: Couldn't get IOPORT\n", unit);
443		return ENXIO;
444	}
445
446	if (!ct_is_free_res (dev, 0, SYS_RES_IOPORT,
447	    iobase, iobase + NPORT, NPORT)) {
448		printf ("ct%d: Resource IOPORT isn't free\n", unit);
449		return ENXIO;
450	}
451
452	if (!ct_probe_board (iobase, -1, -1)) {
453		printf ("ct%d: probing for Tau-ISA at %lx faild\n", unit, iobase);
454		return ENXIO;
455	}
456
457	return 0;
458}
459
460extern struct cdevsw ct_cdevsw;
461
462#if __FreeBSD_version >= 500000
463static void
464ct_bus_dmamap_addr (void *arg, bus_dma_segment_t *segs, int nseg, int error)
465{
466	unsigned long *addr;
467
468	if (error)
469		return;
470
471	KASSERT(nseg == 1, ("too many DMA segments, %d should be 1", nseg));
472	addr = arg;
473	*addr = segs->ds_addr;
474}
475
476static int
477ct_bus_dma_mem_alloc (int bnum, int cnum, ct_dma_mem_t *dmem)
478{
479	int error;
480
481	error = bus_dma_tag_create (NULL, 16, 0, BUS_SPACE_MAXADDR_24BIT,
482		BUS_SPACE_MAXADDR, NULL, NULL, dmem->size, 1,
483		dmem->size, 0, NULL, NULL, &dmem->dmat);
484	if (error) {
485		if (cnum >= 0)	printf ("ct%d-%d: ", bnum, cnum);
486		else		printf ("ct%d: ", bnum);
487		printf ("couldn't allocate tag for dma memory\n");
488 		return 0;
489	}
490	error = bus_dmamem_alloc (dmem->dmat, (void **)&dmem->virt,
491		BUS_DMA_NOWAIT | BUS_DMA_ZERO, &dmem->mapp);
492	if (error) {
493		if (cnum >= 0)	printf ("ct%d-%d: ", bnum, cnum);
494		else		printf ("ct%d: ", bnum);
495		printf ("couldn't allocate mem for dma memory\n");
496		bus_dma_tag_destroy (dmem->dmat);
497 		return 0;
498	}
499	error = bus_dmamap_load (dmem->dmat, dmem->mapp, dmem->virt,
500		dmem->size, ct_bus_dmamap_addr, &dmem->phys, 0);
501	if (error) {
502		if (cnum >= 0)	printf ("ct%d-%d: ", bnum, cnum);
503		else		printf ("ct%d: ", bnum);
504		printf ("couldn't load mem map for dma memory\n");
505		bus_dmamem_free (dmem->dmat, dmem->virt, dmem->mapp);
506		bus_dma_tag_destroy (dmem->dmat);
507 		return 0;
508	}
509	return 1;
510}
511
512static void
513ct_bus_dma_mem_free (ct_dma_mem_t *dmem)
514{
515	bus_dmamap_unload (dmem->dmat, dmem->mapp);
516	bus_dmamem_free (dmem->dmat, dmem->virt, dmem->mapp);
517	bus_dma_tag_destroy (dmem->dmat);
518}
519#else
520static int
521ct_bus_dma_mem_alloc (int bnum, int cnum, ct_dma_mem_t *dmem)
522{
523	dmem->virt = contigmalloc (dmem->size, M_DEVBUF, M_WAITOK,
524				   0x100000, 0x1000000, 16, 0);
525	if (dmem->virt == NULL) {
526		if (cnum >= 0)	printf ("ct%d-%d: ", bnum, cnum);
527		else		printf ("ct%d: ", bnum);
528		printf ("couldn't allocate memory for dma memory\n", unit);
529 		return 0;
530	}
531	dmem->phys = vtophys (dmem->virt);
532	return 1;
533}
534
535static void
536ct_bus_dma_mem_free (ct_dma_mem_t *dmem)
537{
538	contigfree (dmem->virt, dmem->size, M_DEVBUF);
539}
540#endif
541
542/*
543 * The adapter is present, initialize the driver structures.
544 */
545static int ct_attach (device_t dev)
546{
547	bdrv_t *bd = device_get_softc (dev);
548	u_long iobase, drq, irq, rescount;
549	int unit = device_get_unit (dev);
550	ct_board_t *b;
551	ct_chan_t *c;
552	drv_t *d;
553	int i;
554	int s;
555
556	KASSERT ((bd != NULL), ("ct%d: NULL device softc\n", unit));
557
558	bus_get_resource (dev, SYS_RES_IOPORT, 0, &iobase, &rescount);
559	bd->base_rid = 0;
560	bd->base_res = bus_alloc_resource (dev, SYS_RES_IOPORT, &bd->base_rid,
561		iobase, iobase + NPORT, NPORT, RF_ACTIVE);
562	if (! bd->base_res) {
563		printf ("ct%d: cannot alloc base address\n", unit);
564		return ENXIO;
565	}
566
567	if (bus_get_resource (dev, SYS_RES_DRQ, 0, &drq, &rescount) != 0) {
568		for (i = 0; (drq = dmatab [i]) != 0; i++) {
569			if (!ct_is_free_res (dev, 0, SYS_RES_DRQ,
570			    drq, drq + 1, 1))
571				continue;
572			bus_set_resource (dev, SYS_RES_DRQ, 0, drq, 1);
573			break;
574		}
575
576		if (dmatab[i] == 0) {
577			bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
578				bd->base_res);
579			printf ("ct%d: Couldn't get DRQ\n", unit);
580			return ENXIO;
581		}
582	}
583
584	bd->drq_rid = 0;
585	bd->drq_res = bus_alloc_resource (dev, SYS_RES_DRQ, &bd->drq_rid,
586		drq, drq + 1, 1, RF_ACTIVE);
587	if (! bd->drq_res) {
588		printf ("ct%d: cannot allocate drq\n", unit);
589		bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
590			bd->base_res);
591		return ENXIO;
592	}
593
594	if (bus_get_resource (dev, SYS_RES_IRQ, 0, &irq, &rescount) != 0) {
595		for (i = 0; (irq = irqtab [i]) != 0; i++) {
596			if (!ct_is_free_res (dev, 0, SYS_RES_IRQ,
597			    irq, irq + 1, 1))
598				continue;
599			bus_set_resource (dev, SYS_RES_IRQ, 0, irq, 1);
600			break;
601		}
602
603		if (irqtab[i] == 0) {
604			bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
605				bd->drq_res);
606			bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
607				bd->base_res);
608			printf ("ct%d: Couldn't get IRQ\n", unit);
609			return ENXIO;
610		}
611	}
612
613	bd->irq_rid = 0;
614	bd->irq_res = bus_alloc_resource (dev, SYS_RES_IRQ, &bd->irq_rid,
615		irq, irq + 1, 1, RF_ACTIVE);
616	if (! bd->irq_res) {
617		printf ("ct%d: Couldn't allocate irq\n", unit);
618		bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
619			bd->drq_res);
620		bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
621			bd->base_res);
622		return ENXIO;
623	}
624
625	b = malloc (sizeof (ct_board_t), M_DEVBUF, M_WAITOK);
626	if (!b) {
627		printf ("ct:%d: Couldn't allocate memory\n", unit);
628		return (ENXIO);
629	}
630	adapter[unit] = b;
631	bzero (b, sizeof(ct_board_t));
632
633	if (! ct_open_board (b, unit, iobase, irq, drq)) {
634		printf ("ct%d: error loading firmware\n", unit);
635		free (b, M_DEVBUF);
636		bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid,
637			bd->irq_res);
638		bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
639			bd->drq_res);
640		bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
641			bd->base_res);
642 		return ENXIO;
643	}
644
645	bd->board = b;
646
647	if (! probe_irq (b, irq)) {
648		printf ("ct%d: irq %ld not functional\n", unit, irq);
649		bd->board = 0;
650		adapter [unit] = 0;
651		free (b, M_DEVBUF);
652		bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid,
653			bd->irq_res);
654		bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
655			bd->drq_res);
656		bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
657			bd->base_res);
658 		return ENXIO;
659	}
660
661	s = splimp ();
662	if (bus_setup_intr (dev, bd->irq_res, INTR_TYPE_NET, ct_intr, bd,
663	    &bd->intrhand)) {
664		printf ("ct%d: Can't setup irq %ld\n", unit, irq);
665		bd->board = 0;
666		adapter [unit] = 0;
667		free (b, M_DEVBUF);
668		bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid,
669			bd->irq_res);
670		bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
671			bd->drq_res);
672		bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
673			bd->base_res);
674		splx (s);
675 		return ENXIO;
676	}
677
678	ct_init_board (b, b->num, b->port, irq, drq, b->type, b->osc);
679	ct_setup_board (b, 0, 0, 0);
680
681	printf ("ct%d: <Cronyx-%s>, clock %s MHz\n", b->num, b->name,
682		b->osc == 20000000 ? "20" : "16.384");
683
684	for (c=b->chan; c<b->chan+NCHAN; ++c) {
685		d = &bd->channel[c->num];
686		d->dmamem.size = sizeof(ct_buf_t);
687		if (! ct_bus_dma_mem_alloc (unit, c->num, &d->dmamem))
688			continue;
689		channel [b->num*NCHAN + c->num] = d;
690		sprintf (d->name, "ct%d.%d", b->num, c->num);
691		d->board = b;
692		d->chan = c;
693		c->sys = d;
694
695#ifdef NETGRAPH
696		if (ng_make_node_common (&typestruct, &d->node) != 0) {
697			printf ("%s: cannot make common node\n", d->name);
698			channel [b->num*NCHAN + c->num] = 0;
699			c->sys = 0;
700			ct_bus_dma_mem_free (&d->dmamem);
701			continue;
702		}
703#if __FreeBSD_version >= 500000
704		NG_NODE_SET_PRIVATE (d->node, d);
705#else
706		d->node->private = d;
707#endif
708		sprintf (d->nodename, "%s%d", NG_CT_NODE_TYPE,
709			 c->board->num*NCHAN + c->num);
710		if (ng_name_node (d->node, d->nodename)) {
711			printf ("%s: cannot name node\n", d->nodename);
712#if __FreeBSD_version >= 500000
713			NG_NODE_UNREF (d->node);
714#else
715			ng_rmnode (d->node);
716			ng_unref (d->node);
717#endif
718			channel [b->num*NCHAN + c->num] = 0;
719			c->sys = 0;
720			ct_bus_dma_mem_free (&d->dmamem);
721			continue;
722		}
723		d->queue.ifq_maxlen = IFQ_MAXLEN;
724		d->hi_queue.ifq_maxlen = IFQ_MAXLEN;
725#if __FreeBSD_version >= 500000
726		mtx_init (&d->queue.ifq_mtx, "ct_queue", NULL, MTX_DEF);
727		mtx_init (&d->hi_queue.ifq_mtx, "ct_queue_hi", NULL, MTX_DEF);
728#endif
729#else /*NETGRAPH*/
730		d->pp.pp_if.if_softc    = d;
731#if __FreeBSD_version > 501000
732		if_initname (&d->pp.pp_if, "ct", b->num * NCHAN + c->num);
733#else
734		d->pp.pp_if.if_unit	= b->num * NCHAN + c->num;
735		d->pp.pp_if.if_name	= "ct";
736#endif
737		d->pp.pp_if.if_mtu	= PP_MTU;
738		d->pp.pp_if.if_flags	= IFF_POINTOPOINT | IFF_MULTICAST;
739		d->pp.pp_if.if_ioctl	= ct_sioctl;
740		d->pp.pp_if.if_start	= ct_ifstart;
741		d->pp.pp_if.if_watchdog	= ct_ifwatchdog;
742		d->pp.pp_if.if_init	= ct_initialize;
743		sppp_attach (&d->pp.pp_if);
744		if_attach (&d->pp.pp_if);
745		d->pp.pp_tlf		= ct_tlf;
746		d->pp.pp_tls		= ct_tls;
747		/* If BPF is in the kernel, call the attach for it.
748		 * Header size is 4 bytes. */
749		bpfattach (&d->pp.pp_if, DLT_PPP, 4);
750#endif /*NETGRAPH*/
751		ct_start_chan (c, d->dmamem.virt, d->dmamem.phys);
752		ct_register_receive (c, &ct_receive);
753		ct_register_transmit (c, &ct_transmit);
754		ct_register_error (c, &ct_error);
755		d->devt = make_dev (&ct_cdevsw, b->num*NCHAN+c->num, UID_ROOT,
756				GID_WHEEL, 0600, "ct%d", b->num*NCHAN+c->num);
757	}
758	splx (s);
759
760	return 0;
761}
762
763static int ct_detach (device_t dev)
764{
765	bdrv_t *bd = device_get_softc (dev);
766	ct_board_t *b = bd->board;
767	ct_chan_t *c;
768	int s = splimp ();
769
770	/* Check if the device is busy (open). */
771	for (c = b->chan; c < b->chan + NCHAN; ++c) {
772		drv_t *d = (drv_t*) c->sys;
773
774		if (!d || !d->chan->type)
775			continue;
776
777		if (d->running) {
778			splx (s);
779			return EBUSY;
780		}
781	}
782
783	/* Deactivate the timeout routine. */
784	if (led_timo[b->num].callout)
785		untimeout (ct_led_off, b, led_timo[b->num]);
786
787	bus_teardown_intr (dev, bd->irq_res, bd->intrhand);
788	bus_deactivate_resource (dev, SYS_RES_IRQ, bd->irq_rid, bd->irq_res);
789	bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid, bd->irq_res);
790
791	bus_deactivate_resource (dev, SYS_RES_DRQ, bd->drq_rid, bd->drq_res);
792	bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid, bd->drq_res);
793
794	bus_deactivate_resource (dev, SYS_RES_IOPORT, bd->base_rid, bd->irq_res);
795	bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid, bd->base_res);
796
797	ct_close_board (b);
798
799	/* Detach the interfaces, free buffer memory. */
800	for (c = b->chan; c < b->chan + NCHAN; ++c) {
801		drv_t *d = (drv_t*) c->sys;
802
803		if (!d || !d->chan->type)
804			continue;
805
806#ifdef NETGRAPH
807#if __FreeBSD_version >= 500000
808		if (d->node) {
809			ng_rmnode_self (d->node);
810			NG_NODE_UNREF (d->node);
811			d->node = NULL;
812		}
813		mtx_destroy (&d->queue.ifq_mtx);
814		mtx_destroy (&d->hi_queue.ifq_mtx);
815#else
816		ng_rmnode (d->node);
817		d->node = 0;
818#endif
819#else
820#if __FreeBSD_version >= 410000 && NBPFILTER > 0
821		/* Detach from the packet filter list of interfaces. */
822		bpfdetach (&d->pp.pp_if);
823#endif
824		/* Detach from the sync PPP list. */
825		sppp_detach (&d->pp.pp_if);
826
827		if_detach (&d->pp.pp_if);
828#endif
829		destroy_dev (d->devt);
830	}
831
832	ct_led_off (b);
833	if (led_timo[b->num].callout)
834		untimeout (ct_led_off, b, led_timo[b->num]);
835	splx (s);
836
837	s = splimp ();
838	for (c = b->chan; c < b->chan + NCHAN; ++c) {
839		drv_t *d = (drv_t*) c->sys;
840
841		if (!d || !d->chan->type)
842			continue;
843
844		/* Deallocate buffers. */
845		ct_bus_dma_mem_free (&d->dmamem);
846	}
847	bd->board = 0;
848	adapter [b->num] = 0;
849	free (b, M_DEVBUF);
850	splx (s);
851
852	return 0;
853}
854
855#ifndef NETGRAPH
856static void ct_ifstart (struct ifnet *ifp)
857{
858	drv_t *d = ifp->if_softc;
859
860	ct_start (d);
861}
862
863static void ct_ifwatchdog (struct ifnet *ifp)
864{
865	drv_t *d = ifp->if_softc;
866
867	ct_watchdog (d);
868}
869
870static void ct_tlf (struct sppp *sp)
871{
872	drv_t *d = sp->pp_if.if_softc;
873
874	CT_DEBUG (d, ("ct_tlf\n"));
875/*	ct_set_dtr (d->chan, 0);*/
876/*	ct_set_rts (d->chan, 0);*/
877	sp->pp_down (sp);
878}
879
880static void ct_tls (struct sppp *sp)
881{
882	drv_t *d = sp->pp_if.if_softc;
883
884	CT_DEBUG (d, ("ct_tls\n"));
885	sp->pp_up (sp);
886}
887
888/*
889 * Initialization of interface.
890 * Ii seems to be never called by upper level.
891 */
892static void ct_initialize (void *softc)
893{
894	drv_t *d = softc;
895
896	CT_DEBUG (d, ("ct_initialize\n"));
897}
898
899/*
900 * Process an ioctl request.
901 */
902static int ct_sioctl (struct ifnet *ifp, u_long cmd, caddr_t data)
903{
904	drv_t *d = ifp->if_softc;
905	int error, s, was_up, should_be_up;
906
907	was_up = (ifp->if_flags & IFF_RUNNING) != 0;
908	error = sppp_ioctl (ifp, cmd, data);
909	if (error)
910		return error;
911
912	if (! (ifp->if_flags & IFF_DEBUG))
913		d->chan->debug = 0;
914	else if (! d->chan->debug)
915		d->chan->debug = 1;
916
917	switch (cmd) {
918	default:	   CT_DEBUG2 (d, ("ioctl 0x%lx\n", cmd)); return 0;
919	case SIOCADDMULTI: CT_DEBUG2 (d, ("SIOCADDMULTI\n"));     return 0;
920	case SIOCDELMULTI: CT_DEBUG2 (d, ("SIOCDELMULTI\n"));     return 0;
921	case SIOCSIFFLAGS: CT_DEBUG2 (d, ("SIOCSIFFLAGS\n"));     break;
922	case SIOCSIFADDR:  CT_DEBUG2 (d, ("SIOCSIFADDR\n"));      break;
923	}
924
925	/* We get here only in case of SIFFLAGS or SIFADDR. */
926	s = splimp ();
927	should_be_up = (ifp->if_flags & IFF_RUNNING) != 0;
928	if (! was_up && should_be_up) {
929		/* Interface goes up -- start it. */
930		ct_up (d);
931		ct_start (d);
932	} else if (was_up && ! should_be_up) {
933		/* Interface is going down -- stop it. */
934		/* if ((d->pp.pp_flags & PP_FR) || (ifp->if_flags & PP_CISCO))*/
935		ct_down (d);
936	}
937	splx (s);
938	return 0;
939}
940#endif /*NETGRAPH*/
941
942/*
943 * Stop the interface.  Called on splimp().
944 */
945static void ct_down (drv_t *d)
946{
947	int s = splimp ();
948	CT_DEBUG (d, ("ct_down\n"));
949	ct_set_dtr (d->chan, 0);
950	ct_set_rts (d->chan, 0);
951	d->running = 0;
952	splx (s);
953}
954
955/*
956 * Start the interface.  Called on splimp().
957 */
958static void ct_up (drv_t *d)
959{
960	int s = splimp ();
961	CT_DEBUG (d, ("ct_up\n"));
962	ct_set_dtr (d->chan, 1);
963	ct_set_rts (d->chan, 1);
964	d->running = 1;
965	splx (s);
966}
967
968/*
969 * Start output on the (slave) interface.  Get another datagram to send
970 * off of the interface queue, and copy it to the interface
971 * before starting the output.
972 */
973static void ct_send (drv_t *d)
974{
975	struct mbuf *m;
976	u_short len;
977
978	CT_DEBUG2 (d, ("ct_send, tn=%d\n", d->chan->tn));
979
980	/* No output if the interface is down. */
981	if (! d->running)
982		return;
983
984	/* No output if the modem is off. */
985	if (! ct_get_dsr (d->chan) && !ct_get_loop (d->chan))
986		return;
987
988	while (ct_buf_free (d->chan)) {
989		/* Get the packet to send. */
990#ifdef NETGRAPH
991		IF_DEQUEUE (&d->hi_queue, m);
992		if (! m)
993			IF_DEQUEUE (&d->queue, m);
994#else
995		m = sppp_dequeue (&d->pp.pp_if);
996#endif
997		if (! m)
998			return;
999#ifndef NETGRAPH
1000		if (d->pp.pp_if.if_bpf)
1001#if __FreeBSD_version >= 500000
1002			BPF_MTAP (&d->pp.pp_if, m);
1003#else
1004			bpf_mtap (&d->pp.pp_if, m);
1005#endif
1006#endif
1007		len = m->m_pkthdr.len;
1008		if (! m->m_next)
1009			ct_send_packet (d->chan, (u_char*)mtod (m, caddr_t),
1010				len, 0);
1011		else {
1012			m_copydata (m, 0, len, d->chan->tbuf[d->chan->te]);
1013			ct_send_packet (d->chan, d->chan->tbuf[d->chan->te],
1014				len, 0);
1015		}
1016		m_freem (m);
1017
1018		/* Set up transmit timeout, if the transmit ring is not empty.
1019		 * Transmit timeout is 10 seconds. */
1020#ifdef NETGRAPH
1021		d->timeout = 10;
1022#else
1023		d->pp.pp_if.if_timer = 10;
1024#endif
1025	}
1026#ifndef NETGRAPH
1027	d->pp.pp_if.if_flags |= IFF_OACTIVE;
1028#endif
1029}
1030
1031/*
1032 * Start output on the interface.
1033 * Always called on splimp().
1034 */
1035static void ct_start (drv_t *d)
1036{
1037	int s = splimp ();
1038
1039	if (d->running) {
1040		if (! d->chan->dtr)
1041			ct_set_dtr (d->chan, 1);
1042		if (! d->chan->rts)
1043			ct_set_rts (d->chan, 1);
1044		ct_send (d);
1045	}
1046
1047	splx (s);
1048}
1049
1050/*
1051 * Handle transmit timeouts.
1052 * Recover after lost transmit interrupts.
1053 * Always called on splimp().
1054 */
1055static void ct_watchdog (drv_t *d)
1056{
1057	int s = splimp ();
1058
1059	CT_DEBUG (d, ("device timeout\n"));
1060	if (d->running) {
1061		ct_setup_chan (d->chan);
1062		ct_start_chan (d->chan, 0, 0);
1063		ct_set_dtr (d->chan, 1);
1064		ct_set_rts (d->chan, 1);
1065		ct_start (d);
1066	}
1067
1068	splx (s);
1069}
1070
1071/*
1072 * Transmit callback function.
1073 */
1074static void ct_transmit (ct_chan_t *c, void *attachment, int len)
1075{
1076	drv_t *d = c->sys;
1077
1078	if (!d)
1079		return;
1080#ifdef NETGRAPH
1081	d->timeout = 0;
1082#else
1083	++d->pp.pp_if.if_opackets;
1084	d->pp.pp_if.if_flags &= ~IFF_OACTIVE;
1085	d->pp.pp_if.if_timer = 0;
1086#endif
1087	ct_start (d);
1088}
1089
1090/*
1091 * Process the received packet.
1092 */
1093static void ct_receive (ct_chan_t *c, char *data, int len)
1094{
1095	drv_t *d = c->sys;
1096	struct mbuf *m;
1097#if __FreeBSD_version >= 500000 && defined NETGRAPH
1098	int error;
1099#endif
1100
1101	if (!d || !d->running)
1102		return;
1103
1104	m = makembuf (data, len);
1105	if (! m) {
1106		CT_DEBUG (d, ("no memory for packet\n"));
1107#ifndef NETGRAPH
1108		++d->pp.pp_if.if_iqdrops;
1109#endif
1110		return;
1111	}
1112	if (c->debug > 1)
1113		printmbuf (m);
1114#ifdef NETGRAPH
1115	m->m_pkthdr.rcvif = 0;
1116#if __FreeBSD_version >= 500000
1117	NG_SEND_DATA_ONLY (error, d->hook, m);
1118#else
1119	ng_queue_data (d->hook, m, 0);
1120#endif
1121#else
1122	++d->pp.pp_if.if_ipackets;
1123	m->m_pkthdr.rcvif = &d->pp.pp_if;
1124	/* Check if there's a BPF listener on this interface.
1125	 * If so, hand off the raw packet to bpf. */
1126	if (d->pp.pp_if.if_bpf)
1127#if __FreeBSD_version >= 500000
1128		BPF_TAP (&d->pp.pp_if, data, len);
1129#else
1130		bpf_tap (&d->pp.pp_if, data, len);
1131#endif
1132	sppp_input (&d->pp.pp_if, m);
1133#endif
1134}
1135
1136/*
1137 * Error callback function.
1138 */
1139static void ct_error (ct_chan_t *c, int data)
1140{
1141	drv_t *d = c->sys;
1142
1143	if (!d)
1144		return;
1145
1146	switch (data) {
1147	case CT_FRAME:
1148		CT_DEBUG (d, ("frame error\n"));
1149#ifndef NETGRAPH
1150		++d->pp.pp_if.if_ierrors;
1151#endif
1152		break;
1153	case CT_CRC:
1154		CT_DEBUG (d, ("crc error\n"));
1155#ifndef NETGRAPH
1156		++d->pp.pp_if.if_ierrors;
1157#endif
1158		break;
1159	case CT_OVERRUN:
1160		CT_DEBUG (d, ("overrun error\n"));
1161#ifndef NETGRAPH
1162		++d->pp.pp_if.if_collisions;
1163		++d->pp.pp_if.if_ierrors;
1164#endif
1165		break;
1166	case CT_OVERFLOW:
1167		CT_DEBUG (d, ("overflow error\n"));
1168#ifndef NETGRAPH
1169		++d->pp.pp_if.if_ierrors;
1170#endif
1171		break;
1172	case CT_UNDERRUN:
1173		CT_DEBUG (d, ("underrun error\n"));
1174#ifdef NETGRAPH
1175		d->timeout = 0;
1176#else
1177		++d->pp.pp_if.if_oerrors;
1178		d->pp.pp_if.if_flags &= ~IFF_OACTIVE;
1179		d->pp.pp_if.if_timer = 0;
1180#endif
1181		ct_start (d);
1182		break;
1183	default:
1184		CT_DEBUG (d, ("error #%d\n", data));
1185	}
1186}
1187
1188#if __FreeBSD_version < 500000
1189static int ct_open (dev_t dev, int oflags, int devtype, struct proc *p)
1190#else
1191static int ct_open (struct cdev *dev, int oflags, int devtype, struct thread *td)
1192#endif
1193{
1194	drv_t *d;
1195
1196	if (minor(dev) >= NCTAU*NCHAN || ! (d = channel[minor(dev)]))
1197		return ENXIO;
1198
1199	CT_DEBUG2 (d, ("ct_open\n"));
1200	return 0;
1201}
1202
1203#if __FreeBSD_version < 500000
1204static int ct_close (dev_t dev, int fflag, int devtype, struct proc *p)
1205#else
1206static int ct_close (struct cdev *dev, int fflag, int devtype, struct thread *td)
1207#endif
1208{
1209	drv_t *d = channel [minor(dev)];
1210
1211	if (!d)
1212		return 0;
1213
1214	CT_DEBUG2 (d, ("ct_close\n"));
1215	return 0;
1216}
1217
1218static int ct_modem_status (ct_chan_t *c)
1219{
1220	drv_t *d = c->sys;
1221	int status, s;
1222
1223	if (!d)
1224		return 0;
1225
1226	status = d->running ? TIOCM_LE : 0;
1227	s = splimp ();
1228	if (ct_get_cd  (c)) status |= TIOCM_CD;
1229	if (ct_get_cts (c)) status |= TIOCM_CTS;
1230	if (ct_get_dsr (c)) status |= TIOCM_DSR;
1231	if (c->dtr)	    status |= TIOCM_DTR;
1232	if (c->rts)	    status |= TIOCM_RTS;
1233	splx (s);
1234	return status;
1235}
1236
1237/*
1238 * Process an ioctl request on /dev/cronyx/ctauN.
1239 */
1240#if __FreeBSD_version < 500000
1241static int ct_ioctl (dev_t dev, u_long cmd, caddr_t data, int flag, struct proc *p)
1242#else
1243static int ct_ioctl (struct cdev *dev, u_long cmd, caddr_t data, int flag, struct thread *td)
1244#endif
1245{
1246	drv_t *d = channel [minor (dev)];
1247	ct_chan_t *c;
1248	struct serial_statistics *st;
1249	struct e1_statistics *opte1;
1250	int error, s;
1251	char mask[16];
1252
1253	if (!d || !d->chan)
1254		return 0;
1255
1256	c = d->chan;
1257
1258	switch (cmd) {
1259	case SERIAL_GETREGISTERED:
1260		bzero (mask, sizeof(mask));
1261		for (s=0; s<NCTAU*NCHAN; ++s)
1262			if (channel [s])
1263				mask [s/8] |= 1 << (s & 7);
1264		bcopy (mask, data, sizeof (mask));
1265		return 0;
1266
1267#ifndef NETGRAPH
1268	case SERIAL_GETPROTO:
1269		strcpy ((char*)data, (d->pp.pp_flags & PP_FR) ? "fr" :
1270			(d->pp.pp_if.if_flags & PP_CISCO) ? "cisco" : "ppp");
1271		return 0;
1272
1273	case SERIAL_SETPROTO:
1274		/* Only for superuser! */
1275#if __FreeBSD_version < 500000
1276		error = suser (p);
1277#else /* __FreeBSD_version >= 500000 */
1278		error = suser (td);
1279#endif /* __FreeBSD_version >= 500000 */
1280		if (error)
1281			return error;
1282		if (d->pp.pp_if.if_flags & IFF_RUNNING)
1283			return EBUSY;
1284		if (! strcmp ("cisco", (char*)data)) {
1285			d->pp.pp_flags &= ~(PP_FR);
1286			d->pp.pp_flags |= PP_KEEPALIVE;
1287			d->pp.pp_if.if_flags |= PP_CISCO;
1288		} else if (! strcmp ("fr", (char*)data)) {
1289			d->pp.pp_if.if_flags &= ~(PP_CISCO);
1290			d->pp.pp_flags |= PP_FR | PP_KEEPALIVE;
1291		} else if (! strcmp ("ppp", (char*)data)) {
1292			d->pp.pp_flags &= ~(PP_FR | PP_KEEPALIVE);
1293			d->pp.pp_if.if_flags &= ~(PP_CISCO);
1294		} else
1295			return EINVAL;
1296		return 0;
1297
1298	case SERIAL_GETKEEPALIVE:
1299		if ((d->pp.pp_flags & PP_FR) ||
1300			(d->pp.pp_if.if_flags & PP_CISCO))
1301			return EINVAL;
1302		*(int*)data = (d->pp.pp_flags & PP_KEEPALIVE) ? 1 : 0;
1303		return 0;
1304
1305	case SERIAL_SETKEEPALIVE:
1306		/* Only for superuser! */
1307#if __FreeBSD_version < 500000
1308		error = suser (p);
1309#else /* __FreeBSD_version >= 500000 */
1310		error = suser (td);
1311#endif /* __FreeBSD_version >= 500000 */
1312		if (error)
1313			return error;
1314		if ((d->pp.pp_flags & PP_FR) ||
1315			(d->pp.pp_if.if_flags & PP_CISCO))
1316			return EINVAL;
1317		if (*(int*)data)
1318			d->pp.pp_flags |= PP_KEEPALIVE;
1319		else
1320			d->pp.pp_flags &= ~PP_KEEPALIVE;
1321		return 0;
1322#endif /*NETGRAPH*/
1323
1324	case SERIAL_GETMODE:
1325		*(int*)data = SERIAL_HDLC;
1326		return 0;
1327
1328	case SERIAL_GETCFG:
1329		if (c->mode == M_HDLC)
1330			return EINVAL;
1331		switch (ct_get_config (c->board)) {
1332		default:    *(char*)data = 'a'; break;
1333		case CFG_B: *(char*)data = 'b'; break;
1334		case CFG_C: *(char*)data = 'c'; break;
1335		}
1336		return 0;
1337
1338	case SERIAL_SETCFG:
1339		/* Only for superuser! */
1340#if __FreeBSD_version < 500000
1341		error = suser (p);
1342#else /* __FreeBSD_version >= 500000 */
1343		error = suser (td);
1344#endif /* __FreeBSD_version >= 500000 */
1345		if (error)
1346			return error;
1347		if (c->mode == M_HDLC)
1348			return EINVAL;
1349		s = splimp ();
1350		switch (*(char*)data) {
1351		case 'a': ct_set_config (c->board, CFG_A); break;
1352		case 'b': ct_set_config (c->board, CFG_B); break;
1353		case 'c': ct_set_config (c->board, CFG_C); break;
1354		}
1355		splx (s);
1356		return 0;
1357
1358	case SERIAL_GETSTAT:
1359		st = (struct serial_statistics*) data;
1360		st->rintr  = c->rintr;
1361		st->tintr  = c->tintr;
1362		st->mintr  = c->mintr;
1363		st->ibytes = c->ibytes;
1364		st->ipkts  = c->ipkts;
1365		st->ierrs  = c->ierrs;
1366		st->obytes = c->obytes;
1367		st->opkts  = c->opkts;
1368		st->oerrs  = c->oerrs;
1369		return 0;
1370
1371	case SERIAL_GETESTAT:
1372		opte1 = (struct e1_statistics*)data;
1373		opte1->status	   = c->status;
1374		opte1->cursec	   = c->cursec;
1375		opte1->totsec	   = c->totsec + c->cursec;
1376
1377		opte1->currnt.bpv   = c->currnt.bpv;
1378		opte1->currnt.fse   = c->currnt.fse;
1379		opte1->currnt.crce  = c->currnt.crce;
1380		opte1->currnt.rcrce = c->currnt.rcrce;
1381		opte1->currnt.uas   = c->currnt.uas;
1382		opte1->currnt.les   = c->currnt.les;
1383		opte1->currnt.es    = c->currnt.es;
1384		opte1->currnt.bes   = c->currnt.bes;
1385		opte1->currnt.ses   = c->currnt.ses;
1386		opte1->currnt.oofs  = c->currnt.oofs;
1387		opte1->currnt.css   = c->currnt.css;
1388		opte1->currnt.dm    = c->currnt.dm;
1389
1390		opte1->total.bpv   = c->total.bpv   + c->currnt.bpv;
1391		opte1->total.fse   = c->total.fse   + c->currnt.fse;
1392		opte1->total.crce  = c->total.crce  + c->currnt.crce;
1393		opte1->total.rcrce = c->total.rcrce + c->currnt.rcrce;
1394		opte1->total.uas   = c->total.uas   + c->currnt.uas;
1395		opte1->total.les   = c->total.les   + c->currnt.les;
1396		opte1->total.es	   = c->total.es    + c->currnt.es;
1397		opte1->total.bes   = c->total.bes   + c->currnt.bes;
1398		opte1->total.ses   = c->total.ses   + c->currnt.ses;
1399		opte1->total.oofs  = c->total.oofs  + c->currnt.oofs;
1400		opte1->total.css   = c->total.css   + c->currnt.css;
1401		opte1->total.dm	   = c->total.dm    + c->currnt.dm;
1402		for (s=0; s<48; ++s) {
1403			opte1->interval[s].bpv   = c->interval[s].bpv;
1404			opte1->interval[s].fse   = c->interval[s].fse;
1405			opte1->interval[s].crce  = c->interval[s].crce;
1406			opte1->interval[s].rcrce = c->interval[s].rcrce;
1407			opte1->interval[s].uas   = c->interval[s].uas;
1408			opte1->interval[s].les   = c->interval[s].les;
1409			opte1->interval[s].es	 = c->interval[s].es;
1410			opte1->interval[s].bes   = c->interval[s].bes;
1411			opte1->interval[s].ses   = c->interval[s].ses;
1412			opte1->interval[s].oofs  = c->interval[s].oofs;
1413			opte1->interval[s].css   = c->interval[s].css;
1414			opte1->interval[s].dm	 = c->interval[s].dm;
1415		}
1416		return 0;
1417
1418	case SERIAL_CLRSTAT:
1419		/* Only for superuser! */
1420#if __FreeBSD_version < 500000
1421		error = suser (p);
1422#else /* __FreeBSD_version >= 500000 */
1423		error = suser (td);
1424#endif /* __FreeBSD_version >= 500000 */
1425		if (error)
1426			return error;
1427		c->rintr = 0;
1428		c->tintr = 0;
1429		c->mintr = 0;
1430		c->ibytes = 0;
1431		c->ipkts = 0;
1432		c->ierrs = 0;
1433		c->obytes = 0;
1434		c->opkts = 0;
1435		c->oerrs = 0;
1436		bzero (&c->currnt, sizeof (c->currnt));
1437		bzero (&c->total, sizeof (c->total));
1438		bzero (c->interval, sizeof (c->interval));
1439		return 0;
1440
1441	case SERIAL_GETBAUD:
1442		*(long*)data = ct_get_baud(c);
1443		return 0;
1444
1445	case SERIAL_SETBAUD:
1446		/* Only for superuser! */
1447#if __FreeBSD_version < 500000
1448		error = suser (p);
1449#else /* __FreeBSD_version >= 500000 */
1450		error = suser (td);
1451#endif /* __FreeBSD_version >= 500000 */
1452		if (error)
1453			return error;
1454		s = splimp ();
1455		ct_set_baud (c, *(long*)data);
1456		splx (s);
1457		return 0;
1458
1459	case SERIAL_GETLOOP:
1460		*(int*)data = ct_get_loop (c);
1461		return 0;
1462
1463	case SERIAL_SETLOOP:
1464		/* Only for superuser! */
1465#if __FreeBSD_version < 500000
1466		error = suser (p);
1467#else /* __FreeBSD_version >= 500000 */
1468		error = suser (td);
1469#endif /* __FreeBSD_version >= 500000 */
1470		if (error)
1471			return error;
1472		s = splimp ();
1473		ct_set_loop (c, *(int*)data);
1474		splx (s);
1475		return 0;
1476
1477	case SERIAL_GETDPLL:
1478		if (c->mode == M_E1 || c->mode == M_G703)
1479			return EINVAL;
1480		*(int*)data = ct_get_dpll (c);
1481		return 0;
1482
1483	case SERIAL_SETDPLL:
1484		/* Only for superuser! */
1485#if __FreeBSD_version < 500000
1486		error = suser (p);
1487#else /* __FreeBSD_version >= 500000 */
1488		error = suser (td);
1489#endif /* __FreeBSD_version >= 500000 */
1490		if (error)
1491			return error;
1492		if (c->mode == M_E1 || c->mode == M_G703)
1493			return EINVAL;
1494		s = splimp ();
1495		ct_set_dpll (c, *(int*)data);
1496		splx (s);
1497		return 0;
1498
1499	case SERIAL_GETNRZI:
1500		if (c->mode == M_E1 || c->mode == M_G703)
1501			return EINVAL;
1502		*(int*)data = ct_get_nrzi (c);
1503		return 0;
1504
1505	case SERIAL_SETNRZI:
1506		/* Only for superuser! */
1507#if __FreeBSD_version < 500000
1508		error = suser (p);
1509#else /* __FreeBSD_version >= 500000 */
1510		error = suser (td);
1511#endif /* __FreeBSD_version >= 500000 */
1512		if (error)
1513			return error;
1514		if (c->mode == M_E1 || c->mode == M_G703)
1515			return EINVAL;
1516		s = splimp ();
1517		ct_set_nrzi (c, *(int*)data);
1518		splx (s);
1519		return 0;
1520
1521	case SERIAL_GETDEBUG:
1522		*(int*)data = c->debug;
1523		return 0;
1524
1525	case SERIAL_SETDEBUG:
1526		/* Only for superuser! */
1527#if __FreeBSD_version < 500000
1528		error = suser (p);
1529#else /* __FreeBSD_version >= 500000 */
1530		error = suser (td);
1531#endif /* __FreeBSD_version >= 500000 */
1532		if (error)
1533			return error;
1534		c->debug = *(int*)data;
1535#ifndef	NETGRAPH
1536		if (d->chan->debug)
1537			d->pp.pp_if.if_flags |= IFF_DEBUG;
1538		else
1539			d->pp.pp_if.if_flags &= (~IFF_DEBUG);
1540#endif
1541		return 0;
1542
1543	case SERIAL_GETHIGAIN:
1544		if (c->mode != M_E1)
1545			return EINVAL;
1546		*(int*)data = ct_get_higain (c);
1547		return 0;
1548
1549	case SERIAL_SETHIGAIN:
1550		/* Only for superuser! */
1551#if __FreeBSD_version < 500000
1552		error = suser (p);
1553#else /* __FreeBSD_version >= 500000 */
1554		error = suser (td);
1555#endif /* __FreeBSD_version >= 500000 */
1556		if (error)
1557			return error;
1558		s = splimp ();
1559		ct_set_higain (c, *(int*)data);
1560		splx (s);
1561		return 0;
1562
1563	case SERIAL_GETPHONY:
1564		CT_DEBUG2 (d, ("ioctl: getphony\n"));
1565		if (c->mode != M_E1)
1566			return EINVAL;
1567		*(int*)data = c->gopt.phony;
1568		return 0;
1569
1570	case SERIAL_SETPHONY:
1571		CT_DEBUG2 (d, ("ioctl: setphony\n"));
1572		if (c->mode != M_E1)
1573			return EINVAL;
1574		/* Only for superuser! */
1575#if __FreeBSD_version < 500000
1576		error = suser (p);
1577#else /* __FreeBSD_version >= 500000 */
1578		error = suser (td);
1579#endif /* __FreeBSD_version >= 500000 */
1580		if (error)
1581			return error;
1582		s = splimp ();
1583		ct_set_phony (c, *(int*)data);
1584		splx (s);
1585		return 0;
1586
1587	case SERIAL_GETCLK:
1588		if (c->mode != M_E1 && c->mode != M_G703)
1589			return EINVAL;
1590		switch (ct_get_clk(c)) {
1591		default:	 *(int*)data = E1CLK_INTERNAL;		break;
1592		case GCLK_RCV:   *(int*)data = E1CLK_RECEIVE;		break;
1593		case GCLK_RCLKO: *(int*)data = c->num ?
1594			E1CLK_RECEIVE_CHAN0 : E1CLK_RECEIVE_CHAN1;	break;
1595		}
1596		return 0;
1597
1598	case SERIAL_SETCLK:
1599		/* Only for superuser! */
1600#if __FreeBSD_version < 500000
1601		error = suser (p);
1602#else /* __FreeBSD_version >= 500000 */
1603		error = suser (td);
1604#endif /* __FreeBSD_version >= 500000 */
1605		if (error)
1606			return error;
1607		s = splimp ();
1608		switch (*(int*)data) {
1609		default:		    ct_set_clk (c, GCLK_INT);   break;
1610		case E1CLK_RECEIVE:	    ct_set_clk (c, GCLK_RCV);   break;
1611		case E1CLK_RECEIVE_CHAN0:
1612		case E1CLK_RECEIVE_CHAN1:
1613					    ct_set_clk (c, GCLK_RCLKO); break;
1614		}
1615		splx (s);
1616		return 0;
1617
1618	case SERIAL_GETTIMESLOTS:
1619		if (c->mode != M_E1)
1620			return EINVAL;
1621		*(long*)data = ct_get_ts (c);
1622		return 0;
1623
1624	case SERIAL_SETTIMESLOTS:
1625		/* Only for superuser! */
1626#if __FreeBSD_version < 500000
1627		error = suser (p);
1628#else /* __FreeBSD_version >= 500000 */
1629		error = suser (td);
1630#endif /* __FreeBSD_version >= 500000 */
1631		if (error)
1632			return error;
1633		s = splimp ();
1634		ct_set_ts (c, *(long*)data);
1635		splx (s);
1636		return 0;
1637
1638	case SERIAL_GETSUBCHAN:
1639		if (c->mode != M_E1)
1640			return EINVAL;
1641		*(long*)data = ct_get_subchan (c->board);
1642		return 0;
1643
1644	case SERIAL_SETSUBCHAN:
1645		/* Only for superuser! */
1646#if __FreeBSD_version < 500000
1647		error = suser (p);
1648#else /* __FreeBSD_version >= 500000 */
1649		error = suser (td);
1650#endif /* __FreeBSD_version >= 500000 */
1651		if (error)
1652			return error;
1653		s = splimp ();
1654		ct_set_subchan (c->board, *(long*)data);
1655		splx (s);
1656		return 0;
1657
1658	case SERIAL_GETINVCLK:
1659	case SERIAL_GETINVTCLK:
1660		if (c->mode == M_E1 || c->mode == M_G703)
1661			return EINVAL;
1662		*(int*)data = ct_get_invtxc (c);
1663		return 0;
1664
1665	case SERIAL_GETINVRCLK:
1666		if (c->mode == M_E1 || c->mode == M_G703)
1667			return EINVAL;
1668		*(int*)data = ct_get_invrxc (c);
1669		return 0;
1670
1671	case SERIAL_SETINVCLK:
1672	case SERIAL_SETINVTCLK:
1673		/* Only for superuser! */
1674#if __FreeBSD_version < 500000
1675		error = suser (p);
1676#else /* __FreeBSD_version >= 500000 */
1677		error = suser (td);
1678#endif /* __FreeBSD_version >= 500000 */
1679		if (error)
1680			return error;
1681		if (c->mode == M_E1 || c->mode == M_G703)
1682			return EINVAL;
1683		s = splimp ();
1684		ct_set_invtxc (c, *(int*)data);
1685		splx (s);
1686		return 0;
1687
1688	case SERIAL_SETINVRCLK:
1689		/* Only for superuser! */
1690#if __FreeBSD_version < 500000
1691		error = suser (p);
1692#else /* __FreeBSD_version >= 500000 */
1693		error = suser (td);
1694#endif /* __FreeBSD_version >= 500000 */
1695		if (error)
1696			return error;
1697		if (c->mode == M_E1 || c->mode == M_G703)
1698			return EINVAL;
1699		s = splimp ();
1700		ct_set_invrxc (c, *(int*)data);
1701		splx (s);
1702		return 0;
1703
1704	case SERIAL_GETLEVEL:
1705		if (c->mode != M_G703)
1706			return EINVAL;
1707		s = splimp ();
1708		*(int*)data = ct_get_lq (c);
1709		splx (s);
1710		return 0;
1711
1712	case TIOCSDTR:	/* Set DTR */
1713		s = splimp ();
1714		ct_set_dtr (c, 1);
1715		splx (s);
1716		return 0;
1717
1718	case TIOCCDTR:	/* Clear DTR */
1719		s = splimp ();
1720		ct_set_dtr (c, 0);
1721		splx (s);
1722		return 0;
1723
1724	case TIOCMSET:	/* Set DTR/RTS */
1725		s = splimp ();
1726		ct_set_dtr (c, (*(int*)data & TIOCM_DTR) ? 1 : 0);
1727		ct_set_rts (c, (*(int*)data & TIOCM_RTS) ? 1 : 0);
1728		splx (s);
1729		return 0;
1730
1731	case TIOCMBIS:	/* Add DTR/RTS */
1732		s = splimp ();
1733		if (*(int*)data & TIOCM_DTR) ct_set_dtr (c, 1);
1734		if (*(int*)data & TIOCM_RTS) ct_set_rts (c, 1);
1735		splx (s);
1736		return 0;
1737
1738	case TIOCMBIC:	/* Clear DTR/RTS */
1739		s = splimp ();
1740		if (*(int*)data & TIOCM_DTR) ct_set_dtr (c, 0);
1741		if (*(int*)data & TIOCM_RTS) ct_set_rts (c, 0);
1742		splx (s);
1743		return 0;
1744
1745	case TIOCMGET:	/* Get modem status */
1746		*(int*)data = ct_modem_status (c);
1747		return 0;
1748	}
1749	return ENOTTY;
1750}
1751
1752#if __FreeBSD_version < 500000
1753static struct cdevsw ct_cdevsw = {
1754	ct_open,	ct_close,	noread,		nowrite,
1755	ct_ioctl,	nopoll,		nommap,		nostrategy,
1756	"ct",		CDEV_MAJOR,	nodump,		nopsize,
1757	D_NAGGED,	-1
1758};
1759#elif __FreeBSD_version == 500000
1760static struct cdevsw ct_cdevsw = {
1761	ct_open,	ct_close,	noread,		nowrite,
1762	ct_ioctl,	nopoll,		nommap,		nostrategy,
1763	"ct",		CDEV_MAJOR,	nodump,		nopsize,
1764	D_NAGGED,
1765	};
1766#elif __FreeBSD_version <= 501000
1767static struct cdevsw ct_cdevsw = {
1768	.d_open     = ct_open,
1769	.d_close    = ct_close,
1770	.d_read     = noread,
1771	.d_write    = nowrite,
1772	.d_ioctl    = ct_ioctl,
1773	.d_poll     = nopoll,
1774	.d_mmap	    = nommap,
1775	.d_strategy = nostrategy,
1776	.d_name     = "ct",
1777	.d_maj      = CDEV_MAJOR,
1778	.d_dump     = nodump,
1779	.d_flags    = D_NAGGED,
1780};
1781#elif __FreeBSD_version < 502103
1782static struct cdevsw ct_cdevsw = {
1783	.d_open     = ct_open,
1784	.d_close    = ct_close,
1785	.d_ioctl    = ct_ioctl,
1786	.d_name     = "ct",
1787	.d_maj      = CDEV_MAJOR,
1788	.d_flags    = D_NAGGED,
1789};
1790#else /* __FreeBSD_version >= 502103 */
1791static struct cdevsw ct_cdevsw = {
1792	.d_version  = D_VERSION,
1793	.d_open     = ct_open,
1794	.d_close    = ct_close,
1795	.d_ioctl    = ct_ioctl,
1796	.d_name     = "ct",
1797	.d_maj      = CDEV_MAJOR,
1798	.d_flags    = D_NEEDGIANT,
1799};
1800#endif /* __FreeBSD_version > 501000 */
1801
1802#ifdef NETGRAPH
1803#if __FreeBSD_version >= 500000
1804static int ng_ct_constructor (node_p node)
1805{
1806	drv_t *d = NG_NODE_PRIVATE (node);
1807#else
1808static int ng_ct_constructor (node_p *node)
1809{
1810	drv_t *d = (*node)->private;
1811#endif
1812	CT_DEBUG (d, ("Constructor\n"));
1813	return EINVAL;
1814}
1815
1816static int ng_ct_newhook (node_p node, hook_p hook, const char *name)
1817{
1818	int s;
1819#if __FreeBSD_version >= 500000
1820	drv_t *d = NG_NODE_PRIVATE (node);
1821#else
1822	drv_t *d = node->private;
1823#endif
1824
1825	if (!d)
1826		return EINVAL;
1827
1828	/* Attach debug hook */
1829	if (strcmp (name, NG_CT_HOOK_DEBUG) == 0) {
1830#if __FreeBSD_version >= 500000
1831		NG_HOOK_SET_PRIVATE (hook, NULL);
1832#else
1833		hook->private = 0;
1834#endif
1835		d->debug_hook = hook;
1836		return 0;
1837	}
1838
1839	/* Check for raw hook */
1840	if (strcmp (name, NG_CT_HOOK_RAW) != 0)
1841		return EINVAL;
1842
1843#if __FreeBSD_version >= 500000
1844	NG_HOOK_SET_PRIVATE (hook, d);
1845#else
1846	hook->private = d;
1847#endif
1848	d->hook = hook;
1849	s = splimp ();
1850	ct_up (d);
1851	splx (s);
1852	return 0;
1853}
1854
1855static char *format_timeslots (u_long s)
1856{
1857	static char buf [100];
1858	char *p = buf;
1859	int i;
1860
1861	for (i=1; i<32; ++i)
1862		if ((s >> i) & 1) {
1863			int prev = (i > 1)  & (s >> (i-1));
1864			int next = (i < 31) & (s >> (i+1));
1865
1866			if (prev) {
1867				if (next)
1868					continue;
1869				*p++ = '-';
1870			} else if (p > buf)
1871				*p++ = ',';
1872
1873			if (i >= 10)
1874				*p++ = '0' + i / 10;
1875			*p++ = '0' + i % 10;
1876		}
1877	*p = 0;
1878	return buf;
1879}
1880
1881static int print_modems (char *s, ct_chan_t *c, int need_header)
1882{
1883	int status = ct_modem_status (c);
1884	int length = 0;
1885
1886	if (need_header)
1887		length += sprintf (s + length, "  LE   DTR  DSR  RTS  CTS  CD\n");
1888	length += sprintf (s + length, "%4s %4s %4s %4s %4s %4s\n",
1889		status & TIOCM_LE  ? "On" : "-",
1890		status & TIOCM_DTR ? "On" : "-",
1891		status & TIOCM_DSR ? "On" : "-",
1892		status & TIOCM_RTS ? "On" : "-",
1893		status & TIOCM_CTS ? "On" : "-",
1894		status & TIOCM_CD  ? "On" : "-");
1895	return length;
1896}
1897
1898static int print_stats (char *s, ct_chan_t *c, int need_header)
1899{
1900	struct serial_statistics st;
1901	int length = 0;
1902
1903	st.rintr  = c->rintr;
1904	st.tintr  = c->tintr;
1905	st.mintr  = c->mintr;
1906	st.ibytes = c->ibytes;
1907	st.ipkts  = c->ipkts;
1908	st.ierrs  = c->ierrs;
1909	st.obytes = c->obytes;
1910	st.opkts  = c->opkts;
1911	st.oerrs  = c->oerrs;
1912	if (need_header)
1913		length += sprintf (s + length, "  Rintr   Tintr   Mintr   Ibytes   Ipkts   Ierrs   Obytes   Opkts   Oerrs\n");
1914	length += sprintf (s + length, "%7ld %7ld %7ld %8ld %7ld %7ld %8ld %7ld %7ld\n",
1915		st.rintr, st.tintr, st.mintr, st.ibytes, st.ipkts,
1916		st.ierrs, st.obytes, st.opkts, st.oerrs);
1917	return length;
1918}
1919
1920static char *format_e1_status (u_char status)
1921{
1922	static char buf [80];
1923
1924	if (status & E1_NOALARM)
1925		return "Ok";
1926	buf[0] = 0;
1927	if (status & E1_LOS)     strcat (buf, ",LOS");
1928	if (status & E1_AIS)     strcat (buf, ",AIS");
1929	if (status & E1_LOF)     strcat (buf, ",LOF");
1930	if (status & E1_LOMF)    strcat (buf, ",LOMF");
1931	if (status & E1_FARLOF)  strcat (buf, ",FARLOF");
1932	if (status & E1_AIS16)   strcat (buf, ",AIS16");
1933	if (status & E1_FARLOMF) strcat (buf, ",FARLOMF");
1934	if (status & E1_TSTREQ)  strcat (buf, ",TSTREQ");
1935	if (status & E1_TSTERR)  strcat (buf, ",TSTERR");
1936	if (buf[0] == ',')
1937		return buf+1;
1938	return "Unknown";
1939}
1940
1941static int print_frac (char *s, int leftalign, u_long numerator, u_long divider)
1942{
1943	int n, length = 0;
1944
1945	if (numerator < 1 || divider < 1) {
1946		length += sprintf (s+length, leftalign ? "/-   " : "    -");
1947		return length;
1948	}
1949	n = (int) (0.5 + 1000.0 * numerator / divider);
1950	if (n < 1000) {
1951		length += sprintf (s+length, leftalign ? "/.%-3d" : " .%03d", n);
1952		return length;
1953	}
1954	*(s + length) = leftalign ? '/' : ' ';
1955	length ++;
1956
1957	if     (n >= 1000000) n = (n+500) / 1000 * 1000;
1958	else if (n >= 100000)  n = (n+50)  / 100 * 100;
1959	else if (n >= 10000)   n = (n+5)   / 10 * 10;
1960
1961	switch (n) {
1962	case 1000:    length += printf (s+length, ".999"); return length;
1963	case 10000:   n = 9990;   break;
1964	case 100000:  n = 99900;  break;
1965	case 1000000: n = 999000; break;
1966	}
1967	if (n < 10000)	      length += sprintf (s+length, "%d.%d", n/1000, n/10%100);
1968	else if (n < 100000)  length += sprintf (s+length, "%d.%d", n/1000, n/100%10);
1969	else if (n < 1000000) length += sprintf (s+length, "%d.", n/1000);
1970	else		      length += sprintf (s+length, "%d", n/1000);
1971
1972	return length;
1973}
1974
1975static int print_e1_stats (char *s, ct_chan_t *c)
1976{
1977	struct e1_counters total;
1978	u_long totsec;
1979	int length = 0;
1980
1981	totsec		= c->totsec + c->cursec;
1982	total.bpv	= c->total.bpv   + c->currnt.bpv;
1983	total.fse	= c->total.fse   + c->currnt.fse;
1984	total.crce	= c->total.crce  + c->currnt.crce;
1985	total.rcrce	= c->total.rcrce + c->currnt.rcrce;
1986	total.uas	= c->total.uas   + c->currnt.uas;
1987	total.les	= c->total.les   + c->currnt.les;
1988	total.es	= c->total.es    + c->currnt.es;
1989	total.bes	= c->total.bes   + c->currnt.bes;
1990	total.ses	= c->total.ses   + c->currnt.ses;
1991	total.oofs	= c->total.oofs  + c->currnt.oofs;
1992	total.css	= c->total.css   + c->currnt.css;
1993	total.dm	= c->total.dm    + c->currnt.dm;
1994
1995	length += sprintf (s + length, " Unav/Degr  Bpv/Fsyn  CRC/RCRC  Err/Lerr  Sev/Bur   Oof/Slp  Status\n");
1996
1997	/* Unavailable seconds, degraded minutes */
1998	length += print_frac (s + length, 0, c->currnt.uas, c->cursec);
1999	length += print_frac (s + length, 1, 60 * c->currnt.dm, c->cursec);
2000
2001	/* Bipolar violations, frame sync errors */
2002	length += print_frac (s + length, 0, c->currnt.bpv, c->cursec);
2003	length += print_frac (s + length, 1, c->currnt.fse, c->cursec);
2004
2005	/* CRC errors, remote CRC errors (E-bit) */
2006	length += print_frac (s + length, 0, c->currnt.crce, c->cursec);
2007	length += print_frac (s + length, 1, c->currnt.rcrce, c->cursec);
2008
2009	/* Errored seconds, line errored seconds */
2010	length += print_frac (s + length, 0, c->currnt.es, c->cursec);
2011	length += print_frac (s + length, 1, c->currnt.les, c->cursec);
2012
2013	/* Severely errored seconds, burst errored seconds */
2014	length += print_frac (s + length, 0, c->currnt.ses, c->cursec);
2015	length += print_frac (s + length, 1, c->currnt.bes, c->cursec);
2016
2017	/* Out of frame seconds, controlled slip seconds */
2018	length += print_frac (s + length, 0, c->currnt.oofs, c->cursec);
2019	length += print_frac (s + length, 1, c->currnt.css, c->cursec);
2020
2021	length += sprintf (s + length, " %s\n", format_e1_status (c->status));
2022
2023	/* Print total statistics. */
2024	length += print_frac (s + length, 0, total.uas, totsec);
2025	length += print_frac (s + length, 1, 60 * total.dm, totsec);
2026
2027	length += print_frac (s + length, 0, total.bpv, totsec);
2028	length += print_frac (s + length, 1, total.fse, totsec);
2029
2030	length += print_frac (s + length, 0, total.crce, totsec);
2031	length += print_frac (s + length, 1, total.rcrce, totsec);
2032
2033	length += print_frac (s + length, 0, total.es, totsec);
2034	length += print_frac (s + length, 1, total.les, totsec);
2035
2036	length += print_frac (s + length, 0, total.ses, totsec);
2037	length += print_frac (s + length, 1, total.bes, totsec);
2038
2039	length += print_frac (s + length, 0, total.oofs, totsec);
2040	length += print_frac (s + length, 1, total.css, totsec);
2041
2042	length += sprintf (s + length, " -- Total\n");
2043	return length;
2044}
2045
2046static int print_chan (char *s, ct_chan_t *c)
2047{
2048	drv_t *d = c->sys;
2049	int length = 0;
2050
2051	length += sprintf (s + length, "ct%d", c->board->num * NCHAN + c->num);
2052	if (d->chan->debug)
2053		length += sprintf (s + length, " debug=%d", d->chan->debug);
2054
2055	switch (ct_get_config (c->board)) {
2056	case CFG_A:	length += sprintf (s + length, " cfg=A");	break;
2057	case CFG_B:	length += sprintf (s + length, " cfg=B");	break;
2058	case CFG_C:	length += sprintf (s + length, " cfg=C");	break;
2059	default:	length += sprintf (s + length, " cfg=unknown"); break;
2060	}
2061
2062	if (ct_get_baud (c))
2063		length += sprintf (s + length, " %ld", ct_get_baud (c));
2064	else
2065		length += sprintf (s + length, " extclock");
2066
2067	if (c->mode == M_E1 || c->mode == M_G703)
2068		switch (ct_get_clk(c)) {
2069		case GCLK_INT   : length += sprintf (s + length, " syn=int");     break;
2070		case GCLK_RCV   : length += sprintf (s + length, " syn=rcv");     break;
2071		case GCLK_RCLKO  : length += sprintf (s + length, " syn=xrcv");    break;
2072		}
2073	if (c->mode == M_HDLC) {
2074		length += sprintf (s + length, " dpll=%s",   ct_get_dpll (c)   ? "on" : "off");
2075		length += sprintf (s + length, " nrzi=%s",   ct_get_nrzi (c)   ? "on" : "off");
2076		length += sprintf (s + length, " invtclk=%s", ct_get_invtxc (c) ? "on" : "off");
2077		length += sprintf (s + length, " invrclk=%s", ct_get_invrxc (c) ? "on" : "off");
2078	}
2079	if (c->mode == M_E1)
2080		length += sprintf (s + length, " higain=%s", ct_get_higain (c)? "on" : "off");
2081
2082	length += sprintf (s + length, " loop=%s", ct_get_loop (c) ? "on" : "off");
2083
2084	if (c->mode == M_E1)
2085		length += sprintf (s + length, " ts=%s", format_timeslots (ct_get_ts(c)));
2086	if (c->mode == M_E1 && ct_get_config (c->board) != CFG_A)
2087		length += sprintf (s + length, " pass=%s", format_timeslots (ct_get_subchan(c->board)));
2088	if (c->mode == M_G703) {
2089		int lq, x;
2090
2091		x = splimp ();
2092		lq = ct_get_lq (c);
2093		splx (x);
2094		length += sprintf (s + length, " (level=-%.1fdB)", lq / 10.0);
2095	}
2096	length += sprintf (s + length, "\n");
2097	return length;
2098}
2099
2100#if __FreeBSD_version >= 500000
2101static int ng_ct_rcvmsg (node_p node, item_p item, hook_p lasthook)
2102{
2103	drv_t *d = NG_NODE_PRIVATE (node);
2104	struct ng_mesg *msg;
2105#else
2106static int ng_ct_rcvmsg (node_p node, struct ng_mesg *msg,
2107	const char *retaddr, struct ng_mesg **rptr)
2108{
2109	drv_t *d = node->private;
2110#endif
2111	struct ng_mesg *resp = NULL;
2112	int error = 0;
2113
2114	if (!d)
2115		return EINVAL;
2116
2117	CT_DEBUG (d, ("Rcvmsg\n"));
2118#if __FreeBSD_version >= 500000
2119	NGI_GET_MSG (item, msg);
2120#endif
2121	switch (msg->header.typecookie) {
2122	default:
2123		error = EINVAL;
2124		break;
2125
2126	case NGM_CT_COOKIE:
2127		printf ("Don't forget to implement\n");
2128		error = EINVAL;
2129		break;
2130
2131	case NGM_GENERIC_COOKIE:
2132		switch (msg->header.cmd) {
2133		default:
2134			error = EINVAL;
2135			break;
2136
2137		case NGM_TEXT_STATUS: {
2138			char *s;
2139			int l = 0;
2140			int dl = sizeof (struct ng_mesg) + 730;
2141
2142#if __FreeBSD_version >= 500000
2143			NG_MKRESPONSE (resp, msg, dl, M_NOWAIT);
2144			if (! resp) {
2145				error = ENOMEM;
2146				break;
2147			}
2148#else
2149			MALLOC (resp, struct ng_mesg *, dl,
2150				M_NETGRAPH, M_NOWAIT);
2151			if (! resp) {
2152				error = ENOMEM;
2153				break;
2154			}
2155			bzero (resp, dl);
2156#endif
2157			s = (resp)->data;
2158			l += print_chan (s + l, d->chan);
2159			l += print_stats (s + l, d->chan, 1);
2160			l += print_modems (s + l, d->chan, 1);
2161			l += print_e1_stats (s + l, d->chan);
2162#if __FreeBSD_version < 500000
2163			(resp)->header.version = NG_VERSION;
2164			(resp)->header.arglen = strlen (s) + 1;
2165			(resp)->header.token = msg->header.token;
2166			(resp)->header.typecookie = NGM_CT_COOKIE;
2167			(resp)->header.cmd = msg->header.cmd;
2168#endif
2169			strncpy ((resp)->header.cmdstr, "status", NG_CMDSTRLEN);
2170			}
2171			break;
2172		}
2173		break;
2174	}
2175#if __FreeBSD_version >= 500000
2176	NG_RESPOND_MSG (error, node, item, resp);
2177	NG_FREE_MSG (msg);
2178#else
2179	*rptr = resp;
2180	FREE (msg, M_NETGRAPH);
2181#endif
2182	return error;
2183}
2184
2185#if __FreeBSD_version >= 500000
2186static int ng_ct_rcvdata (hook_p hook, item_p item)
2187{
2188	drv_t *d = NG_NODE_PRIVATE (NG_HOOK_NODE(hook));
2189	struct mbuf *m;
2190	struct ng_tag_prio *ptag;
2191#else
2192static int ng_ct_rcvdata (hook_p hook, struct mbuf *m, meta_p meta)
2193{
2194	drv_t *d = hook->node->private;
2195#endif
2196	struct ifqueue *q;
2197	int s;
2198
2199	if (!d)
2200		return ENETDOWN;
2201
2202#if __FreeBSD_version >= 500000
2203	NGI_GET_M (item, m);
2204	NG_FREE_ITEM (item);
2205	if (! NG_HOOK_PRIVATE (hook) || ! d) {
2206		NG_FREE_M (m);
2207#else
2208	if (! hook->private || ! d) {
2209		NG_FREE_DATA (m,meta);
2210#endif
2211		return ENETDOWN;
2212	}
2213
2214	/* Check for high priority data */
2215	if ((ptag = (struct ng_tag_prio *)m_tag_locate(m, NGM_GENERIC_COOKIE,
2216	    NG_TAG_PRIO, NULL)) != NULL && (ptag->priority > NG_PRIO_CUTOFF) )
2217		q = &d->hi_queue;
2218	else
2219		q = &d->queue;
2220
2221	s = splimp ();
2222#if __FreeBSD_version >= 500000
2223	IF_LOCK (q);
2224	if (_IF_QFULL (q)) {
2225		_IF_DROP (q);
2226		IF_UNLOCK (q);
2227		splx (s);
2228		NG_FREE_M (m);
2229		return ENOBUFS;
2230	}
2231	_IF_ENQUEUE (q, m);
2232	IF_UNLOCK (q);
2233#else
2234	if (IF_QFULL (q)) {
2235		IF_DROP (q);
2236		splx (s);
2237		NG_FREE_DATA (m, meta);
2238		return ENOBUFS;
2239	}
2240	IF_ENQUEUE (q, m);
2241#endif
2242	ct_start (d);
2243	splx (s);
2244	return 0;
2245}
2246
2247static int ng_ct_rmnode (node_p node)
2248{
2249#if __FreeBSD_version >= 500000
2250	drv_t *d = NG_NODE_PRIVATE (node);
2251
2252	CT_DEBUG (d, ("Rmnode\n"));
2253	if (d && d->running) {
2254		int s = splimp ();
2255		ct_down (d);
2256		splx (s);
2257	}
2258#ifdef	KLD_MODULE
2259	if (node->nd_flags & NGF_REALLY_DIE) {
2260		NG_NODE_SET_PRIVATE (node, NULL);
2261		NG_NODE_UNREF (node);
2262	}
2263	NG_NODE_REVIVE(node);		/* Persistant node */
2264#endif
2265#else /* __FreeBSD_version < 500000 */
2266	drv_t *d = node->private;
2267	int s;
2268
2269	if (!d)
2270		return 0;
2271
2272	s = splimp ();
2273	ct_down (d);
2274	splx (s);
2275	node->flags |= NG_INVALID;
2276	ng_cutlinks (node);
2277#ifdef	KLD_MODULE
2278	ng_unname (node);
2279	ng_unref (node);
2280#else
2281	node->flags &= ~NG_INVALID;
2282#endif
2283#endif
2284	return 0;
2285}
2286
2287static void ng_ct_watchdog (void *arg)
2288{
2289	drv_t *d = arg;
2290
2291	if (!d)
2292		return;
2293
2294	if (d->timeout == 1)
2295		ct_watchdog (d);
2296	if (d->timeout)
2297		d->timeout--;
2298	d->timeout_handle = timeout (ng_ct_watchdog, d, hz);
2299}
2300
2301static int ng_ct_connect (hook_p hook)
2302{
2303#if __FreeBSD_version >= 500000
2304	drv_t *d = NG_NODE_PRIVATE (NG_HOOK_NODE (hook));
2305#else
2306	drv_t *d = hook->node->private;
2307#endif
2308
2309	if (!d)
2310		return 0;
2311
2312	d->timeout_handle = timeout (ng_ct_watchdog, d, hz);
2313	return 0;
2314}
2315
2316static int ng_ct_disconnect (hook_p hook)
2317{
2318#if __FreeBSD_version >= 500000
2319	drv_t *d = NG_NODE_PRIVATE (NG_HOOK_NODE (hook));
2320#else
2321	drv_t *d = hook->node->private;
2322#endif
2323
2324	if (!d)
2325		return 0;
2326
2327#if __FreeBSD_version >= 500000
2328	if (NG_HOOK_PRIVATE (hook))
2329#else
2330	if (hook->private)
2331#endif
2332		ct_down (d);
2333	untimeout (ng_ct_watchdog, d, d->timeout_handle);
2334	return 0;
2335}
2336#endif
2337
2338static int ct_modevent (module_t mod, int type, void *unused)
2339{
2340	struct cdev *dev;
2341	static int load_count = 0;
2342	struct cdevsw *cdsw;
2343
2344#if __FreeBSD_version >= 502103
2345	dev = findcdev (makedev(CDEV_MAJOR, 0));
2346#else
2347	dev = makedev (CDEV_MAJOR, 0);
2348#endif
2349	switch (type) {
2350	case MOD_LOAD:
2351		if (dev != NULL &&
2352		    (cdsw = devsw (dev)) &&
2353		    cdsw->d_maj == CDEV_MAJOR) {
2354			printf ("Tau-ISA driver is already in system\n");
2355			return (ENXIO);
2356		}
2357#if __FreeBSD_version >= 500000 && defined NETGRAPH
2358		if (ng_newtype (&typestruct))
2359			printf ("Failed to register ng_ct\n");
2360#endif
2361		++load_count;
2362#if __FreeBSD_version <= 500000
2363		cdevsw_add (&ct_cdevsw);
2364#endif
2365		timeout_handle = timeout (ct_timeout, 0, hz*5);
2366		break;
2367	case MOD_UNLOAD:
2368		if (load_count == 1) {
2369			printf ("Removing device entry for Tau-ISA\n");
2370#if __FreeBSD_version <= 500000
2371			cdevsw_remove (&ct_cdevsw);
2372#endif
2373#if __FreeBSD_version >= 500000 && defined NETGRAPH
2374			ng_rmtype (&typestruct);
2375#endif
2376		}
2377		if (timeout_handle.callout)
2378			untimeout (ct_timeout, 0, timeout_handle);
2379		--load_count;
2380		break;
2381	case MOD_SHUTDOWN:
2382		break;
2383	}
2384	return 0;
2385}
2386
2387#ifdef NETGRAPH
2388static struct ng_type typestruct = {
2389	.version	= NG_ABI_VERSION,
2390	.name		= NG_CT_NODE_TYPE,
2391	.constructor	= ng_ct_constructor,
2392	.rcvmsg		= ng_ct_rcvmsg,
2393	.shutdown	= ng_ct_rmnode,
2394	.newhook	= ng_ct_newhook,
2395	.connect	= ng_ct_connect,
2396	.rcvdata	= ng_ct_rcvdata,
2397	.disconnect	= ng_ct_disconnect,
2398};
2399#endif /*NETGRAPH*/
2400
2401#if __FreeBSD_version >= 500000
2402#ifdef NETGRAPH
2403MODULE_DEPEND (ng_ct, netgraph, NG_ABI_VERSION, NG_ABI_VERSION, NG_ABI_VERSION);
2404#else
2405MODULE_DEPEND (ct, sppp, 1, 1, 1);
2406#endif
2407#ifdef KLD_MODULE
2408DRIVER_MODULE (ctmod, isa, ct_isa_driver, ct_devclass, ct_modevent, NULL);
2409#else
2410DRIVER_MODULE (ct, isa, ct_isa_driver, ct_devclass, ct_modevent, NULL);
2411#endif
2412#elif __FreeBSD_version >= 400000
2413#ifdef NETGRAPH
2414DRIVER_MODULE(ct, isa, ct_isa_driver, ct_devclass, ng_mod_event, &typestruct);
2415#else
2416DRIVER_MODULE(ct, isa, ct_isa_driver, ct_devclass, ct_modevent, 0);
2417#endif
2418#endif /* __FreeBSD_version >= 400000 */
2419#endif /* NCTAU */
2420