Mercurial > hg > xemacs-beta

comparison src/chartab.h @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 3d6bfa290dbd
children 19dcec799385
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
184 struct chartab_range *range, 184 struct chartab_range *range,
185 int (*fn) (struct chartab_range *range, 185 int (*fn) (struct chartab_range *range,
186 Lisp_Object val, void *arg), 186 Lisp_Object val, void *arg),
187 void *arg); 187 void *arg);
188 void prune_syntax_tables (int (*obj_marked_p) (Lisp_Object)); 188 void prune_syntax_tables (int (*obj_marked_p) (Lisp_Object));
189
190 EXFUN (Fcopy_char_table, 1);
191 EXFUN (Fmake_char_table, 1);
192 EXFUN (Fput_char_table, 3);
193
189 extern Lisp_Object Vall_syntax_tables; 194 extern Lisp_Object Vall_syntax_tables;
190 195
191 196
192 197
193 #ifdef MULE 198 #ifdef MULE
194 int check_category_char(Emchar ch, Lisp_Object ctbl, 199 int check_category_char(Emchar ch, Lisp_Object ctbl,
195 unsigned int designator, unsigned int not); 200 unsigned int designator, unsigned int not);
196 201
197 extern Lisp_Object Qcategory_table_p, Qcategory_designator_p;
198 extern Lisp_Object Qcategory_table_value_p;
199
200 extern Lisp_Object Vstandard_category_table; 202 extern Lisp_Object Vstandard_category_table;
201 203
202 #define CATEGORY_DESIGNATORP(x) \ 204 #define CATEGORY_DESIGNATORP(x) \
203 (CHARP (x) && XCHAR (x) >= 32 && XCHAR (x) <= 126) 205 (CHARP (x) && XCHAR (x) >= 32 && XCHAR (x) <= 126)
204 206
205 #define CHECK_CATEGORY_DESIGNATOR(x) \ 207 #define CHECK_CATEGORY_DESIGNATOR(x) do { \
206 do { if (!CATEGORY_DESIGNATORP (x)) \ 208 if (!CATEGORY_DESIGNATORP (x)) \
207 dead_wrong_type_argument (Qcategory_designator_p, (x)); } while (0) 209 dead_wrong_type_argument (Qcategory_designator_p, x); \
208 #define CONCHECK_CATEGORY_DESIGNATOR(x) \ 210 } while (0)
209 do { if (!CATEGORY_DESIGNATORP (x)) \ 211
210 x = wrong_type_argument (Qcategory_designator_p, (x)); } while (0) 212 #define CONCHECK_CATEGORY_DESIGNATOR(x) do { \
213 if (!CATEGORY_DESIGNATORP (x)) \
214 x = wrong_type_argument (Qcategory_designator_p, x); \
215 } while (0)
211 216
212 #define CATEGORY_TABLE_VALUEP(x) \ 217 #define CATEGORY_TABLE_VALUEP(x) \
213 (NILP (x) || (BIT_VECTORP (x) && (bit_vector_length (XBIT_VECTOR (x)) == 95))) 218 (NILP (x) || (BIT_VECTORP (x) && (bit_vector_length (XBIT_VECTOR (x)) == 95)))
214 219
215 #define CHECK_CATEGORY_TABLE_VALUE(x) \ 220 #define CHECK_CATEGORY_TABLE_VALUE(x) do { \
216 do { if (!CATEGORY_TABLE_VALUEP (x)) \ 221 if (!CATEGORY_TABLE_VALUEP (x)) \
217 dead_wrong_type_argument (Qcategory_table_value_p, (x)); } \ 222 dead_wrong_type_argument (Qcategory_table_value_p, x); \
218 while (0) 223 } while (0)
219 #define CONCHECK_CATEGORY_TABLE_VALUE(x) \ 224
220 do { if (!CATEGORY_TABLE_VALUEP (x)) \ 225 #define CONCHECK_CATEGORY_TABLE_VALUE(x) do { \
221 x = wrong_type_argument (Qcategory_table_value_p, (x)); } \ 226 if (!CATEGORY_TABLE_VALUEP (x)) \
222 while (0) 227 x = wrong_type_argument (Qcategory_table_value_p, x); \
228 } while (0)
223 229
224 #endif /* MULE */ 230 #endif /* MULE */
225 231
226 #endif /* _MULE_CHARTAB_H */ 232 #endif /* _MULE_CHARTAB_H */