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