The R Project SVN R

Rev

Rev 86643 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 86643 Rev 87167
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1998-2022  The R Core Team.
 3 
 *  Copyright (C) 1998-2024  The R Core Team.
4 
 *  Copyright (C) 1995-1998  Robert Gentleman and Ross Ihaka
 4 
 *  Copyright (C) 1995-1998  Robert Gentleman and Ross Ihaka
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
Line 226... Line 226...
226 
 
 226 
 
227 
    ITERATE_BY_REGION_PARTIAL(x, px, idx, nb, Rcomplex, COMPLEX, 0, n,
 227 
    ITERATE_BY_REGION_PARTIAL(x, px, idx, nb, Rcomplex, COMPLEX, 0, n,
228 
		      for(R_xlen_t j = 0; j < nb; j++) {
 228 
		      for(R_xlen_t j = 0; j < nb; j++) {
229 
			  i = idx + j; /* for macros */
 229 
			  i = idx + j; /* for macros */
230 
			  NUMVECTOR_TIGHTLOOP(CMPLX_ISNA(px[j]) ?
 230 
			  NUMVECTOR_TIGHTLOOP(CMPLX_ISNA(px[j]) ?
231 
					  EncodeReal0(NA_REAL, w, 0, 0, OutDec) :
 231 
				EncodeReal0(NA_REAL, w, 0, 0, OutDec) :
232 
					  EncodeComplex(px[j], wr + R_print.gap , dr, er, wi, di, ei, OutDec));
 232 
				EncodeComplex(px[j], wr + R_print.gap, dr, er, wi, di, ei, OutDec));
233 
		      });
 233 
		      });
234 
    Rprintf("\n");
 234 
    Rprintf("\n");
235 
}
 235 
}
236 
 
 236 
 
237 
 
 237 
 
Line 349... Line 349...
349 
	case RAWSXP:
 349 
	case RAWSXP:
350 
	    printRawVectorS(x, n_pr, indx);
 350 
	    printRawVectorS(x, n_pr, indx);
351 
	    break;
 351 
	    break;
352 
	}
 352 
	}
353 
	if(n_pr < n)
 353 
	if(n_pr < n)
354 
	    Rprintf(" [ reached getOption(\"max.print\") -- omitted %lld entries ]\n",
 354 
	    Rprintf(" [ reached 'max' / getOption(\"max.print\") -- omitted %lld entries ]\n",
355 
		    (long long)n - n_pr);
 355 
		    (long long)n - n_pr);
356 
    }
 356 
    }
357 
    else
 357 
    else
358 
#define PRINT_V_0						\
 358 
#define PRINT_V_0						\
359 
	switch (TYPEOF(x)) {					\
 359 
	switch (TYPEOF(x)) {					\
Line 499... Line 499...
499 
	case RAWSXP:
 499 
	case RAWSXP:
500 
	    printNamedRawVectorS(x, n_pr, names);
 500 
	    printNamedRawVectorS(x, n_pr, names);
501 
	    break;
 501 
	    break;
502 
	}
 502 
	}
503 
	if(n_pr < n)
 503 
	if(n_pr < n)
504 
	    Rprintf(" [ reached getOption(\"max.print\") -- omitted %lld entries ]\n",
 504 
	    Rprintf(" [ reached 'max' / getOption(\"max.print\") -- omitted %lld entries ]\n",
505 
		    (long long)n - n_pr);
 505 
		    (long long)n - n_pr);
506 
    }
 506 
    }
507 
    else {
 507 
    else {
508 
	Rprintf("named ");
 508 
	Rprintf("named ");
509 
	PRINT_V_0;
 509 
	PRINT_V_0;