The R Project SVN R

Rev

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

Rev 59451 Rev 60633
Line 90... Line 90...
90 
 
 90 
 
91 
static Rboolean tracing_state = TRUE;
 91 
static Rboolean tracing_state = TRUE;
92 
#define GET_TRACE_STATE tracing_state
 92 
#define GET_TRACE_STATE tracing_state
93 
#define SET_TRACE_STATE(value) tracing_state = value
 93 
#define SET_TRACE_STATE(value) tracing_state = value
94 
 
 94 
 
95 
SEXP R_traceOnOff(SEXP onOff)
 95 
SEXP attribute_hidden do_traceOnOff(SEXP call, SEXP op, SEXP args, SEXP rho)
96 
{
 96 
{
- 
 
 97 
    checkArity(op, args);
- 
 
 98 
    SEXP onOff = CAR(args);
- 
 
 99 
 
97 
    Rboolean prev = GET_TRACE_STATE;
 100 
    Rboolean prev = GET_TRACE_STATE;
98 
    if(length(onOff) > 0) {
 101 
    if(length(onOff) > 0) {
99 
	Rboolean _new = asLogical(onOff);
 102 
	Rboolean _new = asLogical(onOff);
100 
	if(_new == TRUE || _new == FALSE)
 103 
	if(_new == TRUE || _new == FALSE)
101 
	    SET_TRACE_STATE(_new);
 104 
	    SET_TRACE_STATE(_new);