void tcolumns_from_header(fitsfile* fileptr, PyObject* header,
tcolumn** columns) {
// Creates the array of tcolumn structures from the table column keywords
// read from the astropy.io.fits.Header object; caller is responsible for
// freeing the memory allocated for this array
tcolumn* column;
char tkw[9];
unsigned int idx;
int tfields;
char* ttype;
char* tform;
int dtcode;
long trepeat;
long twidth;
long long totalwidth;
int status = 0;
get_header_int(header, "TFIELDS", &tfields, 0);
*columns = column = PyMem_New(tcolumn, (size_t) tfields);
if (column == NULL) {
return;
}
for (idx = 1; idx <= tfields; idx++, column++) {
/* set some invalid defaults */
column->ttype[0] = '\0';
column->tbcol = 0;
column->tdatatype = -9999; /* this default used by cfitsio */
column->trepeat = 1;
column->strnull[0] = '\0';
column->tform[0] = '\0';
column->twidth = 0;
snprintf(tkw, 9, "TTYPE%u", idx);
get_header_string(header, tkw, &ttype, "");
strncpy(column->ttype, ttype, 69);
column->ttype[69] = '\0';
snprintf(tkw, 9, "TFORM%u", idx);
get_header_string(header, tkw, &tform, "");
strncpy(column->tform, tform, 9);
column->tform[9] = '\0';
fits_binary_tform(tform, &dtcode, &trepeat, &twidth, &status);
if (status != 0) {
process_status_err(status);
return;
}
column->tdatatype = dtcode;
column->trepeat = trepeat;
column->twidth = twidth;
snprintf(tkw, 9, "TSCAL%u", idx);
get_header_double(header, tkw, &(column->tscale), 1.0);
snprintf(tkw, 9, "TZERO%u", idx);
get_header_double(header, tkw, &(column->tzero), 0.0);
snprintf(tkw, 9, "TNULL%u", idx);
get_header_longlong(header, tkw, &(column->tnull), NULL_UNDEFINED);
}
fileptr->Fptr->tableptr = *columns;
fileptr->Fptr->tfield = tfields;
// This routine from CFITSIO calculates the byte offset of each column
// and stores it in the column->tbcol field
ffgtbc(fileptr, &totalwidth, &status);
if (status != 0) {
process_status_err(status);
}
return;
}
void tcolumns_from_header(fitsfile* fileptr, PyObject* header,
tcolumn** columns) {
// Creates the array of tcolumn structures from the table column keywords
// read from the astropy.io.fits.Header object; caller is responsible for
// freeing the memory allocated for this array
tcolumn* column;
char tkw[9];
int tfields;
char ttype[72];
char tform[72];
int dtcode;
long trepeat;
long twidth;
long long totalwidth;
int status = 0;
int idx;
if (get_header_int(header, "TFIELDS", &tfields, 0, HDR_FAIL_VAL_NEGATIVE) == GET_HEADER_FAILED) {
return;
}
/* To avoid issues in the loop we need to limit the number of TFIELDs to
999. Otherwise we would exceed the maximum length of the keyword name of
8. This could lead to multiple accesses of the same header keyword with
snprintf because we limit it to 8 characters + null-termination. */
if (tfields > 999) {
PyErr_SetString(PyExc_ValueError, "The TFIELDS value exceeds 999.");
return;
}
// This used to use PyMem_New, but don't do that; CFITSIO will later
// free() this object when the file is closed, so just use malloc here
// *columns = column = PyMem_New(tcolumn, (size_t) tfields);
*columns = column = calloc((size_t) tfields, sizeof(tcolumn));
if (column == NULL) {
PyErr_SetString(PyExc_MemoryError,
"Couldn't allocate memory for columns.");
return;
}
for (idx = 1; idx <= tfields; idx++, column++) {
/* set some invalid defaults */
column->ttype[0] = '\0';
column->tbcol = 0;
column->tdatatype = -9999; /* this default used by cfitsio */
column->trepeat = 1;
column->strnull[0] = '\0';
column->tform[0] = '\0';
column->twidth = 0;
snprintf(tkw, 9, "TTYPE%u", idx);
if (get_header_string(header, tkw, ttype, "", HDR_NOFLAG) == GET_HEADER_FAILED) {
return;
}
strncpy(column->ttype, ttype, 69);
column->ttype[69] = '\0';
snprintf(tkw, 9, "TFORM%u", idx);
if (get_header_string(header, tkw, tform, "", HDR_NOFLAG) == GET_HEADER_FAILED) {
return;
}
strncpy(column->tform, tform, 9);
column->tform[9] = '\0';
fits_binary_tform(tform, &dtcode, &trepeat, &twidth, &status);
if (status != 0) {
process_status_err(status);
return;
}
column->tdatatype = dtcode;
column->trepeat = trepeat;
column->twidth = twidth;
snprintf(tkw, 9, "TSCAL%u", idx);
if (get_header_double(header, tkw, &(column->tscale), 1.0, HDR_NOFLAG) == GET_HEADER_FAILED) {
return;
}
snprintf(tkw, 9, "TZERO%u", idx);
if (get_header_double(header, tkw, &(column->tzero), 0.0, HDR_NOFLAG) == GET_HEADER_FAILED) {
return;
}
snprintf(tkw, 9, "TNULL%u", idx);
if (get_header_longlong(header, tkw, &(column->tnull), NULL_UNDEFINED, HDR_NOFLAG) == GET_HEADER_FAILED) {
return;
}
}
fileptr->Fptr->tableptr = *columns;
fileptr->Fptr->tfield = tfields;
// This routine from CFITSIO calculates the byte offset of each column
// and stores it in the column->tbcol field
ffgtbc(fileptr, &totalwidth, &status);
if (status != 0) {
process_status_err(status);
}
return;
}
