aboutsummaryrefslogtreecommitdiff
path: root/sys/dev/ctau/if_ct.c
diff options
context:
space:
mode:
Diffstat (limited to 'sys/dev/ctau/if_ct.c')
-rw-r--r--sys/dev/ctau/if_ct.c2737
1 files changed, 2737 insertions, 0 deletions
diff --git a/sys/dev/ctau/if_ct.c b/sys/dev/ctau/if_ct.c
new file mode 100644
index 000000000000..b0c82c820576
--- /dev/null
+++ b/sys/dev/ctau/if_ct.c
@@ -0,0 +1,2737 @@
+/*
+ * Cronyx-Tau adapter driver for FreeBSD.
+ * Supports PPP/HDLC and Cisco/HDLC protocol in synchronous mode,
+ * and asyncronous channels with full modem control.
+ * Keepalive protocol implemented in both Cisco and PPP modes.
+ *
+ * Copyright (C) 1994-2002 Cronyx Engineering.
+ * Author: Serge Vakulenko, <vak@cronyx.ru>
+ *
+ * Copyright (C) 1999-2004 Cronyx Engineering.
+ * Author: Roman Kurakin, <rik@cronyx.ru>
+ *
+ * This software is distributed with NO WARRANTIES, not even the implied
+ * warranties for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+ *
+ * Authors grant any other persons or organisations a permission to use,
+ * modify and redistribute this software in source and binary forms,
+ * as long as this message is kept with the software, all derivative
+ * works or modified versions.
+ *
+ * Cronyx Id: if_ct.c,v 1.1.2.20.2.1 2004/02/13 14:48:24 rik Exp $
+ */
+#include <sys/cdefs.h>
+__FBSDID("$FreeBSD$");
+
+#include <sys/param.h>
+
+#if __FreeBSD_version >= 500000
+# define NCT 1
+#else
+# include "ct.h"
+#endif
+
+#if NCT > 0
+#include <sys/proc.h>
+#include <sys/systm.h>
+#include <sys/kernel.h>
+#include <sys/mbuf.h>
+#include <sys/sockio.h>
+#include <sys/malloc.h>
+#include <sys/socket.h>
+#include <sys/conf.h>
+#include <sys/errno.h>
+#include <sys/tty.h>
+#if __FreeBSD_version >= 400000
+# include <sys/bus.h>
+# include <machine/bus.h>
+# include <sys/rman.h>
+# include <isa/isavar.h>
+#endif
+#include <sys/interrupt.h>
+#include <vm/vm.h>
+#include <vm/pmap.h>
+#include <net/if.h>
+#include <machine/cpufunc.h>
+#include <machine/cserial.h>
+#include <machine/clock.h>
+#if __FreeBSD_version < 500000
+#include <i386/isa/isa_device.h>
+#endif
+#if __FreeBSD_version >= 400000
+#include <machine/resource.h>
+# if __FreeBSD_version <= 501000
+# include <i386/isa/intr_machdep.h>
+# endif
+#endif
+#if __FreeBSD_version >= 500000
+#include <dev/cx/machdep.h>
+#include <dev/ctau/ctddk.h>
+#include <dev/cx/cronyxfw.h>
+#else
+#include <i386/isa/cronyx/machdep.h>
+#include <i386/isa/cronyx/ctddk.h>
+#include <i386/isa/cronyx/cronyxfw.h>
+#endif
+#include "opt_ng_cronyx.h"
+#ifdef NETGRAPH_CRONYX
+# include "opt_netgraph.h"
+# include <netgraph/ng_message.h>
+# include <netgraph/netgraph.h>
+#if __FreeBSD_version >= 500000
+# include <dev/ctau/ng_ct.h>
+#else
+# include <netgraph/ng_ct.h>
+#endif
+#else
+# include <net/if_types.h>
+# if __FreeBSD_version < 500000
+# include "sppp.h"
+# if NSPPP <= 0
+# error The device ct requires sppp or netgraph.
+# endif
+# endif
+# include <net/if_sppp.h>
+# define PP_CISCO IFF_LINK2
+#if __FreeBSD_version < 400000
+# include <bpfilter.h>
+# if NBPFILTER > 0
+# include <net/bpf.h>
+# endif
+#else
+# if __FreeBSD_version < 500000
+# include <bpf.h>
+# endif
+# include <net/bpf.h>
+# define NBPFILTER NBPF
+#endif
+#endif
+
+#define CT_DEBUG(d,s) ({if (d->chan->debug) {\
+ printf ("%s: ", d->name); printf s;}})
+#define CT_DEBUG2(d,s) ({if (d->chan->debug>1) {\
+ printf ("%s: ", d->name); printf s;}})
+#define CDEV_MAJOR 99
+
+#if __FreeBSD_version >= 400000
+static void ct_identify __P((driver_t *, device_t));
+static int ct_probe __P((device_t));
+static int ct_attach __P((device_t));
+static int ct_detach __P((device_t));
+
+static device_method_t ct_isa_methods [] = {
+ DEVMETHOD(device_identify, ct_identify),
+ DEVMETHOD(device_probe, ct_probe),
+ DEVMETHOD(device_attach, ct_attach),
+ DEVMETHOD(device_detach, ct_detach),
+ {0, 0}
+};
+
+typedef struct _bdrv_t {
+ ct_board_t *board;
+ struct resource *base_res;
+ struct resource *drq_res;
+ struct resource *irq_res;
+ int base_rid;
+ int drq_rid;
+ int irq_rid;
+ void *intrhand;
+} bdrv_t;
+
+static driver_t ct_isa_driver = {
+ "ct",
+ ct_isa_methods,
+ sizeof (bdrv_t),
+};
+
+static devclass_t ct_devclass;
+#endif
+
+typedef struct _drv_t {
+ char name [8];
+ ct_chan_t *chan;
+ ct_board_t *board;
+ ct_buf_t buf;
+ int running;
+#ifdef NETGRAPH
+ char nodename [NG_NODELEN+1];
+ hook_p hook;
+ hook_p debug_hook;
+ node_p node;
+ struct ifqueue queue;
+ struct ifqueue hi_queue;
+ short timeout;
+ struct callout_handle timeout_handle;
+#else
+ struct sppp pp;
+#endif
+#if __FreeBSD_version >= 400000
+ dev_t devt;
+#endif
+} drv_t;
+
+static void ct_receive (ct_chan_t *c, char *data, int len);
+static void ct_transmit (ct_chan_t *c, void *attachment, int len);
+static void ct_error (ct_chan_t *c, int data);
+static void ct_up (drv_t *d);
+static void ct_start (drv_t *d);
+static void ct_down (drv_t *d);
+static void ct_watchdog (drv_t *d);
+#ifdef NETGRAPH
+extern struct ng_type typestruct;
+#else
+static void ct_ifstart (struct ifnet *ifp);
+static void ct_tlf (struct sppp *sp);
+static void ct_tls (struct sppp *sp);
+static void ct_ifwatchdog (struct ifnet *ifp);
+static int ct_sioctl (struct ifnet *ifp, u_long cmd, caddr_t data);
+static void ct_initialize (void *softc);
+#endif
+
+static ct_board_t *adapter [NCT];
+static drv_t *channel [NCT*NCHAN];
+static struct callout_handle led_timo [NCT];
+static struct callout_handle timeout_handle;
+
+/*
+ * Print the mbuf chain, for debug purposes only.
+ */
+static void printmbuf (struct mbuf *m)
+{
+ printf ("mbuf:");
+ for (; m; m=m->m_next) {
+ if (m->m_flags & M_PKTHDR)
+ printf (" HDR %d:", m->m_pkthdr.len);
+ if (m->m_flags & M_EXT)
+ printf (" EXT:");
+ printf (" %d", m->m_len);
+ }
+ printf ("\n");
+}
+
+/*
+ * Make an mbuf from data.
+ */
+static struct mbuf *makembuf (void *buf, u_int len)
+{
+ struct mbuf *m;
+
+ MGETHDR (m, M_DONTWAIT, MT_DATA);
+ if (! m)
+ return 0;
+ MCLGET (m, M_DONTWAIT);
+ if (! (m->m_flags & M_EXT)) {
+ m_freem (m);
+ return 0;
+ }
+ m->m_pkthdr.len = m->m_len = len;
+ bcopy (buf, mtod (m, caddr_t), len);
+ return m;
+}
+
+static void ct_timeout (void *arg)
+{
+ drv_t *d;
+ int s, i;
+
+ for (i=0; i<NCT*NCHAN; ++i) {
+ d = channel[i];
+ if (! d)
+ continue;
+ if (d->chan->mode != M_G703)
+ continue;
+ s = splimp ();
+ ct_g703_timer (d->chan);
+ splx (s);
+ }
+ timeout_handle = timeout (ct_timeout, 0, hz);
+}
+
+static void ct_led_off (void *arg)
+{
+ ct_board_t *b = arg;
+ int s = splimp ();
+
+ ct_led (b, 0);
+ led_timo[b->num].callout = 0;
+ splx (s);
+}
+
+/*
+ * Activate interupt handler from DDK.
+ */
+#if __FreeBSD_version >= 400000
+static void ct_intr (void *arg)
+{
+ bdrv_t *bd = arg;
+ ct_board_t *b = bd->board;
+#else
+static void ct_intr (int bnum)
+{
+ ct_board_t *b = adapter [bnum];
+#endif
+ int s = splimp ();
+
+ /* Turn LED on. */
+ ct_led (b, 1);
+
+ ct_int_handler (b);
+
+ /* Turn LED off 50 msec later. */
+ if (! led_timo[b->num].callout)
+ led_timo[b->num] = timeout (ct_led_off, b, hz/20);
+ splx (s);
+}
+
+static int probe_irq (ct_board_t *b, int irq)
+{
+ int mask, busy, cnt;
+
+ /* Clear pending irq, if any. */
+ ct_probe_irq (b, -irq);
+ DELAY (100);
+ for (cnt=0; cnt<5; ++cnt) {
+ /* Get the mask of pending irqs, assuming they are busy.
+ * Activate the adapter on given irq. */
+ busy = ct_probe_irq (b, irq);
+ DELAY (1000);
+
+ /* Get the mask of active irqs.
+ * Deactivate our irq. */
+ mask = ct_probe_irq (b, -irq);
+ DELAY (100);
+ if ((mask & ~busy) == 1 << irq) {
+ ct_probe_irq (b, 0);
+ /* printf ("ct%d: irq %d ok, mask=0x%04x, busy=0x%04x\n",
+ b->num, irq, mask, busy); */
+ return 1;
+ }
+ }
+ /* printf ("ctx%d: irq %d not functional, mask=0x%04x, busy=0x%04x\n",
+ b->num, irq, mask, busy); */
+ ct_probe_irq (b, 0);
+ return 0;
+}
+
+static short porttab [] = {
+ 0x200, 0x220, 0x240, 0x260, 0x280, 0x2a0, 0x2c0, 0x2e0,
+ 0x300, 0x320, 0x340, 0x360, 0x380, 0x3a0, 0x3c0, 0x3e0, 0
+ };
+static char dmatab [] = { 7, 6, 5, 0 };
+static char irqtab [] = { 5, 10, 11, 7, 3, 15, 12, 0 };
+
+#if __FreeBSD_version >= 400000
+static int ct_is_free_res (device_t dev, int rid, int type, u_long start,
+ u_long end, u_long count)
+{
+ struct resource *res;
+
+ if (!(res = bus_alloc_resource (dev, type, &rid, start, end, count,
+ RF_ALLOCATED)))
+ return 0;
+
+ bus_release_resource (dev, type, rid, res);
+
+ return 1;
+}
+
+static void ct_identify (driver_t *driver, device_t dev)
+{
+ u_long iobase, rescount;
+ int devcount;
+ device_t *devices;
+ device_t child;
+ devclass_t my_devclass;
+ int i, k;
+
+ if ((my_devclass = devclass_find ("ct")) == NULL)
+ return;
+
+ devclass_get_devices (my_devclass, &devices, &devcount);
+
+ if (devcount == 0) {
+ /* We should find all devices by our self. We could alter other
+ * devices, but we don't have a choise
+ */
+ for (i = 0; (iobase = porttab [i]) != 0; i++) {
+ if (!ct_is_free_res (dev, 1, SYS_RES_IOPORT,
+ iobase, iobase + NPORT, NPORT))
+ continue;
+ if (ct_probe_board (iobase, -1, -1) == 0)
+ continue;
+
+ devcount++;
+ child = BUS_ADD_CHILD (dev, ISA_ORDER_SPECULATIVE, "ct",
+ -1);
+
+ if (child == NULL)
+ return;
+
+ device_set_desc_copy (child, "Cronyx Tau-ISA");
+ device_set_driver (child, driver);
+ bus_set_resource (child, SYS_RES_IOPORT, 0,
+ iobase, NPORT);
+
+ if (devcount >= NCT)
+ break;
+ }
+ } else {
+ static short porttab [] = {
+ 0x200, 0x220, 0x240, 0x260, 0x280, 0x2a0, 0x2c0, 0x2e0,
+ 0x300, 0x320, 0x340, 0x360, 0x380, 0x3a0, 0x3c0, 0x3e0, 0
+ };
+ /* Lets check user choise.
+ */
+ for (k = 0; k < devcount; k++) {
+ if (bus_get_resource (devices[k], SYS_RES_IOPORT, 0,
+ &iobase, &rescount) != 0)
+ continue;
+
+ for (i = 0; porttab [i] != 0; i++) {
+ if (porttab [i] != iobase)
+ continue;
+
+ if (!ct_is_free_res (devices[k], 1, SYS_RES_IOPORT,
+ iobase, iobase + NPORT, NPORT))
+ continue;
+
+ if (ct_probe_board (iobase, -1, -1) == 0)
+ continue;
+ porttab [i] = -1;
+ device_set_desc_copy (devices[k], "Cronyx Tau-ISA");
+ break;
+ }
+ if (porttab [i] == 0) {
+ device_delete_child (
+ device_get_parent (devices[k]),
+ devices [k]);
+ devices[k] = 0;
+ continue;
+ }
+ }
+ for (k = 0; k < devcount; k++) {
+ if (devices[k] == 0)
+ continue;
+ if (bus_get_resource (devices[k], SYS_RES_IOPORT, 0,
+ &iobase, &rescount) == 0)
+ continue;
+ for (i = 0; (iobase = porttab [i]) != 0; i++) {
+ if (porttab [i] == -1)
+ continue;
+ if (!ct_is_free_res (devices[k], 1, SYS_RES_IOPORT,
+ iobase, iobase + NPORT, NPORT))
+ continue;
+ if (ct_probe_board (iobase, -1, -1) == 0)
+ continue;
+
+ bus_set_resource (devices[k], SYS_RES_IOPORT, 0,
+ iobase, NPORT);
+ porttab [i] = -1;
+ device_set_desc_copy (devices[k], "Cronyx Tau-ISA");
+ break;
+ }
+ if (porttab [i] == 0) {
+ device_delete_child (
+ device_get_parent (devices[k]),
+ devices [k]);
+ }
+ }
+ free (devices, M_TEMP);
+ }
+
+ return;
+}
+
+static int ct_probe (device_t dev)
+{
+ int unit = device_get_unit (dev);
+ u_long iobase, rescount;
+
+ if (!device_get_desc (dev) ||
+ strcmp (device_get_desc (dev), "Cronyx Tau-ISA"))
+ return ENXIO;
+
+/* KASSERT ((bd != NULL), ("ct%d: NULL device softc\n", unit));*/
+ if (bus_get_resource (dev, SYS_RES_IOPORT, 0, &iobase, &rescount) != 0) {
+ printf ("ct%d: Couldn't get IOPORT\n", unit);
+ return ENXIO;
+ }
+
+ if (!ct_is_free_res (dev, 1, SYS_RES_IOPORT,
+ iobase, iobase + NPORT, NPORT)) {
+ printf ("ct%d: Resource IOPORT isn't free\n", unit);
+ return ENXIO;
+ }
+
+ if (!ct_probe_board (iobase, -1, -1)) {
+ printf ("ct%d: probing for Tau-ISA at %lx faild\n", unit, iobase);
+ return ENXIO;
+ }
+
+ return 0;
+}
+#else /* __FreeBSD_version < 400000 */
+static int ct_probe (struct isa_device *id)
+{
+ int unit = id->id_unit;
+ int iobase;
+ ct_board_t *b;
+ int i;
+
+ iobase = id->id_iobase;
+ if (iobase < 0) {
+ /* Autodetect the adapter. */
+
+ for (i=0; ; i++) {
+ if (! porttab[i]) {
+ iobase = -1;
+ return 0;
+ }
+ iobase = porttab[i];
+ if (unit > 0 && adapter[0] && adapter[0]->port == iobase)
+ continue;
+ if (unit > 1 && adapter[1] && adapter[1]->port == iobase)
+ continue;
+ if (! haveseen_isadev (id, CC_IOADDR | CC_QUIET) &&
+ ct_probe_board (iobase, -1, -1))
+ break;
+ }
+ } else if (! ct_probe_board (iobase, -1, -1))
+ return 0;
+
+ if (id->id_drq < 0) {
+ /* Find available 16-bit DRQ. */
+
+ for (i=0; ; ++i) {
+ if (! dmatab[i]) {
+ printf ("ct%d: no available drq found\n",
+ unit);
+ id->id_drq = -1;
+ return 0;
+ }
+ id->id_drq = dmatab[i];
+ if (! haveseen_isadev (id, CC_DRQ | CC_QUIET)
+ && !isa_dma_acquire (id->id_drq))
+ break;
+ }
+ }
+
+ b = malloc (sizeof (ct_board_t), M_DEVBUF, M_WAITOK);
+ if (!b) {
+ printf ("ct:%d: Couldn't allocate memory\n", unit);
+ return (ENXIO);
+ }
+ adapter[unit] = b;
+ bzero (b, sizeof(ct_board_t));
+
+ if (! ct_open_board (b, unit, iobase,
+ id->id_irq ? ffs (id->id_irq) - 1 : -1, id->id_drq)) {
+ printf ("ct%d: error loading firmware\n", unit);
+ adapter [unit] = 0;
+ free (b, M_DEVBUF);
+ isa_dma_release (id->id_drq);
+ return 0;
+ }
+
+ if (id->id_irq) {
+ if (! probe_irq (b, ffs (id->id_irq) - 1))
+ printf ("ct%d: irq %d not functional\n",
+ unit, ffs (id->id_irq) - 1);
+ } else {
+ /* Find available IRQ. */
+
+ for (i=0; ; ++i) {
+ if (! irqtab[i]) {
+ printf ("ct%d: no available irq found\n",
+ unit);
+ id->id_irq = -1;
+ isa_dma_release (id->id_drq);
+ adapter [unit] = 0;
+ free (b, M_DEVBUF);
+ return 0;
+ }
+ id->id_irq = 1 << irqtab[i];
+ if (haveseen_isadev (id, CC_IRQ | CC_QUIET))
+ continue;
+#ifdef KLD_MODULE
+ if (register_intr (irqtab[i], 0, 0, (inthand2_t*)
+ ct_intr, &net_imask, unit) != 0)
+ continue;
+ unregister_intr (irqtab[i], (inthand2_t*) ct_intr);
+#endif
+ if (probe_irq (b, irqtab[i]))
+ break;
+ }
+ }
+ ct_init_board (b, b->num, b->port, ffs (id->id_irq) - 1, b->dma,
+ b->type, b->osc);
+ ct_setup_board (b, 0, 0, 0);
+
+ return 1;
+}
+#endif /* __FreeBSD_version < 400000 */
+
+extern struct cdevsw ct_cdevsw;
+/*
+ * The adapter is present, initialize the driver structures.
+ */
+#if __FreeBSD_version < 400000
+static int ct_attach (struct isa_device *id)
+{
+#else
+static int ct_attach (device_t dev)
+{
+ bdrv_t *bd = device_get_softc (dev);
+ u_long iobase, drq, irq, rescount;
+ int unit = device_get_unit (dev);
+ int i;
+ int s;
+#endif
+ ct_board_t *b;
+ ct_chan_t *c;
+ drv_t *d;
+
+#if __FreeBSD_version >= 400000
+ KASSERT ((bd != NULL), ("ct%d: NULL device softc\n", unit));
+
+ bus_get_resource (dev, SYS_RES_IOPORT, 0, &iobase, &rescount);
+ bd->base_rid = 0;
+ bd->base_res = bus_alloc_resource (dev, SYS_RES_IOPORT, &bd->base_rid,
+ iobase, iobase + NPORT, NPORT, RF_ACTIVE);
+ if (! bd->base_res) {
+ printf ("ct%d: cannot alloc base address\n", unit);
+ return ENXIO;
+ }
+
+ if (bus_get_resource (dev, SYS_RES_DRQ, 0, &drq, &rescount) != 0) {
+ for (i = 0; (drq = dmatab [i]) != 0; i++) {
+ if (!ct_is_free_res (dev, 1, SYS_RES_DRQ,
+ drq, drq + 1, 1))
+ continue;
+ bus_set_resource (dev, SYS_RES_DRQ, 0, drq, 1);
+ break;
+ }
+
+ if (dmatab[i] == 0) {
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
+ bd->base_res);
+ printf ("ct%d: Couldn't get DRQ\n", unit);
+ return ENXIO;
+ }
+ }
+
+ bd->drq_rid = 0;
+ bd->drq_res = bus_alloc_resource (dev, SYS_RES_DRQ, &bd->drq_rid,
+ drq, drq + 1, 1, RF_ACTIVE);
+ if (! bd->drq_res) {
+ printf ("ct%d: cannot allocate drq\n", unit);
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
+ bd->base_res);
+ return ENXIO;
+ }
+
+ if (bus_get_resource (dev, SYS_RES_IRQ, 0, &irq, &rescount) != 0) {
+ for (i = 0; (irq = irqtab [i]) != 0; i++) {
+ if (!ct_is_free_res (dev, 1, SYS_RES_IRQ,
+ irq, irq + 1, 1))
+ continue;
+ bus_set_resource (dev, SYS_RES_IRQ, 0, irq, 1);
+ break;
+ }
+
+ if (irqtab[i] == 0) {
+ bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
+ bd->drq_res);
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
+ bd->base_res);
+ printf ("ct%d: Couldn't get IRQ\n", unit);
+ return ENXIO;
+ }
+ }
+
+ bd->irq_rid = 0;
+ bd->irq_res = bus_alloc_resource (dev, SYS_RES_IRQ, &bd->irq_rid,
+ irq, irq + 1, 1, RF_ACTIVE);
+ if (! bd->irq_res) {
+ printf ("ct%d: Couldn't allocate irq\n", unit);
+ bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
+ bd->drq_res);
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
+ bd->base_res);
+ return ENXIO;
+ }
+
+ b = malloc (sizeof (ct_board_t), M_DEVBUF, M_WAITOK);
+ if (!b) {
+ printf ("ct:%d: Couldn't allocate memory\n", unit);
+ return (ENXIO);
+ }
+ adapter[unit] = b;
+ bzero (b, sizeof(ct_board_t));
+
+ if (! ct_open_board (b, unit, iobase, irq, drq)) {
+ printf ("ct%d: error loading firmware\n", unit);
+ free (b, M_DEVBUF);
+ bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid,
+ bd->irq_res);
+ bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
+ bd->drq_res);
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
+ bd->base_res);
+ return ENXIO;
+ }
+
+ bd->board = b;
+
+ if (! probe_irq (b, irq)) {
+ printf ("ct%d: irq %ld not functional\n", unit, irq);
+ bd->board = 0;
+ adapter [unit] = 0;
+ free (b, M_DEVBUF);
+ bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid,
+ bd->irq_res);
+ bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
+ bd->drq_res);
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
+ bd->base_res);
+ return ENXIO;
+ }
+
+ s = splimp ();
+ if (bus_setup_intr (dev, bd->irq_res, INTR_TYPE_NET, ct_intr, bd,
+ &bd->intrhand)) {
+ printf ("ct%d: Can't setup irq %ld\n", unit, irq);
+ bd->board = 0;
+ adapter [unit] = 0;
+ free (b, M_DEVBUF);
+ bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid,
+ bd->irq_res);
+ bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid,
+ bd->drq_res);
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid,
+ bd->base_res);
+ splx (s);
+ return ENXIO;
+ }
+
+ ct_init_board (b, b->num, b->port, irq, drq, b->type, b->osc);
+ ct_setup_board (b, 0, 0, 0);
+#else
+ b = adapter [id->id_unit];
+#endif
+
+ printf ("ct%d: <Cronyx-%s>, clock %s MHz\n", b->num, b->name,
+ b->osc == 20000000 ? "20" : "16.384");
+#if __FreeBSD_version < 400000
+ id->id_ointr = ct_intr;
+#endif
+
+ for (c=b->chan; c<b->chan+NCHAN; ++c) {
+ d = contigmalloc (sizeof(drv_t), M_DEVBUF, M_WAITOK,
+ 0x100000, 0x1000000, 16, 0);
+ channel [b->num*NCHAN + c->num] = d;
+ bzero (d, sizeof(drv_t));
+ sprintf (d->name, "ct%d.%d", b->num, c->num);
+ d->board = b;
+ d->chan = c;
+ c->sys = d;
+
+#ifdef NETGRAPH
+ if (ng_make_node_common (&typestruct, &d->node) != 0) {
+ printf ("%s: cannot make common node\n", d->name);
+ channel [b->num*NCHAN + c->num] = 0;
+ c->sys = 0;
+#if __FreeBSD_version < 400000
+ free (d, M_DEVBUF);
+#else
+ contigfree (d, sizeof (*d), M_DEVBUF);
+#endif
+ continue;
+ }
+#if __FreeBSD_version >= 500000
+ NG_NODE_SET_PRIVATE (d->node, d);
+#else
+ d->node->private = d;
+#endif
+ sprintf (d->nodename, "%s%d", NG_CT_NODE_TYPE,
+ c->board->num*NCHAN + c->num);
+ if (ng_name_node (d->node, d->nodename)) {
+ printf ("%s: cannot name node\n", d->nodename);
+#if __FreeBSD_version >= 500000
+ NG_NODE_UNREF (d->node);
+#else
+ ng_rmnode (d->node);
+ ng_unref (d->node);
+#endif
+ channel [b->num*NCHAN + c->num] = 0;
+ c->sys = 0;
+#if __FreeBSD_version < 400000
+ free (d, M_DEVBUF);
+#else
+ contigfree (d, sizeof (*d), M_DEVBUF);
+#endif
+ continue;
+ }
+ d->queue.ifq_maxlen = IFQ_MAXLEN;
+ d->hi_queue.ifq_maxlen = IFQ_MAXLEN;
+#if __FreeBSD_version >= 500000
+ mtx_init (&d->queue.ifq_mtx, "ct_queue", NULL, MTX_DEF);
+ mtx_init (&d->hi_queue.ifq_mtx, "ct_queue_hi", NULL, MTX_DEF);
+#endif
+#else /*NETGRAPH*/
+ d->pp.pp_if.if_softc = d;
+#if __FreeBSD_version > 501000
+ if_initname (&d->pp.pp_if, "ct", b->num * NCHAN + c->num);
+#else
+ d->pp.pp_if.if_unit = b->num * NCHAN + c->num;
+ d->pp.pp_if.if_name = "ct";
+#endif
+ d->pp.pp_if.if_mtu = PP_MTU;
+ d->pp.pp_if.if_flags = IFF_POINTOPOINT | IFF_MULTICAST;
+ d->pp.pp_if.if_ioctl = ct_sioctl;
+ d->pp.pp_if.if_start = ct_ifstart;
+ d->pp.pp_if.if_watchdog = ct_ifwatchdog;
+ d->pp.pp_if.if_init = ct_initialize;
+ sppp_attach (&d->pp.pp_if);
+ if_attach (&d->pp.pp_if);
+ d->pp.pp_tlf = ct_tlf;
+ d->pp.pp_tls = ct_tls;
+#if __FreeBSD_version >= 400000 || NBPFILTER > 0
+ /* If BPF is in the kernel, call the attach for it.
+ * Header size is 4 bytes. */
+ bpfattach (&d->pp.pp_if, DLT_PPP, 4);
+#endif
+#endif /*NETGRAPH*/
+ ct_start_chan (c, &d->buf, vtophys (&d->buf));
+ ct_register_receive (c, &ct_receive);
+ ct_register_transmit (c, &ct_transmit);
+ ct_register_error (c, &ct_error);
+#if __FreeBSD_version >= 400000
+ d->devt = make_dev (&ct_cdevsw, b->num*NCHAN+c->num, UID_ROOT,
+ GID_WHEEL, 0600, "ct%d", b->num*NCHAN+c->num);
+ }
+ splx (s);
+
+ return 0;
+#else /* __FreeBSD_version < 400000 */
+ }
+ return 1;
+#endif /*__FreeBSD_version */
+}
+
+#if __FreeBSD_version >= 400000
+static int ct_detach (device_t dev)
+{
+ bdrv_t *bd = device_get_softc (dev);
+ ct_board_t *b = bd->board;
+ ct_chan_t *c;
+ int s = splimp ();
+
+ /* Check if the device is busy (open). */
+ for (c = b->chan; c < b->chan + NCHAN; ++c) {
+ drv_t *d = (drv_t*) c->sys;
+
+ if (!d || !d->chan->type)
+ continue;
+
+ if (d->running) {
+ splx (s);
+ return EBUSY;
+ }
+ }
+
+ /* Deactivate the timeout routine. */
+ if (led_timo[b->num].callout)
+ untimeout (ct_led_off, b, led_timo[b->num]);
+
+ bus_teardown_intr (dev, bd->irq_res, bd->intrhand);
+ bus_deactivate_resource (dev, SYS_RES_IRQ, bd->irq_rid, bd->irq_res);
+ bus_release_resource (dev, SYS_RES_IRQ, bd->irq_rid, bd->irq_res);
+
+ bus_deactivate_resource (dev, SYS_RES_DRQ, bd->drq_rid, bd->drq_res);
+ bus_release_resource (dev, SYS_RES_DRQ, bd->drq_rid, bd->drq_res);
+
+ bus_deactivate_resource (dev, SYS_RES_IOPORT, bd->base_rid, bd->irq_res);
+ bus_release_resource (dev, SYS_RES_IOPORT, bd->base_rid, bd->base_res);
+
+ ct_close_board (b);
+
+ /* Detach the interfaces, free buffer memory. */
+ for (c = b->chan; c < b->chan + NCHAN; ++c) {
+ drv_t *d = (drv_t*) c->sys;
+
+ if (!d || !d->chan->type)
+ continue;
+
+#ifdef NETGRAPH
+#if __FreeBSD_version >= 500000
+ if (d->node) {
+ ng_rmnode_self (d->node);
+ NG_NODE_UNREF (d->node);
+ d->node = NULL;
+ }
+ mtx_destroy (&d->queue.ifq_mtx);
+ mtx_destroy (&d->hi_queue.ifq_mtx);
+#else
+ ng_rmnode (d->node);
+ d->node = 0;
+#endif
+#else
+#if __FreeBSD_version >= 410000 && NBPFILTER > 0
+ /* Detach from the packet filter list of interfaces. */
+ bpfdetach (&d->pp.pp_if);
+#endif
+ /* Detach from the sync PPP list. */
+ sppp_detach (&d->pp.pp_if);
+
+ if_detach (&d->pp.pp_if);
+#endif
+ destroy_dev (d->devt);
+ }
+
+ ct_led_off (b);
+ if (led_timo[b->num].callout)
+ untimeout (ct_led_off, b, led_timo[b->num]);
+ splx (s);
+
+ s = splimp ();
+ for (c = b->chan; c < b->chan + NCHAN; ++c) {
+ drv_t *d = (drv_t*) c->sys;
+
+ if (!d || !d->chan->type)
+ continue;
+
+ /* Deallocate buffers. */
+#if __FreeBSD_version < 400000
+ free (d, M_DEVBUF);
+#else
+ contigfree (d, sizeof (*d), M_DEVBUF);
+#endif
+ }
+ bd->board = 0;
+ adapter [b->num] = 0;
+ free (b, M_DEVBUF);
+ splx (s);
+
+ return 0;
+}
+#endif
+
+#ifndef NETGRAPH
+static void ct_ifstart (struct ifnet *ifp)
+{
+ drv_t *d = ifp->if_softc;
+
+ ct_start (d);
+}
+
+static void ct_ifwatchdog (struct ifnet *ifp)
+{
+ drv_t *d = ifp->if_softc;
+
+ ct_watchdog (d);
+}
+
+static void ct_tlf (struct sppp *sp)
+{
+ drv_t *d = sp->pp_if.if_softc;
+
+ CT_DEBUG (d, ("ct_tlf\n"));
+/* ct_set_dtr (d->chan, 0);*/
+/* ct_set_rts (d->chan, 0);*/
+ sp->pp_down (sp);
+}
+
+static void ct_tls (struct sppp *sp)
+{
+ drv_t *d = sp->pp_if.if_softc;
+
+ CT_DEBUG (d, ("ct_tls\n"));
+ sp->pp_up (sp);
+}
+
+/*
+ * Initialization of interface.
+ * Ii seems to be never called by upper level.
+ */
+static void ct_initialize (void *softc)
+{
+ drv_t *d = softc;
+
+ CT_DEBUG (d, ("ct_initialize\n"));
+}
+
+/*
+ * Process an ioctl request.
+ */
+static int ct_sioctl (struct ifnet *ifp, u_long cmd, caddr_t data)
+{
+ drv_t *d = ifp->if_softc;
+ int error, s, was_up, should_be_up;
+
+ was_up = (ifp->if_flags & IFF_RUNNING) != 0;
+ error = sppp_ioctl (ifp, cmd, data);
+ if (error)
+ return error;
+
+ if (! (ifp->if_flags & IFF_DEBUG))
+ d->chan->debug = 0;
+ else if (! d->chan->debug)
+ d->chan->debug = 1;
+
+ switch (cmd) {
+ default: CT_DEBUG2 (d, ("ioctl 0x%lx\n", cmd)); return 0;
+ case SIOCADDMULTI: CT_DEBUG2 (d, ("SIOCADDMULTI\n")); return 0;
+ case SIOCDELMULTI: CT_DEBUG2 (d, ("SIOCDELMULTI\n")); return 0;
+ case SIOCSIFFLAGS: CT_DEBUG2 (d, ("SIOCSIFFLAGS\n")); break;
+ case SIOCSIFADDR: CT_DEBUG2 (d, ("SIOCSIFADDR\n")); break;
+ }
+
+ /* We get here only in case of SIFFLAGS or SIFADDR. */
+ s = splimp ();
+ should_be_up = (ifp->if_flags & IFF_RUNNING) != 0;
+ if (! was_up && should_be_up) {
+ /* Interface goes up -- start it. */
+ ct_up (d);
+ ct_start (d);
+ } else if (was_up && ! should_be_up) {
+ /* Interface is going down -- stop it. */
+ /* if ((d->pp.pp_flags & PP_FR) || (ifp->if_flags & PP_CISCO))*/
+ ct_down (d);
+ }
+ splx (s);
+ return 0;
+}
+#endif /*NETGRAPH*/
+
+/*
+ * Stop the interface. Called on splimp().
+ */
+static void ct_down (drv_t *d)
+{
+ int s = splimp ();
+ CT_DEBUG (d, ("ct_down\n"));
+ ct_set_dtr (d->chan, 0);
+ ct_set_rts (d->chan, 0);
+ d->running = 0;
+ splx (s);
+}
+
+/*
+ * Start the interface. Called on splimp().
+ */
+static void ct_up (drv_t *d)
+{
+ int s = splimp ();
+ CT_DEBUG (d, ("ct_up\n"));
+ ct_set_dtr (d->chan, 1);
+ ct_set_rts (d->chan, 1);
+ d->running = 1;
+ splx (s);
+}
+
+/*
+ * Start output on the (slave) interface. Get another datagram to send
+ * off of the interface queue, and copy it to the interface
+ * before starting the output.
+ */
+static void ct_send (drv_t *d)
+{
+ struct mbuf *m;
+ u_short len;
+
+ CT_DEBUG2 (d, ("ct_send, tn=%d\n", d->chan->tn));
+
+ /* No output if the interface is down. */
+ if (! d->running)
+ return;
+
+ /* No output if the modem is off. */
+ if (! ct_get_dsr (d->chan) && !ct_get_loop (d->chan))
+ return;
+
+ while (ct_buf_free (d->chan)) {
+ /* Get the packet to send. */
+#ifdef NETGRAPH
+ IF_DEQUEUE (&d->hi_queue, m);
+ if (! m)
+ IF_DEQUEUE (&d->queue, m);
+#else
+ m = sppp_dequeue (&d->pp.pp_if);
+#endif
+ if (! m)
+ return;
+#if (__FreeBSD_version >= 400000 || NBPFILTER > 0) && !defined (NETGRAPH)
+ if (d->pp.pp_if.if_bpf)
+#if __FreeBSD_version >= 500000
+ BPF_MTAP (&d->pp.pp_if, m);
+#else
+ bpf_mtap (&d->pp.pp_if, m);
+#endif
+#endif
+ len = m->m_pkthdr.len;
+ if (! m->m_next)
+ ct_send_packet (d->chan, (u_char*)mtod (m, caddr_t),
+ len, 0);
+ else {
+ m_copydata (m, 0, len, d->chan->tbuf[d->chan->te]);
+ ct_send_packet (d->chan, d->chan->tbuf[d->chan->te],
+ len, 0);
+ }
+ m_freem (m);
+
+ /* Set up transmit timeout, if the transmit ring is not empty.
+ * Transmit timeout is 10 seconds. */
+#ifdef NETGRAPH
+ d->timeout = 10;
+#else
+ d->pp.pp_if.if_timer = 10;
+#endif
+ }
+#ifndef NETGRAPH
+ d->pp.pp_if.if_flags |= IFF_OACTIVE;
+#endif
+}
+
+/*
+ * Start output on the interface.
+ * Always called on splimp().
+ */
+static void ct_start (drv_t *d)
+{
+ int s = splimp ();
+
+ if (d->running) {
+ if (! d->chan->dtr)
+ ct_set_dtr (d->chan, 1);
+ if (! d->chan->rts)
+ ct_set_rts (d->chan, 1);
+ ct_send (d);
+ }
+
+ splx (s);
+}
+
+/*
+ * Handle transmit timeouts.
+ * Recover after lost transmit interrupts.
+ * Always called on splimp().
+ */
+static void ct_watchdog (drv_t *d)
+{
+ int s = splimp ();
+
+ CT_DEBUG (d, ("device timeout\n"));
+ if (d->running) {
+ ct_setup_chan (d->chan);
+ ct_start_chan (d->chan, 0, 0);
+ ct_set_dtr (d->chan, 1);
+ ct_set_rts (d->chan, 1);
+ ct_start (d);
+ }
+
+ splx (s);
+}
+
+/*
+ * Transmit callback function.
+ */
+static void ct_transmit (ct_chan_t *c, void *attachment, int len)
+{
+ drv_t *d = c->sys;
+
+ if (!d)
+ return;
+#ifdef NETGRAPH
+ d->timeout = 0;
+#else
+ ++d->pp.pp_if.if_opackets;
+ d->pp.pp_if.if_flags &= ~IFF_OACTIVE;
+ d->pp.pp_if.if_timer = 0;
+#endif
+ ct_start (d);
+}
+
+/*
+ * Process the received packet.
+ */
+static void ct_receive (ct_chan_t *c, char *data, int len)
+{
+ drv_t *d = c->sys;
+ struct mbuf *m;
+#if __FreeBSD_version >= 500000 && defined NETGRAPH
+ int error;
+#endif
+
+ if (!d || !d->running)
+ return;
+
+ m = makembuf (data, len);
+ if (! m) {
+ CT_DEBUG (d, ("no memory for packet\n"));
+#ifndef NETGRAPH
+ ++d->pp.pp_if.if_iqdrops;
+#endif
+ return;
+ }
+ if (c->debug > 1)
+ printmbuf (m);
+#ifdef NETGRAPH
+ m->m_pkthdr.rcvif = 0;
+#if __FreeBSD_version >= 500000
+ NG_SEND_DATA_ONLY (error, d->hook, m);
+#else
+ ng_queue_data (d->hook, m, 0);
+#endif
+#else
+ ++d->pp.pp_if.if_ipackets;
+ m->m_pkthdr.rcvif = &d->pp.pp_if;
+#if __FreeBSD_version >= 400000 || NBPFILTER > 0
+ /* Check if there's a BPF listener on this interface.
+ * If so, hand off the raw packet to bpf. */
+ if (d->pp.pp_if.if_bpf)
+#if __FreeBSD_version >= 500000
+ BPF_TAP (&d->pp.pp_if, data, len);
+#else
+ bpf_tap (&d->pp.pp_if, data, len);
+#endif
+#endif
+ sppp_input (&d->pp.pp_if, m);
+#endif
+}
+
+/*
+ * Error callback function.
+ */
+static void ct_error (ct_chan_t *c, int data)
+{
+ drv_t *d = c->sys;
+
+ if (!d)
+ return;
+
+ switch (data) {
+ case CT_FRAME:
+ CT_DEBUG (d, ("frame error\n"));
+#ifndef NETGRAPH
+ ++d->pp.pp_if.if_ierrors;
+#endif
+ break;
+ case CT_CRC:
+ CT_DEBUG (d, ("crc error\n"));
+#ifndef NETGRAPH
+ ++d->pp.pp_if.if_ierrors;
+#endif
+ break;
+ case CT_OVERRUN:
+ CT_DEBUG (d, ("overrun error\n"));
+#ifndef NETGRAPH
+ ++d->pp.pp_if.if_collisions;
+ ++d->pp.pp_if.if_ierrors;
+#endif
+ break;
+ case CT_OVERFLOW:
+ CT_DEBUG (d, ("overflow error\n"));
+#ifndef NETGRAPH
+ ++d->pp.pp_if.if_ierrors;
+#endif
+ break;
+ case CT_UNDERRUN:
+ CT_DEBUG (d, ("underrun error\n"));
+#ifdef NETGRAPH
+ d->timeout = 0;
+#else
+ ++d->pp.pp_if.if_oerrors;
+ d->pp.pp_if.if_flags &= ~IFF_OACTIVE;
+ d->pp.pp_if.if_timer = 0;
+#endif
+ ct_start (d);
+ break;
+ default:
+ CT_DEBUG (d, ("error #%d\n", data));
+ }
+}
+
+#if __FreeBSD_version < 500000
+static int ct_open (dev_t dev, int oflags, int devtype, struct proc *p)
+#else
+static int ct_open (dev_t dev, int oflags, int devtype, struct thread *td)
+#endif
+{
+ drv_t *d;
+
+ if (minor(dev) >= NCT*NCHAN || ! (d = channel[minor(dev)]))
+ return ENXIO;
+
+ CT_DEBUG2 (d, ("ct_open\n"));
+ return 0;
+}
+
+#if __FreeBSD_version < 500000
+static int ct_close (dev_t dev, int fflag, int devtype, struct proc *p)
+#else
+static int ct_close (dev_t dev, int fflag, int devtype, struct thread *td)
+#endif
+{
+ drv_t *d = channel [minor(dev)];
+
+ if (!d)
+ return 0;
+
+ CT_DEBUG2 (d, ("ct_close\n"));
+ return 0;
+}
+
+static int ct_modem_status (ct_chan_t *c)
+{
+ drv_t *d = c->sys;
+ int status, s;
+
+ if (!d)
+ return 0;
+
+ status = d->running ? TIOCM_LE : 0;
+ s = splimp ();
+ if (ct_get_cd (c)) status |= TIOCM_CD;
+ if (ct_get_cts (c)) status |= TIOCM_CTS;
+ if (ct_get_dsr (c)) status |= TIOCM_DSR;
+ if (c->dtr) status |= TIOCM_DTR;
+ if (c->rts) status |= TIOCM_RTS;
+ splx (s);
+ return status;
+}
+
+/*
+ * Process an ioctl request on /dev/cronyx/ctauN.
+ */
+#if __FreeBSD_version < 500000
+static int ct_ioctl (dev_t dev, u_long cmd, caddr_t data, int flag, struct proc *p)
+#else
+static int ct_ioctl (dev_t dev, u_long cmd, caddr_t data, int flag, struct thread *td)
+#endif
+{
+ drv_t *d = channel [minor (dev)];
+ ct_chan_t *c;
+ struct serial_statistics *st;
+ struct e1_statistics *opte1;
+ int error, s;
+ char mask[16];
+
+ if (!d || !d->chan)
+ return 0;
+
+ c = d->chan;
+
+ switch (cmd) {
+ case SERIAL_GETREGISTERED:
+ bzero (mask, sizeof(mask));
+ for (s=0; s<NCT*NCHAN; ++s)
+ if (channel [s])
+ mask [s/8] |= 1 << (s & 7);
+ bcopy (mask, data, sizeof (mask));
+ return 0;
+
+#ifndef NETGRAPH
+ case SERIAL_GETPROTO:
+ strcpy ((char*)data, /*(d->pp.pp_flags & PP_FR) ? "fr" :*/
+ (d->pp.pp_if.if_flags & PP_CISCO) ? "cisco" : "ppp");
+ return 0;
+
+ case SERIAL_SETPROTO:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ if (d->pp.pp_if.if_flags & IFF_RUNNING)
+ return EBUSY;
+ if (! strcmp ("cisco", (char*)data)) {
+/* d->pp.pp_flags &= ~(PP_FR);*/
+ d->pp.pp_flags |= PP_KEEPALIVE;
+ d->pp.pp_if.if_flags |= PP_CISCO;
+/* } else if (! strcmp ("fr", (char*)data)) {
+ d->pp.pp_if.if_flags &= ~(PP_CISCO);
+ d->pp.pp_flags |= PP_FR | PP_KEEPALIVE;*/
+ } else if (! strcmp ("ppp", (char*)data)) {
+ d->pp.pp_flags &= ~(/*PP_FR | */PP_KEEPALIVE);
+ d->pp.pp_if.if_flags &= ~(PP_CISCO);
+ } else
+ return EINVAL;
+ return 0;
+
+ case SERIAL_GETKEEPALIVE:
+ if (/*(d->pp.pp_flags & PP_FR) ||*/
+ (d->pp.pp_if.if_flags & PP_CISCO))
+ return EINVAL;
+ *(int*)data = (d->pp.pp_flags & PP_KEEPALIVE) ? 1 : 0;
+ return 0;
+
+ case SERIAL_SETKEEPALIVE:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ if (/*(d->pp.pp_flags & PP_FR) ||*/
+ (d->pp.pp_if.if_flags & PP_CISCO))
+ return EINVAL;
+ if (*(int*)data)
+ d->pp.pp_flags |= PP_KEEPALIVE;
+ else
+ d->pp.pp_flags &= ~PP_KEEPALIVE;
+ return 0;
+#endif /*NETGRAPH*/
+
+ case SERIAL_GETMODE:
+ *(int*)data = SERIAL_HDLC;
+ return 0;
+
+ case SERIAL_GETCFG:
+ if (c->mode == M_HDLC)
+ return EINVAL;
+ switch (ct_get_config (c->board)) {
+ default: *(char*)data = 'a'; break;
+ case CFG_B: *(char*)data = 'b'; break;
+ case CFG_C: *(char*)data = 'c'; break;
+ }
+ return 0;
+
+ case SERIAL_SETCFG:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ if (c->mode == M_HDLC)
+ return EINVAL;
+ s = splimp ();
+ switch (*(char*)data) {
+ case 'a': ct_set_config (c->board, CFG_A); break;
+ case 'b': ct_set_config (c->board, CFG_B); break;
+ case 'c': ct_set_config (c->board, CFG_C); break;
+ }
+ splx (s);
+ return 0;
+
+ case SERIAL_GETSTAT:
+ st = (struct serial_statistics*) data;
+ st->rintr = c->rintr;
+ st->tintr = c->tintr;
+ st->mintr = c->mintr;
+ st->ibytes = c->ibytes;
+ st->ipkts = c->ipkts;
+ st->ierrs = c->ierrs;
+ st->obytes = c->obytes;
+ st->opkts = c->opkts;
+ st->oerrs = c->oerrs;
+ return 0;
+
+ case SERIAL_GETESTAT:
+ opte1 = (struct e1_statistics*)data;
+ opte1->status = c->status;
+ opte1->cursec = c->cursec;
+ opte1->totsec = c->totsec + c->cursec;
+
+ opte1->currnt.bpv = c->currnt.bpv;
+ opte1->currnt.fse = c->currnt.fse;
+ opte1->currnt.crce = c->currnt.crce;
+ opte1->currnt.rcrce = c->currnt.rcrce;
+ opte1->currnt.uas = c->currnt.uas;
+ opte1->currnt.les = c->currnt.les;
+ opte1->currnt.es = c->currnt.es;
+ opte1->currnt.bes = c->currnt.bes;
+ opte1->currnt.ses = c->currnt.ses;
+ opte1->currnt.oofs = c->currnt.oofs;
+ opte1->currnt.css = c->currnt.css;
+ opte1->currnt.dm = c->currnt.dm;
+
+ opte1->total.bpv = c->total.bpv + c->currnt.bpv;
+ opte1->total.fse = c->total.fse + c->currnt.fse;
+ opte1->total.crce = c->total.crce + c->currnt.crce;
+ opte1->total.rcrce = c->total.rcrce + c->currnt.rcrce;
+ opte1->total.uas = c->total.uas + c->currnt.uas;
+ opte1->total.les = c->total.les + c->currnt.les;
+ opte1->total.es = c->total.es + c->currnt.es;
+ opte1->total.bes = c->total.bes + c->currnt.bes;
+ opte1->total.ses = c->total.ses + c->currnt.ses;
+ opte1->total.oofs = c->total.oofs + c->currnt.oofs;
+ opte1->total.css = c->total.css + c->currnt.css;
+ opte1->total.dm = c->total.dm + c->currnt.dm;
+ for (s=0; s<48; ++s) {
+ opte1->interval[s].bpv = c->interval[s].bpv;
+ opte1->interval[s].fse = c->interval[s].fse;
+ opte1->interval[s].crce = c->interval[s].crce;
+ opte1->interval[s].rcrce = c->interval[s].rcrce;
+ opte1->interval[s].uas = c->interval[s].uas;
+ opte1->interval[s].les = c->interval[s].les;
+ opte1->interval[s].es = c->interval[s].es;
+ opte1->interval[s].bes = c->interval[s].bes;
+ opte1->interval[s].ses = c->interval[s].ses;
+ opte1->interval[s].oofs = c->interval[s].oofs;
+ opte1->interval[s].css = c->interval[s].css;
+ opte1->interval[s].dm = c->interval[s].dm;
+ }
+ return 0;
+
+ case SERIAL_CLRSTAT:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ c->rintr = 0;
+ c->tintr = 0;
+ c->mintr = 0;
+ c->ibytes = 0;
+ c->ipkts = 0;
+ c->ierrs = 0;
+ c->obytes = 0;
+ c->opkts = 0;
+ c->oerrs = 0;
+ bzero (&c->currnt, sizeof (c->currnt));
+ bzero (&c->total, sizeof (c->total));
+ bzero (c->interval, sizeof (c->interval));
+ return 0;
+
+ case SERIAL_GETBAUD:
+ *(long*)data = ct_get_baud(c);
+ return 0;
+
+ case SERIAL_SETBAUD:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ s = splimp ();
+ ct_set_baud (c, *(long*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETLOOP:
+ *(int*)data = ct_get_loop (c);
+ return 0;
+
+ case SERIAL_SETLOOP:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ s = splimp ();
+ ct_set_loop (c, *(int*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETDPLL:
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ *(int*)data = ct_get_dpll (c);
+ return 0;
+
+ case SERIAL_SETDPLL:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ s = splimp ();
+ ct_set_dpll (c, *(int*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETNRZI:
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ *(int*)data = ct_get_nrzi (c);
+ return 0;
+
+ case SERIAL_SETNRZI:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ s = splimp ();
+ ct_set_nrzi (c, *(int*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETDEBUG:
+ *(int*)data = c->debug;
+ return 0;
+
+ case SERIAL_SETDEBUG:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ c->debug = *(int*)data;
+#ifndef NETGRAPH
+ if (d->chan->debug)
+ d->pp.pp_if.if_flags |= IFF_DEBUG;
+ else
+ d->pp.pp_if.if_flags &= (~IFF_DEBUG);
+#endif
+ return 0;
+
+ case SERIAL_GETHIGAIN:
+ if (c->mode != M_E1)
+ return EINVAL;
+ *(int*)data = ct_get_higain (c);
+ return 0;
+
+ case SERIAL_SETHIGAIN:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ s = splimp ();
+ ct_set_higain (c, *(int*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETPHONY:
+ CT_DEBUG2 (d, ("ioctl: getphony\n"));
+ if (c->mode != M_E1)
+ return EINVAL;
+ *(int*)data = c->gopt.phony;
+ return 0;
+
+ case SERIAL_SETPHONY:
+ CT_DEBUG2 (d, ("ioctl: setphony\n"));
+ if (c->mode != M_E1)
+ return EINVAL;
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ s = splimp ();
+ ct_set_phony (c, *(int*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETCLK:
+ if (c->mode != M_E1 && c->mode != M_G703)
+ return EINVAL;
+ switch (ct_get_clk(c)) {
+ default: *(int*)data = E1CLK_INTERNAL; break;
+ case GCLK_RCV: *(int*)data = E1CLK_RECEIVE; break;
+ case GCLK_RCLKO: *(int*)data = c->num ?
+ E1CLK_RECEIVE_CHAN0 : E1CLK_RECEIVE_CHAN1; break;
+ }
+ return 0;
+
+ case SERIAL_SETCLK:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ s = splimp ();
+ switch (*(int*)data) {
+ default: ct_set_clk (c, GCLK_INT); break;
+ case E1CLK_RECEIVE: ct_set_clk (c, GCLK_RCV); break;
+ case E1CLK_RECEIVE_CHAN0:
+ case E1CLK_RECEIVE_CHAN1:
+ ct_set_clk (c, GCLK_RCLKO); break;
+ }
+ splx (s);
+ return 0;
+
+ case SERIAL_GETTIMESLOTS:
+ if (c->mode != M_E1)
+ return EINVAL;
+ *(long*)data = ct_get_ts (c);
+ return 0;
+
+ case SERIAL_SETTIMESLOTS:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ s = splimp ();
+ ct_set_ts (c, *(long*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETSUBCHAN:
+ if (c->mode != M_E1)
+ return EINVAL;
+ *(long*)data = ct_get_subchan (c->board);
+ return 0;
+
+ case SERIAL_SETSUBCHAN:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ s = splimp ();
+ ct_set_subchan (c->board, *(long*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETINVCLK:
+ case SERIAL_GETINVTCLK:
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ *(int*)data = ct_get_invtxc (c);
+ return 0;
+
+ case SERIAL_GETINVRCLK:
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ *(int*)data = ct_get_invrxc (c);
+ return 0;
+
+ case SERIAL_SETINVCLK:
+ case SERIAL_SETINVTCLK:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ s = splimp ();
+ ct_set_invtxc (c, *(int*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_SETINVRCLK:
+ /* Only for superuser! */
+#if __FreeBSD_version < 400000
+ error = suser (p->p_ucred, &p->p_acflag);
+#elif __FreeBSD_version < 500000
+ error = suser (p);
+#else /* __FreeBSD_version >= 500000 */
+ error = suser (td);
+#endif /* __FreeBSD_version >= 500000 */
+ if (error)
+ return error;
+ if (c->mode == M_E1 || c->mode == M_G703)
+ return EINVAL;
+ s = splimp ();
+ ct_set_invrxc (c, *(int*)data);
+ splx (s);
+ return 0;
+
+ case SERIAL_GETLEVEL:
+ if (c->mode != M_G703)
+ return EINVAL;
+ s = splimp ();
+ *(int*)data = ct_get_lq (c);
+ splx (s);
+ return 0;
+
+ case TIOCSDTR: /* Set DTR */
+ s = splimp ();
+ ct_set_dtr (c, 1);
+ splx (s);
+ return 0;
+
+ case TIOCCDTR: /* Clear DTR */
+ s = splimp ();
+ ct_set_dtr (c, 0);
+ splx (s);
+ return 0;
+
+ case TIOCMSET: /* Set DTR/RTS */
+ s = splimp ();
+ ct_set_dtr (c, (*(int*)data & TIOCM_DTR) ? 1 : 0);
+ ct_set_rts (c, (*(int*)data & TIOCM_RTS) ? 1 : 0);
+ splx (s);
+ return 0;
+
+ case TIOCMBIS: /* Add DTR/RTS */
+ s = splimp ();
+ if (*(int*)data & TIOCM_DTR) ct_set_dtr (c, 1);
+ if (*(int*)data & TIOCM_RTS) ct_set_rts (c, 1);
+ splx (s);
+ return 0;
+
+ case TIOCMBIC: /* Clear DTR/RTS */
+ s = splimp ();
+ if (*(int*)data & TIOCM_DTR) ct_set_dtr (c, 0);
+ if (*(int*)data & TIOCM_RTS) ct_set_rts (c, 0);
+ splx (s);
+ return 0;
+
+ case TIOCMGET: /* Get modem status */
+ *(int*)data = ct_modem_status (c);
+ return 0;
+ }
+ return ENOTTY;
+}
+
+#if __FreeBSD_version < 400000
+struct isa_driver ctdriver = { ct_probe, ct_attach, "ct" };
+static struct cdevsw ct_cdevsw = {
+ ct_open, ct_close, noread, nowrite,
+ ct_ioctl, nostop, noreset, nodevtotty,
+ seltrue, nommap, NULL, "ct",
+ NULL, -1,
+};
+#elif __FreeBSD_version < 500000
+static struct cdevsw ct_cdevsw = {
+ ct_open, ct_close, noread, nowrite,
+ ct_ioctl, nopoll, nommap, nostrategy,
+ "ct", CDEV_MAJOR, nodump, nopsize,
+ D_NAGGED, -1
+};
+#elif __FreeBSD_version == 500000
+static struct cdevsw ct_cdevsw = {
+ ct_open, ct_close, noread, nowrite,
+ ct_ioctl, nopoll, nommap, nostrategy,
+ "ct", CDEV_MAJOR, nodump, nopsize,
+ D_NAGGED,
+ };
+#elif __FreeBSD_version <= 501000
+static struct cdevsw ct_cdevsw = {
+ .d_open = ct_open,
+ .d_close = ct_close,
+ .d_read = noread,
+ .d_write = nowrite,
+ .d_ioctl = ct_ioctl,
+ .d_poll = nopoll,
+ .d_mmap = nommap,
+ .d_strategy = nostrategy,
+ .d_name = "ct",
+ .d_maj = CDEV_MAJOR,
+ .d_dump = nodump,
+ .d_flags = D_NAGGED,
+};
+#else /* __FreeBSD_version > 501000 */
+static struct cdevsw ct_cdevsw = {
+ .d_version = D_VERSION,
+ .d_open = ct_open,
+ .d_close = ct_close,
+ .d_ioctl = ct_ioctl,
+ .d_name = "ct",
+ .d_maj = CDEV_MAJOR,
+ .d_flags = D_NAGGED | D_NEEDGIANT,
+};
+#endif /* __FreeBSD_version > 501000 */
+
+#ifdef NETGRAPH
+#if __FreeBSD_version >= 500000
+static int ng_ct_constructor (node_p node)
+{
+ drv_t *d = NG_NODE_PRIVATE (node);
+#else
+static int ng_ct_constructor (node_p *node)
+{
+ drv_t *d = (*node)->private;
+#endif
+ CT_DEBUG (d, ("Constructor\n"));
+ return EINVAL;
+}
+
+static int ng_ct_newhook (node_p node, hook_p hook, const char *name)
+{
+ int s;
+#if __FreeBSD_version >= 500000
+ drv_t *d = NG_NODE_PRIVATE (node);
+#else
+ drv_t *d = node->private;
+#endif
+
+ if (!d)
+ return EINVAL;
+
+ /* Attach debug hook */
+ if (strcmp (name, NG_CT_HOOK_DEBUG) == 0) {
+#if __FreeBSD_version >= 500000
+ NG_HOOK_SET_PRIVATE (hook, NULL);
+#else
+ hook->private = 0;
+#endif
+ d->debug_hook = hook;
+ return 0;
+ }
+
+ /* Check for raw hook */
+ if (strcmp (name, NG_CT_HOOK_RAW) != 0)
+ return EINVAL;
+
+#if __FreeBSD_version >= 500000
+ NG_HOOK_SET_PRIVATE (hook, d);
+#else
+ hook->private = d;
+#endif
+ d->hook = hook;
+ s = splimp ();
+ ct_up (d);
+ splx (s);
+ return 0;
+}
+
+static char *format_timeslots (u_long s)
+{
+ static char buf [100];
+ char *p = buf;
+ int i;
+
+ for (i=1; i<32; ++i)
+ if ((s >> i) & 1) {
+ int prev = (i > 1) & (s >> (i-1));
+ int next = (i < 31) & (s >> (i+1));
+
+ if (prev) {
+ if (next)
+ continue;
+ *p++ = '-';
+ } else if (p > buf)
+ *p++ = ',';
+
+ if (i >= 10)
+ *p++ = '0' + i / 10;
+ *p++ = '0' + i % 10;
+ }
+ *p = 0;
+ return buf;
+}
+
+static int print_modems (char *s, ct_chan_t *c, int need_header)
+{
+ int status = ct_modem_status (c);
+ int length = 0;
+
+ if (need_header)
+ length += sprintf (s + length, " LE DTR DSR RTS CTS CD\n");
+ length += sprintf (s + length, "%4s %4s %4s %4s %4s %4s\n",
+ status & TIOCM_LE ? "On" : "-",
+ status & TIOCM_DTR ? "On" : "-",
+ status & TIOCM_DSR ? "On" : "-",
+ status & TIOCM_RTS ? "On" : "-",
+ status & TIOCM_CTS ? "On" : "-",
+ status & TIOCM_CD ? "On" : "-");
+ return length;
+}
+
+static int print_stats (char *s, ct_chan_t *c, int need_header)
+{
+ struct serial_statistics st;
+ int length = 0;
+
+ st.rintr = c->rintr;
+ st.tintr = c->tintr;
+ st.mintr = c->mintr;
+ st.ibytes = c->ibytes;
+ st.ipkts = c->ipkts;
+ st.ierrs = c->ierrs;
+ st.obytes = c->obytes;
+ st.opkts = c->opkts;
+ st.oerrs = c->oerrs;
+ if (need_header)
+ length += sprintf (s + length, " Rintr Tintr Mintr Ibytes Ipkts Ierrs Obytes Opkts Oerrs\n");
+ length += sprintf (s + length, "%7ld %7ld %7ld %8ld %7ld %7ld %8ld %7ld %7ld\n",
+ st.rintr, st.tintr, st.mintr, st.ibytes, st.ipkts,
+ st.ierrs, st.obytes, st.opkts, st.oerrs);
+ return length;
+}
+
+static char *format_e1_status (u_char status)
+{
+ static char buf [80];
+
+ if (status & E1_NOALARM)
+ return "Ok";
+ buf[0] = 0;
+ if (status & E1_LOS) strcat (buf, ",LOS");
+ if (status & E1_AIS) strcat (buf, ",AIS");
+ if (status & E1_LOF) strcat (buf, ",LOF");
+ if (status & E1_LOMF) strcat (buf, ",LOMF");
+ if (status & E1_FARLOF) strcat (buf, ",FARLOF");
+ if (status & E1_AIS16) strcat (buf, ",AIS16");
+ if (status & E1_FARLOMF) strcat (buf, ",FARLOMF");
+ if (status & E1_TSTREQ) strcat (buf, ",TSTREQ");
+ if (status & E1_TSTERR) strcat (buf, ",TSTERR");
+ if (buf[0] == ',')
+ return buf+1;
+ return "Unknown";
+}
+
+static int print_frac (char *s, int leftalign, u_long numerator, u_long divider)
+{
+ int n, length = 0;
+
+ if (numerator < 1 || divider < 1) {
+ length += sprintf (s+length, leftalign ? "/- " : " -");
+ return length;
+ }
+ n = (int) (0.5 + 1000.0 * numerator / divider);
+ if (n < 1000) {
+ length += sprintf (s+length, leftalign ? "/.%-3d" : " .%03d", n);
+ return length;
+ }
+ *(s + length) = leftalign ? '/' : ' ';
+ length ++;
+
+ if (n >= 1000000) n = (n+500) / 1000 * 1000;
+ else if (n >= 100000) n = (n+50) / 100 * 100;
+ else if (n >= 10000) n = (n+5) / 10 * 10;
+
+ switch (n) {
+ case 1000: length += printf (s+length, ".999"); return length;
+ case 10000: n = 9990; break;
+ case 100000: n = 99900; break;
+ case 1000000: n = 999000; break;
+ }
+ if (n < 10000) length += sprintf (s+length, "%d.%d", n/1000, n/10%100);
+ else if (n < 100000) length += sprintf (s+length, "%d.%d", n/1000, n/100%10);
+ else if (n < 1000000) length += sprintf (s+length, "%d.", n/1000);
+ else length += sprintf (s+length, "%d", n/1000);
+
+ return length;
+}
+
+static int print_e1_stats (char *s, ct_chan_t *c)
+{
+ struct e1_counters total;
+ u_long totsec;
+ int length = 0;
+
+ totsec = c->totsec + c->cursec;
+ total.bpv = c->total.bpv + c->currnt.bpv;
+ total.fse = c->total.fse + c->currnt.fse;
+ total.crce = c->total.crce + c->currnt.crce;
+ total.rcrce = c->total.rcrce + c->currnt.rcrce;
+ total.uas = c->total.uas + c->currnt.uas;
+ total.les = c->total.les + c->currnt.les;
+ total.es = c->total.es + c->currnt.es;
+ total.bes = c->total.bes + c->currnt.bes;
+ total.ses = c->total.ses + c->currnt.ses;
+ total.oofs = c->total.oofs + c->currnt.oofs;
+ total.css = c->total.css + c->currnt.css;
+ total.dm = c->total.dm + c->currnt.dm;
+
+ length += sprintf (s + length, " Unav/Degr Bpv/Fsyn CRC/RCRC Err/Lerr Sev/Bur Oof/Slp Status\n");
+
+ /* Unavailable seconds, degraded minutes */
+ length += print_frac (s + length, 0, c->currnt.uas, c->cursec);
+ length += print_frac (s + length, 1, 60 * c->currnt.dm, c->cursec);
+
+ /* Bipolar violations, frame sync errors */
+ length += print_frac (s + length, 0, c->currnt.bpv, c->cursec);
+ length += print_frac (s + length, 1, c->currnt.fse, c->cursec);
+
+ /* CRC errors, remote CRC errors (E-bit) */
+ length += print_frac (s + length, 0, c->currnt.crce, c->cursec);
+ length += print_frac (s + length, 1, c->currnt.rcrce, c->cursec);
+
+ /* Errored seconds, line errored seconds */
+ length += print_frac (s + length, 0, c->currnt.es, c->cursec);
+ length += print_frac (s + length, 1, c->currnt.les, c->cursec);
+
+ /* Severely errored seconds, burst errored seconds */
+ length += print_frac (s + length, 0, c->currnt.ses, c->cursec);
+ length += print_frac (s + length, 1, c->currnt.bes, c->cursec);
+
+ /* Out of frame seconds, controlled slip seconds */
+ length += print_frac (s + length, 0, c->currnt.oofs, c->cursec);
+ length += print_frac (s + length, 1, c->currnt.css, c->cursec);
+
+ length += sprintf (s + length, " %s\n", format_e1_status (c->status));
+
+ /* Print total statistics. */
+ length += print_frac (s + length, 0, total.uas, totsec);
+ length += print_frac (s + length, 1, 60 * total.dm, totsec);
+
+ length += print_frac (s + length, 0, total.bpv, totsec);
+ length += print_frac (s + length, 1, total.fse, totsec);
+
+ length += print_frac (s + length, 0, total.crce, totsec);
+ length += print_frac (s + length, 1, total.rcrce, totsec);
+
+ length += print_frac (s + length, 0, total.es, totsec);
+ length += print_frac (s + length, 1, total.les, totsec);
+
+ length += print_frac (s + length, 0, total.ses, totsec);
+ length += print_frac (s + length, 1, total.bes, totsec);
+
+ length += print_frac (s + length, 0, total.oofs, totsec);
+ length += print_frac (s + length, 1, total.css, totsec);
+
+ length += sprintf (s + length, " -- Total\n");
+ return length;
+}
+
+static int print_chan (char *s, ct_chan_t *c)
+{
+ drv_t *d = c->sys;
+ int length = 0;
+
+ length += sprintf (s + length, "ct%d", c->board->num * NCHAN + c->num);
+ if (d->chan->debug)
+ length += sprintf (s + length, " debug=%d", d->chan->debug);
+
+ switch (ct_get_config (c->board)) {
+ case CFG_A: length += sprintf (s + length, " cfg=A"); break;
+ case CFG_B: length += sprintf (s + length, " cfg=B"); break;
+ case CFG_C: length += sprintf (s + length, " cfg=C"); break;
+ default: length += sprintf (s + length, " cfg=unknown"); break;
+ }
+
+ if (ct_get_baud (c))
+ length += sprintf (s + length, " %ld", ct_get_baud (c));
+ else
+ length += sprintf (s + length, " extclock");
+
+ if (c->mode == M_E1 || c->mode == M_G703)
+ switch (ct_get_clk(c)) {
+ case GCLK_INT : length += sprintf (s + length, " syn=int"); break;
+ case GCLK_RCV : length += sprintf (s + length, " syn=rcv"); break;
+ case GCLK_RCLKO : length += sprintf (s + length, " syn=xrcv"); break;
+ }
+ if (c->mode == M_HDLC) {
+ length += sprintf (s + length, " dpll=%s", ct_get_dpll (c) ? "on" : "off");
+ length += sprintf (s + length, " nrzi=%s", ct_get_nrzi (c) ? "on" : "off");
+ length += sprintf (s + length, " invtclk=%s", ct_get_invtxc (c) ? "on" : "off");
+ length += sprintf (s + length, " invrclk=%s", ct_get_invrxc (c) ? "on" : "off");
+ }
+ if (c->mode == M_E1)
+ length += sprintf (s + length, " higain=%s", ct_get_higain (c)? "on" : "off");
+
+ length += sprintf (s + length, " loop=%s", ct_get_loop (c) ? "on" : "off");
+
+ if (c->mode == M_E1)
+ length += sprintf (s + length, " ts=%s", format_timeslots (ct_get_ts(c)));
+ if (c->mode == M_E1 && ct_get_config (c->board) != CFG_A)
+ length += sprintf (s + length, " pass=%s", format_timeslots (ct_get_subchan(c->board)));
+ if (c->mode == M_G703) {
+ int lq, x;
+
+ x = splimp ();
+ lq = ct_get_lq (c);
+ splx (x);
+ length += sprintf (s + length, " (level=-%.1fdB)", lq / 10.0);
+ }
+ length += sprintf (s + length, "\n");
+ return length;
+}
+
+#if __FreeBSD_version >= 500000
+static int ng_ct_rcvmsg (node_p node, item_p item, hook_p lasthook)
+{
+ drv_t *d = NG_NODE_PRIVATE (node);
+ struct ng_mesg *msg;
+#else
+static int ng_ct_rcvmsg (node_p node, struct ng_mesg *msg,
+ const char *retaddr, struct ng_mesg **rptr)
+{
+ drv_t *d = node->private;
+#endif
+ struct ng_mesg *resp = NULL;
+ int error = 0;
+
+ if (!d)
+ return EINVAL;
+
+ CT_DEBUG (d, ("Rcvmsg\n"));
+#if __FreeBSD_version >= 500000
+ NGI_GET_MSG (item, msg);
+#endif
+ switch (msg->header.typecookie) {
+ default:
+ error = EINVAL;
+ break;
+
+ case NGM_CT_COOKIE:
+ printf ("Don't forget to implement\n");
+ error = EINVAL;
+ break;
+
+ case NGM_GENERIC_COOKIE:
+ switch (msg->header.cmd) {
+ default:
+ error = EINVAL;
+ break;
+
+ case NGM_TEXT_STATUS: {
+ char *s;
+ int l = 0;
+ int dl = sizeof (struct ng_mesg) + 730;
+
+#if __FreeBSD_version >= 500000
+ NG_MKRESPONSE (resp, msg, dl, M_NOWAIT);
+ if (! resp) {
+ error = ENOMEM;
+ break;
+ }
+#else
+ MALLOC (resp, struct ng_mesg *, dl,
+ M_NETGRAPH, M_NOWAIT);
+ if (! resp) {
+ error = ENOMEM;
+ break;
+ }
+ bzero (resp, dl);
+#endif
+ s = (resp)->data;
+ l += print_chan (s + l, d->chan);
+ l += print_stats (s + l, d->chan, 1);
+ l += print_modems (s + l, d->chan, 1);
+ l += print_e1_stats (s + l, d->chan);
+#if __FreeBSD_version < 500000
+ (resp)->header.version = NG_VERSION;
+ (resp)->header.arglen = strlen (s) + 1;
+ (resp)->header.token = msg->header.token;
+ (resp)->header.typecookie = NGM_CT_COOKIE;
+ (resp)->header.cmd = msg->header.cmd;
+#endif
+ strncpy ((resp)->header.cmdstr, "status", NG_CMDSTRLEN);
+ }
+ break;
+ }
+ break;
+ }
+#if __FreeBSD_version >= 500000
+ NG_RESPOND_MSG (error, node, item, resp);
+ NG_FREE_MSG (msg);
+#else
+ *rptr = resp;
+ FREE (msg, M_NETGRAPH);
+#endif
+ return error;
+}
+
+#if __FreeBSD_version >= 500000
+static int ng_ct_rcvdata (hook_p hook, item_p item)
+{
+ drv_t *d = NG_NODE_PRIVATE (NG_HOOK_NODE(hook));
+ struct mbuf *m;
+ meta_p meta;
+#else
+static int ng_ct_rcvdata (hook_p hook, struct mbuf *m, meta_p meta)
+{
+ drv_t *d = hook->node->private;
+#endif
+ struct ifqueue *q;
+ int s;
+
+ if (!d)
+ return ENETDOWN;
+
+#if __FreeBSD_version >= 500000
+ NGI_GET_M (item, m);
+ NGI_GET_META (item, meta);
+ NG_FREE_ITEM (item);
+ if (! NG_HOOK_PRIVATE (hook) || ! d) {
+ NG_FREE_M (m);
+ NG_FREE_META (meta);
+#else
+ if (! hook->private || ! d) {
+ NG_FREE_DATA (m,meta);
+#endif
+ return ENETDOWN;
+ }
+ q = (meta && meta->priority > 0) ? &d->hi_queue : &d->queue;
+ s = splimp ();
+#if __FreeBSD_version >= 500000
+ IF_LOCK (q);
+ if (_IF_QFULL (q)) {
+ _IF_DROP (q);
+ IF_UNLOCK (q);
+ splx (s);
+ NG_FREE_M (m);
+ NG_FREE_META (meta);
+ return ENOBUFS;
+ }
+ _IF_ENQUEUE (q, m);
+ IF_UNLOCK (q);
+#else
+ if (IF_QFULL (q)) {
+ IF_DROP (q);
+ splx (s);
+ NG_FREE_DATA (m, meta);
+ return ENOBUFS;
+ }
+ IF_ENQUEUE (q, m);
+#endif
+ ct_start (d);
+ splx (s);
+ return 0;
+}
+
+static int ng_ct_rmnode (node_p node)
+{
+#if __FreeBSD_version >= 500000
+ drv_t *d = NG_NODE_PRIVATE (node);
+
+ CT_DEBUG (d, ("Rmnode\n"));
+ if (d && d->running) {
+ int s = splimp ();
+ ct_down (d);
+ splx (s);
+ }
+#ifdef KLD_MODULE
+ if (node->nd_flags & NG_REALLY_DIE) {
+ NG_NODE_SET_PRIVATE (node, NULL);
+ NG_NODE_UNREF (node);
+ }
+ node->nd_flags &= ~NG_INVALID;
+#endif
+#else /* __FreeBSD_version < 500000 */
+ drv_t *d = node->private;
+ int s;
+
+ if (!d)
+ return 0;
+
+ s = splimp ();
+ ct_down (d);
+ splx (s);
+ node->flags |= NG_INVALID;
+ ng_cutlinks (node);
+#ifdef KLD_MODULE
+ ng_unname (node);
+ ng_unref (node);
+#else
+ node->flags &= ~NG_INVALID;
+#endif
+#endif
+ return 0;
+}
+
+static void ng_ct_watchdog (void *arg)
+{
+ drv_t *d = arg;
+
+ if (!d)
+ return;
+
+ if (d->timeout == 1)
+ ct_watchdog (d);
+ if (d->timeout)
+ d->timeout--;
+ d->timeout_handle = timeout (ng_ct_watchdog, d, hz);
+}
+
+static int ng_ct_connect (hook_p hook)
+{
+#if __FreeBSD_version >= 500000
+ drv_t *d = NG_NODE_PRIVATE (NG_HOOK_NODE (hook));
+#else
+ drv_t *d = hook->node->private;
+#endif
+
+ if (!d)
+ return 0;
+
+ d->timeout_handle = timeout (ng_ct_watchdog, d, hz);
+ return 0;
+}
+
+static int ng_ct_disconnect (hook_p hook)
+{
+#if __FreeBSD_version >= 500000
+ drv_t *d = NG_NODE_PRIVATE (NG_HOOK_NODE (hook));
+#else
+ drv_t *d = hook->node->private;
+#endif
+
+ if (!d)
+ return 0;
+
+#if __FreeBSD_version >= 500000
+ if (NG_HOOK_PRIVATE (hook))
+#else
+ if (hook->private)
+#endif
+ ct_down (d);
+ untimeout (ng_ct_watchdog, d, d->timeout_handle);
+ return 0;
+}
+#endif
+
+#ifdef KLD_MODULE
+#if __FreeBSD_version < 400000
+/*
+ * Function called when loading the driver.
+ */
+static int ct_load (void)
+{
+ int i;
+
+ for (i=0;i<NCT; ++i) {
+ struct isa_device id = {-1, &ctdriver, -1, 0, -1, 0, 0, (inthand2_t *)ct_intr, i, 0, 0, 0, 0 ,0 ,1 ,0 ,0};
+ disable_intr();
+ if (!ct_probe (&id)) {
+ enable_intr();
+ break;
+ }
+ ct_attach (&id);
+ register_intr ((adapter [i])->irq, 0, 0, (inthand2_t*) ct_intr,
+ &net_imask, id.id_unit);
+ enable_intr();
+ }
+ if (!i) {
+ /* Deactivate the timeout routine. */
+ untimeout (ct_timeout, 0, timeout_handle);
+
+ return ENXIO;
+ }
+ return 0;
+}
+
+/*
+ * Function called when unloading the driver.
+ */
+static int ct_unload (void)
+{
+ int i, s;
+
+ /* Check if the device is busy (open). */
+ for (i=0; i<NCT*NCHAN; ++i) {
+ drv_t *d = channel[i];
+
+ if (!d)
+ continue;
+ if (d->running)
+ return EBUSY;
+ }
+
+ /* OK to unload the driver, unregister the interrupt first. */
+ s = splimp ();
+
+ /* Deactivate the timeout routine. */
+ for (i=0; i<NCT; ++i) {
+ if (!adapter [i])
+ continue;
+ untimeout (ct_timeout, 0, timeout_handle);
+ break;
+ }
+
+ for (i=0; i<NCT; ++i) {
+ ct_board_t *b = adapter [i];
+
+ if (!b || ! b->port)
+ continue;
+
+ ct_close_board (b);
+ }
+
+ for (i=0; i<NCT; ++i) {
+ ct_board_t *b = adapter [i];
+
+ if (!b || ! b->port)
+ continue;
+
+ if (led_timo[i].callout)
+ untimeout (ct_led_off, b, led_timo[i]);
+ }
+
+ for (i=0; i<NCT; ++i) {
+ ct_board_t *b = adapter [i];
+
+ if (!b || ! b->port)
+ continue;
+
+ /* Disable the interrupt request. */
+ disable_intr();
+ unregister_intr (b->irq, (inthand2_t *)ct_intr);
+ isa_dma_release (b->dma);
+ enable_intr();
+ }
+
+ /* Detach the interfaces, free buffer memory. */
+ for (i=0; i<NCT*NCHAN; ++i) {
+ drv_t *d = channel[i];
+
+ if (!d)
+ continue;
+
+#ifndef NETGRAPH
+#if NBPFILTER > 0
+ /* Detach from the packet filter list of interfaces. */
+ {
+ struct bpf_if *q, **b = &bpf_iflist;
+
+ while ((q = *b)) {
+ if (q->bif_ifp == d->pp.pp_if) {
+ *b = q->bif_next;
+ free (q, M_DEVBUF);
+ }
+ b = &(q->bif_next);
+ }
+ }
+#endif /* NBPFILTER > 0 */
+ /* Detach from the sync PPP list. */
+ sppp_detach (&d->pp.pp_if);
+
+ /* Detach from the system list of interfaces. */
+ {
+ struct ifaddr *ifa;
+ TAILQ_FOREACH (ifa, &d->pp.pp_if.if_addrhead, ifa_link) {
+ TAILQ_REMOVE (&d->pp.pp_if.if_addrhead, ifa, ifa_link);
+ free (ifa, M_IFADDR);
+ }
+ TAILQ_REMOVE (&ifnet, &d->pp.pp_if, if_link);
+ }
+#endif /* !NETGRAPH */
+ /* Deallocate buffers. */
+/* free (d, M_DEVBUF);*/
+ }
+ for (i=0; i<NCT; ++i) {
+ ct_board_t *b = adapter [i];
+ if (!b)
+ continue;
+ adapter [i] = 0;
+ free (b, M_DEVBUF);
+ }
+ splx(s);
+
+ return 0;
+}
+
+#define devsw(a) cdevsw[major((a))]
+#endif /* __FreeBSD_version < 400000 */
+#endif /* KLD_MODULE */
+
+#if __FreeBSD_version < 400000
+#ifdef KLD_MODULE
+static int ct_modevent (module_t mod, int type, void *unused)
+{
+ dev_t dev;
+ int result;
+ static int load_count = 0;
+
+ dev = makedev (CDEV_MAJOR, 0);
+ switch (type) {
+ case MOD_LOAD:
+ if (devsw(dev))
+ return (ENXIO);
+ load_count ++;
+ cdevsw_add (&dev, &ct_cdevsw, NULL);
+ timeout_handle = timeout (ct_timeout, 0, hz*5);
+ result = ct_load ();
+ return result;
+ case MOD_UNLOAD:
+ result = ct_unload ();
+ if (result)
+ return result;
+ if (devsw(dev)&&!(load_count-1)) {
+ cdevsw_add (&dev, NULL, NULL);
+ }
+ load_count --;
+ return result;
+ case MOD_SHUTDOWN:
+ break;
+ }
+ return 0;
+}
+#endif /* KLD_MODULE */
+#else /* __FreeBSD_version >= 400000 */
+static int ct_modevent (module_t mod, int type, void *unused)
+{
+ dev_t dev;
+ static int load_count = 0;
+ struct cdevsw *cdsw;
+
+ dev = udev2dev (makeudev(CDEV_MAJOR, 0));
+ switch (type) {
+ case MOD_LOAD:
+ if ((cdsw = devsw (dev)) && cdsw->d_maj == CDEV_MAJOR) {
+ printf ("Tau-ISA driver is already in system\n");
+ return (ENXIO);
+ }
+#if __FreeBSD_version >= 500000 && defined NETGRAPH
+ if (ng_newtype (&typestruct))
+ printf ("Failed to register ng_ct\n");
+#endif
+ ++load_count;
+#if __FreeBSD_version <= 500000
+ cdevsw_add (&ct_cdevsw);
+#endif
+ timeout_handle = timeout (ct_timeout, 0, hz*5);
+ break;
+ case MOD_UNLOAD:
+ if (load_count == 1) {
+ printf ("Removing device entry for Tau-ISA\n");
+#if __FreeBSD_version <= 500000
+ cdevsw_remove (&ct_cdevsw);
+#endif
+#if __FreeBSD_version >= 500000 && defined NETGRAPH
+ ng_rmtype (&typestruct);
+#endif
+ }
+ if (timeout_handle.callout)
+ untimeout (ct_timeout, 0, timeout_handle);
+ --load_count;
+ break;
+ case MOD_SHUTDOWN:
+ break;
+ }
+ return 0;
+}
+#endif /* __FreeBSD_version >= 400000 */
+
+#ifdef NETGRAPH
+static struct ng_type typestruct = {
+#if __FreeBSD_version >= 500000
+ NG_ABI_VERSION,
+#else
+ NG_VERSION,
+#endif
+ NG_CT_NODE_TYPE,
+#if __FreeBSD_version < 500000 && (defined KLD_MODULE)
+ ct_modevent,
+#else
+ NULL,
+#endif
+ ng_ct_constructor,
+ ng_ct_rcvmsg,
+ ng_ct_rmnode,
+ ng_ct_newhook,
+ NULL,
+ ng_ct_connect,
+ ng_ct_rcvdata,
+#if __FreeBSD_version < 500000
+ NULL,
+#endif
+ ng_ct_disconnect
+};
+
+#if __FreeBSD_version < 400000
+NETGRAPH_INIT_ORDERED (ct, &typestruct, SI_SUB_DRIVERS,\
+ SI_ORDER_MIDDLE + CDEV_MAJOR);
+#endif
+#endif /*NETGRAPH*/
+
+#if __FreeBSD_version >= 500000
+#ifdef NETGRAPH
+MODULE_DEPEND (ng_ct, netgraph, NG_ABI_VERSION, NG_ABI_VERSION, NG_ABI_VERSION);
+#else
+MODULE_DEPEND (ct, sppp, 1, 1, 1);
+#endif
+#ifdef KLD_MODULE
+DRIVER_MODULE (ctmod, isa, ct_isa_driver, ct_devclass, ct_modevent, NULL);
+#else
+DRIVER_MODULE (ct, isa, ct_isa_driver, ct_devclass, ct_modevent, NULL);
+#endif
+#elif __FreeBSD_version >= 400000
+#ifdef NETGRAPH
+DRIVER_MODULE(ct, isa, ct_isa_driver, ct_devclass, ng_mod_event, &typestruct);
+#else
+DRIVER_MODULE(ct, isa, ct_isa_driver, ct_devclass, ct_modevent, 0);
+#endif
+#else /* __FreeBSD_version < 400000 */
+#ifdef KLD_MODULE
+#ifndef NETGRAPH
+static moduledata_t ctmod = { "ct", ct_modevent, };
+DECLARE_MODULE (ct, ctmod, SI_SUB_DRIVERS, SI_ORDER_MIDDLE + CDEV_MAJOR);
+#endif /* !NETGRAPH */
+#else /* KLD_MODULE */
+
+/*
+ * Now for some driver initialisation.
+ * Occurs ONCE during boot (very early).
+ * This is if we are NOT a loadable module.
+ */
+static void ct_drvinit (void *unused)
+{
+ dev_t dev;
+
+ dev = makedev (CDEV_MAJOR, 0);
+ cdevsw_add (&dev, &ct_cdevsw, NULL);
+
+ /* Activate the timeout routine. */
+ timeout_handle = timeout (ct_timeout, 0, hz);
+#ifdef NETGRAPH
+#if 0
+ /* Register our node type in netgraph */
+ if (ng_newtype (&typestruct))
+ printf ("Failed to register ng_ct\n");
+#endif
+#endif
+}
+
+SYSINIT (ctdev, SI_SUB_DRIVERS, SI_ORDER_MIDDLE+CDEV_MAJOR, ct_drvinit, 0)
+#endif /* KLD_MODULE */
+#endif /* __FreeBSD_version < 400000 */
+#endif /* NCT */