The R Project SVN – R – Diff – /trunk/src/main/array.c



    SEXP ans;
 
    if (length(args) != 1)
	error("incorrect number of args to length");
 
    if( isObject(CAR(args)) && DispatchOrEval(call, op, "length", args,
					      rho, &ans, 0, 1)) 
      return(ans);
	
    ans = allocVector(INTSXP, 1);
    INTEGER(ans)[0] = length(CAR(args));

Rev 15783	Rev 16707
Line 271...	Line 271...
271	`SEXP ans;`	271	`SEXP ans;`
272		272
273	`if (length(args) != 1)`	273	`if (length(args) != 1)`
274	`error("incorrect number of args to length");`	274	`error("incorrect number of args to length");`
275		275
276	`if( isObject(CAR(args)) && DispatchOrEval(call, "length", args,`	276	`if( isObject(CAR(args)) && DispatchOrEval(call, op, "length", args,`
277	`rho, &ans, 0, 1))`	277	`rho, &ans, 0, 1))`
278	`return(ans);`	278	`return(ans);`
279		279
280	`ans = allocVector(INTSXP, 1);`	280	`ans = allocVector(INTSXP, 1);`
281	`INTEGER(ans)[0] = length(CAR(args));`	281	`INTEGER(ans)[0] = length(CAR(args));`

The R Project SVN R

(root)/trunk/src/main/array.c @ 28362 – Rev 15783 → 16707