[svn-r22918] Purpose:

	- Added comments to files, functions, etc.
	- Some readers changed to keep the file open throughout the
          life of the program instead of closing it before sleeping.
          This is in the hopes that there will be more opportunities for
          cache issues without the close.
	- Other minor changes.

Tested on:
	jam

1 files changed, 500 insertions, 381 deletions

diff --git a/test/swmr_reader.c b/test/swmr_reader.c
index 02eaf9f..14e91ca 100644
--- a/test/swmr_reader.c
+++ b/test/swmr_reader.c
@@ -1,381 +1,500 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

- * Copyright by The HDF Group.                                               *

- * Copyright by the Board of Trustees of the University of Illinois.         *

- * All rights reserved.                                                      *

- *                                                                           *

- * This file is part of HDF5.  The full HDF5 copyright notice, including     *

- * terms governing use, modification, and redistribution, is contained in    *

- * the files COPYING and Copyright.html.  COPYING can be found at the root   *

- * of the source code distribution tree; Copyright.html can be found at the  *

- * root level of an installed copy of the electronic HDF5 document set and   *

- * is linked from the top-level documents page.  It can also be found at     *

- * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *

- * access to either file, you may request a copy from help@hdfgroup.org.     *

- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

-

-#include <unistd.h>

-#include <sys/time.h>

-

-#include "swmr_common.h"

-

-static hid_t symbol_tid = -1;

-

-static int

-check_dataset(hid_t fid, unsigned verbose, const char *sym_name, symbol_t *record,

-    hid_t rec_sid)

