The R Project SVN R

(root)/trunk/src/main/objects.c @ 28362 – Rev 26082 → 26089



R_stdGen_ptr_t R_get_standardGeneric_ptr()
{
    return R_standardGeneric_ptr;
}
 
 
R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t val, SEXP envir)
{
    R_stdGen_ptr_t old = R_standardGeneric_ptr;
    R_standardGeneric_ptr = val;
    if(envir && !isNull(envir))

Rev 26082	Rev 26089
Line 857...	Line 857...
857	`R_stdGen_ptr_t R_get_standardGeneric_ptr()`	857	`R_stdGen_ptr_t R_get_standardGeneric_ptr()`
858	`{`	858	`{`
859	`return R_standardGeneric_ptr;`	859	`return R_standardGeneric_ptr;`
860	`}`	860	`}`
861		861
862	`SEXP R_MethodsNamespace;`	-
863	`R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t val, SEXP envir)`	862	`R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t val, SEXP envir)`
864	`{`	863	`{`
865	`R_stdGen_ptr_t old = R_standardGeneric_ptr;`	864	`R_stdGen_ptr_t old = R_standardGeneric_ptr;`
866	`R_standardGeneric_ptr = val;`	865	`R_standardGeneric_ptr = val;`
867	`if(envir && !isNull(envir))`	866	`if(envir && !isNull(envir))`