void
srf_read(FILE * const ifP,
bool const verbose,
struct srf * const srfP) {
uint8_t trialCsum;
size_t padLen;
unsigned char pad[256];
unsigned int i;
if (!readHeader(ifP, &srfP->header))
pm_error("short srf header");
if (!checkHeader(&srfP->header))
pm_error("invalid srf header");
if (verbose)
pm_message("reading srf ver %s with prod code %s and %u images",
srfP->header.ver.val, srfP->header.prod.val,
srfP->header.img_cnt);
MALLOCARRAY(srfP->imgs, srfP->header.img_cnt);
if (!srfP->imgs)
pm_error("Could not allocate memory for %u images",
srfP->header.img_cnt);
for (i = 0; i < srfP->header.img_cnt; ++i)
if (!readImg(ifP, verbose, i, &srfP->imgs[i]))
pm_error("invalid srf image %u", i);
padLen = fread(pad, 1, sizeof(pad), ifP);
if (!feof(ifP)) {
pm_errormsg("excess data at end of file");
return;
}
trialCsum = csum(srfP, 0); /* initial value */
for (i = 0; i < padLen; ++i)
trialCsum += pad[i];
if (trialCsum != 0)
pm_errormsg("checksum does not match");
}
tupletable
pnm_alloctupletable(const struct pam * const pamP,
unsigned int const size) {
tupletable retval;
const char * error;
alloctupletable(pamP, size, &retval, &error);
if (error) {
pm_errormsg("%s", error);
strfree(error);
pm_longjmp();
}
return retval;
}
static tupletable
tuplehashtotable(const struct pam * const pamP,
tuplehash const tuplehash,
unsigned int const allocsize) {
/*----------------------------------------------------------------------------
Create a tuple table containing the info from a tuple hash. Allocate
space in the table for 'allocsize' elements even if there aren't that
many tuple values in the input hash. That's so the caller has room
for expansion.
Caller must ensure that 'allocsize' is at least as many tuple values
as there are in the input hash.
We allocate new space for all the table contents; there are no pointers
in the table to tuples or anything else in existing space.
-----------------------------------------------------------------------------*/
tupletable tupletable;
const char * error;
alloctupletable(pamP, allocsize, &tupletable, &error);
if (error) {
pm_errormsg("%s", error);
strfree(error);
pm_longjmp();
} else {
unsigned int i, j;
/* Loop through the hash table. */
j = 0;
for (i = 0; i < HASH_SIZE; ++i) {
/* Walk this hash chain */
struct tupleint_list_item * p;
for (p = tuplehash[i]; p; p = p->next) {
assert(j < allocsize);
tupletable[j]->value = p->tupleint.value;
pnm_assigntuple(pamP, tupletable[j]->tuple, p->tupleint.tuple);
++j;
}
}
}
return tupletable;
}
