The R Project SVN R

Rev

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

Rev 77446 Rev 77452
Line 1449... Line 1449...
1449 
 
 1449 
 
1450 
    if (do_attr_formals == NULL)
 1450 
    if (do_attr_formals == NULL)
1451 
	do_attr_formals = allocFormalsList3(install("x"), install("which"),
 1451 
	do_attr_formals = allocFormalsList3(install("x"), install("which"),
1452 
					    R_ExactSymbol);
 1452 
					    R_ExactSymbol);
1453 
 
 1453 
 
1454 
    argList = matchArgs(do_attr_formals, args, call);
 1454 
    argList = matchArgs_NR(do_attr_formals, args, call);
1455 
 
 1455 
 
1456 
    if (nargs < 2 || nargs > 3)
 1456 
    if (nargs < 2 || nargs > 3)
1457 
	errorcall(call, "either 2 or 3 arguments are required");
 1457 
	errorcall(call, "either 2 or 3 arguments are required");
1458 
 
 1458 
 
1459 
    /* argument matching */
 1459 
    /* argument matching */
Line 1631... Line 1631...
1631 
 
 1631 
 
1632 
	/* argument matching */
 1632 
	/* argument matching */
1633 
	if (do_attrgets_formals == NULL)
 1633 
	if (do_attrgets_formals == NULL)
1634 
	    do_attrgets_formals = allocFormalsList3(install("x"), install("which"),
 1634 
	    do_attrgets_formals = allocFormalsList3(install("x"), install("which"),
1635 
						    install("value"));
 1635 
						    install("value"));
1636 
	argList = matchArgs(do_attrgets_formals, args, call);
 1636 
	argList = matchArgs_NR(do_attrgets_formals, args, call);
1637 
	PROTECT(argList);
 1637 
	PROTECT(argList);
1638 
 
 1638 
 
1639 
	SEXP name = CADR(argList);
 1639 
	SEXP name = CADR(argList);
1640 
	SEXP val = CADDR(argList);
 1640 
	SEXP val = CADDR(argList);
1641 
	if (!isValidString(name) || STRING_ELT(name, 0) == NA_STRING)
 1641 
	if (!isValidString(name) || STRING_ELT(name, 0) == NA_STRING)