The R Project SVN – R – Diff – /branches/R-classInheritance/src/main/objects.c



*/
static R_stdGen_ptr_t R_standardGeneric_ptr = 0;
static SEXP dispatchNonGeneric(SEXP name, SEXP env, SEXP fdef);
#define NOT_METHODS_DISPATCH_PTR(ptr) (ptr == 0 || ptr == dispatchNonGeneric)
 
R_stdGen_ptr_t R_get_standardGeneric_ptr(void)
{
    return R_standardGeneric_ptr;
}
 
R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t val, SEXP envir)

Rev 42675	Rev 44195
Line 830...	Line 830...
830	`*/`	830	`*/`
831	`static R_stdGen_ptr_t R_standardGeneric_ptr = 0;`	831	`static R_stdGen_ptr_t R_standardGeneric_ptr = 0;`
832	`static SEXP dispatchNonGeneric(SEXP name, SEXP env, SEXP fdef);`	832	`static SEXP dispatchNonGeneric(SEXP name, SEXP env, SEXP fdef);`
833	`#define NOT_METHODS_DISPATCH_PTR(ptr) (ptr == 0 \|\| ptr == dispatchNonGeneric)`	833	`#define NOT_METHODS_DISPATCH_PTR(ptr) (ptr == 0 \|\| ptr == dispatchNonGeneric)`
834		834
835	`R_stdGen_ptr_t R_get_standardGeneric_ptr()`	835	`R_stdGen_ptr_t R_get_standardGeneric_ptr(void)`
836	`{`	836	`{`
837	`return R_standardGeneric_ptr;`	837	`return R_standardGeneric_ptr;`
838	`}`	838	`}`
839		839
840	`R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t val, SEXP envir)`	840	`R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t val, SEXP envir)`

The R Project SVN R

(root)/branches/R-classInheritance/src/main/objects.c @ 63243 – Rev 42675 → 44195