usub/bsdcurses.mus

   1 /* $RCSfile: bsdcurses.mus,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:05:28 $
   2  *
   3  * $Log:        bsdcurses.mus,v $
   4  * Revision 4.0.1.2  92/06/08  16:05:28  lwall
   5  * patch20: &getcap eventually dumped core in bsdcurses
   6  *
   7  * Revision 4.0.1.1  91/11/05  19:04:53  lwall
   8  * initial checkin
   9  *
  10  * Revision 4.0  91/03/20  01:56:13  lwall
  11  * 4.0 baseline.
  12  *
  13  * Revision 3.0.1.1  90/08/09  04:05:21  lwall
  14  * patch19: Initial revision
  15  *
  16  */
  17
  18 #include "EXTERN.h"
  19 #include "perl.h"
  20
  21 char *savestr();
  22
  23 #include <curses.h>
  24
  25 static enum uservars {
  26     UV_curscr,
  27     UV_stdscr,
  28     UV_Def_term,
  29     UV_My_term,
  30     UV_ttytype,
  31     UV_LINES,
  32     UV_COLS,
  33     UV_ERR,
  34     UV_OK,
  35 };
  36
  37 static enum usersubs {
  38     US_addch,
  39     US_waddch,
  40     US_addstr,
  41     US_waddstr,
  42     US_box,
  43     US_clear,
  44     US_wclear,
  45     US_clearok,
  46     US_clrtobot,
  47     US_wclrtobot,
  48     US_clrtoeol,
  49     US_wclrtoeol,
  50     US_delch,
  51     US_wdelch,
  52     US_deleteln,
  53     US_wdeleteln,
  54     US_erase,
  55     US_werase,
  56     US_flushok,
  57     US_idlok,
  58     US_insch,
  59     US_winsch,
  60     US_insertln,
  61     US_winsertln,
  62     US_move,
  63     US_wmove,
  64     US_overlay,
  65     US_overwrite,
  66     US_printw,
  67     US_wprintw,
  68     US_refresh,
  69     US_wrefresh,
  70     US_standout,
  71     US_wstandout,
  72     US_standend,
  73     US_wstandend,
  74     US_cbreak,
  75     US_nocbreak,
  76     US_echo,
  77     US_noecho,
  78     US_getch,
  79     US_wgetch,
  80     US_getstr,
  81     US_wgetstr,
  82     US_raw,
  83     US_noraw,
  84     US_scanw,
  85     US_wscanw,
  86     US_baudrate,
  87     US_delwin,
  88     US_endwin,
  89     US_erasechar,
  90     US_getcap,
  91     US_getyx,
  92     US_inch,
  93     US_winch,
  94     US_initscr,
  95     US_killchar,
  96     US_leaveok,
  97     US_longname,
  98     US_fullname,
  99     US_mvwin,
 100     US_newwin,
 101     US_nl,
 102     US_nonl,
 103     US_scrollok,
 104     US_subwin,
 105     US_touchline,
 106     US_touchoverlap,
 107     US_touchwin,
 108     US_unctrl,
 109     US_gettmode,
 110     US_mvcur,
 111     US_scroll,
 112     US_savetty,
 113     US_resetty,
 114     US_setterm,
 115     US_tstp,
 116     US__putchar,
 117     US_testcallback,
 118 };
 119
 120 static int usersub();
 121 static int userset();
 122 static int userval();
 123
 124 int
 125 init_curses()
 126 {
 127     struct ufuncs uf;
 128     char *filename = "curses.c";
 129
 130     uf.uf_set = userset;
 131     uf.uf_val = userval;
 132
 133 #define MAGICVAR(name, ix) uf.uf_index = ix, magicname(name, &uf, sizeof uf)
 134
 135     MAGICVAR("curscr",  UV_curscr);
 136     MAGICVAR("stdscr",  UV_stdscr);
 137     MAGICVAR("Def_term",UV_Def_term);
 138     MAGICVAR("My_term", UV_My_term);
 139     MAGICVAR("ttytype", UV_ttytype);
 140     MAGICVAR("LINES",   UV_LINES);
 141     MAGICVAR("COLS",    UV_COLS);
 142     MAGICVAR("ERR",     UV_ERR);
 143     MAGICVAR("OK",      UV_OK);
 144
 145     make_usub("addch",          US_addch,       usersub, filename);
 146     make_usub("waddch",         US_waddch,      usersub, filename);
 147     make_usub("addstr",         US_addstr,      usersub, filename);
 148     make_usub("waddstr",        US_waddstr,     usersub, filename);
 149     make_usub("box",            US_box,         usersub, filename);
 150     make_usub("clear",          US_clear,       usersub, filename);
 151     make_usub("wclear",         US_wclear,      usersub, filename);
 152     make_usub("clearok",        US_clearok,     usersub, filename);
 153     make_usub("clrtobot",       US_clrtobot,    usersub, filename);
 154     make_usub("wclrtobot",      US_wclrtobot,   usersub, filename);
 155     make_usub("clrtoeol",       US_clrtoeol,    usersub, filename);
 156     make_usub("wclrtoeol",      US_wclrtoeol,   usersub, filename);
 157     make_usub("delch",          US_delch,       usersub, filename);
 158     make_usub("wdelch",         US_wdelch,      usersub, filename);
 159     make_usub("deleteln",       US_deleteln,    usersub, filename);
 160     make_usub("wdeleteln",      US_wdeleteln,   usersub, filename);
 161     make_usub("erase",          US_erase,       usersub, filename);
 162     make_usub("werase",         US_werase,      usersub, filename);
 163     make_usub("flushok",        US_flushok,     usersub, filename);
 164     make_usub("idlok",          US_idlok,       usersub, filename);
 165     make_usub("insch",          US_insch,       usersub, filename);
 166     make_usub("winsch",         US_winsch,      usersub, filename);
 167     make_usub("insertln",       US_insertln,    usersub, filename);
 168     make_usub("winsertln",      US_winsertln,   usersub, filename);
 169     make_usub("move",           US_move,        usersub, filename);
 170     make_usub("wmove",          US_wmove,       usersub, filename);
 171     make_usub("overlay",        US_overlay,     usersub, filename);
 172     make_usub("overwrite",      US_overwrite,   usersub, filename);
 173     make_usub("printw",         US_printw,      usersub, filename);
 174     make_usub("wprintw",        US_wprintw,     usersub, filename);
 175     make_usub("refresh",        US_refresh,     usersub, filename);
 176     make_usub("wrefresh",       US_wrefresh,    usersub, filename);
 177     make_usub("standout",       US_standout,    usersub, filename);
 178     make_usub("wstandout",      US_wstandout,   usersub, filename);
 179     make_usub("standend",       US_standend,    usersub, filename);
 180     make_usub("wstandend",      US_wstandend,   usersub, filename);
 181     make_usub("cbreak",         US_cbreak,      usersub, filename);
 182     make_usub("nocbreak",       US_nocbreak,    usersub, filename);
 183     make_usub("echo",           US_echo,        usersub, filename);
 184     make_usub("noecho",         US_noecho,      usersub, filename);
 185     make_usub("getch",          US_getch,       usersub, filename);
 186     make_usub("wgetch",         US_wgetch,      usersub, filename);
 187     make_usub("getstr",         US_getstr,      usersub, filename);
 188     make_usub("wgetstr",        US_wgetstr,     usersub, filename);
 189     make_usub("raw",            US_raw,         usersub, filename);
 190     make_usub("noraw",          US_noraw,       usersub, filename);
 191     make_usub("scanw",          US_scanw,       usersub, filename);
 192     make_usub("wscanw",         US_wscanw,      usersub, filename);
 193     make_usub("baudrate",       US_baudrate,    usersub, filename);
 194     make_usub("delwin",         US_delwin,      usersub, filename);
 195     make_usub("endwin",         US_endwin,      usersub, filename);
 196     make_usub("erasechar",      US_erasechar,   usersub, filename);
 197     make_usub("getcap",         US_getcap,      usersub, filename);
 198     make_usub("getyx",          US_getyx,       usersub, filename);
 199     make_usub("inch",           US_inch,        usersub, filename);
 200     make_usub("winch",          US_winch,       usersub, filename);
 201     make_usub("initscr",        US_initscr,     usersub, filename);
 202     make_usub("killchar",       US_killchar,    usersub, filename);
 203     make_usub("leaveok",        US_leaveok,     usersub, filename);
 204     make_usub("longname",       US_longname,    usersub, filename);
 205     make_usub("fullname",       US_fullname,    usersub, filename);
 206     make_usub("mvwin",          US_mvwin,       usersub, filename);
 207     make_usub("newwin",         US_newwin,      usersub, filename);
 208     make_usub("nl",             US_nl,          usersub, filename);
 209     make_usub("nonl",           US_nonl,        usersub, filename);
 210     make_usub("scrollok",       US_scrollok,    usersub, filename);
 211     make_usub("subwin",         US_subwin,      usersub, filename);
 212     make_usub("touchline",      US_touchline,   usersub, filename);
 213     make_usub("touchoverlap",   US_touchoverlap,usersub, filename);
 214     make_usub("touchwin",       US_touchwin,    usersub, filename);
 215     make_usub("unctrl",         US_unctrl,      usersub, filename);
 216     make_usub("gettmode",       US_gettmode,    usersub, filename);
 217     make_usub("mvcur",          US_mvcur,       usersub, filename);
 218     make_usub("scroll",         US_scroll,      usersub, filename);
 219     make_usub("savetty",        US_savetty,     usersub, filename);
 220     make_usub("resetty",        US_resetty,     usersub, filename);
 221     make_usub("setterm",        US_setterm,     usersub, filename);
 222     make_usub("tstp",           US_tstp,        usersub, filename);
 223     make_usub("_putchar",       US__putchar,    usersub, filename);
 224     make_usub("testcallback",   US_testcallback,usersub, filename);
 225 };
 226
 227 static int
 228 usersub(ix, sp, items)
 229 int ix;
 230 register int sp;
 231 register int items;
 232 {
 233     STR **st = stack->ary_array + sp;
 234     register int i;
 235     register char *tmps;
 236     register STR *Str;          /* used in str_get and str_gnum macros */
 237
 238     switch (ix) {
 239 CASE int addch
 240 I       char            ch
 241 END
 242
 243 CASE int waddch
 244 I       WINDOW*         win
 245 I       char            ch
 246 END
 247
 248 CASE int addstr
 249 I       char*           str
 250 END
 251
 252 CASE int waddstr
 253 I       WINDOW*         win
 254 I       char*           str
 255 END
 256
 257 CASE int box
 258 I       WINDOW*         win
 259 I       char            vert
 260 I       char            hor
 261 END
 262
 263 CASE int clear
 264 END
 265
 266 CASE int wclear
 267 I       WINDOW*         win
 268 END
 269
 270 CASE int clearok
 271 I       WINDOW*         win
 272 I       bool            boolf
 273 END
 274
 275 CASE int clrtobot
 276 END
 277
 278 CASE int wclrtobot
 279 I       WINDOW*         win
 280 END
 281
 282 CASE int clrtoeol
 283 END
 284
 285 CASE int wclrtoeol
 286 I       WINDOW*         win
 287 END
 288
 289 CASE int delch
 290 END
 291
 292 CASE int wdelch
 293 I       WINDOW*         win
 294 END
 295
 296 CASE int deleteln
 297 END
 298
 299 CASE int wdeleteln
 300 I       WINDOW*         win
 301 END
 302
 303 CASE int erase
 304 END
 305
 306 CASE int werase
 307 I       WINDOW*         win
 308 END
 309
 310 CASE int flushok
 311 I       WINDOW*         win
 312 I       bool            boolf
 313 END
 314
 315 CASE int idlok
 316 I       WINDOW*         win
 317 I       bool            boolf
 318 END
 319
 320 CASE int insch
 321 I       char            c
 322 END
 323
 324 CASE int winsch
 325 I       WINDOW*         win
 326 I       char            c
 327 END
 328
 329 CASE int insertln
 330 END
 331
 332 CASE int winsertln
 333 I       WINDOW*         win
 334 END
 335
 336 CASE int move
 337 I       int             y
 338 I       int             x
 339 END
 340
 341 CASE int wmove
 342 I       WINDOW*         win
 343 I       int             y
 344 I       int             x
 345 END
 346
 347 CASE int overlay
 348 I       WINDOW*         win1
 349 I       WINDOW*         win2
 350 END
 351
 352 CASE int overwrite
 353 I       WINDOW*         win1
 354 I       WINDOW*         win2
 355 END
 356
 357     case US_printw:
 358         if (items < 1)
 359             fatal("Usage: &printw($fmt, $arg1, $arg2, ... )");
 360         else {
 361             int retval;
 362             STR*        str =           str_new(0);
 363
 364             do_sprintf(str, items - 1, st + 1);
 365             retval = addstr(str->str_ptr);
 366             str_numset(st[0], (double) retval);
 367             str_free(str);
 368         }
 369         return sp;
 370
 371     case US_wprintw:
 372         if (items < 2)
 373             fatal("Usage: &wprintw($win, $fmt, $arg1, $arg2, ... )");
 374         else {
 375             int retval;
 376             STR*        str =           str_new(0);
 377             WINDOW*     win =           *(WINDOW**)     str_get(st[1]);
 378
 379             do_sprintf(str, items - 1, st + 1);
 380             retval = waddstr(win, str->str_ptr);
 381             str_numset(st[0], (double) retval);
 382             str_free(str);
 383         }
 384         return sp;
 385
 386 CASE int refresh
 387 END
 388
 389 CASE int wrefresh
 390 I       WINDOW*         win
 391 END
 392
 393 CASE int standout
 394 END
 395
 396 CASE int wstandout
 397 I       WINDOW*         win
 398 END
 399
 400 CASE int standend
 401 END
 402
 403 CASE int wstandend
 404 I       WINDOW*         win
 405 END
 406
 407 CASE int cbreak
 408 END
 409
 410 CASE int nocbreak
 411 END
 412
 413 CASE int echo
 414 END
 415
 416 CASE int noecho
 417 END
 418
 419     case US_getch:
 420         if (items != 0)
 421             fatal("Usage: &getch()");
 422         else {
 423             int retval;
 424             char retch;
 425
 426             retval = getch();
 427             if (retval == EOF)
 428                 st[0] = &str_undef;
 429             else {
 430                 retch = retval;
 431                 str_nset(st[0], &retch, 1);
 432             }
 433         }
 434         return sp;
 435
 436     case US_wgetch:
 437         if (items != 1)
 438             fatal("Usage: &wgetch($win)");
 439         else {
 440             int retval;
 441             char retch;
 442             WINDOW*     win =           *(WINDOW**)     str_get(st[1]);
 443
 444             retval = wgetch(win);
 445             if (retval == EOF)
 446                 st[0] = &str_undef;
 447             else {
 448                 retch = retval;
 449                 str_nset(st[0], &retch, 1);
 450             }
 451         }
 452         return sp;
 453
 454 CASE int getstr
 455 IO      char*           str
 456 END
 457
 458 CASE int wgetstr
 459 I       WINDOW*         win
 460 IO      char*           str
 461 END
 462
 463 CASE int raw
 464 END
 465
 466 CASE int noraw
 467 END
 468
 469 CASE int baudrate
 470 END
 471
 472 CASE int delwin
 473 I       WINDOW*         win
 474 END
 475
 476 CASE int endwin
 477 END
 478
 479 CASE int erasechar
 480 END
 481
 482     case US_getcap:
 483         if (items != 1)
 484             fatal("Usage: &getcap($str)");
 485         else {
 486             char* retval;
 487             char*       str =           (char*)         str_get(st[1]);
 488             char output[50], *outputp = output;
 489
 490             retval = tgetstr(str, &outputp);
 491             str_set(st[0], (char*) retval);
 492         }
 493         return sp;
 494
 495     case US_getyx:
 496         if (items != 3)
 497             fatal("Usage: &getyx($win, $y, $x)");
 498         else {
 499             int retval;
 500             STR*        str =           str_new(0);
 501             WINDOW*     win =           *(WINDOW**)     str_get(st[1]);
 502             int         y;
 503             int         x;
 504
 505             do_sprintf(str, items - 1, st + 1);
 506             retval = getyx(win, y, x);
 507             str_numset(st[2], (double)y);
 508             str_numset(st[3], (double)x);
 509             str_numset(st[0], (double) retval);
 510             str_free(str);
 511         }
 512         return sp;
 513
 514
 515 CASE int inch
 516 END
 517
 518 CASE int winch
 519 I       WINDOW*         win
 520 END
 521
 522 CASE WINDOW* initscr
 523 END
 524
 525 CASE int killchar
 526 END
 527
 528 CASE int leaveok
 529 I       WINDOW*         win
 530 I       bool            boolf
 531 END
 532
 533 CASE char* longname
 534 I       char*           termbuf
 535 IO      char*           name
 536 END
 537
 538 CASE int fullname
 539 I       char*           termbuf
 540 IO      char*           name
 541 END
 542
 543 CASE int mvwin
 544 I       WINDOW*         win
 545 I       int             y
 546 I       int             x
 547 END
 548
 549 CASE WINDOW* newwin
 550 I       int             lines
 551 I       int             cols
 552 I       int             begin_y
 553 I       int             begin_x
 554 END
 555
 556 CASE int nl
 557 END
 558
 559 CASE int nonl
 560 END
 561
 562 CASE int scrollok
 563 I       WINDOW*         win
 564 I       bool            boolf
 565 END
 566
 567 CASE WINDOW* subwin
 568 I       WINDOW*         win
 569 I       int             lines
 570 I       int             cols
 571 I       int             begin_y
 572 I       int             begin_x
 573 END
 574
 575 CASE int touchline
 576 I       WINDOW*         win
 577 I       int             y
 578 I       int             startx
 579 I       int             endx
 580 END
 581
 582 CASE int touchoverlap
 583 I       WINDOW*         win1
 584 I       WINDOW*         win2
 585 END
 586
 587 CASE int touchwin
 588 I       WINDOW*         win
 589 END
 590
 591 CASE char* unctrl
 592 I       char            ch
 593 END
 594
 595 CASE int gettmode
 596 END
 597
 598 CASE int mvcur
 599 I       int             lasty
 600 I       int             lastx
 601 I       int             newy
 602 I       int             newx
 603 END
 604
 605 CASE int scroll
 606 I       WINDOW*         win
 607 END
 608
 609 CASE int savetty
 610 END
 611
 612 CASE void resetty
 613 END
 614
 615 CASE int setterm
 616 I       char*           name
 617 END
 618
 619 CASE int tstp
 620 END
 621
 622 CASE int _putchar
 623 I       char            ch
 624 END
 625
 626     case US_testcallback:
 627         sp = callback("callback", sp + items, curcsv->wantarray, 1, items);
 628         break;
 629
 630     default:
 631         fatal("Unimplemented user-defined subroutine");
 632     }
 633     return sp;
 634 }
 635
 636 static int
 637 userval(ix, str)
 638 int ix;
 639 STR *str;
 640 {
 641     switch (ix) {
 642     case UV_COLS:
 643         str_numset(str, (double)COLS);
 644         break;
 645     case UV_Def_term:
 646         str_set(str, Def_term);
 647         break;
 648     case UV_ERR:
 649         str_numset(str, (double)ERR);
 650         break;
 651     case UV_LINES:
 652         str_numset(str, (double)LINES);
 653         break;
 654     case UV_My_term:
 655         str_numset(str, (double)My_term);
 656         break;
 657     case UV_OK:
 658         str_numset(str, (double)OK);
 659         break;
 660     case UV_curscr:
 661         str_nset(str, &curscr, sizeof(WINDOW*));
 662         break;
 663     case UV_stdscr:
 664         str_nset(str, &stdscr, sizeof(WINDOW*));
 665         break;
 666     case UV_ttytype:
 667         str_set(str, ttytype);
 668         break;
 669     }
 670     return 0;
 671 }
 672
 673 static int
 674 userset(ix, str)
 675 int ix;
 676 STR *str;
 677 {
 678     switch (ix) {
 679     case UV_COLS:
 680         COLS = (int)str_gnum(str);
 681         break;
 682     case UV_Def_term:
 683         Def_term = savestr(str_get(str));       /* never freed */
 684         break;
 685     case UV_LINES:
 686         LINES = (int)str_gnum(str);
 687         break;
 688     case UV_My_term:
 689         My_term = (bool)str_gnum(str);
 690         break;
 691     case UV_ttytype:
 692         strcpy(ttytype, str_get(str));          /* hope it fits */
 693         break;
 694     }
 695     return 0;
 696 }