The R Project SVN R

Rev

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

Rev 60801 Rev 61776
Line 434... Line 434...
434 
	Rprintf("\n");
 434 
	Rprintf("\n");
435 
	jmin = jmax;
 435 
	jmin = jmax;
436 
    }
 436 
    }
437 
}
 437 
}
438 
 
 438 
 
- 
 
 439 
attribute_hidden
439 
void printMatrix(SEXP x, int offset, SEXP dim, int quote, int right,
 440 
void printMatrix(SEXP x, int offset, SEXP dim, int quote, int right,
440 
		 SEXP rl, SEXP cl, const char *rn, const char *cn)
 441 
		 SEXP rl, SEXP cl, const char *rn, const char *cn)
441 
{
 442 
{
442 
/* 'rl' and 'cl' are dimnames(.)[[1]] and dimnames(.)[[2]]  whereas
 443 
/* 'rl' and 'cl' are dimnames(.)[[1]] and dimnames(.)[[2]]  whereas
443 
 * 'rn' and 'cn' are the  names(dimnames(.))
 444 
 * 'rn' and 'cn' are the  names(dimnames(.))
Line 491... Line 492...
491 
	Rprintf(" [ reached getOption(\"max.print\") -- omitted %d rows ]\n",
 492 
	Rprintf(" [ reached getOption(\"max.print\") -- omitted %d rows ]\n",
492 
		r - r_pr);
 493 
		r - r_pr);
493 
#endif
 494 
#endif
494 
}
 495 
}
495 
 
 496 
 
- 
 
 497 
attribute_hidden
496 
static void printArrayGeneral(SEXP x, SEXP dim, int quote, int right,
 498 
void printArray(SEXP x, SEXP dim, int quote, int right, SEXP dimnames)
497 
			      SEXP dimnames)
 - 
 
498 
{
 499 
{
499 
/* == printArray(.) */
 500 
/* == printArray(.) */
500 
 
 501 
 
501 
    int ndim = LENGTH(dim);
 502 
    int ndim = LENGTH(dim);
502 
    const char *rn = NULL, *cn = NULL;
 503 
    const char *rn = NULL, *cn = NULL;
Line 603... Line 604...
603 
	    Rprintf(" %d matrix slice(s) ]\n", nb - nb_pr);
 604 
	    Rprintf(" %d matrix slice(s) ]\n", nb - nb_pr);
604 
	}
 605 
	}
605 
    }
 606 
    }
606 
}
 607 
}
607 
 
 608 
 
608 
void printArray(SEXP x, SEXP dim, int quote, int right, SEXP dimnames)
 - 
 
609 
{
 - 
 
610 
    printArrayGeneral(x, dim, quote, right, dimnames);
 - 
 
611 
}
 -