The R Project SVN R

Rev

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

Rev 63155 Rev 63181
Line 163... Line 163...
163 
	formatLogical(&x[j * r], (R_xlen_t) r, &w[j]);
 163 
	formatLogical(&x[j * r], (R_xlen_t) r, &w[j]);
164 
 
 164 
 
165 
#	define _PRINT_SET_clabw					\
 165 
#	define _PRINT_SET_clabw					\
166 
								\
 166 
								\
167 
	if (!isNull(cl)) {					\
 167 
	if (!isNull(cl)) {					\
- 
 
 168 
	    const void *vmax = vmaxget();			\
168 
	    if(STRING_ELT(cl, j) == NA_STRING)			\
 169 
	    if(STRING_ELT(cl, j) == NA_STRING)			\
169 
		clabw = R_print.na_width_noquote;		\
 170 
		clabw = R_print.na_width_noquote;		\
170 
	    else clabw = strwidth(translateChar(STRING_ELT(cl, j)));	\
 171 
	    else clabw = strwidth(translateChar(STRING_ELT(cl, j)));	\
- 
 
 172 
	    vmaxset(vmax);					\
171 
	} else							\
 173 
	} else							\
172 
	    clabw = IndexWidth(j + 1) + 3;
 174 
	    clabw = IndexWidth(j + 1) + 3;
173 
 
 175 
 
174 
	_PRINT_SET_clabw;
 176 
	_PRINT_SET_clabw;
175 
 
 177