-{

-    hid_t dsid;                 /* Dataset ID */

-    hid_t file_sid;             /* Dataset's space ID */

-    hssize_t snpoints;          /* Number of elements in dataset */

-    hsize_t start[2] = {0, 0}, count[2] = {1, 1};   /* Hyperslab selection values */

-

-    /* Open dataset for symbol */

-    if((dsid = H5Dopen2(fid, sym_name, H5P_DEFAULT)) < 0)

-        return -1;

-

-    /* Get the dataset's dataspace */

-    if((file_sid = H5Dget_space(dsid)) < 0)

-        return -1;

-

-    /* Get the number of elements (= records, for 1-D datasets) */

-    if((snpoints = H5Sget_simple_extent_npoints(file_sid)) < 0)

-        return -1;

-

-    /* Emit informational message */

-    if(verbose)

-        fprintf(stderr, "Symbol = '%s', # of records = %lld\n", sym_name, (long long)snpoints);

-

-    /* Check if there are records for symbol */

-    if(snpoints > 0) {

-        /* Choose the last record in the dataset */

-        start[1] = (hsize_t)(snpoints - 1);

-        if(H5Sselect_hyperslab(file_sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)

-            return -1;

-

-        /* Read record from dataset */

-        record->rec_id = (uint64_t)ULLONG_MAX;

-        if(H5Dread(dsid, symbol_tid, rec_sid, file_sid, H5P_DEFAULT, record) < 0)

-            return -1;

-

-        /* Verify record value */

-        if(record->rec_id != start[1]) {

-            fprintf(stderr, "*** ERROR ***\n");

-            fprintf(stderr, "Incorrect record value!\n");

-            fprintf(stderr, "Symbol = '%s', # of records = %lld, record->rec_id = %llu\n", sym_name, (long long)snpoints, (unsigned long long)record->rec_id);

-            return -1;

-        } /* end if */

-    } /* end if */

-

-    /* Close the dataset's dataspace */

-    if(H5Sclose(file_sid) < 0)

-        return -1;

-

-    /* Close dataset for symbol */

-    if(H5Dclose(dsid) < 0)

-        return -1;

-

-    return 0;

-} /* end check_dataset() */

-

-static int

-read_records(const char *filename, unsigned verbose, unsigned long nseconds,

-    unsigned poll_time, unsigned ncommon, unsigned nrandom)

-{

-    time_t start_time;          /* Starting time */

-    time_t curr_time;           /* Current time */

-    symbol_info_t **sym_com = NULL, **sym_rand = NULL;        /* Pointers to arrays of common & random dataset IDs */

-    hid_t mem_sid;              /* Memory dataspace ID */

-    symbol_t record;            /* The record to add to the dataset */

-    unsigned v;                 /* Local index variable */

-

-    /* Reset the record */

-    /* (record's 'info' field might need to change for each record written, also) */

-    memset(&record, 0, sizeof(record));

-

-    /* Emit informational message */

-    if(verbose)

-        fprintf(stderr, "Choosing datasets\n");

-

-    /* Allocate space for 'common' datasets, if any */

-    if(ncommon > 0) {

-        /* Allocate array to hold pointers to symbols for common datasets */

-        if(NULL == (sym_com = (symbol_info_t **)malloc(sizeof(symbol_info_t *) * ncommon)))

-            return -1;

-

-        /* Open the common datasets */

-        for(v = 0; v < ncommon; v++) {

-            unsigned offset;                /* Offset of symbol to use */

-

-            /* Determine the offset of the symbol, within level 0 symbols */

-            /* (level 0 symbols are the most common symbols) */

-            offset = (unsigned)(random() % symbol_count[0]);

-            sym_com[v] = &symbol_info[0][offset];

-

-            /* Emit informational message */

-            if(verbose)

-                fprintf(stderr, "Common symbol #%u = '%s'\n", v, symbol_info[0][offset].name);

-        } /* end for */

-    } /* end if */

-

-    /* Allocate space for 'random' datasets, if any */

-    if(nrandom > 0) {

-        /* Allocate array to hold pointers to symbols for random datasets */

-        if(NULL == (sym_rand = (symbol_info_t **)malloc(sizeof(symbol_info_t *) * nrandom)))

-            return -1;

-

-        /* Determine the random datasets */

-        for(v = 0; v < nrandom; v++) {

-            symbol_info_t *sym;         /* Symbol to use */

-

-            /* Determine the symbol, within all symbols */

-            if(NULL == (sym = choose_dataset()))

-                return -1;

-            sym_rand[v] = sym;

-

-            /* Emit informational message */

-            if(verbose)

-                fprintf(stderr, "Random symbol #%u = '%s'\n", v, sym->name);

-        } /* end for */

-    } /* end if */

-

-    /* Create a dataspace for the record to read */

-    if((mem_sid = H5Screate(H5S_SCALAR)) < 0)

-        return -1;

-

-    /* Emit informational message */

-    if(verbose)

-        printf("Reading records\n");

-

-    /* Get the starting time */

-    start_time = time(NULL);

-    curr_time = start_time;

-

-    /* Loop over reading records until [at least] the correct # of seconds have passed */

-    while(curr_time < (time_t)(start_time + (time_t)nseconds)) {

-        hid_t fid;              /* File ID */

-

-        /* Emit informational message */

-        if(verbose)

-            fprintf(stderr, "Opening file: %s\n", filename);

-

-        /* Open the file */

-        if((fid = H5Fopen(filename, H5F_ACC_RDONLY | H5F_ACC_SWMR_READ, H5P_DEFAULT)) < 0)

-            return -1;

-

-        /* Check 'common' datasets, if any */

-        if(ncommon > 0) {

-            /* Emit informational message */

-            if(verbose)

-                fprintf(stderr, "Checking common symbols\n");

-

-            /* Iterate over common datasets */

-            for(v = 0; v < ncommon; v++) {

-                /* Check common dataset */

-                if(check_dataset(fid, verbose, sym_com[v]->name, &record, mem_sid) < 0)

-                    return -1;

-            } /* end for */

-        } /* end if */

-

-        /* Check 'random' datasets, if any */

-        if(nrandom > 0) {

-            /* Emit informational message */

-            if(verbose)

-                fprintf(stderr, "Checking random symbols\n");

-

-            /* Iterate over random datasets */

-            for(v = 0; v < nrandom; v++) {

-                /* Check random dataset */

-                if(check_dataset(fid, verbose, sym_rand[v]->name, &record, mem_sid) < 0)

-                    return -1;

-            } /* end for */

-        } /* end if */

-

-        /* Emit informational message */

-        if(verbose)

-            fprintf(stderr, "Closing file\n");

-

-        /* Close the file */

-        if(H5Fclose(fid) < 0)

-            return -1;

-

-        /* Sleep for the appropriate # of seconds */

-        sleep(poll_time);

-

-        /* Retrieve the current time */

-        curr_time = time(NULL);

-    } /* end while */

-

-    /* Close the memory dataspace */

-    if(H5Sclose(mem_sid) < 0)

-        return -1;

-

-    /* Emit informational message */

-    if(verbose)

-        fprintf(stderr, "Closing datasets\n");

-

-    /* Close 'random' datasets, if any */

-    if(nrandom > 0) {

-        /* Release array holding dataset ID's for random datasets */

-        free(sym_rand);

-    } /* end if */

-

-    /* Close 'common' datasets, if any */

-    if(ncommon > 0) {

-        /* Release array holding dataset ID's for common datasets */

-        free(sym_com);

-    } /* end if */

-

-    return 0;

-} /* end read_records() */

-

-static void

-usage(void)

-{

-    printf("Usage error!\n");

-    printf("Usage: swmr_reader [-q] [-s <# of seconds to sleep between polling>] [-h <# of common symbols to poll>] [-l <# of random symbols to poll>] [-r <random # seed>] <# of seconds to test>\n");

-    printf("Defaults to verbose (no '-q' given), 1 second between polling ('-s 1'), 5 common symbols to poll ('-h 5') and 10 random symbols to poll ('-l 10')\n");

-    exit(1);

-} 

-

-int main(int argc, const char *argv[])

-{

-    long nseconds = 0;      /* # of seconds to test */

-    int poll_time = 1;      /* # of seconds between polling */

-    int ncommon = 5;        /* # of common symbols to poll */

-    int nrandom = 10;       /* # of random symbols to poll */

-    unsigned verbose = 1;   /* Whether to emit some informational messages */

-    unsigned use_seed = 0;  /* Set to 1 if a seed was set on the command line */

-    unsigned random_seed = 0;   /* Random # seed */

-    unsigned u;             /* Local index variables */

-    int temp;

-

-    /* Parse command line options */

-    if(argc < 2)

-        usage();

-    if(argc > 1) {

-        u = 1;

-        while(u < (unsigned)argc) {

-            if(argv[u][0] == '-') {

-                switch(argv[u][1]) {

-                    /* # of common symbols to poll */

-                    case 'h':

-                        ncommon = atoi(argv[u + 1]);

-                        if(ncommon < 0)

-                            usage();

-                        u += 2;

-                        break;

-

-                    /* # of random symbols to poll */

-                    case 'l':

-                        nrandom = atoi(argv[u + 1]);

-                        if(nrandom < 0)

-                            usage();

-                        u += 2;

-                        break;

-

-                    /* Be quiet */

-                    case 'q':

-                        verbose = 0;

-                        u++;

-                        break;

-

-                    /* Random # seed */

-                    case 'r':

-                        use_seed = 1;

-                        temp = atoi(argv[u + 1]);

-                        if(temp < 0)

-                            usage();

-                        else

-                            random_seed = (unsigned)temp;

-                        u += 2;

-                        break;

-

-                    /* # of seconds between polling */

-                    case 's':

-                        poll_time = atoi(argv[u + 1]);

-                        if(poll_time < 0)

-                            usage();

-                        u += 2;

-                        break;

-

-                    default:

-                        usage();

-                        break;

-                } /* end switch */

-            } /* end if */

-            else {

-                /* Get the number of records to append */

-                nseconds = atol(argv[u]);

-                if(nseconds <= 0)

-                    usage();

-

-                u++;

-            } /* end else */

-        } /* end while */

-    } /* end if */

-    if(nseconds <= 0)

-        usage();

-    if(poll_time >= nseconds)

-        usage();

-

-    /* Emit informational message */

-    if(verbose) {

-        fprintf(stderr, "Parameters:\n");

-        fprintf(stderr, "\t# of seconds between polling = %d\n", poll_time);

-        fprintf(stderr, "\t# of common symbols to poll = %d\n", ncommon);

-        fprintf(stderr, "\t# of random symbols to poll = %d\n", nrandom);

-        fprintf(stderr, "\t# of seconds to test = %ld\n", nseconds);

-    } /* end if */

-

-    /* Set the random seed */

-    if(0 == use_seed) {

-        struct timeval t;

-        gettimeofday(&t, NULL);

-        random_seed = (unsigned)((t.tv_sec * 1000) + t.tv_usec);

-    } /* end if */

-    srandom(random_seed);

-    /* ALWAYS emit the random seed for possible debugging */

-    fprintf(stderr, "Using reader random seed: %u\n", random_seed);

-

-    /* Emit informational message */

-    if(verbose)

-        fprintf(stderr, "Generating symbol names\n");

-

-    /* Generate dataset names */

-    if(generate_symbols() < 0) {

-        fprintf(stderr, "Error generating symbol names!\n");

-        exit(1);

-    } /* end if */

-

-    /* Create datatype for creating datasets */

-    if((symbol_tid = create_symbol_datatype()) < 0)

-        return -1;

-

-    /* Reading records from datasets */

-    if(read_records(FILENAME, verbose, (unsigned long)nseconds, (unsigned)poll_time, (unsigned)ncommon, (unsigned)nrandom) < 0) {

-        fprintf(stderr, "Error reading records from datasets!\n");

-        exit(1);

-    } /* end if */

-

-    /* Emit informational message */

-    if(verbose)

-        fprintf(stderr, "Releasing symbols\n");

-

-    /* Clean up the symbols */

-    if(shutdown_symbols() < 0) {

-        fprintf(stderr, "Error releasing symbols!\n");

-        exit(1);

-    } /* end if */

-

-    /* Emit informational message */

-    if(verbose)

-        fprintf(stderr, "Closing objects\n");

-

-    /* Close objects created */

-    if(H5Tclose(symbol_tid) < 0) {

-        fprintf(stderr, "Error closing symbol datatype!\n");

-        exit(1);

-    } /* end if */

-

-    return 0;

-}

+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * Copyright by The HDF Group.                                               *
+ * Copyright by the Board of Trustees of the University of Illinois.         *
+ * All rights reserved.                                                      *
+ *                                                                           *
+ * This file is part of HDF5.  The full HDF5 copyright notice, including     *
+ * terms governing use, modification, and redistribution, is contained in    *
+ * the files COPYING and Copyright.html.  COPYING can be found at the root   *
+ * of the source code distribution tree; Copyright.html can be found at the  *
+ * root level of an installed copy of the electronic HDF5 document set and   *
+ * is linked from the top-level documents page.  It can also be found at     *
+ * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
+ * access to either file, you may request a copy from help@hdfgroup.org.     *
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+/*-------------------------------------------------------------------------
+ *
+ * Created:     swmr_reader.c
+ *
+ * Purpose:     Reads data from a randomly selected subset of the datasets
+ *              in the SWMR test file.
+ *
+ *              This program is intended to run concurrently with the
+ *              swmr_writer program.
+ *
+ *-------------------------------------------------------------------------
+ */
+
+/***********/
+/* Headers */
+/***********/
+
+#include <assert.h>
+#include <unistd.h>
+#include <sys/time.h>
+
+#include "swmr_common.h"
+
+/********************/
+/* Local Prototypes */
+/********************/
+
+static int check_dataset(hid_t fid, unsigned verbose, const char *sym_name,
+    symbol_t *record, hid_t rec_sid);
+static int read_records(const char *filename, unsigned verbose, unsigned long nseconds,
+    unsigned poll_time, unsigned ncommon, unsigned nrandom);
+
+/*******************/
+/* Local Variables */
+/*******************/
+
+static hid_t symbol_tid = -1;   /* The type ID for the SWMR datasets */
+
+
+/*-------------------------------------------------------------------------
+ * Function:    check_dataset
+ *
+ * Purpose:     For a given dataset, checks to make sure that the stated
+ *              and actual sizes are the same.  If they are not, then
+ *              we have an inconsistent dataset due to a SWMR error.
+ *
+ * Parameters:  hid_t fid
+ *              The SWMR test file's ID.
+ *
+ *              unsigned verbose
+ *              Whether verbose console output is desired.
+ *
+ *              const char *sym_name
+ *              The name of the dataset from which to read.
+ *
+ *              symbol_t *record
+ *              Memory for the record.  Must be pre-allocated.
+ *
+ *              hid_t rec_sid
+ *              The memory dataspace for access.  It's always the same so
+ *              there is no need to re-create it every time this function
+ *              is called.
+ *
+ * Return:      Success:    0
+ *              Failure:    -1
+ *
+ *-------------------------------------------------------------------------
+ */
+static int
+check_dataset(hid_t fid, unsigned verbose, const char *sym_name, symbol_t *record,
+    hid_t rec_sid)
+{
+    hid_t dsid;                 /* Dataset ID */
+    hid_t file_sid;             /* Dataset's space ID */
+    hssize_t snpoints;          /* Number of elements in dataset */
+    hsize_t start[2] = {0, 0}, count[2] = {1, 1};   /* Hyperslab selection values */
+
+    assert(fid >= 0);
+    assert(sym_name);
+    assert(record);
+    assert(rec_sid >= 0);
+
+    /* Open dataset for symbol */
+    if((dsid = H5Dopen2(fid, sym_name, H5P_DEFAULT)) < 0)
+        return -1;
+
+    /* Get the dataset's dataspace */
+    if((file_sid = H5Dget_space(dsid)) < 0)
+        return -1;
+
+    /* Get the number of elements (= records, for 1-D datasets) */
+    if((snpoints = H5Sget_simple_extent_npoints(file_sid)) < 0)
+        return -1;
+
+    /* Emit informational message */
+    if(verbose)
+        fprintf(stderr, "Symbol = '%s', # of records = %lld\n", sym_name, (long long)snpoints);
+
+    /* Check if there are records for symbol */
+    if(snpoints > 0) {
+        /* Choose the last record in the dataset */
+        start[1] = (hsize_t)(snpoints - 1);
+        if(H5Sselect_hyperslab(file_sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
+            return -1;
+
+        /* Read record from dataset */
+        record->rec_id = (uint64_t)ULLONG_MAX;
+        if(H5Dread(dsid, symbol_tid, rec_sid, file_sid, H5P_DEFAULT, record) < 0)
+            return -1;
+
+        /* Verify record value */
+        if(record->rec_id != start[1]) {
+            fprintf(stderr, "*** ERROR ***\n");
+            fprintf(stderr, "Incorrect record value!\n");
+            fprintf(stderr, "Symbol = '%s', # of records = %lld, record->rec_id = %llu\n", sym_name, (long long)snpoints, (unsigned long long)record->rec_id);
+            return -1;
+        } /* end if */
+    } /* end if */
+
+    /* Close the dataset's dataspace */
+    if(H5Sclose(file_sid) < 0)
+        return -1;
+
+    /* Close dataset for symbol */
+    if(H5Dclose(dsid) < 0)
+        return -1;
+
+    return 0;
+} /* end check_dataset() */
+
+
+/*-------------------------------------------------------------------------
+ * Function:    read_records
+ *
+ * Purpose:     For a given dataset, checks to make sure that the stated
+ *              and actual sizes are the same.  If they are not, then
+ *              we have an inconsistent dataset due to a SWMR error.
+ *
+ *              The "common" datasets are a random selection from among
+ *              the level 0 datasets.  The "random" datasets are a random
+ *              selection from among all the file's datasets.  This scheme
+ *              ensures that the level 0 datasets are interrogated vigorously.
+ *
+ * Parameters:  const char *filename
+ *              The SWMR test file's name.
+ *
+ *              unsigned verbose
+ *              Whether verbose console output is desired.
+ *
+ *              unsigned long nseconds
+ *              The amount of time to read records (ns).
+ *
+ *              unsigned poll_time
+ *              The amount of time to sleep (s).
+ *
+ *              unsigned ncommon
+ *              The number of common/non-random datasets that will be opened.
+ *
+ *              unsigned nrandom
+ *              The number of random datasets that will be opened.
+ *
+ * Return:      Success:    0
+ *              Failure:    -1
+ *
+ *-------------------------------------------------------------------------
+ */
+static int
+read_records(const char *filename, unsigned verbose, unsigned long nseconds,
+    unsigned poll_time, unsigned ncommon, unsigned nrandom)
+{
+    time_t start_time;          /* Starting time */
+    time_t curr_time;           /* Current time */
+    symbol_info_t **sym_com = NULL;     /* Pointers to array of common dataset IDs */
+    symbol_info_t **sym_rand = NULL;    /* Pointers to array of random dataset IDs */
+    hid_t mem_sid;              /* Memory dataspace ID */
+    hid_t fid;                  /* SWMR test file ID */
+    symbol_t record;            /* The record to read from the dataset */
+    unsigned v;                 /* Local index variable */
+
+    assert(filename);
+    assert(nseconds != 0);
+    assert(poll_time != 0);
+
+    /* Reset the record */
+    /* (record's 'info' field might need to change for each record read, also) */
+    memset(&record, 0, sizeof(record));
+
+    /* Emit informational message */
+    if(verbose)
+        fprintf(stderr, "Choosing datasets\n");
+
+    /* Allocate space for 'common' datasets, if any */
+    if(ncommon > 0) {
+        /* Allocate array to hold pointers to symbols for common datasets */
+        if(NULL == (sym_com = (symbol_info_t **)malloc(sizeof(symbol_info_t *) * ncommon)))
+            return -1;
+
+        /* Open the common datasets */
+        for(v = 0; v < ncommon; v++) {
+            unsigned offset;                /* Offset of symbol to use */
+
+            /* Determine the offset of the symbol, within level 0 symbols */
+            /* (level 0 symbols are the most common symbols) */
+            offset = (unsigned)(random() % symbol_count[0]);
+            sym_com[v] = &symbol_info[0][offset];
+
+            /* Emit informational message */
+            if(verbose)
+                fprintf(stderr, "Common symbol #%u = '%s'\n", v, symbol_info[0][offset].name);
+        } /* end for */
+    } /* end if */
+
+    /* Allocate space for 'random' datasets, if any */
+    if(nrandom > 0) {
+        /* Allocate array to hold pointers to symbols for random datasets */
+        if(NULL == (sym_rand = (symbol_info_t **)malloc(sizeof(symbol_info_t *) * nrandom)))
+            return -1;
+
+        /* Determine the random datasets */
+        for(v = 0; v < nrandom; v++) {
+            symbol_info_t *sym;         /* Symbol to use */
+
+            /* Determine the symbol, within all symbols */
+            if(NULL == (sym = choose_dataset()))
+                return -1;
+            sym_rand[v] = sym;
+
+            /* Emit informational message */
+            if(verbose)
+                fprintf(stderr, "Random symbol #%u = '%s'\n", v, sym->name);
+        } /* end for */
+    } /* end if */
+
+    /* Create a dataspace for the record to read */
+    if((mem_sid = H5Screate(H5S_SCALAR)) < 0)
+        return -1;
+
+    /* Emit informational message */
+    if(verbose)
+        printf("Reading records\n");
+
+    /* Get the starting time */
+    start_time = time(NULL);
+    curr_time = start_time;
+    
+    /* Emit informational message */
+    if(verbose)
+        fprintf(stderr, "Opening file: %s\n", filename);
+
+    /* Open the file */
+    if((fid = H5Fopen(filename, H5F_ACC_RDONLY | H5F_ACC_SWMR_READ, H5P_DEFAULT)) < 0)
+        return -1;
+
+    /* Loop over reading records until [at least] the correct # of seconds have passed */
+    while(curr_time < (time_t)(start_time + (time_t)nseconds)) {
+
+        /* Check 'common' datasets, if any */
+        if(ncommon > 0) {
+            /* Emit informational message */
+            if(verbose)
+                fprintf(stderr, "Checking common symbols\n");
+
+            /* Iterate over common datasets */
+            for(v = 0; v < ncommon; v++) {
+                /* Check common dataset */
+                if(check_dataset(fid, verbose, sym_com[v]->name, &record, mem_sid) < 0)
+                    return -1;
+                memset(&record, 0, sizeof(record));
+            } /* end for */
+        } /* end if */
+
+        /* Check 'random' datasets, if any */
+        if(nrandom > 0) {
+            /* Emit informational message */
+            if(verbose)
+                fprintf(stderr, "Checking random symbols\n");
+
+            /* Iterate over random datasets */
+            for(v = 0; v < nrandom; v++) {
+                /* Check random dataset */
+                if(check_dataset(fid, verbose, sym_rand[v]->name, &record, mem_sid) < 0)
+                    return -1;
+                memset(&record, 0, sizeof(record));
+            } /* end for */
+        } /* end if */
+
+        /* Sleep for the appropriate # of seconds */
+        sleep(poll_time);
+
+        /* Retrieve the current time */
+        curr_time = time(NULL);
+    } /* end while */
+
+    /* Emit informational message */
+        if(verbose)
+            fprintf(stderr, "Closing file\n");
+
+    /* Close the file */
+        if(H5Fclose(fid) < 0)
+            return -1;
+
+    /* Close the memory dataspace */
+    if(H5Sclose(mem_sid) < 0)
+        return -1;
+
+    /* Emit informational message */
+    if(verbose)
+        fprintf(stderr, "Closing datasets\n");
+
+    /* Close 'random' datasets, if any */
+    if(nrandom > 0) {
+        /* Release array holding dataset ID's for random datasets */
+        free(sym_rand);
+    } /* end if */
+
+    /* Close 'common' datasets, if any */
+    if(ncommon > 0) {
+        /* Release array holding dataset ID's for common datasets */
+        free(sym_com);
+    } /* end if */
+
+    return 0;
+} /* end read_records() */
+
+static void
+usage(void)
+{
+    printf("\n");
+    printf("Usage error!\n");
+    printf("\n");
+    printf("Usage: swmr_reader [-q] [-s <# of seconds to sleep between polling>]\n");
+    printf("    [-h <# of common symbols to poll>] [-l <# of random symbols to poll>]\n");
+    printf("    [-r <random seed>] <# of seconds to test>\n");
+    printf("\n");
+    printf("<# of seconds to test> must be specified.\n");
+    printf("\n");
+    printf("Defaults to verbose (no '-q' given), 1 second between polling ('-s 1'),\n");
+    printf("5 common symbols to poll ('-h 5'), 10 random symbols to poll ('-l 10'),\n");
+    printf("and will generate a random seed (no -r given).\n");
+    printf("\n");
+    exit(1);
+}
+
+int main(int argc, const char *argv[])
+{
+    long nseconds = 0;      /* # of seconds to test */
+    int poll_time = 1;      /* # of seconds between polling */
+    int ncommon = 5;        /* # of common symbols to poll */
+    int nrandom = 10;       /* # of random symbols to poll */
+    unsigned verbose = 1;   /* Whether to emit some informational messages */
+    unsigned use_seed = 0;  /* Set to 1 if a seed was set on the command line */
+    unsigned random_seed = 0;   /* Random # seed */
+    unsigned u;             /* Local index variables */
+    int temp;
+
+    /* Parse command line options */
+    if(argc < 2)
+        usage();
+    if(argc > 1) {
+        u = 1;
+        while(u < (unsigned)argc) {
+            if(argv[u][0] == '-') {
+                switch(argv[u][1]) {
+                    /* # of common symbols to poll */
+                    case 'h':
+                        ncommon = atoi(argv[u + 1]);
+                        if(ncommon < 0)
+                            usage();
+                        u += 2;
+                        break;
+
+                    /* # of random symbols to poll */
+                    case 'l':
+                        nrandom = atoi(argv[u + 1]);
+                        if(nrandom < 0)
+                            usage();
+                        u += 2;
+                        break;
+
+                    /* Be quiet */
+                    case 'q':
+                        verbose = 0;
+                        u++;
+                        break;
+
+                    /* Random # seed */
+                    case 'r':
+                        use_seed = 1;
+                        temp = atoi(argv[u + 1]);
+                        if(temp < 0)
+                            usage();
+                        else
+                            random_seed = (unsigned)temp;
+                        u += 2;
+                        break;
+
+                    /* # of seconds between polling */
+                    case 's':
+                        poll_time = atoi(argv[u + 1]);
+                        if(poll_time < 0)
+                            usage();
+                        u += 2;
+                        break;
+
+                    default:
+                        usage();
+                        break;
+                } /* end switch */
+            } /* end if */
+            else {
+                /* Get the number of records to append */
+                nseconds = atol(argv[u]);
+                if(nseconds <= 0)
+                    usage();
+
+                u++;
+            } /* end else */
+        } /* end while */
+    } /* end if */
+    if(nseconds <= 0)
+        usage();
+    if(poll_time >= nseconds)
+        usage();
+
+    /* Emit informational message */
+    if(verbose) {
+        fprintf(stderr, "Parameters:\n");
+        fprintf(stderr, "\t# of seconds between polling = %d\n", poll_time);
+        fprintf(stderr, "\t# of common symbols to poll = %d\n", ncommon);
+        fprintf(stderr, "\t# of random symbols to poll = %d\n", nrandom);
+        fprintf(stderr, "\t# of seconds to test = %ld\n", nseconds);
+    } /* end if */
+
+    /* Set the random seed */
+    if(0 == use_seed) {
+        struct timeval t;
+        gettimeofday(&t, NULL);
+        random_seed = (unsigned)((t.tv_sec * 1000) + t.tv_usec);
+    } /* end if */
+    srandom(random_seed);
+    /* ALWAYS emit the random seed for possible debugging */
+    fprintf(stderr, "Using reader random seed: %u\n", random_seed);
+
+    /* Emit informational message */
+    if(verbose)
+        fprintf(stderr, "Generating symbol names\n");
+
+    /* Generate dataset names */
+    if(generate_symbols() < 0) {
+        fprintf(stderr, "Error generating symbol names!\n");
+        exit(1);
+    } /* end if */
+
+    /* Create datatype for creating datasets */
+    if((symbol_tid = create_symbol_datatype()) < 0)
+        return -1;
+
+    /* Reading records from datasets */
+    if(read_records(FILENAME, verbose, (unsigned long)nseconds, (unsigned)poll_time, (unsigned)ncommon, (unsigned)nrandom) < 0) {
+        fprintf(stderr, "Error reading records from datasets!\n");
+        exit(1);
+    } /* end if */
+
+    /* Emit informational message */
+    if(verbose)
+        fprintf(stderr, "Releasing symbols\n");
+
+    /* Clean up the symbols */
+    if(shutdown_symbols() < 0) {
+        fprintf(stderr, "Error releasing symbols!\n");
+        exit(1);
+    } /* end if */
+
+    /* Emit informational message */
+    if(verbose)
+        fprintf(stderr, "Closing objects\n");
+
+    /* Close objects created */
+    if(H5Tclose(symbol_tid) < 0) {
+        fprintf(stderr, "Error closing symbol datatype!\n");
+        exit(1);
+    } /* end if */
+
+    return 0;
+}