The R Project SVN R

Rev

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

Rev 73728 Rev 73750
Line 126... Line 126...
126 
    int *w = (int *) R_alloc(c, sizeof(int));		\
 126 
    int *w = (int *) R_alloc(c, sizeof(int));		\
127 
    int width, rlabw = -1, clabw = -1; /* -Wall */	\
 127 
    int width, rlabw = -1, clabw = -1; /* -Wall */	\
128 
    int i, j, jmin = 0, jmax = 0, lbloff = 0;		\
 128 
    int i, j, jmin = 0, jmax = 0, lbloff = 0;		\
129 
							\
 129 
							\
130 
    if (!isNull(rl))					\
 130 
    if (!isNull(rl))					\
131 
	formatString(STRING_PTR(rl), r, &rlabw, 0);	\
 131 
	formatString(STRING_PTR_RO(rl), r, &rlabw, 0);	\
132 
    else						\
 132 
    else						\
133 
	rlabw = IndexWidth(r + 1) + 3;			\
 133 
	rlabw = IndexWidth(r + 1) + 3;			\
134 
							\
 134 
							\
135 
    if (rn) {						\
 135 
    if (rn) {						\
136 
	int rnw = strwidth(rn);				\
 136 
	int rnw = strwidth(rn);				\
Line 282... Line 282...
282 
static void printStringMatrix(SEXP sx, int offset, int r_pr, int r, int c,
 282 
static void printStringMatrix(SEXP sx, int offset, int r_pr, int r, int c,
283 
			      int quote, int right, SEXP rl, SEXP cl,
 283 
			      int quote, int right, SEXP rl, SEXP cl,
284 
			      const char *rn, const char *cn, Rboolean print_ij)
 284 
			      const char *rn, const char *cn, Rboolean print_ij)
285 
{
 285 
{
286 
    _PRINT_INIT_rl_rn;
 286 
    _PRINT_INIT_rl_rn;
287 
    SEXP *x = STRING_PTR(sx)+offset;
 287 
    const SEXP *x = STRING_PTR_RO(sx)+offset;
288 
 
 288 
 
289 
    _COMPUTE_W2_( formatString(&x[j * r], (R_xlen_t) r, &w[j], quote), );
 289 
    _COMPUTE_W2_( formatString(&x[j * r], (R_xlen_t) r, &w[j], quote), );
290 
 
 290 
 
291 
    _PRINT_MATRIX_( + R_print.gap,
 291 
    _PRINT_MATRIX_( + R_print.gap,
292 
	           /* DO_COLUMN_LABELS = */
 292 
	           /* DO_COLUMN_LABELS = */