7 files changed, 201 insertions, 86 deletions

diff --git a/src/load/load_influenza_aa_dat.c b/src/load/load_influenza_aa_dat.c
index 8bf47aa..3826349 100644
--- a/src/load/load_influenza_aa_dat.c
+++ b/src/load/load_influenza_aa_dat.c
@@ -13,10 +13,9 @@
 #include <stdlib.h>
 
 #define NFIELDS (hsize_t) 11
-#define TABLE_NAME "influenza_aa.dat"
 
 void
-load_influenza_aa_dat (hid_t file_id)
+load_influenza_aa_dat (hid_t file_id, const char* file_name)
 {
   /*
    * Model the data using native types.
@@ -145,8 +144,7 @@ load_influenza_aa_dat (hid_t file_id)
    * Insert the records.
    */
   supplementary_data p_data;
-  FILE *dat = fopen ("/home/don/exp004/genomes/INFLUENZA/influenza_aa.dat",
-                     "r");
+  FILE *dat = fopen (file_name, "r");
   if (dat == NULL)
     check_error (__FILE__, __LINE__);
   char *line = NULL;
@@ -214,18 +212,49 @@ load_influenza_aa_dat (hid_t file_id)
 
       if (current_line == 1)
         {
-          herr_t status = H5TBmake_table ("influenza_aa.dat", file_id,
-                                          TABLE_NAME, NFIELDS, 1, dst_size,
-                                          field_names, dst_offset, field_type,
-                                          chunk_size, fill_data, compress,
-                                          &p_data);
-          if (status < 0)
-            check_h5_error (status, __FILE__, __LINE__);
+
+          /*
+           * Dataset already exists.  Purge it.
+           */
+          if (H5LTfind_dataset (file_id, "influenza_aa.dat") == 1)
+            {
+              hsize_t nfields = 0;
+              hsize_t nrecords = 0;
+              herr_t status = H5TBget_table_info (file_id, "influenza_aa.dat",
+                                                  &nfields, &nrecords);
+              if (status < 0)
+                check_h5_error (status, __FILE__, __LINE__);
+
+              status = H5TBdelete_record (file_id, "influenza_aa.dat", 0, nrecords);
+              if (status < 0)
+                check_h5_error (status, __FILE__, __LINE__);
+
+              status =
+                H5TBappend_records (file_id, "influenza_aa.dat", 1, dst_size,
+                                    dst_offset, dst_sizes, &p_data);
+              if (status < 0)
+                        check_h5_error (status, __FILE__, __LINE__);    
+            }
+
+          /*
+           * Dataset does not exist.  Create it.
+           */
+          else
+            {
+              herr_t status = H5TBmake_table ("influenza_aa.dat", file_id,
+                                              "influenza_aa.dat", NFIELDS, 1, dst_size,
+                                              field_names, dst_offset, field_type,
+                                              chunk_size, fill_data, compress,
+                                              &p_data);
+              if (status < 0)
+                check_h5_error (status, __FILE__, __LINE__);
+            }
         }
+
       else
         {
           herr_t status =
-            H5TBappend_records (file_id, TABLE_NAME, 1, dst_size,
+            H5TBappend_records (file_id, "influenza_aa.dat", 1, dst_size,
                                 dst_offset, dst_sizes, &p_data);
           if (status < 0)
             check_h5_error (status, __FILE__, __LINE__);