The R Project SVN – R – Diff – /branches/R-exp-API/src/main/printarray.c



 
static void printComplexMatrix(SEXP sx, int offset, int r, int c,
			       SEXP rl, SEXP cl, char *rn, char *cn)
{
    SEXP sdr, ser, swr, sdi, sei, swi, sw;
    Rcomplex *x;
    int *dr, *er, *wr, *di, *ei, *wi, *w;
    int width, rlabw, clabw, rnw;
    int i, j, jmin, jmax, lbloff = 0;
 
    if (!isNull(rl))

Rev 5458	Rev 6994
Line 249...	Line 249...
249		249
250	`static void printComplexMatrix(SEXP sx, int offset, int r, int c,`	250	`static void printComplexMatrix(SEXP sx, int offset, int r, int c,`
251	`SEXP rl, SEXP cl, char rn, char cn)`	251	`SEXP rl, SEXP cl, char rn, char cn)`
252	`{`	252	`{`
253	`SEXP sdr, ser, swr, sdi, sei, swi, sw;`	253	`SEXP sdr, ser, swr, sdi, sei, swi, sw;`
254	`complex *x;`	254	`Rcomplex *x;`
255	`int dr, er, wr, di, ei, wi, *w;`	255	`int dr, er, wr, di, ei, wi, *w;`
256	`int width, rlabw, clabw, rnw;`	256	`int width, rlabw, clabw, rnw;`
257	`int i, j, jmin, jmax, lbloff = 0;`	257	`int i, j, jmin, jmax, lbloff = 0;`
258		258
259	`if (!isNull(rl))`	259	`if (!isNull(rl))`

The R Project SVN R

(root)/branches/R-exp-API/src/main/printarray.c @ 77458 – Rev 5458 → 6994