The R Project SVN R

(root)/trunk/src/main/array.c @ 77458 – Rev 76585 → 77496



 
    checkArity(op, args);
 
    a = CAR(args);
    if (!isArray(a))
	error(_("invalid first argument, must be %s"), "an array");
 
    PROTECT(dimsa = getAttrib(a, R_DimSymbol));
    n = LENGTH(dimsa);
    int *isa = INTEGER(dimsa);
 

Rev 76585	Rev 77496
Line 1692...	Line 1692...
1692		1692
1693	`checkArity(op, args);`	1693	`checkArity(op, args);`
1694		1694
1695	`a = CAR(args);`	1695	`a = CAR(args);`
1696	`if (!isArray(a))`	1696	`if (!isArray(a))`
1697	`error(_("invalid first argument, must be an array"));`	1697	`error(_("invalid first argument, must be %s"), "an array");`
1698		1698
1699	`PROTECT(dimsa = getAttrib(a, R_DimSymbol));`	1699	`PROTECT(dimsa = getAttrib(a, R_DimSymbol));`
1700	`n = LENGTH(dimsa);`	1700	`n = LENGTH(dimsa);`
1701	`int *isa = INTEGER(dimsa);`	1701	`int *isa = INTEGER(dimsa);`
1702		1702