1/*	$NetBSD: brac.c,v 1.3 2011/07/03 20:14:12 tron Exp $	*/
2
3/*
4 * Copyright (C) 1984-2011  Mark Nudelman
5 *
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Less License, as specified in the README file.
8 *
9 * For more information about less, or for information on how to
10 * contact the author, see the README file.
11 */
12
13
14/*
15 * Routines to perform bracket matching functions.
16 */
17
18#include "less.h"
19#include "position.h"
20
21/*
22 * Try to match the n-th open bracket
23 *  which appears in the top displayed line (forwdir),
24 * or the n-th close bracket
25 *  which appears in the bottom displayed line (!forwdir).
26 * The characters which serve as "open bracket" and
27 * "close bracket" are given.
28 */
29	public void
30match_brac(obrac, cbrac, forwdir, n)
31	register int obrac;
32	register int cbrac;
33	int forwdir;
34	int n;
35{
36	register int c;
37	register int nest;
38	POSITION pos;
39	int (*chget) __P((void));
40
41	/*
42	 * Seek to the line containing the open bracket.
43	 * This is either the top or bottom line on the screen,
44	 * depending on the type of bracket.
45	 */
46	pos = position((forwdir) ? TOP : BOTTOM);
47	if (pos == NULL_POSITION || ch_seek(pos))
48	{
49		if (forwdir)
50			error("Nothing in top line", NULL_PARG);
51		else
52			error("Nothing in bottom line", NULL_PARG);
53		return;
54	}
55
56	/*
57	 * Look thru the line to find the open bracket to match.
58	 */
59	do
60	{
61		if ((c = ch_forw_get()) == '\n' || c == EOI)
62		{
63			if (forwdir)
64				error("No bracket in top line", NULL_PARG);
65			else
66				error("No bracket in bottom line", NULL_PARG);
67			return;
68		}
69	} while (c != obrac || --n > 0);
70
71	/*
72	 * Position the file just "after" the open bracket
73	 * (in the direction in which we will be searching).
74	 * If searching forward, we are already after the bracket.
75	 * If searching backward, skip back over the open bracket.
76	 */
77	if (!forwdir)
78		(void) ch_back_get();
79
80	/*
81	 * Search the file for the matching bracket.
82	 */
83	chget = (forwdir) ? ch_forw_get : ch_back_get;
84	nest = 0;
85	while ((c = (*chget)()) != EOI)
86	{
87		if (c == obrac)
88			nest++;
89		else if (c == cbrac && --nest < 0)
90		{
91			/*
92			 * Found the matching bracket.
93			 * If searching backward, put it on the top line.
94			 * If searching forward, put it on the bottom line.
95			 */
96			jump_line_loc(ch_tell(), forwdir ? -1 : 1);
97			return;
98		}
99	}
100	error("No matching bracket", NULL_PARG);
101}
102