← Back to branch summary

~ubuntu-branches/ubuntu/quantal/less/quantal

« back to all changes in this revision

Viewing changes to brac.c

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Schoepf
  • Date: 2002-04-04 16:43:52 UTC
  • Revision ID: james.westby@ubuntu.com-20020404164352-qldq048yoc7x5sd5
Tags: upstream-374
Import upstream version 374

Show diffs side-by-side

added added

removed removed

Lines of Context:
brac.c
 
1
/*
 
2
 * Copyright (C) 1984-2000  Mark Nudelman
 
3
 *
 
4
 * You may distribute under the terms of either the GNU General Public
 
5
 * License or the Less License, as specified in the README file.
 
6
 *
 
7
 * For more information about less, or for information on how to 
 
8
 * contact the author, see the README file.
 
9
 */
 
10
 
 
11
 
 
12
/*
 
13
 * Routines to perform bracket matching functions.
 
14
 */
 
15
 
 
16
#include "less.h"
 
17
#include "position.h"
 
18
 
 
19
/*
 
20
 * Try to match the n-th open bracket 
 
21
 *  which appears in the top displayed line (forwdir),
 
22
 * or the n-th close bracket 
 
23
 *  which appears in the bottom displayed line (!forwdir).
 
24
 * The characters which serve as "open bracket" and 
 
25
 * "close bracket" are given.
 
26
 */
 
27
        public void
 
28
match_brac(obrac, cbrac, forwdir, n)
 
29
        register int obrac;
 
30
        register int cbrac;
 
31
        int forwdir;
 
32
        int n;
 
33
{
 
34
        register int c;
 
35
        register int nest;
 
36
        POSITION pos;
 
37
        int (*chget)();
 
38
 
 
39
        extern int ch_forw_get(), ch_back_get();
 
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
}