116 lines
3.1 KiB
C
116 lines
3.1 KiB
C
|
/* parens.c -- Implemenation of matching parenthesis feature. */
|
||
|
|
|
||
|
|
/* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc.
|
||
|
|
|
||
|
|
This file is part of the GNU Readline Library, a library for
|
||
|
|
reading lines of text with interactive input and history editing.
|
||
|
|
|
||
|
|
The GNU Readline Library is free software; you can redistribute it
|
||
|
|
and/or modify it under the terms of the GNU General Public License
|
||
|
|
as published by the Free Software Foundation; either version 1, or
|
||
|
|
(at your option) any later version.
|
||
|
|
|
||
|
|
The GNU Readline Library is distributed in the hope that it will be
|
||
|
|
useful, but WITHOUT ANY WARRANTY; without even the implied warranty
|
||
|
|
of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
GNU General Public License for more details.
|
||
|
|
|
||
|
|
The GNU General Public License is often shipped with GNU software, and
|
||
|
|
is generally kept in a file called COPYING or LICENSE. If you do not
|
||
|
|
have a copy of the license, write to the Free Software Foundation,
|
||
|
|
675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <sys/types.h>
|
||
|
|
#include <sys/time.h>
|
||
|
|
#include "readline.h"
|
||
|
|
|
||
|
|
/* Non-zero means try to blink the matching open parenthesis when the
|
||
|
|
close parenthesis is inserted. */
|
||
|
|
#if defined (FD_SET)
|
||
|
|
int rl_blink_matching_paren = 1;
|
||
|
|
#else /* !FD_SET */
|
||
|
|
int rl_blink_matching_paren = 0;
|
||
|
|
#endif /* !FD_SET */
|
||
|
|
|
||
|
|
static int find_matching_open ();
|
||
|
|
|
||
|
|
rl_insert_close (count, invoking_key)
|
||
|
|
int count, invoking_key;
|
||
|
|
{
|
||
|
|
extern int rl_explicit_arg;
|
||
|
|
|
||
|
|
if (rl_explicit_arg || !rl_blink_matching_paren)
|
||
|
|
rl_insert (count, invoking_key);
|
||
|
|
else
|
||
|
|
{
|
||
|
|
#if defined (FD_SET)
|
||
|
|
int orig_point, match_point, ready;
|
||
|
|
struct timeval timer;
|
||
|
|
fd_set readfds;
|
||
|
|
|
||
|
|
rl_insert (1, invoking_key);
|
||
|
|
rl_redisplay ();
|
||
|
|
match_point =
|
||
|
|
find_matching_open (rl_line_buffer, rl_point - 2, invoking_key);
|
||
|
|
|
||
|
|
/* Emacs might message or ring the bell here, but I don't. */
|
||
|
|
if (match_point < 0)
|
||
|
|
return;
|
||
|
|
|
||
|
|
FD_ZERO (&readfds);
|
||
|
|
FD_SET (fileno (rl_instream), &readfds);
|
||
|
|
timer.tv_sec = 1;
|
||
|
|
timer.tv_usec = 500;
|
||
|
|
|
||
|
|
orig_point = rl_point;
|
||
|
|
rl_point = match_point;
|
||
|
|
rl_redisplay ();
|
||
|
|
ready = select (1, &readfds, (fd_set *)NULL, (fd_set *)NULL, &timer);
|
||
|
|
rl_point = orig_point;
|
||
|
|
#else /* !FD_SET */
|
||
|
|
rl_insert (count, invoking_key);
|
||
|
|
#endif /* !FD_SET */
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static int
|
||
|
|
find_matching_open (string, from, closer)
|
||
|
|
char *string;
|
||
|
|
int from, closer;
|
||
|
|
{
|
||
|
|
register int i;
|
||
|
|
int opener, level, delimiter;
|
||
|
|
|
||
|
|
switch (closer)
|
||
|
|
{
|
||
|
|
case ']': opener = '['; break;
|
||
|
|
case '}': opener = '{'; break;
|
||
|
|
case ')': opener = '('; break;
|
||
|
|
default:
|
||
|
|
return (-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
level = 1; /* The closer passed in counts as 1. */
|
||
|
|
delimiter = 0; /* Delimited state unknown. */
|
||
|
|
|
||
|
|
for (i = from; i > -1; i--)
|
||
|
|
{
|
||
|
|
if (delimiter && (string[i] == delimiter))
|
||
|
|
delimiter = 0;
|
||
|
|
else if ((string[i] == '\'') || (string[i] == '"'))
|
||
|
|
delimiter = rl_line_buffer[i];
|
||
|
|
else if (!delimiter && (string[i] == closer))
|
||
|
|
level++;
|
||
|
|
else if (!delimiter && (string[i] == opener))
|
||
|
|
level--;
|
||
|
|
|
||
|
|
if (!level)
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return (i);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|