syms (17698B)
1 sizeof_1_ = 8; 2 aggr _1_ 3 { 4 'D' 0 hlength; 5 'D' 4 llength; 6 }; 7 8 defn 9 _1_(addr) { 10 complex _1_ addr; 11 print(" hlength ", addr.hlength, "\n"); 12 print(" llength ", addr.llength, "\n"); 13 }; 14 15 sizeof_2_ = 8; 16 aggr _2_ 17 { 18 'V' 0 length; 19 { 20 'D' 0 hlength; 21 'D' 4 llength; 22 }; 23 }; 24 25 defn 26 _2_(addr) { 27 complex _2_ addr; 28 print(" length ", addr.length, "\n"); 29 print("_1_ {\n"); 30 _1_(addr+0); 31 print("}\n"); 32 }; 33 34 UTFmax = 3; 35 Runesync = 128; 36 Runeself = 128; 37 Runeerror = 128; 38 sizeofFconv = 24; 39 aggr Fconv 40 { 41 'X' 0 out; 42 'X' 4 eout; 43 'D' 8 f1; 44 'D' 12 f2; 45 'D' 16 f3; 46 'D' 20 chr; 47 }; 48 49 defn 50 Fconv(addr) { 51 complex Fconv addr; 52 print(" out ", addr.out\X, "\n"); 53 print(" eout ", addr.eout\X, "\n"); 54 print(" f1 ", addr.f1, "\n"); 55 print(" f2 ", addr.f2, "\n"); 56 print(" f3 ", addr.f3, "\n"); 57 print(" chr ", addr.chr, "\n"); 58 }; 59 60 sizeofTm = 40; 61 aggr Tm 62 { 63 'D' 0 sec; 64 'D' 4 min; 65 'D' 8 hour; 66 'D' 12 mday; 67 'D' 16 mon; 68 'D' 20 year; 69 'D' 24 wday; 70 'D' 28 yday; 71 'a' 32 zone; 72 'D' 36 tzoff; 73 }; 74 75 defn 76 Tm(addr) { 77 complex Tm addr; 78 print(" sec ", addr.sec, "\n"); 79 print(" min ", addr.min, "\n"); 80 print(" hour ", addr.hour, "\n"); 81 print(" mday ", addr.mday, "\n"); 82 print(" mon ", addr.mon, "\n"); 83 print(" year ", addr.year, "\n"); 84 print(" wday ", addr.wday, "\n"); 85 print(" yday ", addr.yday, "\n"); 86 print(" zone ", addr.zone, "\n"); 87 print(" tzoff ", addr.tzoff, "\n"); 88 }; 89 90 PNPROC = 1; 91 PNGROUP = 2; 92 sizeofLock = 4; 93 aggr Lock 94 { 95 'D' 0 val; 96 }; 97 98 defn 99 Lock(addr) { 100 complex Lock addr; 101 print(" val ", addr.val, "\n"); 102 }; 103 104 sizeofQLp = 12; 105 aggr QLp 106 { 107 'D' 0 inuse; 108 'A' QLp 4 next; 109 'C' 8 state; 110 }; 111 112 defn 113 QLp(addr) { 114 complex QLp addr; 115 print(" inuse ", addr.inuse, "\n"); 116 print(" next ", addr.next\X, "\n"); 117 print(" state ", addr.state, "\n"); 118 }; 119 120 sizeofQLock = 16; 121 aggr QLock 122 { 123 Lock 0 lock; 124 'D' 4 locked; 125 'A' QLp 8 $head; 126 'A' QLp 12 $tail; 127 }; 128 129 defn 130 QLock(addr) { 131 complex QLock addr; 132 print("Lock lock {\n"); 133 Lock(addr.lock); 134 print("}\n"); 135 print(" locked ", addr.locked, "\n"); 136 print(" $head ", addr.$head\X, "\n"); 137 print(" $tail ", addr.$tail\X, "\n"); 138 }; 139 140 sizeofRWLock = 20; 141 aggr RWLock 142 { 143 Lock 0 lock; 144 'D' 4 readers; 145 'D' 8 writer; 146 'A' QLp 12 $head; 147 'A' QLp 16 $tail; 148 }; 149 150 defn 151 RWLock(addr) { 152 complex RWLock addr; 153 print("Lock lock {\n"); 154 Lock(addr.lock); 155 print("}\n"); 156 print(" readers ", addr.readers, "\n"); 157 print(" writer ", addr.writer, "\n"); 158 print(" $head ", addr.$head\X, "\n"); 159 print(" $tail ", addr.$tail\X, "\n"); 160 }; 161 162 RFNAMEG = 1; 163 RFENVG = 2; 164 RFFDG = 4; 165 RFNOTEG = 8; 166 RFPROC = 16; 167 RFMEM = 32; 168 RFNOWAIT = 64; 169 RFCNAMEG = 1024; 170 RFCENVG = 2048; 171 RFCFDG = 4096; 172 RFREND = 8192; 173 sizeofQid = 8; 174 aggr Qid 175 { 176 'U' 0 path; 177 'U' 4 vers; 178 }; 179 180 defn 181 Qid(addr) { 182 complex Qid addr; 183 print(" path ", addr.path, "\n"); 184 print(" vers ", addr.vers, "\n"); 185 }; 186 187 sizeofDir = 116; 188 aggr Dir 189 { 190 'a' 0 name; 191 'a' 28 uid; 192 'a' 56 gid; 193 Qid 84 qid; 194 'U' 92 mode; 195 'D' 96 atime; 196 'D' 100 mtime; 197 { 198 'V' 104 length; 199 { 200 'D' 104 hlength; 201 'D' 108 llength; 202 }; 203 }; 204 'u' 112 type; 205 'u' 114 dev; 206 }; 207 208 defn 209 Dir(addr) { 210 complex Dir addr; 211 print(" name ", addr.name, "\n"); 212 print(" uid ", addr.uid, "\n"); 213 print(" gid ", addr.gid, "\n"); 214 print("Qid qid {\n"); 215 Qid(addr.qid); 216 print("}\n"); 217 print(" mode ", addr.mode, "\n"); 218 print(" atime ", addr.atime, "\n"); 219 print(" mtime ", addr.mtime, "\n"); 220 print("_2_ {\n"); 221 _2_(addr+104); 222 print("}\n"); 223 print(" type ", addr.type, "\n"); 224 print(" dev ", addr.dev, "\n"); 225 }; 226 227 sizeofWaitmsg = 112; 228 aggr Waitmsg 229 { 230 'a' 0 pid; 231 'a' 12 time; 232 'a' 48 msg; 233 }; 234 235 defn 236 Waitmsg(addr) { 237 complex Waitmsg addr; 238 print(" pid ", addr.pid, "\n"); 239 print(" time ", addr.time, "\n"); 240 print(" msg ", addr.msg, "\n"); 241 }; 242 243 DBlack = 255; 244 DBlue = 201; 245 DRed = 15; 246 DYellow = 3; 247 DGreen = 192; 248 DWhite = 0; 249 Displaybufsize = 8000; 250 ICOSSCALE = 1024; 251 Borderwidth = 4; 252 Refbackup = 0; 253 Refnone = 1; 254 Refmesg = 2; 255 Endsquare = 0; 256 Enddisc = 1; 257 Endarrow = 2; 258 Endmask = 31; 259 sizeofPoint = 8; 260 aggr Point 261 { 262 'D' 0 x; 263 'D' 4 y; 264 }; 265 266 defn 267 Point(addr) { 268 complex Point addr; 269 print(" x ", addr.x, "\n"); 270 print(" y ", addr.y, "\n"); 271 }; 272 273 sizeofRectangle = 16; 274 aggr Rectangle 275 { 276 Point 0 min; 277 Point 8 max; 278 }; 279 280 defn 281 Rectangle(addr) { 282 complex Rectangle addr; 283 print("Point min {\n"); 284 Point(addr.min); 285 print("}\n"); 286 print("Point max {\n"); 287 Point(addr.max); 288 print("}\n"); 289 }; 290 291 sizeofScreen = 16; 292 aggr Screen 293 { 294 'X' 0 display; 295 'D' 4 id; 296 'X' 8 image; 297 'X' 12 fill; 298 }; 299 300 defn 301 Screen(addr) { 302 complex Screen addr; 303 print(" display ", addr.display\X, "\n"); 304 print(" id ", addr.id, "\n"); 305 print(" image ", addr.image\X, "\n"); 306 print(" fill ", addr.fill\X, "\n"); 307 }; 308 309 sizeofDisplay = 8156; 310 aggr Display 311 { 312 QLock 0 qlock; 313 'D' 16 dirno; 314 'D' 20 fd; 315 'D' 24 reffd; 316 'D' 28 ctlfd; 317 'D' 32 imageid; 318 'D' 36 $local; 319 'D' 40 ldepth; 320 'X' 44 error; 321 'X' 48 devdir; 322 'X' 52 windir; 323 'a' 56 oldlabel; 324 'U' 120 dataqid; 325 'X' 124 ones; 326 'X' 128 zeros; 327 'X' 132 image; 328 'a' 136 buf; 329 'X' 8140 bufp; 330 'X' 8144 defaultfont; 331 'X' 8148 defaultsubfont; 332 'X' 8152 windows; 333 }; 334 335 defn 336 Display(addr) { 337 complex Display addr; 338 print("QLock qlock {\n"); 339 QLock(addr.qlock); 340 print("}\n"); 341 print(" dirno ", addr.dirno, "\n"); 342 print(" fd ", addr.fd, "\n"); 343 print(" reffd ", addr.reffd, "\n"); 344 print(" ctlfd ", addr.ctlfd, "\n"); 345 print(" imageid ", addr.imageid, "\n"); 346 print(" $local ", addr.$local, "\n"); 347 print(" ldepth ", addr.ldepth, "\n"); 348 print(" error ", addr.error\X, "\n"); 349 print(" devdir ", addr.devdir\X, "\n"); 350 print(" windir ", addr.windir\X, "\n"); 351 print(" oldlabel ", addr.oldlabel, "\n"); 352 print(" dataqid ", addr.dataqid, "\n"); 353 print(" ones ", addr.ones\X, "\n"); 354 print(" zeros ", addr.zeros\X, "\n"); 355 print(" image ", addr.image\X, "\n"); 356 print(" buf ", addr.buf, "\n"); 357 print(" bufp ", addr.bufp\X, "\n"); 358 print(" defaultfont ", addr.defaultfont\X, "\n"); 359 print(" defaultsubfont ", addr.defaultsubfont\X, "\n"); 360 print(" windows ", addr.windows\X, "\n"); 361 }; 362 363 sizeofImage = 56; 364 aggr Image 365 { 366 'A' Display 0 display; 367 'D' 4 id; 368 Rectangle 8 r; 369 Rectangle 24 clipr; 370 'D' 40 ldepth; 371 'D' 44 repl; 372 'A' Screen 48 screen; 373 'A' Image 52 next; 374 }; 375 376 defn 377 Image(addr) { 378 complex Image addr; 379 print(" display ", addr.display\X, "\n"); 380 print(" id ", addr.id, "\n"); 381 print("Rectangle r {\n"); 382 Rectangle(addr.r); 383 print("}\n"); 384 print("Rectangle clipr {\n"); 385 Rectangle(addr.clipr); 386 print("}\n"); 387 print(" ldepth ", addr.ldepth, "\n"); 388 print(" repl ", addr.repl, "\n"); 389 print(" screen ", addr.screen\X, "\n"); 390 print(" next ", addr.next\X, "\n"); 391 }; 392 393 sizeofRGB = 12; 394 aggr RGB 395 { 396 'U' 0 red; 397 'U' 4 green; 398 'U' 8 blue; 399 }; 400 401 defn 402 RGB(addr) { 403 complex RGB addr; 404 print(" red ", addr.red, "\n"); 405 print(" green ", addr.green, "\n"); 406 print(" blue ", addr.blue, "\n"); 407 }; 408 409 sizeofFontchar = 8; 410 aggr Fontchar 411 { 412 'D' 0 x; 413 'b' 4 top; 414 'b' 5 bottom; 415 'C' 6 left; 416 'b' 7 width; 417 }; 418 419 defn 420 Fontchar(addr) { 421 complex Fontchar addr; 422 print(" x ", addr.x, "\n"); 423 print(" top ", addr.top, "\n"); 424 print(" bottom ", addr.bottom, "\n"); 425 print(" left ", addr.left, "\n"); 426 print(" width ", addr.width, "\n"); 427 }; 428 429 sizeofSubfont = 16; 430 aggr Subfont 431 { 432 'X' 0 name; 433 'd' 4 n; 434 'b' 6 height; 435 'C' 7 ascent; 436 'A' Fontchar 8 info; 437 'A' Image 12 bits; 438 }; 439 440 defn 441 Subfont(addr) { 442 complex Subfont addr; 443 print(" name ", addr.name\X, "\n"); 444 print(" n ", addr.n, "\n"); 445 print(" height ", addr.height, "\n"); 446 print(" ascent ", addr.ascent, "\n"); 447 print(" info ", addr.info\X, "\n"); 448 print(" bits ", addr.bits\X, "\n"); 449 }; 450 451 LOG2NFCACHE = 6; 452 NFCACHE = 64; 453 NFLOOK = 5; 454 NFSUBF = 2; 455 MAXFCACHE = 1029; 456 MAXSUBF = 50; 457 DSUBF = 4; 458 SUBFAGE = 10000; 459 CACHEAGE = 10000; 460 sizeofCachefont = 16; 461 aggr Cachefont 462 { 463 'u' 0 min; 464 'u' 2 max; 465 'D' 4 offset; 466 'X' 8 name; 467 'X' 12 subfontname; 468 }; 469 470 defn 471 Cachefont(addr) { 472 complex Cachefont addr; 473 print(" min ", addr.min, "\n"); 474 print(" max ", addr.max, "\n"); 475 print(" offset ", addr.offset, "\n"); 476 print(" name ", addr.name\X, "\n"); 477 print(" subfontname ", addr.subfontname\X, "\n"); 478 }; 479 480 sizeofCacheinfo = 8; 481 aggr Cacheinfo 482 { 483 'u' 0 x; 484 'b' 2 width; 485 'C' 3 left; 486 'u' 4 value; 487 'u' 6 age; 488 }; 489 490 defn 491 Cacheinfo(addr) { 492 complex Cacheinfo addr; 493 print(" x ", addr.x, "\n"); 494 print(" width ", addr.width, "\n"); 495 print(" left ", addr.left, "\n"); 496 print(" value ", addr.value, "\n"); 497 print(" age ", addr.age, "\n"); 498 }; 499 500 sizeofCachesubf = 12; 501 aggr Cachesubf 502 { 503 'U' 0 age; 504 'A' Cachefont 4 cf; 505 'A' Subfont 8 f; 506 }; 507 508 defn 509 Cachesubf(addr) { 510 complex Cachesubf addr; 511 print(" age ", addr.age, "\n"); 512 print(" cf ", addr.cf\X, "\n"); 513 print(" f ", addr.f\X, "\n"); 514 }; 515 516 sizeofFont = 52; 517 aggr Font 518 { 519 'X' 0 name; 520 'A' Display 4 display; 521 'd' 8 height; 522 'd' 10 ascent; 523 'D' 12 maxldepth; 524 'd' 16 width; 525 'd' 18 ldepth; 526 'd' 20 nsub; 527 'U' 24 age; 528 'D' 28 ncache; 529 'D' 32 nsubf; 530 'A' Cacheinfo 36 cache; 531 'A' Cachesubf 40 subf; 532 'A' Cachefont 44 sub; 533 'A' Image 48 cacheimage; 534 }; 535 536 defn 537 Font(addr) { 538 complex Font addr; 539 print(" name ", addr.name\X, "\n"); 540 print(" display ", addr.display\X, "\n"); 541 print(" height ", addr.height, "\n"); 542 print(" ascent ", addr.ascent, "\n"); 543 print(" maxldepth ", addr.maxldepth, "\n"); 544 print(" width ", addr.width, "\n"); 545 print(" ldepth ", addr.ldepth, "\n"); 546 print(" nsub ", addr.nsub, "\n"); 547 print(" age ", addr.age, "\n"); 548 print(" ncache ", addr.ncache, "\n"); 549 print(" nsubf ", addr.nsubf, "\n"); 550 print(" cache ", addr.cache\X, "\n"); 551 print(" subf ", addr.subf\X, "\n"); 552 print(" sub ", addr.sub\X, "\n"); 553 print(" cacheimage ", addr.cacheimage\X, "\n"); 554 }; 555 556 complex Point ZP; 557 complex Rectangle ZR; 558 complex Display display; 559 complex Font font; 560 complex Image screen; 561 sizeofAlt = 20; 562 aggr Alt 563 { 564 'X' 0 c; 565 'X' 4 v; 566 'D' 8 op; 567 'X' 12 tag; 568 'U' 16 q; 569 }; 570 571 defn 572 Alt(addr) { 573 complex Alt addr; 574 print(" c ", addr.c\X, "\n"); 575 print(" v ", addr.v\X, "\n"); 576 print(" op ", addr.op, "\n"); 577 print(" tag ", addr.tag\X, "\n"); 578 print(" q ", addr.q, "\n"); 579 }; 580 581 sizeofRef = 4; 582 aggr Ref 583 { 584 'D' 0 ref; 585 }; 586 587 defn 588 Ref(addr) { 589 complex Ref addr; 590 print(" ref ", addr.ref, "\n"); 591 }; 592 593 sizeofCursor = 72; 594 aggr Cursor 595 { 596 Point 0 offset; 597 'a' 8 clr; 598 'a' 40 set; 599 }; 600 601 defn 602 Cursor(addr) { 603 complex Cursor addr; 604 print("Point offset {\n"); 605 Point(addr.offset); 606 print("}\n"); 607 print(" clr ", addr.clr, "\n"); 608 print(" set ", addr.set, "\n"); 609 }; 610 611 sizeofMouse = 16; 612 aggr Mouse 613 { 614 'D' 0 buttons; 615 Point 4 xy; 616 'U' 12 msec; 617 }; 618 619 defn 620 Mouse(addr) { 621 complex Mouse addr; 622 print(" buttons ", addr.buttons, "\n"); 623 print("Point xy {\n"); 624 Point(addr.xy); 625 print("}\n"); 626 print(" msec ", addr.msec, "\n"); 627 }; 628 629 sizeofMousectl = 44; 630 aggr Mousectl 631 { 632 { 633 'D' 0 buttons; 634 Point 4 xy; 635 'U' 12 msec; 636 }; 637 'X' 16 c; 638 'X' 20 reshapec; 639 'X' 24 file; 640 'D' 28 mfd; 641 'D' 32 cfd; 642 'D' 36 pid; 643 'A' Image 40 image; 644 }; 645 646 defn 647 Mousectl(addr) { 648 complex Mousectl addr; 649 print("Mouse {\n"); 650 Mouse(addr+0); 651 print("}\n"); 652 print(" c ", addr.c\X, "\n"); 653 print(" reshapec ", addr.reshapec\X, "\n"); 654 print(" file ", addr.file\X, "\n"); 655 print(" mfd ", addr.mfd, "\n"); 656 print(" cfd ", addr.cfd, "\n"); 657 print(" pid ", addr.pid, "\n"); 658 print(" image ", addr.image\X, "\n"); 659 }; 660 661 sizeofMenu = 12; 662 aggr Menu 663 { 664 'X' 0 item; 665 'X' 4 gen; 666 'D' 8 lasthit; 667 }; 668 669 defn 670 Menu(addr) { 671 complex Menu addr; 672 print(" item ", addr.item\X, "\n"); 673 print(" gen ", addr.gen\X, "\n"); 674 print(" lasthit ", addr.lasthit, "\n"); 675 }; 676 677 sizeofKeyboardctl = 20; 678 aggr Keyboardctl 679 { 680 'X' 0 c; 681 'X' 4 file; 682 'D' 8 consfd; 683 'D' 12 ctlfd; 684 'D' 16 pid; 685 }; 686 687 defn 688 Keyboardctl(addr) { 689 complex Keyboardctl addr; 690 print(" c ", addr.c\X, "\n"); 691 print(" file ", addr.file\X, "\n"); 692 print(" consfd ", addr.consfd, "\n"); 693 print(" ctlfd ", addr.ctlfd, "\n"); 694 print(" pid ", addr.pid, "\n"); 695 }; 696 697 BACK = 0; 698 HIGH = 1; 699 BORD = 2; 700 TEXT = 3; 701 HTEXT = 4; 702 NCOL = 5; 703 sizeof_3_ = 4; 704 aggr _3_ 705 { 706 'd' 0 bc; 707 'd' 2 minwid; 708 }; 709 710 defn 711 _3_(addr) { 712 complex _3_ addr; 713 print(" bc ", addr.bc, "\n"); 714 print(" minwid ", addr.minwid, "\n"); 715 }; 716 717 sizeof_4_ = 4; 718 aggr _4_ 719 { 720 'X' 0 ptr; 721 { 722 'd' 0 bc; 723 'd' 2 minwid; 724 }; 725 }; 726 727 defn 728 _4_(addr) { 729 complex _4_ addr; 730 print(" ptr ", addr.ptr\X, "\n"); 731 print("_3_ {\n"); 732 _3_(addr+0); 733 print("}\n"); 734 }; 735 736 sizeofFrbox = 12; 737 aggr Frbox 738 { 739 'D' 0 wid; 740 'D' 4 nrune; 741 { 742 'X' 8 ptr; 743 { 744 'd' 8 bc; 745 'd' 10 minwid; 746 }; 747 }; 748 }; 749 750 defn 751 Frbox(addr) { 752 complex Frbox addr; 753 print(" wid ", addr.wid, "\n"); 754 print(" nrune ", addr.nrune, "\n"); 755 print("_4_ {\n"); 756 _4_(addr+8); 757 print("}\n"); 758 }; 759 760 complex Font font; 761 complex Display display; 762 sizeofFrame = 108; 763 aggr Frame 764 { 765 'A' Font 0 font; 766 'A' Display 4 display; 767 'A' Image 8 b; 768 'a' 12 cols; 769 Rectangle 32 r; 770 Rectangle 48 entire; 771 'X' 64 scroll; 772 'A' Frbox 68 box; 773 'U' 72 p0; 774 'U' 76 p1; 775 'u' 80 nbox; 776 'u' 82 nalloc; 777 'u' 84 maxtab; 778 'u' 86 nchars; 779 'u' 88 nlines; 780 'u' 90 maxlines; 781 'u' 92 lastlinefull; 782 'u' 94 modified; 783 'A' Image 96 tick; 784 'A' Image 100 tickback; 785 'D' 104 ticked; 786 }; 787 788 defn 789 Frame(addr) { 790 complex Frame addr; 791 print(" font ", addr.font\X, "\n"); 792 print(" display ", addr.display\X, "\n"); 793 print(" b ", addr.b\X, "\n"); 794 print(" cols ", addr.cols, "\n"); 795 print("Rectangle r {\n"); 796 Rectangle(addr.r); 797 print("}\n"); 798 print("Rectangle entire {\n"); 799 Rectangle(addr.entire); 800 print("}\n"); 801 print(" scroll ", addr.scroll\X, "\n"); 802 print(" box ", addr.box\X, "\n"); 803 print(" p0 ", addr.p0, "\n"); 804 print(" p1 ", addr.p1, "\n"); 805 print(" nbox ", addr.nbox, "\n"); 806 print(" nalloc ", addr.nalloc, "\n"); 807 print(" maxtab ", addr.maxtab, "\n"); 808 print(" nchars ", addr.nchars, "\n"); 809 print(" nlines ", addr.nlines, "\n"); 810 print(" maxlines ", addr.maxlines, "\n"); 811 print(" lastlinefull ", addr.lastlinefull, "\n"); 812 print(" modified ", addr.modified, "\n"); 813 print(" tick ", addr.tick\X, "\n"); 814 print(" tickback ", addr.tickback\X, "\n"); 815 print(" ticked ", addr.ticked, "\n"); 816 }; 817 818 None = 0; 819 Some = 1; 820 All = 2; 821 Clicktime = 1000; 822 sizeofFlayer = 172; 823 aggr Flayer 824 { 825 Frame 0 f; 826 'D' 108 origin; 827 'D' 112 p0; 828 'D' 116 p1; 829 'D' 120 click; 830 'X' 124 textfn; 831 'D' 128 user0; 832 'X' 132 user1; 833 Rectangle 136 entire; 834 Rectangle 152 scroll; 835 'D' 168 visible; 836 }; 837 838 defn 839 Flayer(addr) { 840 complex Flayer addr; 841 print("Frame f {\n"); 842 Frame(addr.f); 843 print("}\n"); 844 print(" origin ", addr.origin, "\n"); 845 print(" p0 ", addr.p0, "\n"); 846 print(" p1 ", addr.p1, "\n"); 847 print(" click ", addr.click, "\n"); 848 print(" textfn ", addr.textfn\X, "\n"); 849 print(" user0 ", addr.user0, "\n"); 850 print(" user1 ", addr.user1\X, "\n"); 851 print("Rectangle entire {\n"); 852 Rectangle(addr.entire); 853 print("}\n"); 854 print("Rectangle scroll {\n"); 855 Rectangle(addr.scroll); 856 print("}\n"); 857 print(" visible ", addr.visible, "\n"); 858 }; 859 860 Up = 0; 861 Down = 1; 862 sizeofSection = 12; 863 aggr Section 864 { 865 'D' 0 nrunes; 866 'X' 4 text; 867 'A' Section 8 next; 868 }; 869 870 defn 871 Section(addr) { 872 complex Section addr; 873 print(" nrunes ", addr.nrunes, "\n"); 874 print(" text ", addr.text\X, "\n"); 875 print(" next ", addr.next\X, "\n"); 876 }; 877 878 sizeofRasp = 8; 879 aggr Rasp 880 { 881 'D' 0 nrunes; 882 'A' Section 4 sect; 883 }; 884 885 defn 886 Rasp(addr) { 887 complex Rasp addr; 888 print(" nrunes ", addr.nrunes, "\n"); 889 print(" sect ", addr.sect\X, "\n"); 890 }; 891 892 sizeofText = 876; 893 aggr Text 894 { 895 Rasp 0 rasp; 896 'd' 8 nwin; 897 'd' 10 front; 898 'u' 12 tag; 899 'C' 14 lock; 900 'a' 16 l; 901 }; 902 903 defn 904 Text(addr) { 905 complex Text addr; 906 print("Rasp rasp {\n"); 907 Rasp(addr.rasp); 908 print("}\n"); 909 print(" nwin ", addr.nwin, "\n"); 910 print(" front ", addr.front, "\n"); 911 print(" tag ", addr.tag, "\n"); 912 print(" lock ", addr.lock, "\n"); 913 print(" l ", addr.l, "\n"); 914 }; 915 916 sizeofReadbuf = 8196; 917 aggr Readbuf 918 { 919 'd' 0 n; 920 'a' 2 data; 921 }; 922 923 defn 924 Readbuf(addr) { 925 complex Readbuf addr; 926 print(" n ", addr.n, "\n"); 927 print(" data ", addr.data, "\n"); 928 }; 929 930 RHost = 0; 931 RKeyboard = 1; 932 RMouse = 2; 933 RPlumb = 3; 934 RReshape = 4; 935 NRes = 5; 936 complex Cursor bullseye; 937 complex Cursor deadmouse; 938 complex Cursor lockarrow; 939 complex Cursor cursor; 940 complex Flayer which; 941 complex Flayer work; 942 complex Text cmd; 943 complex Mousectl mousectl; 944 complex Keyboardctl keyboardctl; 945 complex Mouse mousep; 946 Tversion = 0; 947 Tstartcmdfile = 1; 948 Tcheck = 2; 949 Trequest = 3; 950 Torigin = 4; 951 Tstartfile = 5; 952 Tworkfile = 6; 953 Ttype = 7; 954 Tcut = 8; 955 Tpaste = 9; 956 Tsnarf = 10; 957 Tstartnewfile = 11; 958 Twrite = 12; 959 Tclose = 13; 960 Tlook = 14; 961 Tsearch = 15; 962 Tsend = 16; 963 Tdclick = 17; 964 Tstartsnarf = 18; 965 Tsetsnarf = 19; 966 Tack = 20; 967 Texit = 21; 968 Tplumb = 22; 969 TMAX = 23; 970 Hversion = 0; 971 Hbindname = 1; 972 Hcurrent = 2; 973 Hnewname = 3; 974 Hmovname = 4; 975 Hgrow = 5; 976 Hcheck0 = 6; 977 Hcheck = 7; 978 Hunlock = 8; 979 Hdata = 9; 980 Horigin = 10; 981 Hunlockfile = 11; 982 Hsetdot = 12; 983 Hgrowdata = 13; 984 Hmoveto = 14; 985 Hclean = 15; 986 Hdirty = 16; 987 Hcut = 17; 988 Hsetpat = 18; 989 Hdelname = 19; 990 Hclose = 20; 991 Hsetsnarf = 21; 992 Hsnarflen = 22; 993 Hack = 23; 994 Hexit = 24; 995 Hplumb = 25; 996 HMAX = 26; 997 sizeofHeader = 4; 998 aggr Header 999 { 1000 'b' 0 type; 1001 'b' 1 count0; 1002 'b' 2 count1; 1003 'a' 3 data; 1004 }; 1005 1006 defn 1007 Header(addr) { 1008 complex Header addr; 1009 print(" type ", addr.type, "\n"); 1010 print(" count0 ", addr.count0, "\n"); 1011 print(" count1 ", addr.count1, "\n"); 1012 print(" data ", addr.data, "\n"); 1013 }; 1014 1015 complex Text cmd; 1016 complex Cursor cursor; 1017 complex Flayer which; 1018 complex Flayer work; 1019 complex Text threadmain:t; 1020 complex Rectangle threadmain:r; 1021 complex Flayer threadmain:nwhich; 1022 complex Flayer current:nw; 1023 complex Text current:t; 1024 complex Flayer closeup:l; 1025 complex Text closeup:t; 1026 complex Text findl:t; 1027 complex Flayer duplicate:l; 1028 complex Rectangle duplicate:r; 1029 complex Font duplicate:f; 1030 complex Text duplicate:t; 1031 complex Flayer duplicate:nl; 1032 complex Rectangle getr:rp; 1033 complex Point getr:p; 1034 complex Rectangle getr:r; 1035 complex Text snarf:t; 1036 complex Flayer snarf:l; 1037 complex Text cut:t; 1038 complex Flayer cut:l; 1039 complex Text paste:t; 1040 complex Flayer scrorigin:l; 1041 complex Text scrorigin:t; 1042 complex Rasp raspc:r; 1043 complex Rasp ctlw:r; 1044 complex Rasp ctlu:r; 1045 complex Flayer center:l; 1046 complex Text center:t; 1047 complex Flayer onethird:l; 1048 complex Text onethird:t; 1049 complex Rectangle onethird:s; 1050 complex Text flushtyping:t; 1051 complex Flayer type:l; 1052 complex Text type:t; 1053 complex Flayer gettext:l; 1054 complex Text gettext:t; 1055 complex Flayer scrtotal:l;