comparison src/symeval.h @ 440:8de8e3f6228a r21-2-28

Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
21 /* Synched up with: Not in FSF. */ 21 /* Synched up with: Not in FSF. */
22 22
23 /* Fsymbol_value checks whether XSYMBOL (sym)->value is one of these, 23 /* Fsymbol_value checks whether XSYMBOL (sym)->value is one of these,
24 * and does weird magic stuff if so */ 24 * and does weird magic stuff if so */
25 25
26 #ifndef _XEMACS_SYMEVAL_H_ 26 #ifndef INCLUDED_symeval_h_
27 #define _XEMACS_SYMEVAL_H_ 27 #define INCLUDED_symeval_h_
28 28
29 enum symbol_value_type 29 enum symbol_value_type
30 { 30 {
31 /* The following tags use the 'symbol_value_forward' structure 31 /* The following tags use the 'symbol_value_forward' structure
32 and are strictly for variables DEFVARed on the C level. */ 32 and are strictly for variables DEFVARed on the C level. */
323 #define DEFVAR_BOOL(lname, c_location) \ 323 #define DEFVAR_BOOL(lname, c_location) \
324 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_BOOLEAN_FORWARD, 0) 324 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_BOOLEAN_FORWARD, 0)
325 #define DEFVAR_CONST_BOOL(lname, c_location) \ 325 #define DEFVAR_CONST_BOOL(lname, c_location) \
326 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_CONST_BOOLEAN_FORWARD, 0) 326 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_CONST_BOOLEAN_FORWARD, 0)
327 #define DEFVAR_LISP_MAGIC(lname, c_location, magicfun) \ 327 #define DEFVAR_LISP_MAGIC(lname, c_location, magicfun) \
328 DEFVAR_SYMVAL_FWD_OBJECT (lname, c_location, SYMVAL_OBJECT_FORWARD, magicfun); 328 DEFVAR_SYMVAL_FWD_OBJECT (lname, c_location, SYMVAL_OBJECT_FORWARD, magicfun)
329 #define DEFVAR_INT_MAGIC(lname, c_location, magicfun) \ 329 #define DEFVAR_INT_MAGIC(lname, c_location, magicfun) \
330 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_FIXNUM_FORWARD, magicfun); 330 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_FIXNUM_FORWARD, magicfun)
331 #define DEFVAR_BOOL_MAGIC(lname, c_location, magicfun) \ 331 #define DEFVAR_BOOL_MAGIC(lname, c_location, magicfun) \
332 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_BOOLEAN_FORWARD, magicfun); 332 DEFVAR_SYMVAL_FWD (lname, c_location, SYMVAL_BOOLEAN_FORWARD, magicfun)
333 333
334 #endif /* _XEMACS_SYMEVAL_H_ */ 334 #endif /* INCLUDED_symeval_h_ */