Mercurial > hg > xemacs-beta

comparison src/symeval.h @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
73 { 73 {
74 struct lcrecord_header lcheader; 74 struct lcrecord_header lcheader;
75 void *value; 75 void *value;
76 enum symbol_value_type type; 76 enum symbol_value_type type;
77 }; 77 };
78 #define SYMBOL_VALUE_MAGIC_P(x) \ 78 #define SYMBOL_VALUE_MAGIC_P(x) \
79 (LRECORDP (x) \ 79 (LRECORDP (x) && \
80 && (XRECORD_LHEADER_IMPLEMENTATION (x)->printer \ 80 XRECORD_LHEADER (x)->type <= lrecord_type_max_symbol_value_magic)
81 == print_symbol_value_magic))
82 #define XSYMBOL_VALUE_MAGIC_TYPE(v) \ 81 #define XSYMBOL_VALUE_MAGIC_TYPE(v) \
83 (((struct symbol_value_magic *) XPNTR (v))->type) 82 (((struct symbol_value_magic *) XPNTR (v))->type)
84 #define XSETSYMBOL_VALUE_MAGIC(s, p) XSETOBJ (s, Lisp_Type_Record, p) 83 #define XSETSYMBOL_VALUE_MAGIC(s, p) XSETOBJ (s, Lisp_Type_Record, p)
85 void print_symbol_value_magic (Lisp_Object, Lisp_Object, int); 84 void print_symbol_value_magic (Lisp_Object, Lisp_Object, int);
86 85
294 These are used in the syms_of_FILENAME functions. */ 293 These are used in the syms_of_FILENAME functions. */
295 294
296 void defvar_magic (const char *symbol_name, const struct symbol_value_forward *magic); 295 void defvar_magic (const char *symbol_name, const struct symbol_value_forward *magic);
297 296
298 #define DEFVAR_SYMVAL_FWD(lname, c_location, forward_type, magicfun) do { \ 297 #define DEFVAR_SYMVAL_FWD(lname, c_location, forward_type, magicfun) do { \
299 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C = \ 298 static const struct symbol_value_forward I_hate_C = \
300 { /* struct symbol_value_forward */ \ 299 { /* struct symbol_value_forward */ \
301 { /* struct symbol_value_magic */ \ 300 { /* struct symbol_value_magic */ \
302 { /* struct lcrecord_header */ \ 301 { /* struct lcrecord_header */ \
303 { /* struct lrecord_header */ \ 302 { /* struct lrecord_header */ \
304 1, /* type - index into lrecord_implementations_table */ \ 303 lrecord_type_symbol_value_forward, /* lrecord_type_index */ \
305 0, /* mark bit */ \ 304 1, /* mark bit */ \
306 0, /* c_readonly bit */ \ 305 1, /* c_readonly bit */ \
307 0 /* lisp_readonly bit */ \ 306 1 /* lisp_readonly bit */ \
308 }, \ 307 }, \
309 0, /* next */ \ 308 0, /* next */ \
310 0, /* uid */ \ 309 0, /* uid */ \
311 0 /* free */ \ 310 0 /* free */ \
312 }, \ 311 }, \