Annotation of embedaddon/readline/parens.c, revision 1.1
1.1 ! misho 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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to parens.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / readline