39 #include "vircam_utils.h"
40 #include "vircam_tfits.h"
82 const char *fctid =
"vircam_tfits_load";
91 tab = cpl_table_load(cpl_frame_get_filename(table),nexten,0);
93 cpl_msg_error(fctid,
"Unable to load %s -- %s\n",
94 cpl_frame_get_filename(table),cpl_error_get_message());
101 p = cpl_malloc(
sizeof(vir_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(vir_tfits));
206 p = cpl_malloc(
sizeof(vir_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(vir_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 == VIR_OK)
630 if (status == VIR_FATAL)
665 if (p == NULL || fname == NULL)
671 p->fname = cpl_strdup(fname);
704 cpl_propertylist *phu,
705 cpl_propertylist *ehu) {
715 p = cpl_malloc(
sizeof(vir_tfits));
723 else if (model != NULL)
729 else if (model != NULL)
cpl_table * vircam_tfits_get_table(vir_tfits *p)
int vircam_tfits_get_status(vir_tfits *p)
cpl_propertylist * vircam_tfits_get_ehu(vir_tfits *p)
vir_tfits * vircam_tfits_wrap(cpl_table *tab, vir_tfits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
vir_tfits ** vircam_tfits_load_list(cpl_frameset *f, int exten)
vir_tfits * vircam_tfits_duplicate(vir_tfits *in)
void vircam_tfits_delete_list(vir_tfits **p, int n)
char * vircam_tfits_get_fullname(vir_tfits *p)
vir_tfits * vircam_tfits_extract(vir_tfits *in)
void vircam_tfits_set_filename(vir_tfits *p, char *fname)
int vircam_tfits_set_error(vir_tfits *p, int status)
vir_tfits * vircam_tfits_load(cpl_frame *table, int nexten)
cpl_propertylist * vircam_tfits_get_phu(vir_tfits *p)
char * vircam_tfits_get_filename(vir_tfits *p)
int vircam_tfits_get_nexten(vir_tfits *p)
void vircam_tfits_delete(vir_tfits *p)