The R Project SVN R

Rev

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

Rev 76734 Rev 76854
Line 107... Line 107...
107 
static
 107 
static
108 
void printLogicalVectorS(SEXP x, R_xlen_t n, int indx) {
 108 
void printLogicalVectorS(SEXP x, R_xlen_t n, int indx) {
109 
    int w, labwidth=0, width;
 109 
    int w, labwidth=0, width;
110 
    R_xlen_t i;
 110 
    R_xlen_t i;
111 
    DO_first_lab;
 111 
    DO_first_lab;
112 
    formatLogicalS(x,XLENGTH(x), &w);
 112 
    formatLogicalS(x, n, &w);
113 
    w += R_print.gap;
 113 
    w += R_print.gap;
114 
 
 114 
 
115 
    ITERATE_BY_REGION(x, px, idx, nb, int, LOGICAL,
 115 
    ITERATE_BY_REGION_PARTIAL(x, px, idx, nb, int, LOGICAL, 0, n,
116 
		      for(R_xlen_t j = 0; j < nb; j++) {
 116 
		      for(R_xlen_t j = 0; j < nb; j++) {
117 
			  i = idx + j; /* for Do_newline */
 117 
			  i = idx + j; /* for Do_newline */
118 
			  NUMVECTOR_TIGHTLOOP( EncodeLogical(px[j], w) );
 118 
			  NUMVECTOR_TIGHTLOOP( EncodeLogical(px[j], w) );
119 
		      });
 119 
		      });
120 
    Rprintf("\n");
 120 
    Rprintf("\n");
Line 139... Line 139...
139 
void printIntegerVectorS(SEXP x, R_xlen_t n, int indx)
 139 
void printIntegerVectorS(SEXP x, R_xlen_t n, int indx)
140 
{
 140 
{
141 
    int w, labwidth=0, width;
 141 
    int w, labwidth=0, width;
142 
    R_xlen_t i;
 142 
    R_xlen_t i;
143 
    DO_first_lab;
 143 
    DO_first_lab;
144 
    formatIntegerS(x, XLENGTH(x), &w);
 144 
    formatIntegerS(x, n, &w);
145 
    w += R_print.gap;
 145 
    w += R_print.gap;
146 
 
 146 
 
147 
    ITERATE_BY_REGION(x, px, idx, nb, int, INTEGER,
 147 
    ITERATE_BY_REGION_PARTIAL(x, px, idx, nb, int, INTEGER, 0, n,
148 
		      for (R_xlen_t j = 0; j < nb; j++) {
 148 
		      for (R_xlen_t j = 0; j < nb; j++) {
149 
			  i = idx + j; /* for macros */
 149 
			  i = idx + j; /* for macros */
150 
			  NUMVECTOR_TIGHTLOOP(EncodeInteger(px[j], w));
 150 
			  NUMVECTOR_TIGHTLOOP(EncodeInteger(px[j], w));
151 
		      });
 151 
		      });
152
152
Line 177... Line 177...
177 
    R_xlen_t i;
 177 
    R_xlen_t i;
178 
    DO_first_lab;
 178 
    DO_first_lab;
179 
    formatRealS(x, n, &w, &d, &e, 0);
 179 
    formatRealS(x, n, &w, &d, &e, 0);
180 
    w += R_print.gap;
 180 
    w += R_print.gap;
181 
 
 181 
 
182 
    ITERATE_BY_REGION(x, px, idx, nb, double, REAL,
 182 
    ITERATE_BY_REGION_PARTIAL(x, px, idx, nb, double, REAL, 0, n,
183 
		      for(R_xlen_t j = 0; j < nb; j++) {
 183 
		      for(R_xlen_t j = 0; j < nb; j++) {
184 
			  i = idx + j; /* for macros */
 184 
			  i = idx + j; /* for macros */
185 
			  NUMVECTOR_TIGHTLOOP(EncodeReal0(px[j], w, d, e, OutDec));
 185 
			  NUMVECTOR_TIGHTLOOP(EncodeReal0(px[j], w, d, e, OutDec));
186 
		      });
 186 
		      });
187
187
Line 218... Line 218...
218 
    formatComplexS(x, n, &wr, &dr, &er, &wi, &di, &ei, 0);
 218 
    formatComplexS(x, n, &wr, &dr, &er, &wi, &di, &ei, 0);
219 
 
 219 
 
220 
    w = wr + wi + 2;	/* +2 for "+" and "i" */
 220 
    w = wr + wi + 2;	/* +2 for "+" and "i" */
221 
    w += R_print.gap;
 221 
    w += R_print.gap;
222 
 
 222 
 
223 
    ITERATE_BY_REGION(x, px, idx, nb, Rcomplex, COMPLEX,
 223 
    ITERATE_BY_REGION_PARTIAL(x, px, idx, nb, Rcomplex, COMPLEX, 0, n,
224 
		      for(R_xlen_t j = 0; j < nb; j++) {
 224 
		      for(R_xlen_t j = 0; j < nb; j++) {
225 
			  i = idx + j; /* for macros */
 225 
			  i = idx + j; /* for macros */
226 
			  NUMVECTOR_TIGHTLOOP(CMPLX_ISNA(px[j]) ?
 226 
			  NUMVECTOR_TIGHTLOOP(CMPLX_ISNA(px[j]) ?
227 
					  EncodeReal0(NA_REAL, w, 0, 0, OutDec) :
 227 
					  EncodeReal0(NA_REAL, w, 0, 0, OutDec) :
228 
					  EncodeComplex(px[j], wr + R_print.gap , dr, er, wi, di, ei, OutDec));
 228 
					  EncodeComplex(px[j], wr + R_print.gap , dr, er, wi, di, ei, OutDec));
Line 304... Line 304...
304 
    R_xlen_t i;
 304 
    R_xlen_t i;
305 
    DO_first_lab;
 305 
    DO_first_lab;
306 
    formatRawS(x, n, &w);
 306 
    formatRawS(x, n, &w);
307 
    w += R_print.gap;
 307 
    w += R_print.gap;
308 
 
 308 
 
309 
    ITERATE_BY_REGION(x, px, idx, nb, Rbyte, RAW,
 309 
    ITERATE_BY_REGION_PARTIAL(x, px, idx, nb, Rbyte, RAW, 0, n,
310 
		      for(R_xlen_t j = 0; j < nb; j++) {
 310 
		      for(R_xlen_t j = 0; j < nb; j++) {
311 
			  i = idx + j; /* for macros */
 311 
			  i = idx + j; /* for macros */
312 
			  RAWVECTOR_TIGHTLOOP(px, j);
 312 
			  RAWVECTOR_TIGHTLOOP(px, j);
313 
		      });
 313 
		      });
314 
    Rprintf("\n");
 314 
    Rprintf("\n");