The R Project SVN R

Rev

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

Rev 61448 Rev 61692
Line 510... Line 510...
510 
    if (length(args) < 1) errorcall(call, _("'.NAME' is missing"));
 510 
    if (length(args) < 1) errorcall(call, _("'.NAME' is missing"));
511 
    check1arg2(args, call, ".NAME");
 511 
    check1arg2(args, call, ".NAME");
512 
    args = resolveNativeRoutine(args, &ofun, &symbol, buf, NULL, NULL,
 512 
    args = resolveNativeRoutine(args, &ofun, &symbol, buf, NULL, NULL,
513 
				NULL, call, env);
 513 
				NULL, call, env);
514 
 
 514 
 
- 
 
 515 
    if(symbol.symbol.external && symbol.symbol.external->numArgs > -1) {
- 
 
 516 
	int nargs = length(args) - 1;
- 
 
 517 
	if(symbol.symbol.external->numArgs != nargs)
- 
 
 518 
	    warningcall(call,
- 
 
 519 
		      _("Incorrect number of arguments (%d), expecting %d for '%s'"),
- 
 
 520 
		      nargs, symbol.symbol.external->numArgs, buf);
- 
 
 521 
    }
- 
 
 522 
 
515 
    if (PRIMVAL(op) == 1) {
 523 
    if (PRIMVAL(op) == 1) {
516 
	R_ExternalRoutine2 fun = (R_ExternalRoutine2) ofun;
 524 
	R_ExternalRoutine2 fun = (R_ExternalRoutine2) ofun;
517 
	retval = fun(call, op, args, env);
 525 
	retval = fun(call, op, args, env);
518 
    } else {
 526 
    } else {
519 
	R_ExternalRoutine fun = (R_ExternalRoutine) ofun;
 527 
	R_ExternalRoutine fun = (R_ExternalRoutine) ofun;