The R Project SVN R

Rev

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

Rev 87137 Rev 87740
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1999-2024  The R Core Team.
 3 
 *  Copyright (C) 1999-2025  The R Core Team.
4 
 *  Copyright (C) 2002-2023  The R Foundation
 4 
 *  Copyright (C) 2002-2023  The R Foundation
5 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 5 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
6 
 *
 6 
 *
7 
 *  This program is free software; you can redistribute it and/or modify
 7 
 *  This program is free software; you can redistribute it and/or modify
8 
 *  it under the terms of the GNU General Public License as published by
 8 
 *  it under the terms of the GNU General Public License as published by
Line 534... Line 534...
534 
   "usemethod". Things like [ and [[ call usemethod directly,
 534 
   "usemethod". Things like [ and [[ call usemethod directly,
535 
   hence do_usemethod should just be an interface to usemethod.
 535 
   hence do_usemethod should just be an interface to usemethod.
536 
*/
 536 
*/
537 
 
 537 
 
538 
/* This is a primitive SPECIALSXP */
 538 
/* This is a primitive SPECIALSXP */
539 
attribute_hidden NORET
 539 
NORET attribute_hidden
540 
SEXP do_usemethod(SEXP call, SEXP op, SEXP args, SEXP env)
 540 
SEXP do_usemethod(SEXP call, SEXP op, SEXP args, SEXP env)
541 
{
 541 
{
542 
    static SEXP do_usemethod_formals = NULL;
 542 
    static SEXP do_usemethod_formals = NULL;
543 
    if (do_usemethod_formals == NULL)
 543 
    if (do_usemethod_formals == NULL)
544 
	do_usemethod_formals = allocFormalsList2(install("generic"),
 544 
	do_usemethod_formals = allocFormalsList2(install("generic"),