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

 */
 /* array(data, dim, dimnames) */
 attribute_hidden SEXP do_array(SEXP call, SEXP op, SEXP args, SEXP rho)
+{
-    SEXP vals, ans, dims, dimnames;
-    R_xlen_t lendat, i, nans;
     checkArity(op, args);
-    vals = CAR(args); // = data
+    SEXP vals = CAR(args); // = data
     /* at least NULL can get here */
     switch(TYPEOF(vals)) {
 	case LGLSXP:
 	case INTSXP:
 	case REALSXP:
 	    break;
 	default:
 	    error(_("'data' must be of a vector type, was '%s'"),
 		R_typeToChar(vals));
+    }
-    lendat = XLENGTH(vals);
+    SEXP ans,
-    dims = CADR(args);
+	dims     = CADR(args),
-    dimnames = CADDR(args);
+	dimnames = CADDR(args);
     PROTECT(dims = coerceVector(dims, INTSXP));
     int nd = LENGTH(dims);
-    if (nd == 0) error(_("'dims' cannot be of length 0"));
+    if (nd == 0) error(_("'dim' cannot be of length 0"));
     double d = 1.0;
     for (int j = 0; j < nd; j++) d *= INTEGER(dims)[j];
 #ifdef LONG_VECTOR_SUPPORT
     if (d > R_XLEN_T_MAX) error(_("too many elements specified"));
 #else
     if (d > INT_MAX) error(_("too many elements specified"));
 #endif
+    R_xlen_t lendat = XLENGTH(vals),
-    nans = (R_xlen_t) d;
+	i, nans = (R_xlen_t) d;
     PROTECT(ans = allocVector(TYPEOF(vals), nans));
     switch(TYPEOF(vals)) {
     case LGLSXP:
 	if (nans && lendat)

The R Project SVN R