The R Project SVN R

Rev

Rev 42398 | Rev 43042 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 42398 Rev 42452
Line 423... Line 423...
423 
#define BINDING_IS_LOCKED(b) ((b)->sxpinfo.gp & BINDING_LOCK_MASK)
 423 
#define BINDING_IS_LOCKED(b) ((b)->sxpinfo.gp & BINDING_LOCK_MASK)
424 
#define SET_ACTIVE_BINDING_BIT(b) ((b)->sxpinfo.gp |= ACTIVE_BINDING_MASK)
 424 
#define SET_ACTIVE_BINDING_BIT(b) ((b)->sxpinfo.gp |= ACTIVE_BINDING_MASK)
425 
#define LOCK_BINDING(b) ((b)->sxpinfo.gp |= BINDING_LOCK_MASK)
 425 
#define LOCK_BINDING(b) ((b)->sxpinfo.gp |= BINDING_LOCK_MASK)
426 
#define UNLOCK_BINDING(b) ((b)->sxpinfo.gp &= (~BINDING_LOCK_MASK))
 426 
#define UNLOCK_BINDING(b) ((b)->sxpinfo.gp &= (~BINDING_LOCK_MASK))
427 
 
 427 
 
428 
/* Test macros with function versions in Rinternals.h */
 - 
 
429 
#undef isNull
 - 
 
430 
#define isNull(s)	(TYPEOF(s) == NILSXP)
 - 
 
431 
#undef isSymbol
 - 
 
432 
#define isSymbol(s)	(TYPEOF(s) == SYMSXP)
 - 
 
433 
#undef isLogical
 - 
 
434 
#define isLogical(s)	(TYPEOF(s) == LGLSXP)
 - 
 
435 
#undef isReal
 - 
 
436 
#define isReal(s)	(TYPEOF(s) == REALSXP)
 - 
 
437 
#undef isComplex
 - 
 
438 
#define isComplex(s)	(TYPEOF(s) == CPLXSXP)
 - 
 
439 
#undef isExpression
 - 
 
440 
#define isExpression(s) (TYPEOF(s) == EXPRSXP)
 - 
 
441 
#undef isEnvironment
 - 
 
442 
#define isEnvironment(s) (TYPEOF(s) == ENVSXP)
 - 
 
443 
#undef isString
 - 
 
444 
#define isString(s)	(TYPEOF(s) == STRSXP)
 - 
 
445 
#undef isObject
 - 
 
446 
#define isObject(s)	(OBJECT(s) != 0)
 - 
 
447 
 
 - 
 
448 
#else /* USE_RINTERNALS */
 428 
#else /* USE_RINTERNALS */
449 
 
 429 
 
450 
typedef struct VECREC *VECP;
 430 
typedef struct VECREC *VECP;
451 
int (PRIMOFFSET)(SEXP x);
 431 
int (PRIMOFFSET)(SEXP x);
452 
void (SET_PRIMOFFSET)(SEXP x, int v);
 432 
void (SET_PRIMOFFSET)(SEXP x, int v);