Automatic date update in version.in
[external/binutils.git] / readline / parens.c
1 /* parens.c -- implementation of matching parentheses feature. */
2
3 /* Copyright (C) 1987, 1989, 1992-2009 Free Software Foundation, Inc.
4
5    This file is part of the GNU Readline Library (Readline), a library
6    for reading lines of text with interactive input and history editing.      
7
8    Readline is free software: you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation, either version 3 of the License, or
11    (at your option) any later version.
12
13    Readline is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17
18    You should have received a copy of the GNU General Public License
19    along with Readline.  If not, see <http://www.gnu.org/licenses/>.
20 */
21
22 #define READLINE_LIBRARY
23
24 #if defined (__TANDEM)
25 #  include <floss.h>
26 #endif
27
28 #include "rlconf.h"
29
30 #if defined (HAVE_CONFIG_H)
31 #  include <config.h>
32 #endif
33
34 #include <stdio.h>
35 #include <sys/types.h>
36
37 #if defined (HAVE_UNISTD_H)
38 #  include <unistd.h>
39 #endif
40
41 #include "posixselect.h"
42
43 #if defined (HAVE_STRING_H)
44 #  include <string.h>
45 #else /* !HAVE_STRING_H */
46 #  include <strings.h>
47 #endif /* !HAVE_STRING_H */
48
49 #if !defined (strchr) && !defined (__STDC__)
50 extern char *strchr (), *strrchr ();
51 #endif /* !strchr && !__STDC__ */
52
53 #include "readline.h"
54 #include "rlprivate.h"
55
56 static int find_matching_open PARAMS((char *, int, int));
57
58 /* Non-zero means try to blink the matching open parenthesis when the
59    close parenthesis is inserted. */
60 #if defined (HAVE_SELECT)
61 int rl_blink_matching_paren = 1;
62 #else /* !HAVE_SELECT */
63 int rl_blink_matching_paren = 0;
64 #endif /* !HAVE_SELECT */
65
66 static int _paren_blink_usec = 500000;
67
68 /* Change emacs_standard_keymap to have bindings for paren matching when
69    ON_OR_OFF is 1, change them back to self_insert when ON_OR_OFF == 0. */
70 void
71 _rl_enable_paren_matching (on_or_off)
72      int on_or_off;
73 {
74   if (on_or_off)
75     {   /* ([{ */
76       rl_bind_key_in_map (')', rl_insert_close, emacs_standard_keymap);
77       rl_bind_key_in_map (']', rl_insert_close, emacs_standard_keymap);
78       rl_bind_key_in_map ('}', rl_insert_close, emacs_standard_keymap);
79     }
80   else
81     {   /* ([{ */
82       rl_bind_key_in_map (')', rl_insert, emacs_standard_keymap);
83       rl_bind_key_in_map (']', rl_insert, emacs_standard_keymap);
84       rl_bind_key_in_map ('}', rl_insert, emacs_standard_keymap);
85     }
86 }
87
88 int
89 rl_set_paren_blink_timeout (u)
90      int u;
91 {
92   int o;
93
94   o = _paren_blink_usec;
95   if (u > 0)
96     _paren_blink_usec = u;
97   return (o);
98 }
99
100 int
101 rl_insert_close (count, invoking_key)
102      int count, invoking_key;
103 {
104   if (rl_explicit_arg || !rl_blink_matching_paren)
105     _rl_insert_char (count, invoking_key);
106   else
107     {
108 #if defined (HAVE_SELECT)
109       int orig_point, match_point, ready;
110       struct timeval timer;
111       fd_set readfds;
112
113       _rl_insert_char (1, invoking_key);
114       (*rl_redisplay_function) ();
115       match_point =
116         find_matching_open (rl_line_buffer, rl_point - 2, invoking_key);
117
118       /* Emacs might message or ring the bell here, but I don't. */
119       if (match_point < 0)
120         return -1;
121
122       FD_ZERO (&readfds);
123       FD_SET (fileno (rl_instream), &readfds);
124       USEC_TO_TIMEVAL (_paren_blink_usec, timer);
125
126       orig_point = rl_point;
127       rl_point = match_point;
128       (*rl_redisplay_function) ();
129       ready = select (1, &readfds, (fd_set *)NULL, (fd_set *)NULL, &timer);
130       rl_point = orig_point;
131 #else /* !HAVE_SELECT */
132       _rl_insert_char (count, invoking_key);
133 #endif /* !HAVE_SELECT */
134     }
135   return 0;
136 }
137
138 static int
139 find_matching_open (string, from, closer)
140      char *string;
141      int from, closer;
142 {
143   register int i;
144   int opener, level, delimiter;
145
146   switch (closer)
147     {
148     case ']': opener = '['; break;
149     case '}': opener = '{'; break;
150     case ')': opener = '('; break;
151     default:
152       return (-1);
153     }
154
155   level = 1;                    /* The closer passed in counts as 1. */
156   delimiter = 0;                /* Delimited state unknown. */
157
158   for (i = from; i > -1; i--)
159     {
160       if (delimiter && (string[i] == delimiter))
161         delimiter = 0;
162       else if (rl_basic_quote_characters && strchr (rl_basic_quote_characters, string[i]))
163         delimiter = string[i];
164       else if (!delimiter && (string[i] == closer))
165         level++;
166       else if (!delimiter && (string[i] == opener))
167         level--;
168
169       if (!level)
170         break;
171     }
172   return (i);
173 }