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