39#include "casu_utils.h"
40#include "casu_tfits.h"
82 const char *fctid =
"casu_tfits_load";
91 tab = cpl_table_load(cpl_frame_get_filename(table),nexten,0);
93 cpl_msg_error(fctid,
"Unable to load %s -- %s",
94 cpl_frame_get_filename(table),cpl_error_get_message());
101 p = cpl_malloc(
sizeof(casu_tfits));
109 p->fname = cpl_strdup(cpl_frame_get_filename(table));
115 if (cpl_propertylist_has(p->ehu,
"EXTNAME")) {
116 p->extname = cpl_strdup(cpl_propertylist_get_string(p->ehu,
"EXTNAME"));
118 nf = 11 + (int)log10((
double)nexten);
119 p->extname = cpl_malloc(nf);
120 (void)snprintf(p->extname,nf,
"DET1.CHIP%d",nexten);
122 nf = strlen(p->extname) + strlen(p->fname) + 3;
123 p->fullname = cpl_malloc(nf);
124 (void)snprintf(p->fullname,nf,
"%s[%s]",p->fname,p->extname);
162 p = cpl_malloc(
sizeof(casu_tfits));
206 p = cpl_malloc(
sizeof(casu_tfits));
210 p->table = cpl_table_duplicate(in->table);
213 p->fname = cpl_strdup(in->fname);
214 p->extname = cpl_strdup(in->extname);
215 p->fullname = cpl_strdup(in->fullname);
216 p->nexten = in->nexten;
217 p->status = in->status;
258 p = cpl_malloc(cpl_frameset_get_size(f)*
sizeof(casu_tfits *));
262 for (i = 0; i < cpl_frameset_get_size(f); i++) {
302 freepropertylist(p->phu);
303 freepropertylist(p->ehu);
305 freespace(p->extname);
306 freespace(p->fullname);
339 for (i = 0; i < n; i++)
442 p->phu = cpl_propertylist_load(p->fname,0);
483 p->ehu = cpl_propertylist_load(p->fname,(cpl_size)(p->nexten));
620 if (status == CASU_OK)
630 if (status == CASU_FATAL)
701 if (p == NULL || fname == NULL)
707 p->fname = cpl_strdup(fname);
740 cpl_propertylist *phu,
741 cpl_propertylist *ehu) {
751 p = cpl_malloc(
sizeof(casu_tfits));
759 else if (model != NULL)
762 p->phu = cpl_propertylist_new();
765 else if (model != NULL)
768 p->ehu = cpl_propertylist_new();
cpl_propertylist * casu_tfits_get_ehu(casu_tfits *p)
casu_tfits * casu_tfits_wrap(cpl_table *tab, casu_tfits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
int casu_tfits_get_status(casu_tfits *p)
char * casu_tfits_get_fullname(casu_tfits *p)
void casu_tfits_set_filename(casu_tfits *p, char *fname)
void casu_tfits_set_status(casu_tfits *p, int status)
casu_tfits * casu_tfits_extract(casu_tfits *in)
void casu_tfits_delete(casu_tfits *p)
char * casu_tfits_get_filename(casu_tfits *p)
void casu_tfits_delete_list(casu_tfits **p, int n)
casu_tfits * casu_tfits_duplicate(casu_tfits *in)
casu_tfits * casu_tfits_load(cpl_frame *table, int nexten)
int casu_tfits_get_nexten(casu_tfits *p)
int casu_tfits_set_error(casu_tfits *p, int status)
casu_tfits ** casu_tfits_load_list(cpl_frameset *f, int exten)
cpl_propertylist * casu_tfits_get_phu(casu_tfits *p)
cpl_table * casu_tfits_get_table(casu_tfits *p)