| 8 |
|
*/ |
| 9 |
|
|
| 10 |
|
#include <ctype.h> |
| 11 |
+ |
#include "platform.h" |
| 12 |
|
#include "standard.h" |
| 13 |
|
#include "cmatrix.h" |
| 14 |
|
#include "platform.h" |
| 15 |
< |
#include "rtprocess.h" |
| 15 |
> |
#include "paths.h" |
| 16 |
|
#include "resolu.h" |
| 17 |
|
|
| 18 |
|
const char *cm_fmt_id[] = { |
| 149 |
|
CMATRIX * |
| 150 |
|
cm_load(const char *inspec, int nrows, int ncols, int dtype) |
| 151 |
|
{ |
| 152 |
< |
FILE *fp = stdin; |
| 153 |
< |
CMATRIX *cm; |
| 152 |
> |
const int ROWINC = 2048; |
| 153 |
> |
FILE *fp = stdin; |
| 154 |
> |
CMATRIX *cm; |
| 155 |
|
|
| 156 |
|
if (inspec == NULL) |
| 157 |
|
inspec = "<stdin>"; |
| 220 |
|
int r, c; |
| 221 |
|
for (r = 0; r < maxrow; r++) { |
| 222 |
|
if (r >= cm->nrows) /* need more space? */ |
| 223 |
< |
cm = cm_resize(cm, 2*cm->nrows); |
| 223 |
> |
cm = cm_resize(cm, cm->nrows+ROWINC); |
| 224 |
|
for (c = 0; c < ncols; c++) { |
| 225 |
|
COLORV *cv = cm_lval(cm,r,c); |
| 226 |
< |
if (fscanf(fp, COLSPEC, cv, cv+1, cv+2) != 3) |
| 226 |
> |
if (fscanf(fp, COLSPEC, cv, cv+1, cv+2) != 3) { |
| 227 |
|
if ((nrows <= 0) & (r > 0) & !c) { |
| 228 |
|
cm = cm_resize(cm, maxrow=r); |
| 229 |
|
break; |
| 230 |
|
} else |
| 231 |
|
goto EOFerror; |
| 232 |
+ |
} |
| 233 |
|
} |
| 234 |
|
} |
| 235 |
|
while ((c = getc(fp)) != EOF) |
| 251 |
|
if (nrows <= 0) { /* unknown length */ |
| 252 |
|
if (nread == cm->nrows*cm->ncols) |
| 253 |
|
/* need more space? */ |
| 254 |
< |
cm = cm_resize(cm, 2*cm->nrows); |
| 254 |
> |
cm = cm_resize(cm, cm->nrows+ROWINC); |
| 255 |
|
else if (nread && !(nread % cm->ncols)) |
| 256 |
|
/* seem to be done */ |
| 257 |
|
cm = cm_resize(cm, nread/cm->ncols); |