1 files changed, 118 insertions, 0 deletions
diff --git a/hl/examples/ptExampleVL.c b/hl/examples/ptExampleVL.c
new file mode 100644
index 0000000..68a01c7
--- /dev/null
+++ b/hl/examples/ptExampleVL.c
@@ -0,0 +1,118 @@
+/****************************************************************************
+ * NCSA HDF                                                                 *
+ * Scientific Data Technologies                                             *
+ * National Center for Supercomputing Applications                          *
+ * University of Illinois at Urbana-Champaign                               *
+ * 605 E. Springfield, Champaign IL 61820                                   *
+ *                                                                          *
+ * For conditions of distribution and use, see the accompanying             *
+ * hdf/COPYING f.                                                           *
+ *                                                                          *
+ ****************************************************************************/
+
+#include "H5PT.h"
+#include <stdlib.h>
+
+/*-------------------------------------------------------------------------
+ * Packet Table Variable-Length Example
+ *
+ * Example program that creates a variable-length packet table and performs
+ * writes and reads.
+ *
+ *-------------------------------------------------------------------------
+ */
+
+int main(void)
+{
+ hid_t          fid;        /* File identifier */
+ hid_t          ptable;     /* Packet table identifier */
+
+ herr_t         err;        /* Function return status */
+ hsize_t        count;      /* Number of records in the table */
+ int            x;          /* Loop variable */
+
+    /* Buffers to hold data */
+ hvl_t writeBuffer[5];
+ hvl_t readBuffer[5];
+
+    /* This example has two different sizes of "record": longs and shorts */
+ long longBuffer[5];
+ short shortBuffer[5];
+
+   /* Initialize buffers */
+ for(x=0; x<5; x++)
+ {
+     longBuffer[x] = -x;
+     shortBuffer[x] = x;
+ }
+
+    /* Fill the write buffer with a mix of longs and shorts */
+    /* We need to supply the length of each record and a pointer to */
+    /* the beginning of each record. */
+ writeBuffer[0].len = sizeof(long);
+ writeBuffer[0].p = &(longBuffer[0]);
+ writeBuffer[1].len = sizeof(short);
+ writeBuffer[1].p = &(shortBuffer[1]);
+ writeBuffer[2].len = sizeof(long);
+ writeBuffer[2].p = &(longBuffer[2]);
+ writeBuffer[3].len = sizeof(long);
+ writeBuffer[3].p = &(longBuffer[3]);
+ writeBuffer[4].len = sizeof(short);
+ writeBuffer[4].p = &(shortBuffer[4]);
+
+    /* Create a file using default properties */
+ fid=H5Fcreate("packet_table_VLexample.h5",H5F_ACC_TRUNC,H5P_DEFAULT,H5P_DEFAULT);
+
+    /* Create a variable-length packet table within the file */
+ ptable = H5PTcreate_vl(fid, "Packet Test Dataset", 1);
+ if(ptable == H5I_INVALID_HID)
+     goto out;
+
+    /* Write the entire buffer to the packet table */
+ err = H5PTappend(ptable, 5, writeBuffer );
+ if(err < 0)
+     goto out;
+
+    /* Get the number of packets in the packet table.  This should be five. */
+ err = H5PTget_num_packets(ptable, &count);
+ if(err < 0)
+     goto out;
+
+ printf("Number of packets in packet table after five appends: %d\n", count);
+
+    /* Read all five packets back */
+ err = H5PTread_packets(ptable, 0, 5, readBuffer );
+ if(err < 0)
+    goto out;
+
+ for(x=0; x<5; x++)
+ {
+    printf("Packet %d's length is %d\n", x, readBuffer[x].len);
+    if(readBuffer[x].len == sizeof(long))
+        printf("Packet %d's value is %d\n", x, *( (long *) readBuffer[x].p) );
+    else
+        printf("Packet %d's value is %d\n", x, *( (short *) readBuffer[x].p) );
+ }
+
+    /* Before we close the packet table, we must free the memory that */
+    /* the pointers in readBuffer point to. */
+ err = H5PTfree_vlen_readbuff(ptable, 5, readBuffer);
+ if(err < 0)
+     goto out;
+
+    /* Close the packet table */
+ err = H5PTclose(ptable);
+ if(err < 0)
+     goto out;
+
+    /* Close the file */
+ H5Fclose(fid);
+
+ return 0;
+
+ out: /* An error has occurred.  Clean up and exit. */
+    fprintf(stderr, "An error has occurred!\n");
+    H5PTclose(ptable);
+    H5Fclose(fid);
+    return -1;
+}