grf.c revision 1.14
1 /* $NetBSD: grf.c,v 1.14 1999/05/05 14:31:16 minoura Exp $ */ 2 3 /* 4 * Copyright (c) 1988 University of Utah. 5 * Copyright (c) 1990, 1993 6 * The Regents of the University of California. All rights reserved. 7 * 8 * This code is derived from software contributed to Berkeley by 9 * the Systems Programming Group of the University of Utah Computer 10 * Science Department. 11 * 12 * Redistribution and use in source and binary forms, with or without 13 * modification, are permitted provided that the following conditions 14 * are met: 15 * 1. Redistributions of source code must retain the above copyright 16 * notice, this list of conditions and the following disclaimer. 17 * 2. Redistributions in binary form must reproduce the above copyright 18 * notice, this list of conditions and the following disclaimer in the 19 * documentation and/or other materials provided with the distribution. 20 * 3. All advertising materials mentioning features or use of this software 21 * must display the following acknowledgement: 22 * This product includes software developed by the University of 23 * California, Berkeley and its contributors. 24 * 4. Neither the name of the University nor the names of its contributors 25 * may be used to endorse or promote products derived from this software 26 * without specific prior written permission. 27 * 28 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 29 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 30 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 31 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 32 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 33 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 34 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 35 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 36 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 37 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 38 * SUCH DAMAGE. 39 * 40 * from: Utah $Hdr: grf.c 1.36 93/08/13$ 41 * 42 * @(#)grf.c 8.4 (Berkeley) 1/12/94 43 */ 44 45 /* 46 * Graphics display driver for the X68K machines. 47 * This is the hardware-independent portion of the driver. 48 * Hardware access is through the machine dependent grf switch routines. 49 */ 50 51 #include "opt_compat_hpux.h" 52 53 #include <sys/param.h> 54 #include <sys/systm.h> 55 #include <sys/device.h> 56 #include <sys/proc.h> 57 #include <sys/ioctl.h> 58 #include <sys/file.h> 59 #include <sys/malloc.h> 60 #include <sys/vnode.h> 61 #include <sys/mman.h> 62 #include <sys/poll.h> 63 #include <sys/conf.h> 64 65 #include <machine/grfioctl.h> 66 67 #include <x68k/dev/grfvar.h> 68 #include <x68k/dev/itevar.h> 69 70 #include <machine/cpu.h> 71 72 #ifdef COMPAT_HPUX 73 #include <compat/hpux/hpux.h> 74 extern struct emul emul_hpux; 75 #endif 76 77 #include <vm/vm.h> 78 #include <vm/vm_kern.h> 79 #include <vm/vm_page.h> 80 #include <vm/vm_pager.h> 81 82 #include <uvm/uvm_extern.h> 83 #include <uvm/uvm_map.h> 84 85 #include <miscfs/specfs/specdev.h> 86 87 #include "ite.h" 88 #if NITE == 0 89 #define iteon(u,f) 90 #define iteoff(u,f) 91 #define ite_reinit(u) 92 #endif 93 94 #ifdef DEBUG 95 int grfdebug = 0; 96 #define GDB_DEVNO 0x01 97 #define GDB_MMAP 0x02 98 #define GDB_IOMAP 0x04 99 #define GDB_LOCK 0x08 100 #endif 101 102 cdev_decl(grf); 103 int grfon __P((dev_t)); 104 int grfoff __P((dev_t)); 105 int grfaddr __P((struct grf_softc *, int)); 106 int grfmap __P((dev_t, caddr_t *, struct proc *)); 107 int grfunmap __P((dev_t, caddr_t, struct proc *)); 108 109 extern struct cfdriver grf_cd; 110 111 /*ARGSUSED*/ 112 int 113 grfopen(dev, flags, mode, p) 114 dev_t dev; 115 int flags, mode; 116 struct proc *p; 117 { 118 int unit = GRFUNIT(dev); 119 register struct grf_softc *gp; 120 int error = 0; 121 122 if (unit >= grf_cd.cd_ndevs || 123 (gp = grf_cd.cd_devs[unit]) == NULL || 124 (gp->g_flags & GF_ALIVE) == 0) 125 return (ENXIO); 126 127 if ((gp->g_flags & (GF_OPEN|GF_EXCLUDE)) == (GF_OPEN|GF_EXCLUDE)) 128 return(EBUSY); 129 #ifdef COMPAT_HPUX 130 /* 131 * XXX: cannot handle both HPUX and BSD processes at the same time 132 */ 133 if (p->p_emul == &emul_hpux) 134 if (gp->g_flags & GF_BSDOPEN) 135 return(EBUSY); 136 else 137 gp->g_flags |= GF_HPUXOPEN; 138 else 139 if (gp->g_flags & GF_HPUXOPEN) 140 return(EBUSY); 141 else 142 gp->g_flags |= GF_BSDOPEN; 143 #endif 144 /* 145 * First open. 146 * XXX: always put in graphics mode. 147 */ 148 error = 0; 149 if ((gp->g_flags & GF_OPEN) == 0) { 150 gp->g_flags |= GF_OPEN; 151 error = grfon(dev); 152 } 153 return(error); 154 } 155 156 /*ARGSUSED*/ 157 int 158 grfclose(dev, flags, mode, p) 159 dev_t dev; 160 int flags, mode; 161 struct proc *p; 162 { 163 register struct grf_softc *gp = grf_cd.cd_devs[GRFUNIT(dev)]; 164 165 if ((gp->g_flags & GF_ALIVE) == 0) 166 return (ENXIO); 167 168 (void) grfoff(dev); 169 #ifdef COMPAT_HPUX 170 (void) grfunlock(gp); 171 #endif 172 gp->g_flags &= GF_ALIVE; 173 return(0); 174 } 175 176 /*ARGSUSED*/ 177 int 178 grfioctl(dev, cmd, data, flag, p) 179 dev_t dev; 180 u_long cmd; 181 caddr_t data; 182 int flag; 183 struct proc *p; 184 { 185 int unit = GRFUNIT(dev); 186 register struct grf_softc *gp = grf_cd.cd_devs[unit]; 187 int error; 188 189 if ((gp->g_flags & GF_ALIVE) == 0) 190 return (ENXIO); 191 192 #ifdef COMPAT_HPUX 193 if (p->p_emul == &emul_hpux) 194 return(hpuxgrfioctl(dev, cmd, data, flag, p)); 195 #endif 196 error = 0; 197 switch (cmd) { 198 199 case GRFIOCGINFO: 200 bcopy((caddr_t)&gp->g_display, data, sizeof(struct grfinfo)); 201 break; 202 203 case GRFIOCON: 204 error = grfon(dev); 205 break; 206 207 case GRFIOCOFF: 208 error = grfoff(dev); 209 break; 210 211 case GRFIOCMAP: 212 error = grfmap(dev, (caddr_t *)data, p); 213 break; 214 215 case GRFIOCUNMAP: 216 error = grfunmap(dev, *(caddr_t *)data, p); 217 break; 218 219 case GRFSETVMODE: 220 error = (*gp->g_sw->gd_mode)(gp, GM_GRFSETVMODE, data); 221 if (error == 0) 222 ite_reinit(unit); 223 break; 224 225 default: 226 error = EINVAL; 227 break; 228 229 } 230 return(error); 231 } 232 233 /*ARGSUSED*/ 234 int 235 grfpoll(dev, events, p) 236 dev_t dev; 237 int events; 238 struct proc *p; 239 { 240 241 return (events & (POLLOUT | POLLWRNORM)); 242 } 243 244 /*ARGSUSED*/ 245 int 246 grfmmap(dev, off, prot) 247 dev_t dev; 248 int off, prot; 249 { 250 251 return (grfaddr(grf_cd.cd_devs[GRFUNIT(dev)], off)); 252 } 253 254 int 255 grfon(dev) 256 dev_t dev; 257 { 258 int unit = GRFUNIT(dev); 259 struct grf_softc *gp = grf_cd.cd_devs[unit]; 260 261 /* 262 * XXX: iteoff call relies on devices being in same order 263 * as ITEs and the fact that iteoff only uses the minor part 264 * of the dev arg. 265 */ 266 iteoff(unit, 2); 267 return((*gp->g_sw->gd_mode)(gp, 268 (dev&GRFOVDEV) ? GM_GRFOVON : GM_GRFON, 269 (caddr_t)0)); 270 } 271 272 int 273 grfoff(dev) 274 dev_t dev; 275 { 276 int unit = GRFUNIT(dev); 277 struct grf_softc *gp = grf_cd.cd_devs[unit]; 278 int error; 279 280 (void) grfunmap(dev, (caddr_t)0, curproc); 281 error = (*gp->g_sw->gd_mode)(gp, 282 (dev&GRFOVDEV) ? GM_GRFOVOFF : GM_GRFOFF, 283 (caddr_t)0); 284 /* XXX: see comment for iteoff above */ 285 iteon(unit, 2); 286 return(error); 287 } 288 289 int 290 grfaddr(gp, off) 291 struct grf_softc *gp; 292 register int off; 293 { 294 register struct grfinfo *gi = &gp->g_display; 295 296 /* control registers */ 297 if (off >= 0 && off < gi->gd_regsize) 298 return(((u_int)gi->gd_regaddr + off) >> PGSHIFT); 299 300 /* frame buffer */ 301 if (off >= gi->gd_regsize && off < gi->gd_regsize+gi->gd_fbsize) { 302 off -= gi->gd_regsize; 303 return(((u_int)gi->gd_fbaddr + off) >> PGSHIFT); 304 } 305 /* bogus */ 306 return(-1); 307 } 308 309 /* 310 * HP-UX compatibility routines 311 */ 312 #ifdef COMPAT_HPUX 313 314 /*ARGSUSED*/ 315 int 316 hpuxgrfioctl(dev, cmd, data, flag, p) 317 dev_t dev; 318 int cmd; 319 caddr_t data; 320 int flag; 321 struct proc *p; 322 { 323 register struct grf_softc *gp = grf_cd.cd_devs[GRFUNIT(dev)]; 324 int error; 325 326 error = 0; 327 switch (cmd) { 328 329 case GCID: 330 *(int *)data = gp->g_display.gd_id; 331 break; 332 333 case GCON: 334 error = grfon(dev); 335 break; 336 337 case GCOFF: 338 error = grfoff(dev); 339 break; 340 341 case GCLOCK: 342 error = grflock(gp, 1); 343 break; 344 345 case GCUNLOCK: 346 error = grfunlock(gp); 347 break; 348 349 case GCAON: 350 case GCAOFF: 351 break; 352 353 /* GCSTATIC is implied by our implementation */ 354 case GCSTATIC_CMAP: 355 case GCVARIABLE_CMAP: 356 break; 357 358 /* map in control regs and frame buffer */ 359 case GCMAP: 360 error = grfmap(dev, (caddr_t *)data, p); 361 break; 362 363 case GCUNMAP: 364 error = grfunmap(dev, *(caddr_t *)data, p); 365 /* XXX: HP-UX uses GCUNMAP to get rid of GCSLOT memory */ 366 if (error) 367 error = grflckunmmap(dev, *(caddr_t *)data); 368 break; 369 370 case GCSLOT: 371 { 372 struct grf_slot *sp = (struct grf_slot *)data; 373 374 sp->slot = grffindpid(gp); 375 if (sp->slot) { 376 error = grflckmmap(dev, (caddr_t *)&sp->addr); 377 if (error && gp->g_pid) { 378 free((caddr_t)gp->g_pid, M_DEVBUF); 379 gp->g_pid = NULL; 380 } 381 } else 382 error = EINVAL; /* XXX */ 383 break; 384 } 385 386 case GCDESCRIBE: 387 error = (*gp->g_sw->gd_mode)(gp, GM_DESCRIBE, data); 388 break; 389 390 /* 391 * XXX: only used right now to map in rbox control registers 392 * Will be replaced in the future with a real IOMAP interface. 393 */ 394 case IOMAPMAP: 395 error = iommap(dev, (caddr_t *)data); 396 #if 0 397 /* 398 * It may not be worth kludging this (using p_devtmp) to 399 * make this work. It was an undocumented side-effect 400 * in HP-UX that the mapped address was the return value 401 * of the ioctl. The only thing I remember that counted 402 * on this behavior was the rbox X10 server. 403 */ 404 if (!error) 405 u.u_r.r_val1 = *(int *)data; /* XXX: this sux */ 406 #endif 407 break; 408 409 case IOMAPUNMAP: 410 error = iounmmap(dev, *(caddr_t *)data); 411 break; 412 413 default: 414 error = EINVAL; 415 break; 416 } 417 return(error); 418 } 419 420 int 421 grflock(gp, block) 422 register struct grf_softc *gp; 423 int block; 424 { 425 struct proc *p = curproc; /* XXX */ 426 int error; 427 extern char devioc[]; 428 429 #ifdef DEBUG 430 if (grfdebug & GDB_LOCK) 431 printf("grflock(%d): flags %x lockpid %x\n", 432 p->p_pid, gp->g_flags, 433 gp->g_lockp ? gp->g_lockp->p_pid : -1); 434 #endif 435 if (gp->g_pid) { 436 #ifdef DEBUG 437 if (grfdebug & GDB_LOCK) 438 printf(" lockpslot %d lockslot %d lock[lockslot] %d\n", 439 gp->g_lock->gl_lockslot, gp->g_lockpslot, 440 gp->g_lock->gl_locks[gp->g_lockpslot]); 441 #endif 442 gp->g_lock->gl_lockslot = 0; 443 if (gp->g_lock->gl_locks[gp->g_lockpslot] == 0) { 444 gp->g_lockp = NULL; 445 gp->g_lockpslot = 0; 446 } 447 } 448 if (gp->g_lockp) { 449 if (gp->g_lockp == p) 450 return(EBUSY); 451 if (!block) 452 return(OEAGAIN); 453 do { 454 gp->g_flags |= GF_WANTED; 455 if ((error = tsleep((caddr_t)&gp->g_flags, 456 (PZERO+1) | PCATCH, devioc, 0))) 457 return (error); 458 } while (gp->g_lockp); 459 } 460 gp->g_lockp = p; 461 if (gp->g_pid) { 462 int slot = grffindpid(gp); 463 464 #ifdef DEBUG 465 if (grfdebug & GDB_LOCK) 466 printf(" slot %d\n", slot); 467 #endif 468 gp->g_lockpslot = gp->g_lock->gl_lockslot = slot; 469 gp->g_lock->gl_locks[slot] = 1; 470 } 471 return(0); 472 } 473 474 int 475 grfunlock(gp) 476 register struct grf_softc *gp; 477 { 478 #ifdef DEBUG 479 if (grfdebug & GDB_LOCK) 480 printf("grfunlock(%d): flags %x lockpid %d\n", 481 curproc->p_pid, gp->g_flags, 482 gp->g_lockp ? gp->g_lockp->p_pid : -1); 483 #endif 484 if (gp->g_lockp != curproc) 485 return(EBUSY); 486 if (gp->g_pid) { 487 #ifdef DEBUG 488 if (grfdebug & GDB_LOCK) 489 printf(" lockpslot %d lockslot %d lock[lockslot] %d\n", 490 gp->g_lock->gl_lockslot, gp->g_lockpslot, 491 gp->g_lock->gl_locks[gp->g_lockpslot]); 492 #endif 493 gp->g_lock->gl_locks[gp->g_lockpslot] = 0; 494 gp->g_lockpslot = gp->g_lock->gl_lockslot = 0; 495 } 496 if (gp->g_flags & GF_WANTED) { 497 wakeup((caddr_t)&gp->g_flags); 498 gp->g_flags &= ~GF_WANTED; 499 } 500 gp->g_lockp = NULL; 501 return(0); 502 } 503 504 /* 505 * Convert a BSD style minor devno to HPUX style. 506 * We cannot just create HPUX style nodes as they require 24 bits 507 * of minor device number and we only have 8. 508 * XXX: This may give the wrong result for remote stats of other 509 * machines where device 10 exists. 510 */ 511 int 512 grfdevno(dev) 513 dev_t dev; 514 { 515 int unit = GRFUNIT(dev); 516 struct grf_softc *gp; 517 int newdev; 518 519 if (unit >= grf_cd.cd_ndevs || 520 (gp = grf_cd.cd_devs[unit]) == NULL || 521 (gp->g_flags&GF_ALIVE) == 0) 522 return(bsdtohpuxdev(dev)); 523 /* magic major number */ 524 newdev = 12 << 24; 525 /* now construct minor number */ 526 if (gp->g_display.gd_regaddr != (caddr_t)GRFIADDR) { 527 int sc = patosc(gp->g_display.gd_regaddr); 528 newdev |= (sc << 16) | 0x200; 529 } 530 if (dev & GRFIMDEV) 531 newdev |= 0x02; 532 else if (dev & GRFOVDEV) 533 newdev |= 0x01; 534 #ifdef DEBUG 535 if (grfdebug & GDB_DEVNO) 536 printf("grfdevno: dev %x newdev %x\n", dev, newdev); 537 #endif 538 return(newdev); 539 } 540 541 #endif /* COMPAT_HPUX */ 542 543 int 544 grfmap(dev, addrp, p) 545 dev_t dev; 546 caddr_t *addrp; 547 struct proc *p; 548 { 549 struct grf_softc *gp = grf_cd.cd_devs[GRFUNIT(dev)]; 550 int len, error; 551 struct vnode vn; 552 struct specinfo si; 553 int flags; 554 555 #ifdef DEBUG 556 if (grfdebug & GDB_MMAP) 557 printf("grfmap(%d): addr %p\n", p->p_pid, *addrp); 558 #endif 559 len = gp->g_display.gd_regsize + gp->g_display.gd_fbsize; 560 flags = MAP_SHARED; 561 if (*addrp) 562 flags |= MAP_FIXED; 563 else 564 *addrp = (caddr_t)0x1000000; /* XXX */ 565 vn.v_type = VCHR; /* XXX */ 566 vn.v_specinfo = &si; /* XXX */ 567 vn.v_rdev = dev; /* XXX */ 568 error = uvm_mmap(&p->p_vmspace->vm_map, (vaddr_t *)addrp, 569 (vsize_t)len, VM_PROT_ALL, VM_PROT_ALL, 570 flags, (caddr_t)&vn, 0); 571 if (error == 0) 572 (void) (*gp->g_sw->gd_mode)(gp, GM_MAP, *addrp); 573 return(error); 574 } 575 576 int 577 grfunmap(dev, addr, p) 578 dev_t dev; 579 caddr_t addr; 580 struct proc *p; 581 { 582 struct grf_softc *gp = grf_cd.cd_devs[GRFUNIT(dev)]; 583 vsize_t size; 584 int rv; 585 586 #ifdef DEBUG 587 if (grfdebug & GDB_MMAP) 588 printf("grfunmap(%d): dev %x addr %p\n", p->p_pid, dev, addr); 589 #endif 590 if (addr == 0) 591 return(EINVAL); /* XXX: how do we deal with this? */ 592 (void) (*gp->g_sw->gd_mode)(gp, GM_UNMAP, 0); 593 size = round_page(gp->g_display.gd_regsize + gp->g_display.gd_fbsize); 594 rv = uvm_unmap(&p->p_vmspace->vm_map, (vaddr_t)addr, 595 (vaddr_t)addr + size); 596 return(rv == KERN_SUCCESS ? 0 : EINVAL); 597 } 598 599 #ifdef COMPAT_HPUX 600 int 601 iommap(dev, addrp) 602 dev_t dev; 603 caddr_t *addrp; 604 { 605 606 #ifdef DEBUG 607 if (grfdebug & (GDB_MMAP|GDB_IOMAP)) 608 printf("iommap(%d): addr %p\n", curproc->p_pid, *addrp); 609 #endif 610 return(EINVAL); 611 } 612 613 int 614 iounmmap(dev, addr) 615 dev_t dev; 616 caddr_t addr; 617 { 618 #ifdef DEBUG 619 int unit = minor(dev); 620 621 if (grfdebug & (GDB_MMAP|GDB_IOMAP)) 622 printf("iounmmap(%d): id %d addr %p\n", 623 curproc->p_pid, unit, addr); 624 #endif 625 return(0); 626 } 627 628 /* 629 * Processes involved in framebuffer mapping via GCSLOT are recorded in 630 * an array of pids. The first element is used to record the last slot used 631 * (for faster lookups). The remaining elements record up to GRFMAXLCK-1 632 * process ids. Returns a slot number between 1 and GRFMAXLCK or 0 if no 633 * slot is available. 634 */ 635 int 636 grffindpid(gp) 637 struct grf_softc *gp; 638 { 639 register short pid, *sp; 640 register int i, limit; 641 int ni; 642 643 if (gp->g_pid == NULL) { 644 gp->g_pid = (short *) 645 malloc(GRFMAXLCK * sizeof(short), M_DEVBUF, M_WAITOK); 646 bzero((caddr_t)gp->g_pid, GRFMAXLCK * sizeof(short)); 647 } 648 pid = curproc->p_pid; 649 ni = limit = gp->g_pid[0]; 650 for (i = 1, sp = &gp->g_pid[1]; i <= limit; i++, sp++) { 651 if (*sp == pid) 652 goto done; 653 if (*sp == 0) 654 ni = i; 655 } 656 i = ni; 657 if (i < limit) { 658 gp->g_pid[i] = pid; 659 goto done; 660 } 661 if (++i == GRFMAXLCK) 662 return(0); 663 gp->g_pid[0] = i; 664 gp->g_pid[i] = pid; 665 done: 666 #ifdef DEBUG 667 if (grfdebug & GDB_LOCK) 668 printf("grffindpid(%d): slot %d of %d\n", 669 pid, i, gp->g_pid[0]); 670 #endif 671 return(i); 672 } 673 674 void 675 grfrmpid(gp) 676 struct grf_softc *gp; 677 { 678 register short pid, *sp; 679 register int limit, i; 680 int mi; 681 682 if (gp->g_pid == NULL || (limit = gp->g_pid[0]) == 0) 683 return; 684 pid = curproc->p_pid; 685 limit = gp->g_pid[0]; 686 mi = 0; 687 for (i = 1, sp = &gp->g_pid[1]; i <= limit; i++, sp++) { 688 if (*sp == pid) 689 *sp = 0; 690 else if (*sp) 691 mi = i; 692 } 693 i = mi; 694 if (i < limit) 695 gp->g_pid[0] = i; 696 #ifdef DEBUG 697 if (grfdebug & GDB_LOCK) 698 printf("grfrmpid(%d): slot %d of %d\n", 699 pid, sp-gp->g_pid, gp->g_pid[0]); 700 #endif 701 } 702 703 int 704 grflckmmap(dev, addrp) 705 dev_t dev; 706 caddr_t *addrp; 707 { 708 #ifdef DEBUG 709 struct proc *p = curproc; /* XXX */ 710 711 if (grfdebug & (GDB_MMAP|GDB_LOCK)) 712 printf("grflckmmap(%d): addr %p\n", 713 p->p_pid, *addrp); 714 #endif 715 return(EINVAL); 716 } 717 718 int 719 grflckunmmap(dev, addr) 720 dev_t dev; 721 caddr_t addr; 722 { 723 #ifdef DEBUG 724 int unit = minor(dev); 725 726 if (grfdebug & (GDB_MMAP|GDB_LOCK)) 727 printf("grflckunmmap(%d): id %d addr %p\n", 728 curproc->p_pid, unit, addr); 729 #endif 730 return(EINVAL); 731 } 732 #endif /* COMPAT_HPUX */ 733
Indexes created Fri Sep 26 20:09:58 GMT 2025