The R Project SVN – R – Diff – /trunk/src/main/objects.c



		"or an object with a nameOfClass() method"));
    int j, nwhat = LENGTH(what);
 
    if( !isLogical(which) || (LENGTH(which) != 1) )
	error(_("'which' must be a length 1 logical vector"));
    Rboolean isvec = asRbool(which, R_NilValue);
 
    if(isvec)
	PROTECT(rval = allocVector(INTSXP, nwhat));
 
    for(j = 0; j < nwhat; j++) {

static SEXP R_isMethodsDispatchOn(SEXP onOff)
{
    R_stdGen_ptr_t old = R_get_standardGeneric_ptr();
    int ival =  !NOT_METHODS_DISPATCH_PTR(old);
    if(length(onOff) > 0) {
	Rboolean onOffValue = asRbool(onOff, R_NilValue);
	if(onOffValue == NA_INTEGER)
	    error(_("'onOff' must be TRUE or FALSE"));
	else if(onOffValue == FALSE)
	    R_set_standardGeneric_ptr(NULL, R_GlobalEnv);
	// TRUE is not currently used

The R Project SVN R

(root)/trunk/src/main/objects.c @ 28362 – Rev 87740 → 87783

Rev 87740		Rev 87783
Line 1026...		Line 1026...
1026	`"or an object with a nameOfClass() method"));`	1026	`"or an object with a nameOfClass() method"));`
1027	`int j, nwhat = LENGTH(what);`	1027	`int j, nwhat = LENGTH(what);`
1028		1028
1029	`if( !isLogical(which) \|\| (LENGTH(which) != 1) )`	1029	`if( !isLogical(which) \|\| (LENGTH(which) != 1) )`
1030	`error(_("'which' must be a length 1 logical vector"));`	1030	`error(_("'which' must be a length 1 logical vector"));`
1031	`Rboolean isvec = asLogical(which);`	1031	`Rboolean isvec = asRbool(which, R_NilValue);`
1032		1032
1033	`if(isvec)`	1033	`if(isvec)`
1034	`PROTECT(rval = allocVector(INTSXP, nwhat));`	1034	`PROTECT(rval = allocVector(INTSXP, nwhat));`
1035		1035
1036	`for(j = 0; j < nwhat; j++) {`	1036	`for(j = 0; j < nwhat; j++) {`
Line 1229...		Line 1229...
1229	`static SEXP R_isMethodsDispatchOn(SEXP onOff)`	1229	`static SEXP R_isMethodsDispatchOn(SEXP onOff)`
1230	`{`	1230	`{`
1231	`R_stdGen_ptr_t old = R_get_standardGeneric_ptr();`	1231	`R_stdGen_ptr_t old = R_get_standardGeneric_ptr();`
1232	`int ival = !NOT_METHODS_DISPATCH_PTR(old);`	1232	`int ival = !NOT_METHODS_DISPATCH_PTR(old);`
1233	`if(length(onOff) > 0) {`	1233	`if(length(onOff) > 0) {`
1234	`Rboolean onOffValue = asLogical(onOff);`	1234	`Rboolean onOffValue = asRbool(onOff, R_NilValue);`
1235	`if(onOffValue == NA_INTEGER)`	1235	`if(onOffValue == NA_INTEGER)`
1236	`error(_("'onOff' must be TRUE or FALSE"));`	1236	`error(_("'onOff' must be TRUE or FALSE"));`
1237	`else if(onOffValue == FALSE)`	1237	`else if(onOffValue == FALSE)`
1238	`R_set_standardGeneric_ptr(NULL, R_GlobalEnv);`	1238	`R_set_standardGeneric_ptr(NULL, R_GlobalEnv);`
1239	`// TRUE is not currently used`	1239	`// TRUE is not currently used`