The R Project SVN R

Rev

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

Rev 15912 Rev 15938
Line 711... Line 711...
711 
/* standardGeneric:  uses a pointer to R_standardGeneric, to be
 711 
/* standardGeneric:  uses a pointer to R_standardGeneric, to be
712 
   initialized when the methods package is attached.  When and if the
 712 
   initialized when the methods package is attached.  When and if the
713 
   methods code is automatically included, the pointer will not be
 713 
   methods code is automatically included, the pointer will not be
714 
   needed
714 
   needed
715 
 
 715 
 
716 
in Defn.h now:
 - 
 
717 
R_stdGen_ptr_t R_standardGeneric_ptr = 0;
 - 
 
718 
*/
 716 
*/
- 
 
 717 
static R_stdGen_ptr_t R_standardGeneric_ptr = 0;
- 
 
 718 
 
- 
 
 719 
R_stdGen_ptr_t R_get_standardGeneric_ptr() {
- 
 
 720 
  return R_standardGeneric_ptr;
- 
 
 721 
}
- 
 
 722 
 
- 
 
 723 
R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t val) {
- 
 
 724 
  R_stdGen_ptr_t old = R_standardGeneric_ptr;
- 
 
 725 
  R_standardGeneric_ptr = val;
- 
 
 726 
  return old;
- 
 
 727 
}
719 
 
 728 
 
720 
SEXP do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
 729 
SEXP do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
721 
{
 730 
{
722 
  SEXP arg, value;
 731 
  SEXP arg, value;
723 
  if(!R_standardGeneric_ptr)
 732 
  if(!R_standardGeneric_ptr)