| 21 |
|
}; |
| 22 |
|
|
| 23 |
|
const int cm_elem_size[] = { |
| 24 |
< |
0, 0, 4, 4, 3*sizeof(float), 3*sizeof(double) |
| 24 |
> |
0, 4, 4, 3*sizeof(float), 0, 3*sizeof(double) |
| 25 |
|
}; |
| 26 |
|
|
| 27 |
|
/* Allocate a color coefficient matrix */ |
| 259 |
|
} |
| 260 |
|
if (nrows <= 0) { /* don't know length? */ |
| 261 |
|
int guessrows = 147; /* usually big enough */ |
| 262 |
< |
if ((dtype != DTascii) & (fp != stdin) & (inspec[0] != '!')) { |
| 262 |
> |
if (cm_elem_size[dtype] && (fp != stdin) & (inspec[0] != '!')) { |
| 263 |
|
long startpos = ftell(fp); |
| 264 |
|
if (fseek(fp, 0L, SEEK_END) == 0) { |
| 265 |
+ |
long rowsiz = (long)ncols*cm_elem_size[dtype]; |
| 266 |
|
long endpos = ftell(fp); |
| 266 |
– |
long elemsiz = 3*(dtype==DTfloat ? |
| 267 |
– |
sizeof(float) : sizeof(double)); |
| 267 |
|
|
| 268 |
< |
if ((endpos - startpos) % (ncols*elemsiz)) { |
| 268 |
> |
if ((endpos - startpos) % rowsiz) { |
| 269 |
|
sprintf(errmsg, |
| 270 |
|
"improper length for binary file '%s'", |
| 271 |
|
inspec); |
| 272 |
|
error(USER, errmsg); |
| 273 |
|
} |
| 274 |
< |
guessrows = (endpos - startpos)/(ncols*elemsiz); |
| 274 |
> |
guessrows = (endpos - startpos)/rowsiz; |
| 275 |
|
if (fseek(fp, startpos, SEEK_SET) < 0) { |
| 276 |
|
sprintf(errmsg, |
| 277 |
|
"fseek() error on file '%s'", |
| 332 |
|
goto EOFerror; |
| 333 |
|
} while (nread < cm->nrows*cm->ncols); |
| 334 |
|
|
| 335 |
+ |
if (swap) { |
| 336 |
+ |
if (sizeof(COLORV) == 4) |
| 337 |
+ |
swap32((char *)cm->cmem, |
| 338 |
+ |
3*cm->nrows*cm->ncols); |
| 339 |
+ |
else /* sizeof(COLORV) == 8 */ |
| 340 |
+ |
swap64((char *)cm->cmem, |
| 341 |
+ |
3*cm->nrows*cm->ncols); |
| 342 |
+ |
} |
| 343 |
|
} else if (dtype == DTdouble) { |
| 344 |
|
double dc[3]; /* load from double */ |
| 345 |
|
COLORV *cvp = cm->cmem; |
| 350 |
|
while (n--) { |
| 351 |
|
if (getbinary(dc, sizeof(double), 3, fp) != 3) |
| 352 |
|
goto EOFerror; |
| 353 |
+ |
if (swap) swap64((char *)dc, 3); |
| 354 |
|
copycolor(cvp, dc); |
| 355 |
|
cvp += 3; |
| 356 |
|
} |
| 364 |
|
while (n--) { |
| 365 |
|
if (getbinary(fc, sizeof(float), 3, fp) != 3) |
| 366 |
|
goto EOFerror; |
| 367 |
+ |
if (swap) swap32((char *)fc, 3); |
| 368 |
|
copycolor(cvp, fc); |
| 369 |
|
cvp += 3; |
| 370 |
|
} |
| 375 |
|
inspec); |
| 376 |
|
error(WARNING, errmsg); |
| 377 |
|
} |
| 369 |
– |
} |
| 370 |
– |
if (swap) { |
| 371 |
– |
if (dtype == DTfloat) |
| 372 |
– |
swap32((char *)cm->cmem, 3*cm->nrows*cm->ncols); |
| 373 |
– |
else if (dtype == DTdouble) |
| 374 |
– |
swap64((char *)cm->cmem, 3*cm->nrows*cm->ncols); |
| 378 |
|
} |
| 379 |
|
cleanup: |
| 380 |
|
if (fp != stdin) { |