Mercurial > hg > xemacs-beta

comparison src/syntax.h @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
169 #define SYNTAX_FIRST_CHAR 0xcc 169 #define SYNTAX_FIRST_CHAR 0xcc
170 #define SYNTAX_SECOND_CHAR_START 0x30 170 #define SYNTAX_SECOND_CHAR_START 0x30
171 #define SYNTAX_SECOND_CHAR_END 0x03 171 #define SYNTAX_SECOND_CHAR_END 0x03
172 #define SYNTAX_SECOND_CHAR 0x33 172 #define SYNTAX_SECOND_CHAR 0x33
173 173
174 174 #define SYNTAX_START_P(table, a, b) \
175 /* #### These are now more or less equivalent to 175 ((SYNTAX_COMMENT_BITS (table, a) & SYNTAX_FIRST_CHAR_START) \
176 SYNTAX_COMMENT_MATCH_START ...*/ 176 && (SYNTAX_COMMENT_BITS (table, b) & SYNTAX_SECOND_CHAR_START))
177 /* a and b must be first and second start chars for a common type */ 177
178 #define SYNTAX_START_P(table, a, b) \ 178 #define SYNTAX_END_P(table, a, b) \
179 (((SYNTAX_COMMENT_BITS (table, a) & SYNTAX_FIRST_CHAR_START) >> 2) \ 179 ((SYNTAX_COMMENT_BITS (table, a) & SYNTAX_FIRST_CHAR_END) \
180 & (SYNTAX_COMMENT_BITS (table, b) & SYNTAX_SECOND_CHAR_START)) 180 && (SYNTAX_COMMENT_BITS (table, b) & SYNTAX_SECOND_CHAR_END))
181
182 /* ... and SYNTAX_COMMENT_MATCH_END */
183 /* a and b must be first and second end chars for a common type */
184 #define SYNTAX_END_P(table, a, b) \
185 (((SYNTAX_COMMENT_BITS (table, a) & SYNTAX_FIRST_CHAR_END) >> 2) \
186 & (SYNTAX_COMMENT_BITS (table, b) & SYNTAX_SECOND_CHAR_END))
187 181
188 #define SYNTAX_STYLES_MATCH_START_P(table, a, b, mask) \ 182 #define SYNTAX_STYLES_MATCH_START_P(table, a, b, mask) \
189 ((SYNTAX_COMMENT_BITS (table, a) & SYNTAX_FIRST_CHAR_START & (mask)) \ 183 ((SYNTAX_COMMENT_BITS (table, a) & SYNTAX_FIRST_CHAR_START & (mask)) \
190 && (SYNTAX_COMMENT_BITS (table, b) & SYNTAX_SECOND_CHAR_START & (mask))) 184 && (SYNTAX_COMMENT_BITS (table, b) & SYNTAX_SECOND_CHAR_START & (mask)))
191 185
253 syntax table itself. */ 247 syntax table itself. */
254 Lisp_Object syntax_match (Lisp_Object table, Emchar ch); 248 Lisp_Object syntax_match (Lisp_Object table, Emchar ch);
255 249
256 extern int no_quit_in_re_search; 250 extern int no_quit_in_re_search;
257 extern struct buffer *regex_emacs_buffer; 251 extern struct buffer *regex_emacs_buffer;
258 extern int regex_emacs_buffer_p;
259 252
260 void update_syntax_table (struct Lisp_Char_Table *ct); 253 void update_syntax_table (struct Lisp_Char_Table *ct);
261 254
262 #endif /* _XEMACS_SYNTAX_H_ */ 255 #endif /* _XEMACS_SYNTAX_H_ */