The R Project SVN R

Rev

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

Rev 11714 Rev 14357
Line 91... Line 91...
91 
void printRealVector(double *x, int n, int indx)
 91 
void printRealVector(double *x, int n, int indx)
92 
{
 92 
{
93 
    int i, w, d, e, labwidth=0, width;
 93 
    int i, w, d, e, labwidth=0, width;
94 
 
 94 
 
95 
    DO_first_lab;
 95 
    DO_first_lab;
96 
    formatReal(x, n, &w, &d, &e);
 96 
    formatReal(x, n, &w, &d, &e, 0);
97 
    w += R_print.gap;
 97 
    w += R_print.gap;
98 
 
 98 
 
99 
    for (i = 0; i < n; i++) {
 99 
    for (i = 0; i < n; i++) {
100 
	if (i > 0 && width + w > R_print.width) {
 100 
	if (i > 0 && width + w > R_print.width) {
101 
	    DO_newline;
 101 
	    DO_newline;
Line 109... Line 109...
109 
void printComplexVector(Rcomplex *x, int n, int indx)
 109 
void printComplexVector(Rcomplex *x, int n, int indx)
110 
{
 110 
{
111 
    int i, w, wr, dr, er, wi, di, ei, labwidth=0, width;
 111 
    int i, w, wr, dr, er, wi, di, ei, labwidth=0, width;
112 
 
 112 
 
113 
    DO_first_lab;
 113 
    DO_first_lab;
114 
    formatComplex(x, n, &wr, &dr, &er, &wi, &di, &ei);
 114 
    formatComplex(x, n, &wr, &dr, &er, &wi, &di, &ei, 0);
115 
 
 115 
 
116 
    w = wr + wi + 2;	/* +2 for "+" and "i" */
 116 
    w = wr + wi + 2;	/* +2 for "+" and "i" */
117 
    w += R_print.gap;
 117 
    w += R_print.gap;
118 
 
 118 
 
119 
    for (i = 0; i < n; i++) {
 119 
    for (i = 0; i < n; i++) {
Line 231... Line 231...
231 
static void printNamedIntegerVector(int * x, int n, SEXP * names)
 231 
static void printNamedIntegerVector(int * x, int n, SEXP * names)
232 
    PRINT_N_VECTOR(formatInteger(x, n, &w),
 232 
    PRINT_N_VECTOR(formatInteger(x, n, &w),
233 
		   Rprintf("%s%*s", EncodeInteger(x[k],w), R_print.gap,""))
 233 
		   Rprintf("%s%*s", EncodeInteger(x[k],w), R_print.gap,""))
234 
 
 234 
 
235 
#undef INI_F_REAL
 235 
#undef INI_F_REAL
236 
#define INI_F_REAL	int d, e; formatReal(x, n, &w, &d, &e)
 236 
#define INI_F_REAL	int d, e; formatReal(x, n, &w, &d, &e, 0)
237 
 
 237 
 
238 
static void printNamedRealVector(double * x, int n, SEXP * names)
 238 
static void printNamedRealVector(double * x, int n, SEXP * names)
239 
    PRINT_N_VECTOR(INI_F_REAL,
 239 
    PRINT_N_VECTOR(INI_F_REAL,
240 
		   Rprintf("%s%*s", EncodeReal(x[k],w,d,e),R_print.gap,""))
 240 
		   Rprintf("%s%*s", EncodeReal(x[k],w,d,e),R_print.gap,""))
241 
 
 241 
 
242 
#undef INI_F_CPLX
 242 
#undef INI_F_CPLX
243 
#define INI_F_CPLX					\
 243 
#define INI_F_CPLX					\
244 
    int wr, dr, er, wi, di, ei;				\
 244 
    int wr, dr, er, wi, di, ei;				\
245 
    formatComplex(x, n, &wr, &dr, &er, &wi, &di, &ei);	\
 245 
    formatComplex(x, n, &wr, &dr, &er, &wi, &di, &ei, 0);	\
246 
    w = wr + wi + 2
 246 
    w = wr + wi + 2
247 
 
 247 
 
248 
#undef P_IMAG_NA
 248 
#undef P_IMAG_NA
249 
#ifdef IEEE_754
 249 
#ifdef IEEE_754
250 
# define P_IMAG_NA				\
 250 
# define P_IMAG_NA				\