home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / EDITOR / NVI179B / NVI179B.ZIP / tk / tk_term.c < prev    next >
C/C++ Source or Header  |  1996-10-13  |  3KB  |  170 lines
  1. /*-
  2.  * Copyright (c) 1993, 1994
  3.  *    The Regents of the University of California.  All rights reserved.
  4.  * Copyright (c) 1993, 1994, 1995, 1996
  5.  *    Keith Bostic.  All rights reserved.
  6.  *
  7.  * See the LICENSE file for redistribution information.
  8.  */
  9.  
  10. #include "config.h"
  11.  
  12. #ifndef lint
  13. static const char sccsid[] = "@(#)tk_term.c    8.12 (Berkeley) 10/13/96";
  14. #endif /* not lint */
  15.  
  16. #include <sys/types.h>
  17. #include <sys/queue.h>
  18.  
  19. #include <bitstring.h>
  20. #include <errno.h>
  21. #include <limits.h>
  22. #include <signal.h>
  23. #include <stdio.h>
  24. #include <stdlib.h>
  25. #include <string.h>
  26. #include <termios.h>
  27. #include <unistd.h>
  28.  
  29. #include "../common/common.h"
  30. #include "tki.h"
  31.  
  32. /*
  33.  * tk_term_init --
  34.  *    Initialize the terminal special keys.
  35.  *
  36.  * PUBLIC: int tk_term_init __P((SCR *));
  37.  */
  38. int
  39. tk_term_init(sp)
  40.     SCR *sp;
  41. {
  42.     SEQ *qp;
  43.  
  44.     /*
  45.      * Rework any function key mappings that were set before the
  46.      * screen was initialized.
  47.      */
  48.     for (qp = sp->gp->seqq.lh_first; qp != NULL; qp = qp->q.le_next)
  49.         if (F_ISSET(qp, SEQ_FUNCMAP))
  50.             (void)tk_fmap(sp, qp->stype,
  51.                 qp->input, qp->ilen, qp->output, qp->olen);
  52.     return (0);
  53. }
  54.  
  55. /*
  56.  * tk_term_end --
  57.  *    End the special keys defined by the termcap/terminfo entry.
  58.  *
  59.  * PUBLIC: int tk_term_end __P((GS *));
  60.  */
  61. int
  62. tk_term_end(gp)
  63.     GS *gp;
  64. {
  65.     SEQ *qp, *nqp;
  66.  
  67.     /* Delete screen specific mappings. */
  68.     for (qp = gp->seqq.lh_first; qp != NULL; qp = nqp) {
  69.         nqp = qp->q.le_next;
  70.         if (F_ISSET(qp, SEQ_SCREEN))
  71.             (void)seq_mdel(qp);
  72.     }
  73.     return (0);
  74. }
  75.  
  76. /*
  77.  * tk_fmap --
  78.  *    Map a function key.
  79.  *
  80.  * PUBLIC: int tk_fmap __P((SCR *, seq_t, CHAR_T *, size_t, CHAR_T *, size_t));
  81.  */
  82. int
  83. tk_fmap(sp, stype, from, flen, to, tlen)
  84.     SCR *sp;
  85.     seq_t stype;
  86.     CHAR_T *from, *to;
  87.     size_t flen, tlen;
  88. {
  89.     VI_INIT_IGNORE(sp);
  90.  
  91.     /* Bind a Tk/Tcl function key to a string sequence. */
  92.     return (0);
  93. }
  94.  
  95. /*
  96.  * tk_optchange --
  97.  *    Curses screen specific "option changed" routine.
  98.  *
  99.  * PUBLIC: int tk_optchange __P((SCR *, int, char *, u_long *));
  100.  */
  101. int
  102. tk_optchange(sp, opt, str, valp)
  103.     SCR *sp;
  104.     int opt;
  105.     char *str;
  106.     u_long *valp;
  107. {
  108.     switch (opt) {
  109.     case O_COLUMNS:
  110.     case O_LINES:
  111.         /*
  112.          * Changing the columns or lines require that we restart
  113.          * the screen.
  114.          */
  115.         F_SET(sp->gp, G_SRESTART);
  116.         F_CLR(sp, SC_SCR_EX | SC_SCR_VI);
  117.         break;
  118.     case O_TERM:
  119.         msgq(sp, M_ERR, "The screen type may not be changed");
  120.         return (1);
  121.     }
  122.     return (0);
  123. }
  124.  
  125. /*
  126.  * tk_ssize --
  127.  *    Return the window size.
  128.  *
  129.  * PUBLIC: int tk_ssize __P((SCR *, int, size_t *, size_t *, int *));
  130.  */
  131. int
  132. tk_ssize(sp, sigwinch, rowp, colp, changedp)
  133.     SCR *sp;
  134.     int sigwinch;
  135.     size_t *rowp, *colp;
  136.     int *changedp;
  137. {
  138.     TK_PRIVATE *tkp;
  139.  
  140.     tkp = GTKP(__global_list);
  141.     (void)Tcl_Eval(tkp->interp, "tk_ssize");
  142.  
  143.     /*
  144.      * SunOS systems deliver SIGWINCH when windows are uncovered
  145.      * as well as when they change size.  In addition, we call
  146.      * here when continuing after being suspended since the window
  147.      * may have changed size.  Since we don't want to background
  148.      * all of the screens just because the window was uncovered,
  149.      * ignore the signal if there's no change.
  150.      *
  151.      * !!!
  152.      * sp may be NULL.
  153.      */
  154.     if (sigwinch && sp != NULL &&
  155.         tkp->tk_ssize_row == O_VAL(sp, O_LINES) &&
  156.         tkp->tk_ssize_col == O_VAL(sp, O_COLUMNS)) {
  157.         if (changedp != NULL)
  158.             *changedp = 0;
  159.         return (0);
  160.     }
  161.  
  162.     if (rowp != NULL)
  163.         *rowp = tkp->tk_ssize_row;
  164.     if (colp != NULL)
  165.         *colp = tkp->tk_ssize_col;
  166.     if (changedp != NULL)
  167.         *changedp = 1;
  168.     return (0);
  169. }
  170.