irframe_tty.c revision 1.44.6.2
1 /* $NetBSD: irframe_tty.c,v 1.44.6.2 2007/11/21 21:55:01 joerg Exp $ */ 2 3 /* 4 * TODO 5 * Test dongle code. 6 */ 7 8 /* 9 * Copyright (c) 2001 The NetBSD Foundation, Inc. 10 * All rights reserved. 11 * 12 * This code is derived from software contributed to The NetBSD Foundation 13 * by Lennart Augustsson (lennart (at) augustsson.net) and Tommy Bohlin 14 * (tommy (at) gatespace.com). 15 * 16 * Redistribution and use in source and binary forms, with or without 17 * modification, are permitted provided that the following conditions 18 * are met: 19 * 1. Redistributions of source code must retain the above copyright 20 * notice, this list of conditions and the following disclaimer. 21 * 2. Redistributions in binary form must reproduce the above copyright 22 * notice, this list of conditions and the following disclaimer in the 23 * documentation and/or other materials provided with the distribution. 24 * 3. All advertising materials mentioning features or use of this software 25 * must display the following acknowledgement: 26 * This product includes software developed by the NetBSD 27 * Foundation, Inc. and its contributors. 28 * 4. Neither the name of The NetBSD Foundation nor the names of its 29 * contributors may be used to endorse or promote products derived 30 * from this software without specific prior written permission. 31 * 32 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 33 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 34 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 35 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 36 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 37 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 38 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 39 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 40 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 41 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 42 * POSSIBILITY OF SUCH DAMAGE. 43 */ 44 45 /* 46 * Loosely based on ppp_tty.c. 47 * Framing and dongle handling written by Tommy Bohlin. 48 */ 49 50 #include <sys/cdefs.h> 51 __KERNEL_RCSID(0, "$NetBSD: irframe_tty.c,v 1.44.6.2 2007/11/21 21:55:01 joerg Exp $"); 52 53 #include <sys/param.h> 54 #include <sys/proc.h> 55 #include <sys/ioctl.h> 56 #include <sys/tty.h> 57 #include <sys/kernel.h> 58 #include <sys/lock.h> 59 #include <sys/malloc.h> 60 #include <sys/conf.h> 61 #include <sys/systm.h> 62 #include <sys/device.h> 63 #include <sys/file.h> 64 #include <sys/vnode.h> 65 #include <sys/poll.h> 66 #include <sys/kauth.h> 67 68 #include <dev/ir/ir.h> 69 #include <dev/ir/sir.h> 70 #include <dev/ir/irdaio.h> 71 #include <dev/ir/irframevar.h> 72 73 #ifdef IRFRAMET_DEBUG 74 #define DPRINTF(x) if (irframetdebug) printf x 75 int irframetdebug = 0; 76 #else 77 #define DPRINTF(x) 78 #endif 79 80 /*****/ 81 82 /* Max size with framing. */ 83 #define MAX_IRDA_FRAME (2*IRDA_MAX_FRAME_SIZE + IRDA_MAX_EBOFS + 4) 84 85 struct irt_frame { 86 u_char *buf; 87 u_int len; 88 }; 89 #define MAXFRAMES 8 90 91 struct irframet_softc { 92 struct irframe_softc sc_irp; 93 struct tty *sc_tp; 94 95 int sc_dongle; 96 int sc_dongle_private; 97 98 int sc_state; 99 #define IRT_RSLP 0x01 /* waiting for data (read) */ 100 #if 0 101 #define IRT_WSLP 0x02 /* waiting for data (write) */ 102 #define IRT_CLOSING 0x04 /* waiting for output to drain */ 103 #endif 104 struct lock sc_wr_lk; 105 106 struct irda_params sc_params; 107 108 u_char* sc_inbuf; 109 int sc_framestate; 110 #define FRAME_OUTSIDE 0 111 #define FRAME_INSIDE 1 112 #define FRAME_ESCAPE 2 113 int sc_inchars; 114 int sc_inFCS; 115 struct callout sc_timeout; 116 117 u_int sc_nframes; 118 u_int sc_framei; 119 u_int sc_frameo; 120 struct irt_frame sc_frames[MAXFRAMES]; 121 u_int8_t sc_buffer[MAX_IRDA_FRAME]; 122 struct selinfo sc_rsel; 123 /* XXXJRT Nothing selnotify's sc_wsel */ 124 struct selinfo sc_wsel; 125 }; 126 127 /* line discipline methods */ 128 int irframetopen(dev_t, struct tty *); 129 int irframetclose(struct tty *, int); 130 int irframetioctl(struct tty *, u_long, void *, int, struct lwp *); 131 int irframetinput(int, struct tty *); 132 int irframetstart(struct tty *); 133 134 /* pseudo device init */ 135 void irframettyattach(int); 136 137 /* irframe methods */ 138 static int irframet_open(void *, int, int, struct lwp *); 139 static int irframet_close(void *, int, int, struct lwp *); 140 static int irframet_read(void *, struct uio *, int); 141 static int irframet_write(void *, struct uio *, int); 142 static int irframet_poll(void *, int, struct lwp *); 143 static int irframet_kqfilter(void *, struct knote *); 144 145 static int irframet_set_params(void *, struct irda_params *); 146 static int irframet_get_speeds(void *, int *); 147 static int irframet_get_turnarounds(void *, int *); 148 149 /* internal */ 150 static int irt_write_frame(struct tty *, u_int8_t *, size_t); 151 static int irt_putc(struct tty *, int); 152 static void irt_frame(struct irframet_softc *, u_char *, u_int); 153 static void irt_timeout(void *); 154 static void irt_ioctl(struct tty *, u_long, void *); 155 static void irt_setspeed(struct tty *, u_int); 156 static void irt_setline(struct tty *, u_int); 157 static void irt_delay(struct tty *, u_int); 158 159 static const struct irframe_methods irframet_methods = { 160 irframet_open, irframet_close, irframet_read, irframet_write, 161 irframet_poll, irframet_kqfilter, irframet_set_params, 162 irframet_get_speeds, irframet_get_turnarounds 163 }; 164 165 static void irts_none(struct tty *, u_int); 166 static void irts_tekram(struct tty *, u_int); 167 static void irts_jeteye(struct tty *, u_int); 168 static void irts_actisys(struct tty *, u_int); 169 static void irts_litelink(struct tty *, u_int); 170 static void irts_girbil(struct tty *, u_int); 171 172 #define NORMAL_SPEEDS (IRDA_SPEEDS_SIR & ~IRDA_SPEED_2400) 173 #define TURNT_POS (IRDA_TURNT_10000 | IRDA_TURNT_5000 | IRDA_TURNT_1000 | \ 174 IRDA_TURNT_500 | IRDA_TURNT_100 | IRDA_TURNT_50 | IRDA_TURNT_10) 175 static const struct dongle { 176 void (*setspeed)(struct tty *, u_int); 177 u_int speedmask; 178 u_int turnmask; 179 } irt_dongles[DONGLE_MAX] = { 180 /* Indexed by dongle number from irdaio.h */ 181 { irts_none, IRDA_SPEEDS_SIR, IRDA_TURNT_10000 }, 182 { irts_tekram, IRDA_SPEEDS_SIR, IRDA_TURNT_10000 }, 183 { irts_jeteye, IRDA_SPEED_9600|IRDA_SPEED_19200|IRDA_SPEED_115200, 184 IRDA_TURNT_10000 }, 185 { irts_actisys, NORMAL_SPEEDS & ~IRDA_SPEED_38400, TURNT_POS }, 186 { irts_actisys, NORMAL_SPEEDS, TURNT_POS }, 187 { irts_litelink, NORMAL_SPEEDS, TURNT_POS }, 188 { irts_girbil, IRDA_SPEEDS_SIR, IRDA_TURNT_10000 | IRDA_TURNT_5000 }, 189 }; 190 191 static struct linesw irframet_disc = { 192 .l_name = "irframe", 193 .l_open = irframetopen, 194 .l_close = irframetclose, 195 .l_read = ttyerrio, 196 .l_write = ttyerrio, 197 .l_ioctl = irframetioctl, 198 .l_rint = irframetinput, 199 .l_start = irframetstart, 200 .l_modem = ttymodem, 201 .l_poll = ttyerrpoll 202 }; 203 204 /* glue to attach irframe device */ 205 static void irframet_attach(struct device *, struct device *, void *); 206 static int irframet_detach(struct device *, int); 207 208 CFATTACH_DECL(irframet, sizeof(struct irframet_softc), 209 NULL, irframet_attach, irframet_detach, NULL); 210 211 void 212 irframettyattach(int n) 213 { 214 extern struct cfdriver irframe_cd; 215 216 (void) ttyldisc_attach(&irframet_disc); 217 218 /* XXX might fail if "real" attachments have pulled this in */ 219 /* XXX should not be done here */ 220 config_cfdriver_attach(&irframe_cd); 221 222 config_cfattach_attach("irframe", &irframet_ca); 223 } 224 225 static void 226 irframet_attach(struct device *parent, struct device *self, void *aux) 227 { 228 229 /* pseudo-device attachment does not print name */ 230 printf("%s", self->dv_xname); 231 #if 0 /* XXX can't do it yet because pseudo-devices don't get aux */ 232 struct ir_attach_args ia; 233 234 ia.ia_methods = &irframet_methods; 235 ia.ia_handle = aux->xxx; 236 237 irframe_attach(parent, self, &ia); 238 #endif 239 } 240 241 static int 242 irframet_detach(struct device *dev, int flags) 243 { 244 245 return (irframe_detach(dev, flags)); 246 } 247 248 /* 249 * Line specific open routine for async tty devices. 250 * Attach the given tty to the first available irframe unit. 251 * Called from device open routine or ttioctl. 252 */ 253 /* ARGSUSED */ 254 int 255 irframetopen(dev_t dev, struct tty *tp) 256 { 257 struct lwp *l = curlwp; /* XXX */ 258 struct irframet_softc *sc; 259 int error, s; 260 struct cfdata *cfdata; 261 struct ir_attach_args ia; 262 263 DPRINTF(("%s\n", __FUNCTION__)); 264 265 if ((error = kauth_authorize_device_tty(l->l_cred, 266 KAUTH_DEVICE_TTY_OPEN, tp))) 267 return (error); 268 269 s = spltty(); 270 271 DPRINTF(("%s: linesw=%p disc=%s\n", __FUNCTION__, tp->t_linesw, 272 tp->t_linesw->l_name)); 273 if (tp->t_linesw == &irframet_disc) { 274 sc = (struct irframet_softc *)tp->t_sc; 275 DPRINTF(("%s: sc=%p sc_tp=%p\n", __FUNCTION__, sc, sc->sc_tp)); 276 if (sc != NULL) { 277 splx(s); 278 return (EBUSY); 279 } 280 } 281 282 cfdata = malloc(sizeof(struct cfdata), M_DEVBUF, M_WAITOK); 283 cfdata->cf_name = "irframe"; 284 cfdata->cf_atname = "irframet"; 285 cfdata->cf_fstate = FSTATE_STAR; 286 cfdata->cf_unit = 0; 287 sc = (struct irframet_softc *)config_attach_pseudo(cfdata); 288 289 /* XXX should be done in irframet_attach() */ 290 ia.ia_methods = &irframet_methods; 291 ia.ia_handle = tp; 292 irframe_attach(0, (struct device *)sc, &ia); 293 294 tp->t_sc = sc; 295 sc->sc_tp = tp; 296 printf("%s attached at tty%02d\n", sc->sc_irp.sc_dev.dv_xname, 297 minor(tp->t_dev)); 298 299 DPRINTF(("%s: set sc=%p\n", __FUNCTION__, sc)); 300 301 mutex_spin_enter(&tty_lock); 302 ttyflush(tp, FREAD | FWRITE); 303 mutex_spin_exit(&tty_lock); 304 305 sc->sc_dongle = DONGLE_NONE; 306 sc->sc_dongle_private = 0; 307 308 splx(s); 309 310 return (0); 311 } 312 313 /* 314 * Line specific close routine, called from device close routine 315 * and from ttioctl. 316 * Detach the tty from the irframe unit. 317 * Mimics part of ttyclose(). 318 */ 319 int 320 irframetclose(struct tty *tp, int flag) 321 { 322 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 323 int s; 324 struct cfdata *cfdata; 325 326 DPRINTF(("%s: tp=%p\n", __FUNCTION__, tp)); 327 328 s = spltty(); 329 mutex_spin_enter(&tty_lock); 330 ttyflush(tp, FREAD | FWRITE); 331 mutex_spin_exit(&tty_lock); /* XXX */ 332 ttyldisc_release(tp->t_linesw); 333 tp->t_linesw = ttyldisc_default(); 334 if (sc != NULL) { 335 tp->t_sc = NULL; 336 printf("%s detached from tty%02d\n", sc->sc_irp.sc_dev.dv_xname, 337 minor(tp->t_dev)); 338 339 if (sc->sc_tp == tp) { 340 cfdata = sc->sc_irp.sc_dev.dv_cfdata; 341 config_detach(&sc->sc_irp.sc_dev, 0); 342 free(cfdata, M_DEVBUF); 343 } 344 } 345 splx(s); 346 return (0); 347 } 348 349 /* 350 * Line specific (tty) ioctl routine. 351 * This discipline requires that tty device drivers call 352 * the line specific l_ioctl routine from their ioctl routines. 353 */ 354 /* ARGSUSED */ 355 int 356 irframetioctl(struct tty *tp, u_long cmd, void *data, int flag, 357 struct lwp *l) 358 { 359 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 360 int error; 361 int d; 362 363 DPRINTF(("%s: tp=%p\n", __FUNCTION__, tp)); 364 365 if (sc == NULL || tp != sc->sc_tp) 366 return (EPASSTHROUGH); 367 368 error = 0; 369 switch (cmd) { 370 case IRFRAMETTY_GET_DEVICE: 371 *(int *)data = device_unit(&sc->sc_irp.sc_dev); 372 break; 373 case IRFRAMETTY_GET_DONGLE: 374 *(int *)data = sc->sc_dongle; 375 break; 376 case IRFRAMETTY_SET_DONGLE: 377 d = *(int *)data; 378 if (d < 0 || d >= DONGLE_MAX) 379 return (EINVAL); 380 sc->sc_dongle = d; 381 break; 382 default: 383 error = EPASSTHROUGH; 384 break; 385 } 386 387 return (error); 388 } 389 390 /* 391 * Start output on async tty interface. 392 */ 393 int 394 irframetstart(struct tty *tp) 395 { 396 /*struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc;*/ 397 int s; 398 399 DPRINTF(("%s: tp=%p\n", __FUNCTION__, tp)); 400 401 s = spltty(); 402 if (tp->t_oproc != NULL) 403 (*tp->t_oproc)(tp); 404 splx(s); 405 406 return (0); 407 } 408 409 void 410 irt_frame(struct irframet_softc *sc, u_char *tbuf, u_int len) 411 { 412 DPRINTF(("%s: nframe=%d framei=%d frameo=%d\n", 413 __FUNCTION__, sc->sc_nframes, sc->sc_framei, sc->sc_frameo)); 414 415 if (sc->sc_inbuf == NULL) /* XXX happens if device is closed? */ 416 return; 417 if (sc->sc_nframes >= MAXFRAMES) { 418 #ifdef IRFRAMET_DEBUG 419 printf("%s: dropped frame\n", __FUNCTION__); 420 #endif 421 return; 422 } 423 if (sc->sc_frames[sc->sc_framei].buf == NULL) 424 return; 425 memcpy(sc->sc_frames[sc->sc_framei].buf, tbuf, len); 426 sc->sc_frames[sc->sc_framei].len = len; 427 sc->sc_framei = (sc->sc_framei+1) % MAXFRAMES; 428 sc->sc_nframes++; 429 if (sc->sc_state & IRT_RSLP) { 430 sc->sc_state &= ~IRT_RSLP; 431 DPRINTF(("%s: waking up reader\n", __FUNCTION__)); 432 wakeup(sc->sc_frames); 433 } 434 selnotify(&sc->sc_rsel, 0); 435 } 436 437 void 438 irt_timeout(void *v) 439 { 440 struct irframet_softc *sc = v; 441 442 #ifdef IRFRAMET_DEBUG 443 if (sc->sc_framestate != FRAME_OUTSIDE) 444 printf("%s: input frame timeout\n", __FUNCTION__); 445 #endif 446 sc->sc_framestate = FRAME_OUTSIDE; 447 } 448 449 int 450 irframetinput(int c, struct tty *tp) 451 { 452 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 453 454 c &= 0xff; 455 456 #if IRFRAMET_DEBUG 457 if (irframetdebug > 1) 458 DPRINTF(("%s: tp=%p c=0x%02x\n", __FUNCTION__, tp, c)); 459 #endif 460 461 if (sc == NULL || tp != (struct tty *)sc->sc_tp) 462 return (0); 463 464 if (sc->sc_inbuf == NULL) 465 return (0); 466 467 switch (c) { 468 case SIR_BOF: 469 DPRINTF(("%s: BOF\n", __FUNCTION__)); 470 sc->sc_framestate = FRAME_INSIDE; 471 sc->sc_inchars = 0; 472 sc->sc_inFCS = INITFCS; 473 break; 474 case SIR_EOF: 475 DPRINTF(("%s: EOF state=%d inchars=%d fcs=0x%04x\n", 476 __FUNCTION__, 477 sc->sc_framestate, sc->sc_inchars, sc->sc_inFCS)); 478 if (sc->sc_framestate == FRAME_INSIDE && 479 sc->sc_inchars >= 4 && sc->sc_inFCS == GOODFCS) { 480 irt_frame(sc, sc->sc_inbuf, sc->sc_inchars - 2); 481 } else if (sc->sc_framestate != FRAME_OUTSIDE) { 482 #ifdef IRFRAMET_DEBUG 483 printf("%s: malformed input frame\n", __FUNCTION__); 484 #endif 485 } 486 sc->sc_framestate = FRAME_OUTSIDE; 487 break; 488 case SIR_CE: 489 DPRINTF(("%s: CE\n", __FUNCTION__)); 490 if (sc->sc_framestate == FRAME_INSIDE) 491 sc->sc_framestate = FRAME_ESCAPE; 492 break; 493 default: 494 #if IRFRAMET_DEBUG 495 if (irframetdebug > 1) 496 DPRINTF(("%s: c=0x%02x, inchar=%d state=%d\n", __FUNCTION__, c, 497 sc->sc_inchars, sc->sc_state)); 498 #endif 499 if (sc->sc_framestate != FRAME_OUTSIDE) { 500 if (sc->sc_framestate == FRAME_ESCAPE) { 501 sc->sc_framestate = FRAME_INSIDE; 502 c ^= SIR_ESC_BIT; 503 } 504 if (sc->sc_inchars < sc->sc_params.maxsize + 2) { 505 sc->sc_inbuf[sc->sc_inchars++] = c; 506 sc->sc_inFCS = updateFCS(sc->sc_inFCS, c); 507 } else { 508 sc->sc_framestate = FRAME_OUTSIDE; 509 #ifdef IRFRAMET_DEBUG 510 printf("%s: input frame overrun\n", 511 __FUNCTION__); 512 #endif 513 } 514 } 515 break; 516 } 517 518 #if 1 519 if (sc->sc_framestate != FRAME_OUTSIDE) { 520 callout_reset(&sc->sc_timeout, hz/20, irt_timeout, sc); 521 } 522 #endif 523 524 return (0); 525 } 526 527 528 /*** irframe methods ***/ 529 530 int 531 irframet_open(void *h, int flag, int mode, 532 struct lwp *l) 533 { 534 struct tty *tp = h; 535 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 536 537 DPRINTF(("%s: tp=%p\n", __FUNCTION__, tp)); 538 539 sc->sc_params.speed = 0; 540 sc->sc_params.ebofs = IRDA_DEFAULT_EBOFS; 541 sc->sc_params.maxsize = 0; 542 sc->sc_framestate = FRAME_OUTSIDE; 543 sc->sc_nframes = 0; 544 sc->sc_framei = 0; 545 sc->sc_frameo = 0; 546 callout_init(&sc->sc_timeout, 0); 547 lockinit(&sc->sc_wr_lk, PZERO, "irfrtl", 0, 0); 548 549 return (0); 550 } 551 552 int 553 irframet_close(void *h, int flag, int mode, 554 struct lwp *l) 555 { 556 struct tty *tp = h; 557 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 558 int i, s; 559 560 DPRINTF(("%s: tp=%p\n", __FUNCTION__, tp)); 561 562 callout_stop(&sc->sc_timeout); 563 s = splir(); 564 if (sc->sc_inbuf != NULL) { 565 free(sc->sc_inbuf, M_DEVBUF); 566 sc->sc_inbuf = NULL; 567 } 568 for (i = 0; i < MAXFRAMES; i++) { 569 if (sc->sc_frames[i].buf != NULL) { 570 free(sc->sc_frames[i].buf, M_DEVBUF); 571 sc->sc_frames[i].buf = NULL; 572 } 573 } 574 splx(s); 575 576 return (0); 577 } 578 579 int 580 irframet_read(void *h, struct uio *uio, int flag) 581 { 582 struct tty *tp = h; 583 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 584 int error = 0; 585 int s; 586 587 DPRINTF(("%s: resid=%zd, iovcnt=%d, offset=%ld\n", 588 __FUNCTION__, uio->uio_resid, uio->uio_iovcnt, 589 (long)uio->uio_offset)); 590 DPRINTF(("%s: nframe=%d framei=%d frameo=%d\n", 591 __FUNCTION__, sc->sc_nframes, sc->sc_framei, sc->sc_frameo)); 592 593 594 s = splir(); 595 while (sc->sc_nframes == 0) { 596 if (flag & IO_NDELAY) { 597 splx(s); 598 return (EWOULDBLOCK); 599 } 600 sc->sc_state |= IRT_RSLP; 601 DPRINTF(("%s: sleep\n", __FUNCTION__)); 602 error = tsleep(sc->sc_frames, PZERO | PCATCH, "irtrd", 0); 603 DPRINTF(("%s: woke, error=%d\n", __FUNCTION__, error)); 604 if (error) { 605 sc->sc_state &= ~IRT_RSLP; 606 break; 607 } 608 } 609 610 /* Do just one frame transfer per read */ 611 if (!error) { 612 if (uio->uio_resid < sc->sc_frames[sc->sc_frameo].len) { 613 DPRINTF(("%s: uio buffer smaller than frame size " 614 "(%zd < %d)\n", __FUNCTION__, uio->uio_resid, 615 sc->sc_frames[sc->sc_frameo].len)); 616 error = EINVAL; 617 } else { 618 DPRINTF(("%s: moving %d bytes\n", __FUNCTION__, 619 sc->sc_frames[sc->sc_frameo].len)); 620 error = uiomove(sc->sc_frames[sc->sc_frameo].buf, 621 sc->sc_frames[sc->sc_frameo].len, uio); 622 DPRINTF(("%s: error=%d\n", __FUNCTION__, error)); 623 } 624 sc->sc_frameo = (sc->sc_frameo+1) % MAXFRAMES; 625 sc->sc_nframes--; 626 } 627 splx(s); 628 629 return (error); 630 } 631 632 int 633 irt_putc(struct tty *tp, int c) 634 { 635 int error; 636 637 #if IRFRAMET_DEBUG 638 if (irframetdebug > 3) 639 DPRINTF(("%s: tp=%p c=0x%02x cc=%d\n", __FUNCTION__, tp, c, 640 tp->t_outq.c_cc)); 641 #endif 642 if (tp->t_outq.c_cc > tp->t_hiwat) { 643 irframetstart(tp); 644 mutex_spin_enter(&tty_lock); 645 /* 646 * This can only occur if FLUSHO is set in t_lflag, 647 * or if ttstart/oproc is synchronous (or very fast). 648 */ 649 if (tp->t_outq.c_cc <= tp->t_hiwat) { 650 mutex_spin_exit(&tty_lock); 651 goto go; 652 } 653 error = ttysleep(tp, &tp->t_outq.c_cv, true, 0); 654 mutex_spin_exit(&tty_lock); 655 if (error) 656 return (error); 657 } 658 go: 659 if (putc(c, &tp->t_outq) < 0) { 660 printf("irframe: putc failed\n"); 661 return (EIO); 662 } 663 return (0); 664 } 665 666 int 667 irframet_write(void *h, struct uio *uio, int flag) 668 { 669 struct tty *tp = h; 670 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 671 int n; 672 673 DPRINTF(("%s: resid=%zd, iovcnt=%d, offset=%ld\n", 674 __FUNCTION__, uio->uio_resid, uio->uio_iovcnt, 675 (long)uio->uio_offset)); 676 677 n = irda_sir_frame(sc->sc_buffer, sizeof(sc->sc_buffer), uio, 678 sc->sc_params.ebofs); 679 if (n < 0) { 680 #ifdef IRFRAMET_DEBUG 681 printf("%s: irda_sir_frame() error=%d\n", __FUNCTION__, -n); 682 #endif 683 return (-n); 684 } 685 return (irt_write_frame(tp, sc->sc_buffer, n)); 686 } 687 688 int 689 irt_write_frame(struct tty *tp, u_int8_t *tbuf, size_t len) 690 { 691 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 692 int error, i; 693 694 DPRINTF(("%s: tp=%p len=%zd\n", __FUNCTION__, tp, len)); 695 696 lockmgr(&sc->sc_wr_lk, LK_EXCLUSIVE, NULL); 697 error = 0; 698 for (i = 0; !error && i < len; i++) 699 error = irt_putc(tp, tbuf[i]); 700 lockmgr(&sc->sc_wr_lk, LK_RELEASE, NULL); 701 702 irframetstart(tp); 703 704 DPRINTF(("%s: done, error=%d\n", __FUNCTION__, error)); 705 706 return (error); 707 } 708 709 int 710 irframet_poll(void *h, int events, struct lwp *l) 711 { 712 struct tty *tp = h; 713 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 714 int revents = 0; 715 int s; 716 717 DPRINTF(("%s: sc=%p\n", __FUNCTION__, sc)); 718 719 s = splir(); 720 /* XXX is this a good check? */ 721 if (events & (POLLOUT | POLLWRNORM)) 722 if (tp->t_outq.c_cc <= tp->t_lowat) 723 revents |= events & (POLLOUT | POLLWRNORM); 724 725 if (events & (POLLIN | POLLRDNORM)) { 726 if (sc->sc_nframes > 0) { 727 DPRINTF(("%s: have data\n", __FUNCTION__)); 728 revents |= events & (POLLIN | POLLRDNORM); 729 } else { 730 DPRINTF(("%s: recording select\n", __FUNCTION__)); 731 selrecord(l, &sc->sc_rsel); 732 } 733 } 734 splx(s); 735 736 return (revents); 737 } 738 739 static void 740 filt_irframetrdetach(struct knote *kn) 741 { 742 struct tty *tp = kn->kn_hook; 743 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 744 int s; 745 746 s = splir(); 747 SLIST_REMOVE(&sc->sc_rsel.sel_klist, kn, knote, kn_selnext); 748 splx(s); 749 } 750 751 static int 752 filt_irframetread(struct knote *kn, long hint) 753 { 754 struct tty *tp = kn->kn_hook; 755 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 756 757 kn->kn_data = sc->sc_nframes; 758 return (kn->kn_data > 0); 759 } 760 761 static void 762 filt_irframetwdetach(struct knote *kn) 763 { 764 struct tty *tp = kn->kn_hook; 765 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 766 int s; 767 768 s = splir(); 769 SLIST_REMOVE(&sc->sc_wsel.sel_klist, kn, knote, kn_selnext); 770 splx(s); 771 } 772 773 static int 774 filt_irframetwrite(struct knote *kn, long hint) 775 { 776 struct tty *tp = kn->kn_hook; 777 778 /* XXX double-check this */ 779 780 if (tp->t_outq.c_cc <= tp->t_lowat) { 781 kn->kn_data = tp->t_lowat - tp->t_outq.c_cc; 782 return (1); 783 } 784 785 kn->kn_data = 0; 786 return (0); 787 } 788 789 static const struct filterops irframetread_filtops = 790 { 1, NULL, filt_irframetrdetach, filt_irframetread }; 791 static const struct filterops irframetwrite_filtops = 792 { 1, NULL, filt_irframetwdetach, filt_irframetwrite }; 793 794 int 795 irframet_kqfilter(void *h, struct knote *kn) 796 { 797 struct tty *tp = h; 798 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 799 struct klist *klist; 800 int s; 801 802 switch (kn->kn_filter) { 803 case EVFILT_READ: 804 klist = &sc->sc_rsel.sel_klist; 805 kn->kn_fop = &irframetread_filtops; 806 break; 807 case EVFILT_WRITE: 808 klist = &sc->sc_wsel.sel_klist; 809 kn->kn_fop = &irframetwrite_filtops; 810 break; 811 default: 812 return (1); 813 } 814 815 kn->kn_hook = tp; 816 817 s = splir(); 818 SLIST_INSERT_HEAD(klist, kn, kn_selnext); 819 splx(s); 820 821 return (0); 822 } 823 824 int 825 irframet_set_params(void *h, struct irda_params *p) 826 { 827 struct tty *tp = h; 828 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 829 int i; 830 831 DPRINTF(("%s: tp=%p speed=%d ebofs=%d maxsize=%d\n", 832 __FUNCTION__, tp, p->speed, p->ebofs, p->maxsize)); 833 834 if (p->speed != sc->sc_params.speed) { 835 /* Checked in irframe.c */ 836 lockmgr(&sc->sc_wr_lk, LK_EXCLUSIVE, NULL); 837 irt_dongles[sc->sc_dongle].setspeed(tp, p->speed); 838 lockmgr(&sc->sc_wr_lk, LK_RELEASE, NULL); 839 sc->sc_params.speed = p->speed; 840 } 841 842 /* Max size checked in irframe.c */ 843 sc->sc_params.ebofs = p->ebofs; 844 /* Max size checked in irframe.c */ 845 if (sc->sc_params.maxsize != p->maxsize) { 846 sc->sc_params.maxsize = p->maxsize; 847 if (sc->sc_inbuf != NULL) 848 free(sc->sc_inbuf, M_DEVBUF); 849 for (i = 0; i < MAXFRAMES; i++) 850 if (sc->sc_frames[i].buf != NULL) 851 free(sc->sc_frames[i].buf, M_DEVBUF); 852 if (sc->sc_params.maxsize != 0) { 853 sc->sc_inbuf = malloc(sc->sc_params.maxsize+2, 854 M_DEVBUF, M_WAITOK); 855 for (i = 0; i < MAXFRAMES; i++) 856 sc->sc_frames[i].buf = 857 malloc(sc->sc_params.maxsize, 858 M_DEVBUF, M_WAITOK); 859 } else { 860 sc->sc_inbuf = NULL; 861 for (i = 0; i < MAXFRAMES; i++) 862 sc->sc_frames[i].buf = NULL; 863 } 864 } 865 sc->sc_framestate = FRAME_OUTSIDE; 866 867 return (0); 868 } 869 870 int 871 irframet_get_speeds(void *h, int *speeds) 872 { 873 struct tty *tp = h; 874 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 875 876 DPRINTF(("%s: tp=%p\n", __FUNCTION__, tp)); 877 878 if (sc == NULL) /* during attach */ 879 *speeds = IRDA_SPEEDS_SIR; 880 else 881 *speeds = irt_dongles[sc->sc_dongle].speedmask; 882 return (0); 883 } 884 885 int 886 irframet_get_turnarounds(void *h, int *turnarounds) 887 { 888 struct tty *tp = h; 889 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 890 891 DPRINTF(("%s: tp=%p\n", __FUNCTION__, tp)); 892 893 *turnarounds = irt_dongles[sc->sc_dongle].turnmask; 894 return (0); 895 } 896 897 void 898 irt_ioctl(struct tty *tp, u_long cmd, void *arg) 899 { 900 const struct cdevsw *cdev; 901 int error; 902 dev_t dev; 903 904 dev = tp->t_dev; 905 cdev = cdevsw_lookup(dev); 906 if (cdev != NULL) 907 error = (*cdev->d_ioctl)(dev, cmd, arg, 0, curlwp); 908 else 909 error = ENXIO; 910 #ifdef DIAGNOSTIC 911 if (error) 912 printf("irt_ioctl: cmd=0x%08lx error=%d\n", cmd, error); 913 #endif 914 } 915 916 void 917 irt_setspeed(struct tty *tp, u_int speed) 918 { 919 struct termios tt; 920 921 irt_ioctl(tp, TIOCGETA, &tt); 922 tt.c_ispeed = tt.c_ospeed = speed; 923 tt.c_cflag &= ~HUPCL; 924 tt.c_cflag |= CLOCAL; 925 irt_ioctl(tp, TIOCSETAF, &tt); 926 } 927 928 void 929 irt_setline(struct tty *tp, u_int line) 930 { 931 int mline; 932 933 irt_ioctl(tp, TIOCMGET, &mline); 934 mline &= ~(TIOCM_DTR | TIOCM_RTS); 935 mline |= line; 936 irt_ioctl(tp, TIOCMSET, (void *)&mline); 937 } 938 939 void 940 irt_delay(struct tty *tp, u_int ms) 941 { 942 if (cold) 943 delay(ms * 1000); 944 else 945 tsleep(&irt_delay, PZERO, "irtdly", ms * hz / 1000 + 1); 946 947 } 948 949 /********************************************************************** 950 * No dongle 951 **********************************************************************/ 952 void 953 irts_none(struct tty *tp, u_int speed) 954 { 955 irt_setspeed(tp, speed); 956 } 957 958 /********************************************************************** 959 * Tekram 960 **********************************************************************/ 961 #define TEKRAM_PW 0x10 962 963 #define TEKRAM_115200 (TEKRAM_PW|0x00) 964 #define TEKRAM_57600 (TEKRAM_PW|0x01) 965 #define TEKRAM_38400 (TEKRAM_PW|0x02) 966 #define TEKRAM_19200 (TEKRAM_PW|0x03) 967 #define TEKRAM_9600 (TEKRAM_PW|0x04) 968 #define TEKRAM_2400 (TEKRAM_PW|0x08) 969 970 #define TEKRAM_TV (TEKRAM_PW|0x05) 971 972 void 973 irts_tekram(struct tty *tp, u_int speed) 974 { 975 int s; 976 977 irt_setspeed(tp, 9600); 978 irt_setline(tp, 0); 979 irt_delay(tp, 50); 980 981 irt_setline(tp, TIOCM_RTS); 982 irt_delay(tp, 1); 983 984 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 985 irt_delay(tp, 1); /* 50 us */ 986 987 irt_setline(tp, TIOCM_DTR); 988 irt_delay(tp, 1); /* 7 us */ 989 990 switch(speed) { 991 case 115200: s = TEKRAM_115200; break; 992 case 57600: s = TEKRAM_57600; break; 993 case 38400: s = TEKRAM_38400; break; 994 case 19200: s = TEKRAM_19200; break; 995 case 2400: s = TEKRAM_2400; break; 996 default: s = TEKRAM_9600; break; 997 } 998 irt_putc(tp, s); 999 irframetstart(tp); 1000 1001 irt_delay(tp, 100); 1002 1003 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 1004 if (speed != 9600) 1005 irt_setspeed(tp, speed); 1006 irt_delay(tp, 1); /* 50 us */ 1007 } 1008 1009 /********************************************************************** 1010 * Jeteye 1011 **********************************************************************/ 1012 void 1013 irts_jeteye(struct tty *tp, u_int speed) 1014 { 1015 switch (speed) { 1016 case 19200: 1017 irt_setline(tp, TIOCM_DTR); 1018 break; 1019 case 115200: 1020 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 1021 break; 1022 default: /*9600*/ 1023 irt_setline(tp, TIOCM_RTS); 1024 break; 1025 } 1026 irt_setspeed(tp, speed); 1027 } 1028 1029 /********************************************************************** 1030 * Actisys 1031 **********************************************************************/ 1032 void 1033 irts_actisys(struct tty *tp, u_int speed) 1034 { 1035 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 1036 int pulses; 1037 1038 irt_setspeed(tp, speed); 1039 1040 switch(speed) { 1041 case 19200: pulses=1; break; 1042 case 57600: pulses=2; break; 1043 case 115200: pulses=3; break; 1044 case 38400: pulses=4; break; 1045 default: /* 9600 */ pulses=0; break; 1046 } 1047 1048 if (sc->sc_dongle_private == 0) { 1049 sc->sc_dongle_private = 1; 1050 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 1051 /* 1052 * Must wait at least 50ms after initial 1053 * power on to charge internal capacitor 1054 */ 1055 irt_delay(tp, 50); 1056 } 1057 irt_setline(tp, TIOCM_RTS); 1058 delay(2); 1059 for (;;) { 1060 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 1061 delay(2); 1062 if (--pulses <= 0) 1063 break; 1064 irt_setline(tp, TIOCM_DTR); 1065 delay(2); 1066 } 1067 } 1068 1069 /********************************************************************** 1070 * Litelink 1071 **********************************************************************/ 1072 void 1073 irts_litelink(struct tty *tp, u_int speed) 1074 { 1075 struct irframet_softc *sc = (struct irframet_softc *)tp->t_sc; 1076 int pulses; 1077 1078 irt_setspeed(tp, speed); 1079 1080 switch(speed) { 1081 case 57600: pulses=1; break; 1082 case 38400: pulses=2; break; 1083 case 19200: pulses=3; break; 1084 case 9600: pulses=4; break; 1085 default: /* 115200 */ pulses=0; break; 1086 } 1087 1088 if (sc->sc_dongle_private == 0) { 1089 sc->sc_dongle_private = 1; 1090 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 1091 } 1092 irt_setline(tp, TIOCM_RTS); 1093 irt_delay(tp, 1); /* 15 us */; 1094 for (;;) { 1095 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 1096 irt_delay(tp, 1); /* 15 us */; 1097 if (--pulses <= 0) 1098 break; 1099 irt_setline(tp, TIOCM_DTR); 1100 irt_delay(tp, 1); /* 15 us */; 1101 } 1102 } 1103 1104 /********************************************************************** 1105 * Girbil 1106 **********************************************************************/ 1107 /* Control register 1 */ 1108 #define GIRBIL_TXEN 0x01 /* Enable transmitter */ 1109 #define GIRBIL_RXEN 0x02 /* Enable receiver */ 1110 #define GIRBIL_ECAN 0x04 /* Cancel self emmited data */ 1111 #define GIRBIL_ECHO 0x08 /* Echo control characters */ 1112 1113 /* LED Current Register */ 1114 #define GIRBIL_HIGH 0x20 1115 #define GIRBIL_MEDIUM 0x21 1116 #define GIRBIL_LOW 0x22 1117 1118 /* Baud register */ 1119 #define GIRBIL_2400 0x30 1120 #define GIRBIL_4800 0x31 1121 #define GIRBIL_9600 0x32 1122 #define GIRBIL_19200 0x33 1123 #define GIRBIL_38400 0x34 1124 #define GIRBIL_57600 0x35 1125 #define GIRBIL_115200 0x36 1126 1127 /* Mode register */ 1128 #define GIRBIL_IRDA 0x40 1129 #define GIRBIL_ASK 0x41 1130 1131 /* Control register 2 */ 1132 #define GIRBIL_LOAD 0x51 /* Load the new baud rate value */ 1133 1134 void 1135 irts_girbil(struct tty *tp, u_int speed) 1136 { 1137 int s; 1138 1139 irt_setspeed(tp, 9600); 1140 irt_setline(tp, TIOCM_DTR); 1141 irt_delay(tp, 5); 1142 irt_setline(tp, TIOCM_RTS); 1143 irt_delay(tp, 20); 1144 switch(speed) { 1145 case 115200: s = GIRBIL_115200; break; 1146 case 57600: s = GIRBIL_57600; break; 1147 case 38400: s = GIRBIL_38400; break; 1148 case 19200: s = GIRBIL_19200; break; 1149 case 4800: s = GIRBIL_4800; break; 1150 case 2400: s = GIRBIL_2400; break; 1151 default: s = GIRBIL_9600; break; 1152 } 1153 irt_putc(tp, GIRBIL_TXEN|GIRBIL_RXEN); 1154 irt_putc(tp, s); 1155 irt_putc(tp, GIRBIL_LOAD); 1156 irframetstart(tp); 1157 irt_delay(tp, 100); 1158 irt_setline(tp, TIOCM_DTR | TIOCM_RTS); 1159 if (speed != 9600) 1160 irt_setspeed(tp, speed); 1161 } 1162
Indexes created Mon Oct 20 20:10:13 GMT 2025