84d9c625bf
- Fix for possible unset uid/gid in toproto
- Fix for default mtree style
- Update libelf
- Importing libexecinfo
- Resynchronize GCC, mpc, gmp, mpfr
- build.sh: Replace params with show-params.
This has been done as the make target has been renamed in the same
way, while a new target named params has been added. This new
target generates a file containing all the parameters, instead of
printing it on the console.
- Update test48 with new etc/services (Fix by Ben Gras <ben@minix3.org)
get getservbyport() out of the inner loop
Change-Id: Ie6ad5226fa2621ff9f0dee8782ea48f9443d2091
101 lines
2.2 KiB
C
101 lines
2.2 KiB
C
/* $NetBSD: brac.c,v 1.4 2013/09/04 19:44:21 tron Exp $ */
|
|
|
|
/*
|
|
* Copyright (C) 1984-2012 Mark Nudelman
|
|
*
|
|
* You may distribute under the terms of either the GNU General Public
|
|
* License or the Less License, as specified in the README file.
|
|
*
|
|
* For more information, see the README file.
|
|
*/
|
|
|
|
|
|
/*
|
|
* Routines to perform bracket matching functions.
|
|
*/
|
|
|
|
#include "less.h"
|
|
#include "position.h"
|
|
|
|
/*
|
|
* Try to match the n-th open bracket
|
|
* which appears in the top displayed line (forwdir),
|
|
* or the n-th close bracket
|
|
* which appears in the bottom displayed line (!forwdir).
|
|
* The characters which serve as "open bracket" and
|
|
* "close bracket" are given.
|
|
*/
|
|
public void
|
|
match_brac(obrac, cbrac, forwdir, n)
|
|
register int obrac;
|
|
register int cbrac;
|
|
int forwdir;
|
|
int n;
|
|
{
|
|
register int c;
|
|
register int nest;
|
|
POSITION pos;
|
|
int (*chget) __P((void));
|
|
|
|
/*
|
|
* Seek to the line containing the open bracket.
|
|
* This is either the top or bottom line on the screen,
|
|
* depending on the type of bracket.
|
|
*/
|
|
pos = position((forwdir) ? TOP : BOTTOM);
|
|
if (pos == NULL_POSITION || ch_seek(pos))
|
|
{
|
|
if (forwdir)
|
|
error("Nothing in top line", NULL_PARG);
|
|
else
|
|
error("Nothing in bottom line", NULL_PARG);
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Look thru the line to find the open bracket to match.
|
|
*/
|
|
do
|
|
{
|
|
if ((c = ch_forw_get()) == '\n' || c == EOI)
|
|
{
|
|
if (forwdir)
|
|
error("No bracket in top line", NULL_PARG);
|
|
else
|
|
error("No bracket in bottom line", NULL_PARG);
|
|
return;
|
|
}
|
|
} while (c != obrac || --n > 0);
|
|
|
|
/*
|
|
* Position the file just "after" the open bracket
|
|
* (in the direction in which we will be searching).
|
|
* If searching forward, we are already after the bracket.
|
|
* If searching backward, skip back over the open bracket.
|
|
*/
|
|
if (!forwdir)
|
|
(void) ch_back_get();
|
|
|
|
/*
|
|
* Search the file for the matching bracket.
|
|
*/
|
|
chget = (forwdir) ? ch_forw_get : ch_back_get;
|
|
nest = 0;
|
|
while ((c = (*chget)()) != EOI)
|
|
{
|
|
if (c == obrac)
|
|
nest++;
|
|
else if (c == cbrac && --nest < 0)
|
|
{
|
|
/*
|
|
* Found the matching bracket.
|
|
* If searching backward, put it on the top line.
|
|
* If searching forward, put it on the bottom line.
|
|
*/
|
|
jump_line_loc(ch_tell(), forwdir ? -1 : 1);
|
|
return;
|
|
}
|
|
}
|
|
error("No matching bracket", NULL_PARG);
|
|
}
|