home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fs.zip / octave / readline / terminal.c < prev    next >
C/C++ Source or Header  |  2000-01-15  |  14KB  |  555 lines

  1. /* terminal.c -- controlling the terminal with termcap. */
  2.  
  3. /* Copyright (C) 1996 Free Software Foundation, Inc.
  4.  
  5.    This file is part of the GNU Readline Library, a library for
  6.    reading lines of text with interactive input and history editing.
  7.  
  8.    The GNU Readline Library is free software; you can redistribute it
  9.    and/or modify it under the terms of the GNU General Public License
  10.    as published by the Free Software Foundation; either version 1, or
  11.    (at your option) any later version.
  12.  
  13.    The GNU Readline Library is distributed in the hope that it will be
  14.    useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  15.    of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16.    GNU General Public License for more details.
  17.  
  18.    The GNU General Public License is often shipped with GNU software, and
  19.    is generally kept in a file called COPYING or LICENSE.  If you do not
  20.    have a copy of the license, write to the Free Software Foundation,
  21.    675 Mass Ave, Cambridge, MA 02139, USA. */
  22. #define READLINE_LIBRARY
  23.  
  24. #if defined (HAVE_CONFIG_H)
  25. #  include <config.h>
  26. #endif
  27.  
  28. #include <sys/types.h>
  29. #include "posixstat.h"
  30. #include <fcntl.h>
  31. #if defined (HAVE_SYS_FILE_H)
  32. #  include <sys/file.h>
  33. #endif /* HAVE_SYS_FILE_H */
  34.  
  35. #if defined (HAVE_UNISTD_H)
  36. #  include <unistd.h>
  37. #endif /* HAVE_UNISTD_H */
  38.  
  39. #if defined (HAVE_STDLIB_H)
  40. #  include <stdlib.h>
  41. #else
  42. #  include "ansi_stdlib.h"
  43. #endif /* HAVE_STDLIB_H */
  44.  
  45. #if defined (HAVE_LOCALE_H)
  46. #  include <locale.h>
  47. #endif
  48.  
  49. #include <signal.h>
  50. #include <stdio.h>
  51. #include <setjmp.h>
  52.  
  53. /* System-specific feature definitions and include files. */
  54. #include "rldefs.h"
  55.  
  56. #if defined (GWINSZ_IN_SYS_IOCTL) && !defined (TIOCGWINSZ)
  57. #  include <sys/ioctl.h>
  58. #endif /* GWINSZ_IN_SYS_IOCTL && !TIOCGWINSZ */
  59.  
  60. #include "rltty.h"
  61. #include "tcap.h"
  62.  
  63. /* Some standard library routines. */
  64. #include "readline.h"
  65. #include "history.h"
  66.  
  67. /* Variables and functions imported from readline.c */
  68. extern FILE *_rl_in_stream, *_rl_out_stream;
  69. extern int readline_echoing_p;
  70. extern int _rl_bell_preference;
  71. extern Keymap _rl_keymap;
  72.  
  73. /* Functions imported from bind.c */
  74. extern void _rl_bind_if_unbound ();
  75.  
  76. /* Functions imported from shell.c */
  77. extern void set_lines_and_columns ();
  78. extern char *get_env_value ();
  79.  
  80. /* **************************************************************** */
  81. /*                                    */
  82. /*            Terminal and Termcap                */
  83. /*                                    */
  84. /* **************************************************************** */
  85.  
  86. static char *term_buffer = (char *)NULL;
  87. static char *term_string_buffer = (char *)NULL;
  88.  
  89. static int tcap_initialized;
  90.  
  91. /* Non-zero means this terminal can't really do anything. */
  92. static int dumb_term;
  93.  
  94. #if !defined (__linux__)
  95. #  if defined (__EMX__) || defined (NEED_EXTERN_PC)
  96. extern 
  97. #  endif /* __EMX__ || NEED_EXTERN_PC */
  98. char PC, *BC, *UP;
  99. #endif /* __linux__ */
  100.  
  101. /* Some strings to control terminal actions.  These are output by tputs (). */
  102. char *term_goto, *term_clreol, *term_cr, *term_clrpag, *term_backspace;
  103. char *term_pc;
  104.  
  105. /* Non-zero if we determine that the terminal can do character insertion. */
  106. int terminal_can_insert = 0;
  107.  
  108. /* How to insert characters. */
  109. char *term_im, *term_ei, *term_ic, *term_ip, *term_IC;
  110.  
  111. /* How to delete characters. */
  112. char *term_dc, *term_DC;
  113.  
  114. #if defined (HACK_TERMCAP_MOTION)
  115. char *term_forward_char;
  116. #endif  /* HACK_TERMCAP_MOTION */
  117.  
  118. /* How to go up a line. */
  119. char *term_up;
  120.  
  121. /* A visible bell, if the terminal can be made to flash the screen. */
  122. static char *visible_bell;
  123.  
  124. /* Non-zero means the terminal can auto-wrap lines. */
  125. int _rl_term_autowrap;
  126.  
  127. /* Non-zero means that this terminal has a meta key. */
  128. static int term_has_meta;
  129.  
  130. /* The sequences to write to turn on and off the meta key, if this
  131.    terminal    has one. */
  132. static char *term_mm, *term_mo;
  133.  
  134. /* The key sequences output by the arrow keys, if this terminal has any. */
  135. static char *term_ku, *term_kd, *term_kr, *term_kl;
  136.  
  137. /* How to initialize and reset the arrow keys, if this terminal has any. */
  138. static char *term_ks, *term_ke;
  139.  
  140. /* The key sequences sent by the Home and End keys, if any. */
  141. static char *term_kh, *term_kH;
  142.  
  143. /* Variables that hold the screen dimensions, used by the display code. */
  144. int screenwidth, screenheight, screenchars;
  145.  
  146. /* Non-zero means the user wants to enable the keypad. */
  147. int _rl_enable_keypad;
  148.  
  149. /* Non-zero means the user wants to enable a meta key. */
  150. int _rl_enable_meta = 1;
  151.  
  152. /* Get readline's idea of the screen size.  TTY is a file descriptor open
  153.    to the terminal.  If IGNORE_ENV is true, we do not pay attention to the
  154.    values of $LINES and $COLUMNS.  The tests for TERM_STRING_BUFFER being
  155.    non-null serve to check whether or not we have initialized termcap. */
  156. void
  157. _rl_get_screen_size (tty, ignore_env)
  158.      int tty, ignore_env;
  159. {
  160.   char *ss;
  161. #if defined (TIOCGWINSZ)
  162.   struct winsize window_size;
  163. #endif /* TIOCGWINSZ */
  164. #if defined (__EMX__)
  165.   int sz[2];
  166. #endif
  167.  
  168. #if defined (TIOCGWINSZ)
  169.   if (ioctl (tty, TIOCGWINSZ, &window_size) == 0)
  170.     {
  171.       screenwidth = (int) window_size.ws_col;
  172.       screenheight = (int) window_size.ws_row;
  173.     }
  174. #endif /* TIOCGWINSZ */
  175.  
  176. #if defined (__EMX__)
  177.   _scrsize (sz);
  178.   screenwidth = sz[0];
  179.   screenheight = sz[1];
  180. #endif
  181.  
  182.   /* Environment variable COLUMNS overrides setting of "co" if IGNORE_ENV
  183.      is unset. */
  184.   if (screenwidth <= 0)
  185.     {
  186.       if (ignore_env == 0 && (ss = get_env_value ("COLUMNS")))
  187.     screenwidth = atoi (ss);
  188.  
  189.       if (screenwidth <= 0 && term_string_buffer)
  190.     screenwidth = tgetnum ("co");
  191.     }
  192.  
  193.   /* Environment variable LINES overrides setting of "li" if IGNORE_ENV
  194.      is unset. */
  195.   if (screenheight <= 0)
  196.     {
  197.       if (ignore_env == 0 && (ss = get_env_value ("LINES")))
  198.     screenheight = atoi (ss);
  199.  
  200.       if (screenheight <= 0 && term_string_buffer)
  201.     screenheight = tgetnum ("li");
  202.     }
  203.  
  204.   /* If all else fails, default to 80x24 terminal. */
  205.   if (screenwidth <= 1)
  206.     screenwidth = 80;
  207.  
  208.   if (screenheight <= 0)
  209.     screenheight = 24;
  210.  
  211.   /* If we're being compiled as part of bash, set the environment
  212.      variables $LINES and $COLUMNS to new values.  Otherwise, just
  213.      do a pair of putenv () or setenv () calls. */
  214.   set_lines_and_columns (screenheight, screenwidth);
  215.  
  216.   if (!_rl_term_autowrap)
  217.     screenwidth--;
  218.  
  219.   screenchars = screenwidth * screenheight;
  220. }
  221.  
  222. void
  223. _rl_set_screen_size (rows, cols)
  224.      int rows, cols;
  225. {
  226.   screenheight = rows;
  227.   screenwidth = cols;
  228.  
  229.   if (_rl_term_autowrap == 0)
  230.     screenwidth--;
  231.  
  232.   screenchars = screenwidth * screenheight;
  233. }
  234.  
  235. void
  236. rl_resize_terminal ()
  237. {
  238.   if (readline_echoing_p)
  239.     {
  240.       _rl_get_screen_size (fileno (rl_instream), 1);
  241.       _rl_redisplay_after_sigwinch ();
  242.     }
  243. }
  244.  
  245. struct _tc_string {
  246.      char *tc_var;
  247.      char **tc_value;
  248. };
  249.  
  250. /* This should be kept sorted, just in case we decide to change the
  251.    search algorithm to something smarter. */
  252. static struct _tc_string tc_strings[] =
  253. {
  254.   "DC", &term_DC,
  255.   "IC", &term_IC,
  256.   "ce", &term_clreol,
  257.   "cl", &term_clrpag,
  258.   "cr", &term_cr,
  259.   "dc", &term_dc,
  260.   "ei", &term_ei,
  261.   "ic", &term_ic,
  262.   "im", &term_im,
  263.   "kd", &term_kd,
  264.   "kh", &term_kh,    /* home */
  265.   "kH", &term_kH,    /* end */
  266.   "kl", &term_kl,
  267.   "kr", &term_kr,
  268.   "ku", &term_ku,
  269.   "ks", &term_ks,
  270.   "ke", &term_ke,
  271.   "le", &term_backspace,
  272.   "mm", &term_mm,
  273.   "mo", &term_mo,
  274. #if defined (HACK_TERMCAP_MOTION)
  275.   "nd", &term_forward_char,
  276. #endif
  277.   "pc", &term_pc,
  278.   "up", &term_up,
  279.   "vb", &visible_bell,
  280. };
  281.  
  282. #define NUM_TC_STRINGS (sizeof (tc_strings) / sizeof (struct _tc_string))
  283.  
  284. /* Read the desired terminal capability strings into BP.  The capabilities
  285.    are described in the TC_STRINGS table. */
  286. static void
  287. get_term_capabilities (bp)
  288.      char **bp;
  289. {
  290.   register int i;
  291.  
  292.   for (i = 0; i < NUM_TC_STRINGS; i++)
  293.     *(tc_strings[i].tc_value) = tgetstr (tc_strings[i].tc_var, bp);
  294.   tcap_initialized = 1;
  295. }
  296.  
  297. int
  298. _rl_init_terminal_io (terminal_name)
  299.      char *terminal_name;
  300. {
  301. #if defined (__GO32__)
  302.   screenwidth = ScreenCols ();
  303.   screenheight = ScreenRows ();
  304.   screenchars = screenwidth * screenheight;
  305.   term_cr = "\r";
  306.   term_im = term_ei = term_ic = term_IC = (char *)NULL;
  307.   term_up = term_dc = term_DC = visible_bell = (char *)NULL;
  308.  
  309.   /* Does the __GO32__ have a meta key?  I don't know. */
  310.   term_has_meta = 0;
  311.   term_mm = term_mo = (char *)NULL;
  312.  
  313.   /* It probably has arrow keys, but I don't know what they are. */
  314.   term_ku = term_kd = term_kr = term_kl = (char *)NULL;
  315.  
  316. #if defined (HACK_TERMCAP_MOTION)
  317.   term_forward_char = (char *)NULL;
  318. #endif /* HACK_TERMCAP_MOTION */
  319.   terminal_can_insert = _rl_term_autowrap = 0;
  320.   return;
  321. #else /* !__GO32__ */
  322.  
  323.   char *term, *buffer;
  324.   int tty;
  325.   Keymap xkeymap;
  326.  
  327.   term = terminal_name ? terminal_name : get_env_value ("TERM");
  328.  
  329.   if (term_string_buffer == 0)
  330.     term_string_buffer = xmalloc (2032);
  331.  
  332.   if (term_buffer == 0)
  333.     term_buffer = xmalloc (4080);
  334.  
  335.   buffer = term_string_buffer;
  336.  
  337.   term_clrpag = term_cr = term_clreol = (char *)NULL;
  338.  
  339.   if (term == 0)
  340.     term = "dumb";
  341.  
  342.   if (tgetent (term_buffer, term) <= 0)
  343.     {
  344.       dumb_term = 1;
  345.       screenwidth = 79;
  346.       screenheight = 24;
  347.       screenchars = 79 * 24;
  348.       term_cr = "\r";
  349.       term_im = term_ei = term_ic = term_IC = (char *)NULL;
  350.       term_up = term_dc = term_DC = visible_bell = (char *)NULL;
  351.       term_ku = term_kd = term_kl = term_kr = (char *)NULL;
  352. #if defined (HACK_TERMCAP_MOTION)
  353.       term_forward_char = (char *)NULL;
  354. #endif
  355.       terminal_can_insert = 0;
  356.       return 0;
  357.     }
  358.  
  359.   get_term_capabilities (&buffer);
  360.  
  361.   /* Set up the variables that the termcap library expects the application
  362.      to provide. */
  363.   PC = term_pc ? *term_pc : 0;
  364.   BC = term_backspace;
  365.   UP = term_up;
  366.  
  367.   if (!term_cr)
  368.     term_cr = "\r";
  369.  
  370.   tty = rl_instream ? fileno (rl_instream) : 0;
  371.  
  372.   screenwidth = screenheight = 0;
  373.  
  374.   _rl_term_autowrap = tgetflag ("am") && tgetflag ("xn");
  375.  
  376.   _rl_get_screen_size (tty, 0);
  377.  
  378.   /* "An application program can assume that the terminal can do
  379.       character insertion if *any one of* the capabilities `IC',
  380.       `im', `ic' or `ip' is provided."  But we can't do anything if
  381.       only `ip' is provided, so... */
  382.   terminal_can_insert = (term_IC || term_im || term_ic);
  383.  
  384.   /* Check to see if this terminal has a meta key and clear the capability
  385.      variables if there is none. */
  386.   term_has_meta = (tgetflag ("km") || tgetflag ("MT"));
  387.   if (!term_has_meta)
  388.     term_mm = term_mo = (char *)NULL;
  389.  
  390.   /* Attempt to find and bind the arrow keys.  Do not override already
  391.      bound keys in an overzealous attempt, however. */
  392.   xkeymap = _rl_keymap;
  393.  
  394.   _rl_keymap = emacs_standard_keymap;
  395.   _rl_bind_if_unbound (term_ku, rl_get_previous_history);
  396.   _rl_bind_if_unbound (term_kd, rl_get_next_history);
  397.   _rl_bind_if_unbound (term_kr, rl_forward);
  398.   _rl_bind_if_unbound (term_kl, rl_backward);
  399.  
  400.   _rl_bind_if_unbound (term_kh, rl_beg_of_line);    /* Home */
  401.   _rl_bind_if_unbound (term_kH, rl_end_of_line);    /* End */
  402.  
  403. #if defined (VI_MODE)
  404.   _rl_keymap = vi_movement_keymap;
  405.   _rl_bind_if_unbound (term_ku, rl_get_previous_history);
  406.   _rl_bind_if_unbound (term_kd, rl_get_next_history);
  407.   _rl_bind_if_unbound (term_kr, rl_forward);
  408.   _rl_bind_if_unbound (term_kl, rl_backward);
  409.  
  410.   _rl_bind_if_unbound (term_kh, rl_beg_of_line);    /* Home */
  411.   _rl_bind_if_unbound (term_kH, rl_end_of_line);    /* End */
  412. #endif /* VI_MODE */
  413.  
  414.   _rl_keymap = xkeymap;
  415.  
  416. #endif /* !__GO32__ */
  417.   return 0;
  418. }
  419.  
  420. char *
  421. rl_get_termcap (cap)
  422.      char *cap;
  423. {
  424.   register int i;
  425.  
  426.   if (tcap_initialized == 0)
  427.     return ((char *)NULL);
  428.   for (i = 0; i < NUM_TC_STRINGS; i++)
  429.     {
  430.       if (tc_strings[i].tc_var[0] == cap[0] && strcmp (tc_strings[i].tc_var, cap) == 0)
  431.         return *(tc_strings[i].tc_value);
  432.     }
  433.   return ((char *)NULL);
  434. }
  435.  
  436. /* Re-initialize the terminal considering that the TERM/TERMCAP variable
  437.    has changed. */
  438. int
  439. rl_reset_terminal (terminal_name)
  440.      char *terminal_name;
  441. {
  442.   _rl_init_terminal_io (terminal_name);
  443.   return 0;
  444. }
  445.  
  446. /* A function for the use of tputs () */
  447. int
  448. _rl_output_character_function (c)
  449.      int c;
  450. {
  451.   return putc (c, _rl_out_stream);
  452. }
  453.  
  454. /* Write COUNT characters from STRING to the output stream. */
  455. void
  456. _rl_output_some_chars (string, count)
  457.      char *string;
  458.      int count;
  459. {
  460.   fwrite (string, 1, count, _rl_out_stream);
  461. }
  462.  
  463. /* Move the cursor back. */
  464. int
  465. _rl_backspace (count)
  466.      int count;
  467. {
  468.   register int i;
  469.  
  470. #if !defined (__GO32__)
  471.   if (term_backspace)
  472.     for (i = 0; i < count; i++)
  473.       tputs (term_backspace, 1, _rl_output_character_function);
  474.   else
  475. #endif /* !__GO32__ */
  476.     for (i = 0; i < count; i++)
  477.       putc ('\b', _rl_out_stream);
  478.   return 0;
  479. }
  480.  
  481. /* Move to the start of the next line. */
  482. int
  483. crlf ()
  484. {
  485. #if defined (NEW_TTY_DRIVER)
  486.   if (term_cr)
  487.     tputs (term_cr, 1, _rl_output_character_function);
  488. #endif /* NEW_TTY_DRIVER */
  489.   putc ('\n', _rl_out_stream);
  490.   return 0;
  491. }
  492.  
  493. /* Ring the terminal bell. */
  494. int
  495. ding ()
  496. {
  497.   if (readline_echoing_p)
  498.     {
  499. #if !defined (__GO32__)
  500.       switch (_rl_bell_preference)
  501.         {
  502.     case NO_BELL:
  503.     default:
  504.       break;
  505.     case VISIBLE_BELL:
  506.       if (visible_bell)
  507.         {
  508.           tputs (visible_bell, 1, _rl_output_character_function);
  509.           break;
  510.         }
  511.       /* FALLTHROUGH */
  512.     case AUDIBLE_BELL:
  513.       fprintf (stderr, "\007");
  514.       fflush (stderr);
  515.       break;
  516.         }
  517. #else /* __GO32__ */
  518.       fprintf (stderr, "\007");
  519.       fflush (stderr);
  520. #endif /* __GO32__ */
  521.       return (0);
  522.     }
  523.   return (-1);
  524. }
  525.  
  526. /* **************************************************************** */
  527. /*                                    */
  528. /*         Controlling the Meta Key and Keypad            */
  529. /*                                    */
  530. /* **************************************************************** */
  531.  
  532. static int
  533. outchar (c)
  534.      int c;
  535. {
  536.   return putc (c, rl_outstream);
  537. }
  538.  
  539. void
  540. _rl_enable_meta_key ()
  541. {
  542.   if (term_has_meta && term_mm)
  543.     tputs (term_mm, 1, outchar);
  544. }
  545.  
  546. void
  547. _rl_control_keypad (on)
  548.      int on;
  549. {
  550.   if (on && term_ks)
  551.     tputs (term_ks, 1, outchar);
  552.   else if (!on && term_ke)
  553.     tputs (term_ke, 1, outchar);
  554. }
  555.