Mercurial > emacs
annotate src/syntax.h @ 99492:ee792794d888
(isearch-search-fun): Compare the length of the
current search string with the length of the string from the
previous search state to detect the situation when the user
adds or removes characters in the search string.
Use word-search-forward-lax and word-search-backward-lax in this
case, and otherwise word-search-forward and word-search-backward.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 11 Nov 2008 19:43:09 +0000 |
parents | 29adfc9354e7 |
children | e038c1a8307c |
rev | line source |
---|---|
486 | 1 /* Declarations having to do with GNU Emacs syntax tables. |
75227
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
68651
diff
changeset
|
2 Copyright (C) 1985, 1993, 1994, 1997, 1998, 2001, 2002, 2003, 2004, |
79759 | 3 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
486 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94994
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91618
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
486 | 8 it under the terms of the GNU General Public License as published by |
94994
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91618
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91618
diff
changeset
|
10 (at your option) any later version. |
486 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94994
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91618
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
486 | 19 |
20 | |
21 extern Lisp_Object Qsyntax_table_p; | |
20349 | 22 extern void update_syntax_table P_ ((int, int, int, Lisp_Object)); |
486 | 23 |
24 /* The standard syntax table is stored where it will automatically | |
25 be used in all new buffers. */ | |
26 #define Vstandard_syntax_table buffer_defaults.syntax_table | |
27 | |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
28 /* A syntax table is a chartable whose elements are cons cells |
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
29 (CODE+FLAGS . MATCHING-CHAR). MATCHING-CHAR can be nil if the char |
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
30 is not a kind of parenthesis. |
486 | 31 |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
32 The low 8 bits of CODE+FLAGS is a code, as follows: */ |
486 | 33 |
34 enum syntaxcode | |
35 { | |
36 Swhitespace, /* for a whitespace character */ | |
37 Spunct, /* for random punctuation characters */ | |
38 Sword, /* for a word constituent */ | |
39 Ssymbol, /* symbol constituent but not word constituent */ | |
40 Sopen, /* for a beginning delimiter */ | |
41 Sclose, /* for an ending delimiter */ | |
42 Squote, /* for a prefix character like Lisp ' */ | |
43 Sstring, /* for a string-grouping character like Lisp " */ | |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
44 Smath, /* for delimiters like $ in Tex. */ |
486 | 45 Sescape, /* for a character that begins a C-style escape */ |
46 Scharquote, /* for a character that quotes the following character */ | |
47 Scomment, /* for a comment-starting character */ | |
48 Sendcomment, /* for a comment-ending character */ | |
5441
0af9674da850
(enum syntaxcode): Add Sinherit.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
49 Sinherit, /* use the standard syntax table for this character */ |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
50 Scomment_fence, /* Starts/ends comment which is delimited on the |
20487 | 51 other side by any char with the same syntaxcode. */ |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
52 Sstring_fence, /* Starts/ends string which is delimited on the |
20487 | 53 other side by any char with the same syntaxcode. */ |
486 | 54 Smax /* Upper bound on codes that are meaningful */ |
55 }; | |
56 | |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
57 /* Set the syntax entry VAL for char C in table TABLE. */ |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
58 |
88390
ee2122ab4d5b
(SET_RAW_SYNTAX_ENTRY): Call CHAR_TABLE_SET.
Kenichi Handa <handa@m17n.org>
parents:
39795
diff
changeset
|
59 #define SET_RAW_SYNTAX_ENTRY(table, c, val) \ |
88432
9302a313a37b
(SET_RAW_SYNTAX_ENTRY): Don't call make_number.
Kenichi Handa <handa@m17n.org>
parents:
88390
diff
changeset
|
60 CHAR_TABLE_SET ((table), c, (val)) |
5441
0af9674da850
(enum syntaxcode): Add Sinherit.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
61 |
88390
ee2122ab4d5b
(SET_RAW_SYNTAX_ENTRY): Call CHAR_TABLE_SET.
Kenichi Handa <handa@m17n.org>
parents:
39795
diff
changeset
|
62 /* Set the syntax entry VAL for char-range RANGE in table TABLE. |
ee2122ab4d5b
(SET_RAW_SYNTAX_ENTRY): Call CHAR_TABLE_SET.
Kenichi Handa <handa@m17n.org>
parents:
39795
diff
changeset
|
63 RANGE is a cons (FROM . TO) specifying the range of characters. */ |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
64 |
88390
ee2122ab4d5b
(SET_RAW_SYNTAX_ENTRY): Call CHAR_TABLE_SET.
Kenichi Handa <handa@m17n.org>
parents:
39795
diff
changeset
|
65 #define SET_RAW_SYNTAX_ENTRY_RANGE(table, range, val) \ |
ee2122ab4d5b
(SET_RAW_SYNTAX_ENTRY): Call CHAR_TABLE_SET.
Kenichi Handa <handa@m17n.org>
parents:
39795
diff
changeset
|
66 Fset_char_table_range ((table), (range), (val)) |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
67 |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
68 /* SYNTAX_ENTRY fetches the information from the entry for character C |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46370
diff
changeset
|
69 in syntax table TABLE, or from globally kept data (gl_state). |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
70 Does inheritance. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
71 /* CURRENT_SYNTAX_TABLE gives the syntax table valid for current |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
72 position, it is either the buffer's syntax table, or syntax table |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
73 found in text properties. */ |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
74 |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
75 #ifdef SYNTAX_ENTRY_VIA_PROPERTY |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
76 # define SYNTAX_ENTRY(c) \ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
77 (gl_state.use_global ? gl_state.global_code : SYNTAX_ENTRY_INT (c)) |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
78 # define CURRENT_SYNTAX_TABLE gl_state.current_syntax_table |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
79 #else |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
80 # define SYNTAX_ENTRY SYNTAX_ENTRY_INT |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
81 # define CURRENT_SYNTAX_TABLE current_buffer->syntax_table |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
82 #endif |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
83 |
88852
9a7268b7a742
(SYNTAX_ENTRY_INT): Don't use make_number.
Dave Love <fx@gnu.org>
parents:
88471
diff
changeset
|
84 #define SYNTAX_ENTRY_INT(c) CHAR_TABLE_REF (CURRENT_SYNTAX_TABLE, (c)) |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
85 |
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
86 /* Extract the information from the entry for character C |
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
87 in the current syntax table. */ |
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
88 |
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
89 #ifdef __GNUC__ |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
90 #define SYNTAX(c) \ |
56068
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
91 ({ Lisp_Object _syntax_temp; \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
92 _syntax_temp = SYNTAX_ENTRY (c); \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
93 (CONSP (_syntax_temp) \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
94 ? (enum syntaxcode) (XINT (XCAR (_syntax_temp)) & 0xff) \ |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
95 : Swhitespace); }) |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
96 |
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
97 #define SYNTAX_WITH_FLAGS(c) \ |
56068
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
98 ({ Lisp_Object _syntax_temp; \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
99 _syntax_temp = SYNTAX_ENTRY (c); \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
100 (CONSP (_syntax_temp) \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
101 ? XINT (XCAR (_syntax_temp)) \ |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
102 : (int) Swhitespace); }) |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
103 |
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
104 #define SYNTAX_MATCH(c) \ |
56068
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
105 ({ Lisp_Object _syntax_temp; \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
106 _syntax_temp = SYNTAX_ENTRY (c); \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
107 (CONSP (_syntax_temp) \ |
f6fab60742ca
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to
Andreas Schwab <schwab@suse.de>
parents:
55319
diff
changeset
|
108 ? XCDR (_syntax_temp) \ |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
109 : Qnil); }) |
5441
0af9674da850
(enum syntaxcode): Add Sinherit.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
110 #else |
88471
9729ea16acd8
(syntax_temp) [!__GNUC__]: Declare.
Dave Love <fx@gnu.org>
parents:
88432
diff
changeset
|
111 extern Lisp_Object syntax_temp; |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
112 #define SYNTAX(c) \ |
13318
94a4b6e9d310
(SYNTAX, SYNTAX_WITH_FLAGS, SYNTAX_MATCH): Fix the non-GCC definitions.
Richard M. Stallman <rms@gnu.org>
parents:
13143
diff
changeset
|
113 (syntax_temp = SYNTAX_ENTRY ((c)), \ |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
114 (CONSP (syntax_temp) \ |
25640 | 115 ? (enum syntaxcode) (XINT (XCAR (syntax_temp)) & 0xff) \ |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
116 : Swhitespace)) |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
117 |
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
118 #define SYNTAX_WITH_FLAGS(c) \ |
13318
94a4b6e9d310
(SYNTAX, SYNTAX_WITH_FLAGS, SYNTAX_MATCH): Fix the non-GCC definitions.
Richard M. Stallman <rms@gnu.org>
parents:
13143
diff
changeset
|
119 (syntax_temp = SYNTAX_ENTRY ((c)), \ |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
120 (CONSP (syntax_temp) \ |
25640 | 121 ? XINT (XCAR (syntax_temp)) \ |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
122 : (int) Swhitespace)) |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
123 |
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
124 #define SYNTAX_MATCH(c) \ |
13318
94a4b6e9d310
(SYNTAX, SYNTAX_WITH_FLAGS, SYNTAX_MATCH): Fix the non-GCC definitions.
Richard M. Stallman <rms@gnu.org>
parents:
13143
diff
changeset
|
125 (syntax_temp = SYNTAX_ENTRY ((c)), \ |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
126 (CONSP (syntax_temp) \ |
25640 | 127 ? XCDR (syntax_temp) \ |
17045
1dfa84b25d3b
(SET_RAW_SYNTAX_ENTRY): Handle syntax of multibyte
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
128 : Qnil)) |
5441
0af9674da850
(enum syntaxcode): Add Sinherit.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
129 #endif |
486 | 130 |
25446
2a2d7ebaa018
(SYNTAX_COMMENT_NESTED, SYNTAX_FLAGS_COMMENT_NESTED):
Richard M. Stallman <rms@gnu.org>
parents:
23713
diff
changeset
|
131 /* Then there are seven single-bit flags that have the following meanings: |
486 | 132 1. This character is the first of a two-character comment-start sequence. |
133 2. This character is the second of a two-character comment-start sequence. | |
134 3. This character is the first of a two-character comment-end sequence. | |
135 4. This character is the second of a two-character comment-end sequence. | |
136 5. This character is a prefix, for backward-prefix-chars. | |
25446
2a2d7ebaa018
(SYNTAX_COMMENT_NESTED, SYNTAX_FLAGS_COMMENT_NESTED):
Richard M. Stallman <rms@gnu.org>
parents:
23713
diff
changeset
|
137 6. see below |
2a2d7ebaa018
(SYNTAX_COMMENT_NESTED, SYNTAX_FLAGS_COMMENT_NESTED):
Richard M. Stallman <rms@gnu.org>
parents:
23713
diff
changeset
|
138 7. This character is part of a nestable comment sequence. |
1073 | 139 Note that any two-character sequence whose first character has flag 1 |
140 and whose second character has flag 2 will be interpreted as a comment start. | |
141 | |
142 bit 6 is used to discriminate between two different comment styles. | |
143 Languages such as C++ allow two orthogonal syntax start/end pairs | |
144 and bit 6 is used to determine whether a comment-end or Scommentend | |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
145 ends style a or b. Comment start sequences can start style a or b. |
1073 | 146 Style a is always the default. |
147 */ | |
486 | 148 |
21206
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
149 /* These macros extract a particular flag for a given character. */ |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
150 |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
151 #define SYNTAX_COMSTART_FIRST(c) ((SYNTAX_WITH_FLAGS (c) >> 16) & 1) |
5441
0af9674da850
(enum syntaxcode): Add Sinherit.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
152 |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
153 #define SYNTAX_COMSTART_SECOND(c) ((SYNTAX_WITH_FLAGS (c) >> 17) & 1) |
486 | 154 |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
155 #define SYNTAX_COMEND_FIRST(c) ((SYNTAX_WITH_FLAGS (c) >> 18) & 1) |
486 | 156 |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
157 #define SYNTAX_COMEND_SECOND(c) ((SYNTAX_WITH_FLAGS (c) >> 19) & 1) |
486 | 158 |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
159 #define SYNTAX_PREFIX(c) ((SYNTAX_WITH_FLAGS (c) >> 20) & 1) |
486 | 160 |
13143
ba670977cceb
Use char tables as syntax tables.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
161 #define SYNTAX_COMMENT_STYLE(c) ((SYNTAX_WITH_FLAGS (c) >> 21) & 1) |
1073 | 162 |
25446
2a2d7ebaa018
(SYNTAX_COMMENT_NESTED, SYNTAX_FLAGS_COMMENT_NESTED):
Richard M. Stallman <rms@gnu.org>
parents:
23713
diff
changeset
|
163 #define SYNTAX_COMMENT_NESTED(c) ((SYNTAX_WITH_FLAGS (c) >> 22) & 1) |
2a2d7ebaa018
(SYNTAX_COMMENT_NESTED, SYNTAX_FLAGS_COMMENT_NESTED):
Richard M. Stallman <rms@gnu.org>
parents:
23713
diff
changeset
|
164 |
21206
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
165 /* These macros extract specific flags from an integer |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
166 that holds the syntax code and the flags. */ |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
167 |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
168 #define SYNTAX_FLAGS_COMSTART_FIRST(flags) (((flags) >> 16) & 1) |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
169 |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
170 #define SYNTAX_FLAGS_COMSTART_SECOND(flags) (((flags) >> 17) & 1) |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
171 |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
172 #define SYNTAX_FLAGS_COMEND_FIRST(flags) (((flags) >> 18) & 1) |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
173 |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
174 #define SYNTAX_FLAGS_COMEND_SECOND(flags) (((flags) >> 19) & 1) |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
175 |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
176 #define SYNTAX_FLAGS_PREFIX(flags) (((flags) >> 20) & 1) |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
177 |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
178 #define SYNTAX_FLAGS_COMMENT_STYLE(flags) (((flags) >> 21) & 1) |
dac44ee5f772
(SYNTAX_FLAGS_COMSTART_FIRST): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21015
diff
changeset
|
179 |
25446
2a2d7ebaa018
(SYNTAX_COMMENT_NESTED, SYNTAX_FLAGS_COMMENT_NESTED):
Richard M. Stallman <rms@gnu.org>
parents:
23713
diff
changeset
|
180 #define SYNTAX_FLAGS_COMMENT_NESTED(flags) (((flags) >> 22) & 1) |
2a2d7ebaa018
(SYNTAX_COMMENT_NESTED, SYNTAX_FLAGS_COMMENT_NESTED):
Richard M. Stallman <rms@gnu.org>
parents:
23713
diff
changeset
|
181 |
486 | 182 /* This array, indexed by a character, contains the syntax code which that |
183 character signifies (as a char). For example, | |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
184 (enum syntaxcode) syntax_spec_code['w'] is Sword. */ |
486 | 185 |
186 extern unsigned char syntax_spec_code[0400]; | |
187 | |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
188 /* Indexed by syntax code, give the letter that describes it. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
189 |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
190 extern char syntax_code_spec[16]; |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
191 |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
192 /* Convert the byte offset BYTEPOS into a character position, |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
193 for the object recorded in gl_state with SETUP_SYNTAX_TABLE_FOR_OBJECT. |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
194 |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
195 The value is meant for use in the UPDATE_SYNTAX_TABLE... macros. |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
196 These macros do nothing when parse_sexp_lookup_properties is 0, |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
197 so we return 0 in that case, for speed. */ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
198 |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
199 #define SYNTAX_TABLE_BYTE_TO_CHAR(bytepos) \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
200 (! parse_sexp_lookup_properties \ |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
201 ? 0 \ |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
202 : STRINGP (gl_state.object) \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
203 ? string_byte_to_char (gl_state.object, (bytepos)) \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
204 : BUFFERP (gl_state.object) \ |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
205 ? buf_bytepos_to_charpos (XBUFFER (gl_state.object), \ |
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
206 (bytepos) + BUF_BEGV_BYTE (XBUFFER (gl_state.object)) - 1) - BUF_BEGV (XBUFFER (gl_state.object)) + 1 \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
207 : NILP (gl_state.object) \ |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
208 ? BYTE_TO_CHAR ((bytepos) + BEGV_BYTE - 1) - BEGV + 1 \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
209 : (bytepos)) |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
210 |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
211 /* Make syntax table state (gl_state) good for CHARPOS, assuming it is |
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
212 currently good for a position before CHARPOS. */ |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
213 |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
214 #define UPDATE_SYNTAX_TABLE_FORWARD(charpos) \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
215 (parse_sexp_lookup_properties \ |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
216 && (charpos) >= gl_state.e_property \ |
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
217 ? (update_syntax_table ((charpos) + gl_state.offset, 1, 0, \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
218 gl_state.object), \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
219 1) \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
220 : 0) |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
221 |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
222 /* Make syntax table state (gl_state) good for CHARPOS, assuming it is |
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
223 currently good for a position after CHARPOS. */ |
18678
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
224 |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
225 #define UPDATE_SYNTAX_TABLE_BACKWARD(charpos) \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
226 (parse_sexp_lookup_properties \ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
227 && (charpos) < gl_state.b_property \ |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
228 ? (update_syntax_table ((charpos) + gl_state.offset, -1, 0, \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
229 gl_state.object), \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
230 1) \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
231 : 0) |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
232 |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
233 /* Make syntax table good for CHARPOS. */ |
18678
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
234 |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
235 #define UPDATE_SYNTAX_TABLE(charpos) \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
236 (parse_sexp_lookup_properties \ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
237 && (charpos) < gl_state.b_property \ |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
238 ? (update_syntax_table ((charpos) + gl_state.offset, -1, 0, \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
239 gl_state.object), \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
240 1) \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
241 : (parse_sexp_lookup_properties \ |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
242 && (charpos) >= gl_state.e_property \ |
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
243 ? (update_syntax_table ((charpos) + gl_state.offset, 1, 0,\ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
244 gl_state.object), \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
245 1) \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
246 : 0)) |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
247 |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
248 /* This macro should be called with FROM at the start of forward |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
249 search, or after the last position of the backward search. It |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
250 makes sure that the first char is picked up with correct table, so |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
251 one does not need to call UPDATE_SYNTAX_TABLE immediately after the |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46370
diff
changeset
|
252 call. |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
253 Sign of COUNT gives the direction of the search. |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
254 */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
255 |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
256 #define SETUP_SYNTAX_TABLE(FROM, COUNT) \ |
91618
400a54e167c9
Use "do...while (0)", not "if (1)..else" in macro definitions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
257 do \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
258 { \ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
259 gl_state.b_property = BEGV; \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
260 gl_state.e_property = ZV + 1; \ |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
261 gl_state.object = Qnil; \ |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
262 gl_state.use_global = 0; \ |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
263 gl_state.offset = 0; \ |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
264 gl_state.current_syntax_table = current_buffer->syntax_table; \ |
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
265 if (parse_sexp_lookup_properties) \ |
22438
917424c9c149
(SETUP_SYNTAX_TABLE): Don't call update_syntax_table
Richard M. Stallman <rms@gnu.org>
parents:
21481
diff
changeset
|
266 if ((COUNT) > 0 || (FROM) > BEGV) \ |
917424c9c149
(SETUP_SYNTAX_TABLE): Don't call update_syntax_table
Richard M. Stallman <rms@gnu.org>
parents:
21481
diff
changeset
|
267 update_syntax_table ((COUNT) > 0 ? (FROM) : (FROM) - 1, (COUNT),\ |
917424c9c149
(SETUP_SYNTAX_TABLE): Don't call update_syntax_table
Richard M. Stallman <rms@gnu.org>
parents:
21481
diff
changeset
|
268 1, Qnil); \ |
21015
9f8f791762a8
(UPDATE_SYNTAX_TABLE): Do nothing unless parse_sexp_lookup_properties.
Richard M. Stallman <rms@gnu.org>
parents:
20957
diff
changeset
|
269 } \ |
91618
400a54e167c9
Use "do...while (0)", not "if (1)..else" in macro definitions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
270 while (0) |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
271 |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
272 /* Same as above, but in OBJECT. If OBJECT is nil, use current buffer. |
18678
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
273 If it is t, ignore properties altogether. |
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
274 |
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
275 This is meant for regex.c to use. For buffers, regex.c passes arguments |
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
276 to the UPDATE_SYNTAX_TABLE macros which are relative to BEGV. |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
277 So if it is a buffer, we set the offset field to BEGV. */ |
486 | 278 |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
279 #define SETUP_SYNTAX_TABLE_FOR_OBJECT(OBJECT, FROM, COUNT) \ |
91618
400a54e167c9
Use "do...while (0)", not "if (1)..else" in macro definitions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
280 do \ |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
281 { \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
282 gl_state.object = (OBJECT); \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
283 if (BUFFERP (gl_state.object)) \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
284 { \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
285 struct buffer *buf = XBUFFER (gl_state.object); \ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
286 gl_state.b_property = 1; \ |
20957
25bb3da85d05
(UPDATE_SYNTAX_TABLE_FORWARD): Fix condition.
Karl Heuer <kwzh@gnu.org>
parents:
20708
diff
changeset
|
287 gl_state.e_property = BUF_ZV (buf) - BUF_BEGV (buf) + 1; \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
288 gl_state.offset = BUF_BEGV (buf) - 1; \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
289 } \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
290 else if (NILP (gl_state.object)) \ |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
291 { \ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
292 gl_state.b_property = 1; \ |
20957
25bb3da85d05
(UPDATE_SYNTAX_TABLE_FORWARD): Fix condition.
Karl Heuer <kwzh@gnu.org>
parents:
20708
diff
changeset
|
293 gl_state.e_property = ZV - BEGV + 1; \ |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
294 gl_state.offset = BEGV - 1; \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
295 } \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
296 else if (EQ (gl_state.object, Qt)) \ |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
297 { \ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
298 gl_state.b_property = 0; \ |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
299 gl_state.e_property = 1500000000; \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
300 gl_state.offset = 0; \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
301 } \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
302 else \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
303 { \ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
304 gl_state.b_property = 0; \ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
39795
diff
changeset
|
305 gl_state.e_property = 1 + SCHARS (gl_state.object); \ |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
306 gl_state.offset = 0; \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
307 } \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
308 gl_state.use_global = 0; \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
309 gl_state.current_syntax_table = current_buffer->syntax_table; \ |
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
310 if (parse_sexp_lookup_properties) \ |
21481
e53c0d01cf31
(SETUP_SYNTAX_TABLE_FOR_OBJECT): FROM counts chars.
Karl Heuer <kwzh@gnu.org>
parents:
21206
diff
changeset
|
311 update_syntax_table (((FROM) + gl_state.offset \ |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
312 + (COUNT > 0 ? 0 : -1)), \ |
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
313 COUNT, 1, gl_state.object); \ |
20544
a884f0426ab9
(SETUP_SYNTAX_TABLE_FOR_OBJECT): Call bytepos_to_charpos.
Richard M. Stallman <rms@gnu.org>
parents:
20487
diff
changeset
|
314 } \ |
91618
400a54e167c9
Use "do...while (0)", not "if (1)..else" in macro definitions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
315 while (0) |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
316 |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
317 struct gl_state_s |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
318 { |
20649
388cedeebb88
(SYNTAX_TABLE_BYTE_TO_CHAR): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20544
diff
changeset
|
319 Lisp_Object object; /* The object we are scanning. */ |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
320 int start; /* Where to stop. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
321 int stop; /* Where to stop. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
322 int use_global; /* Whether to use global_code |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
323 or c_s_t. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
324 Lisp_Object global_code; /* Syntax code of current char. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
325 Lisp_Object current_syntax_table; /* Syntax table for current pos. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
326 Lisp_Object old_prop; /* Syntax-table prop at prev pos. */ |
39795
b945bdff4f96
(struct gl_state_s): Change the meaning of b_property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26870
diff
changeset
|
327 int b_property; /* First index where c_s_t is valid. */ |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
328 int e_property; /* First index where c_s_t is |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
329 not valid. */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
330 INTERVAL forward_i; /* Where to start lookup on forward */ |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
331 INTERVAL backward_i; /* or backward movement. The |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
332 data in c_s_t is valid |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
333 between these intervals, |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
334 and possibly at the |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
335 intervals too, depending |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
336 on: */ |
18678
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
337 /* Offset for positions specified to UPDATE_SYNTAX_TABLE. */ |
d26f9720e55f
(struct gl_state_s): New field `offset'.
Richard M. Stallman <rms@gnu.org>
parents:
18625
diff
changeset
|
338 int offset; |
17465
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
339 }; |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
340 |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
341 extern struct gl_state_s gl_state; |
8a008f65c8d4
(enum syntaxcode): New members Scomment_fence, Sstring_fence.
Richard M. Stallman <rms@gnu.org>
parents:
17181
diff
changeset
|
342 extern int parse_sexp_lookup_properties; |
20349 | 343 extern INTERVAL interval_of P_ ((int, Lisp_Object)); |
344 | |
345 extern int scan_words P_ ((int, int)); | |
52401 | 346 |
347 /* arch-tag: 28833cca-cd73-4741-8c85-a3111166a0e0 | |
348 (do not change this comment) */ |