/****** read_cats **************************************************************
PROTO read_cats(char **filenames, int ncat)
PURPOSE ``Read'' several FITS catalogs.
INPUT A pointer to pointers of char,
The number of catalogs.
OUTPUT catstruct pointer.
NOTES -.
AUTHOR E. Bertin (IAP & Leiden observatory)
VERSION 25/04/97
***/
catstruct *read_cats(char **filenames, int ncat)
{
catstruct *cat, *ccat;
int i;
if (!(cat = new_cat(ncat)))
error (EXIT_FAILURE, "Not enough memory to read ", "catalogs");
for (i=ncat, ccat = cat; i--; ccat++, filenames++)
{
strcpy(ccat->filename, *filenames);
if (open_cat(ccat, READ_ONLY) != RETURN_OK)
error (EXIT_FAILURE, "Cannot open ", *filenames);
if (map_cat(ccat) != RETURN_OK)
error (EXIT_FAILURE, "Cannot map ", *filenames);
close_cat(ccat);
}
return cat;
}
/****** read_cat ***************************************************************
PROTO catstruct read_cat(char *filename)
PURPOSE ``Read'' a FITS catalog with name filename.
INPUT Filename,
OUTPUT catstruct pointer.
NOTES Returns NULL if no file with name \<filename\> is found.
AUTHOR E. Bertin (IAP & Leiden observatory)
VERSION 07/05/2002
***/
catstruct *read_cat(char *filename)
{
catstruct *cat;
if (!(cat = new_cat(1)))
error (EXIT_FAILURE, "Not enough memory to read ", filename);
strcpy(cat->filename, filename);
if (open_cat(cat, READ_ONLY) != RETURN_OK)
{
free_cat(&cat, 1);
return NULL;
}
if (map_cat(cat) != RETURN_OK)
{
free_cat(&cat, 1);
return NULL;
}
return cat;
}
void su_map_cat(su_state *s) {
s->stack[s->stack_top - 2] = map_cat(s, STK(-2)->obj.m, STK(-1)->obj.m);
s->stack_top--;
}
