IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 5, 2006, 5:44:26 PM (20 years ago)
Author:
eugene
Message:

big move: fits_ to gfits_; minor updates to relphot

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Ohana/src/libdvo/src/fits_db.c

    r6234 r7080  
    22
    33/* init the db structure */
    4 int fits_db_init (FITS_DB *db) {
     4int gfits_db_init (FITS_DB *db) {
    55
    66  db[0].f             = NULL;
    … …  
    1919
    2020/* create an empty db */
    21 int fits_db_create (FITS_DB *db) {
    22   fits_init_header (&db[0].header);   
     21int gfits_db_create (FITS_DB *db) {
     22  gfits_init_header (&db[0].header);   
    2323  db[0].header.extend = TRUE;
    24   fits_create_header (&db[0].header);
    25   fits_create_matrix (&db[0].header, &db[0].matrix);
    26   fits_print (&db[0].header, "NEXTEND", "%d", 1, 1);
     24  gfits_create_header (&db[0].header);
     25  gfits_create_matrix (&db[0].header, &db[0].matrix);
     26  gfits_print (&db[0].header, "NEXTEND", "%d", 1, 1);
    2727  db[0].ftable.header = &db[0].theader;
    2828  return (TRUE);
    2929}
    3030
    31 int fits_db_lock (FITS_DB *db, char *filename) {
     31int gfits_db_lock (FITS_DB *db, char *filename) {
    3232 
    3333  /* database name must be set first */
    … …  
    5959
    6060/* load the complete db table into memory - load first extension, do not validate EXTNAME */
    61 int fits_db_load (FITS_DB *db) {
     61int gfits_db_load (FITS_DB *db) {
    6262
    6363  /* database name must be set first */
    … …  
    6868
    6969  /* init & load in FITS table data - return FALSE on error */
    70   if (!fits_fread_header (db[0].f, &db[0].header)) {
     70  if (!gfits_fread_header (db[0].f, &db[0].header)) {
    7171    fprintf (stderr, "can't read primary header\n");
    7272    return (FALSE);
    7373  }
    74   if (!fits_fread_matrix (db[0].f, &db[0].matrix, &db[0].header)) {
     74  if (!gfits_fread_matrix (db[0].f, &db[0].matrix, &db[0].header)) {
    7575    fprintf (stderr, "can't read primary matrix");
    7676    return (FALSE);
    7777  }
    78   if (!fits_fread_header (db[0].f, &db[0].theader)) {
     78  if (!gfits_fread_header (db[0].f, &db[0].theader)) {
    7979    fprintf (stderr, "can't read table header");
    8080    return (FALSE);
    8181  }
    82   if (!fits_fread_ftable_data (db[0].f, &db[0].ftable)) {
     82  if (!gfits_fread_ftable_data (db[0].f, &db[0].ftable)) {
    8383    fprintf (stderr, "can't read table data");
    8484    return (FALSE);
    … …  
    8989
    9090/* load the data from Nrows from table starting at start; load header, etc if needed */
    91 int fits_db_load_segment (FITS_DB *db, int start, int Nrows) {
     91int gfits_db_load_segment (FITS_DB *db, int start, int Nrows) {
    9292
    9393  int Nskip;
    … …  
    110110  /* load or skip header */
    111111  if (db[0].header.buffer == NULL) {
    112     if (!fits_fread_header (db[0].f, &db[0].header)) {
     112    if (!gfits_fread_header (db[0].f, &db[0].header)) {
    113113      fprintf (stderr, "can't read primary header\n");
    114114      return (FALSE);
    … …  
    121121  /* load or skip matrix */
    122122  if (db[0].matrix.buffer == NULL) {
    123     if (!fits_fread_matrix (db[0].f, &db[0].matrix, &db[0].header)) {
     123    if (!gfits_fread_matrix (db[0].f, &db[0].matrix, &db[0].header)) {
    124124      fprintf (stderr, "can't read primary matrix");
    125125      return (FALSE);
    126126    }
    127127  } else {
    128     Nskip = fits_matrix_size (&db[0].header);
     128    Nskip = gfits_matrix_size (&db[0].header);
    129129    Fseek (db[0].f, Nskip, SEEK_CUR);
    130130  }
    … …  
    132132  /* load or skip table header */
    133133  if (db[0].theader.buffer == NULL) {
    134     if (!fits_fread_header (db[0].f, &db[0].theader)) {
     134    if (!gfits_fread_header (db[0].f, &db[0].theader)) {
    135135      fprintf (stderr, "can't read table header");
    136136      return (FALSE);
    … …  
    142142
    143143  /* read table segment into vtable */
    144   if (!fits_fread_vtable_range (db[0].f, &db[0].vtable, start, Nrows)) {
     144  if (!gfits_fread_vtable_range (db[0].f, &db[0].vtable, start, Nrows)) {
    145145    fprintf (stderr, "can't read table data");
    146146    return (FALSE);
    … …  
    150150
    151151/* write complete db file */
    152 int fits_db_save (FITS_DB *db) {
     152int gfits_db_save (FITS_DB *db) {
    153153
    154154  /* write all data to file */
    … …  
    156156  Fseek (db[0].f, 0, SEEK_SET);
    157157
    158   if (!fits_fwrite_header  (db[0].f, &db[0].header)) {
     158  if (!gfits_fwrite_header  (db[0].f, &db[0].header)) {
    159159    fprintf (stderr, "can't write primary header");
    160160    return (FALSE);
    161161  }
    162   if (!fits_fwrite_matrix  (db[0].f, &db[0].matrix)) {
     162  if (!gfits_fwrite_matrix  (db[0].f, &db[0].matrix)) {
    163163    fprintf (stderr, "can't write primary matrix");
    164164    return (FALSE);
    165165  }
    166   if (!fits_fwrite_Theader (db[0].f, &db[0].theader)) {
     166  if (!gfits_fwrite_Theader (db[0].f, &db[0].theader)) {
    167167    fprintf (stderr, "can't write table header");
    168168    return (FALSE);
    169169  }
    170   if (!fits_fwrite_table   (db[0].f, &db[0].ftable)) {
     170  if (!gfits_fwrite_table   (db[0].f, &db[0].ftable)) {
    171171    fprintf (stderr, "can't write table data");
    172172    return (FALSE);
    … …  
    176176
    177177/* write vtable to db file (also appends rows to the end of the table) */
    178 int fits_db_update (FITS_DB *db) {
     178int gfits_db_update (FITS_DB *db) {
    179179
    180180  /* this section is not valid if we have changed the size of header, matrix, theader */
    … …  
    185185
    186186  /* do we revert to the old version if this fails? */
    187   if (!fits_fwrite_header   (db[0].f, &db[0].header))  {
     187  if (!gfits_fwrite_header   (db[0].f, &db[0].header))  {
    188188    fprintf (stderr, "can't update primary header");
    189189    return (FALSE);
    190190  }
    191   if (!fits_fwrite_matrix   (db[0].f, &db[0].matrix))  {
     191  if (!gfits_fwrite_matrix   (db[0].f, &db[0].matrix))  {
    192192    fprintf (stderr, "can't update primary matrix");
    193193    return (FALSE);
    194194  }
    195   if (!fits_fwrite_Theader  (db[0].f, &db[0].theader)) {
     195  if (!gfits_fwrite_Theader  (db[0].f, &db[0].theader)) {
    196196    fprintf (stderr, "can't update table header");
    197197    return (FALSE);
    198198  }
    199   if (!fits_fwrite_vtable   (db[0].f, &db[0].vtable))  {
     199  if (!gfits_fwrite_vtable   (db[0].f, &db[0].vtable))  {
    200200    fprintf (stderr, "can't update table data");
    201201    return (FALSE);
    … …  
    205205
    206206/* free memory associated with db handle */
    207 int fits_db_free (FITS_DB *db) {
    208   fits_free_header (&db[0].header);
    209   fits_free_matrix (&db[0].matrix);
    210   fits_free_header (&db[0].theader);
    211   fits_free_table  (&db[0].ftable);
    212   fits_free_vtable (&db[0].vtable);
     207int gfits_db_free (FITS_DB *db) {
     208  gfits_free_header (&db[0].header);
     209  gfits_free_matrix (&db[0].matrix);
     210  gfits_free_header (&db[0].theader);
     211  gfits_free_table  (&db[0].ftable);
     212  gfits_free_vtable (&db[0].vtable);
    213213  if (db[0].filename != NULL) {
    214214    free (db[0].filename);
    … …  
    219219
    220220/* close the db files (close open file & unlock) */
    221 int fits_db_close (FITS_DB *db) {
     221int gfits_db_close (FITS_DB *db) {
    222222  if (db[0].f == NULL) return (TRUE);
    223223  fclearlockfile (db[0].filename, db[0].f, db[0].lockstate, &db[0].dbstate);
Note: See TracChangeset for help on using the changeset viewer.