The R Project SVN R

Rev

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

Rev 15890 Rev 15903
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 
 
 - 
 
717 
typedef SEXP (*R_stdGen_ptr_t)(SEXP, SEXP);
 - 
 
718 
 
 - 
 
719 
R_stdGen_ptr_t R_standardGeneric_ptr = 0;
 716 
R_stdGen_ptr_t R_standardGeneric_ptr = 0;
720 
 
 717 
 
- 
 
 718 
 
721 
SEXP do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
 719 
SEXP do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
722 
{
 720 
{
723 
  SEXP arg, value;
 721 
  SEXP arg, value;
724 
  if(!R_standardGeneric_ptr)
 722 
  if(!R_standardGeneric_ptr)
725 
    error("Using standardGeneric before the methods package has been attached");
 723 
    error("Using standardGeneric before the methods package has been attached");