Merge remote-tracking branch 'origin/hdf5_1_12_1' into 1.12/master forhdf5-1_12_1

HDF5 1.12.1 release.

1 files changed, 187 insertions, 0 deletions

diff --git a/doxygen/examples/H5F_examples.c b/doxygen/examples/H5F_examples.c
new file mode 100644
index 0000000..a7ce6fb
--- /dev/null
+++ b/doxygen/examples/H5F_examples.c
@@ -0,0 +1,187 @@
+/* -*- c-file-style: "stroustrup" -*- */
+
+#include "hdf5.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+
+int
+main(void)
+{
+    int ret_val = EXIT_SUCCESS;
+
+    //! <!-- [life_cycle] -->
+    {
+        __label__ fail_fapl, fail_fcpl, fail_file;
+        hid_t fcpl, fapl, file;
+
+        if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) == H5I_INVALID_HID) {
+            ret_val = EXIT_FAILURE;
+            goto fail_fcpl;
+        }
+        else {
+            // adjust the file creation properties
+        }
+
+        if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) == H5I_INVALID_HID) {
+            ret_val = EXIT_FAILURE;
+            goto fail_fapl;
+        }
+        else {
+            // adjust the file access properties
+        }
+
+        unsigned mode   = H5F_ACC_EXCL;
+        char     name[] = "f1.h5";
+
+        if ((file = H5Fcreate(name, mode, fcpl, fapl)) == H5I_INVALID_HID) {
+            ret_val = EXIT_FAILURE;
+            goto fail_file;
+        }
+
+        // do something useful with FILE
+
+        H5Fclose(file);
+fail_file:
+        H5Pclose(fapl);
+fail_fapl:
+        H5Pclose(fcpl);
+fail_fcpl:;
+    }
+    //! <!-- [life_cycle] -->
+
+    //! <!-- [life_cycle_w_open] -->
+    {
+        __label__ fail_fapl, fail_file;
+        hid_t fapl, file;
+
+        if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) == H5I_INVALID_HID) {
+            ret_val = EXIT_FAILURE;
+            goto fail_fapl;
+        }
+        else {
+            // adjust the file access properties
+        }
+
+        unsigned mode   = H5F_ACC_RDWR;
+        char     name[] = "f1.h5";
+
+        if ((file = H5Fopen(name, mode, fapl)) == H5I_INVALID_HID) {
+            ret_val = EXIT_FAILURE;
+            goto fail_file;
+        }
+
+        // do something useful with FILE
+
+        H5Fclose(file);
+fail_file:
+        H5Pclose(fapl);
+fail_fapl:;
+    }
+    //! <!-- [life_cycle_w_open] -->
+
+    //! <!-- [minimal] -->
+    {
+        unsigned mode   = H5F_ACC_TRUNC;
+        char     name[] = "f11.h5";
+
+        hid_t file = H5Fcreate(name, mode, H5P_DEFAULT, H5P_DEFAULT);
+        if (file != H5I_INVALID_HID)
+            H5Fclose(file);
+        else
+            ret_val = EXIT_FAILURE;
+    }
+    //! <!-- [minimal] -->
+
+    //! <!-- [open] -->
+    {
+        unsigned mode   = H5F_ACC_RDONLY;
+        char     name[] = "f11.h5";
+
+        hid_t file = H5Fopen(name, mode, H5P_DEFAULT);
+        if (file != H5I_INVALID_HID)
+            H5Fclose(file);
+        else
+            ret_val = EXIT_FAILURE;
+    }
+    //! <!-- [open] -->
+
+    //! <!-- [flush] -->
+    {
+        unsigned mode   = H5F_ACC_RDWR;
+        char     name[] = "f11.h5";
+
+        hid_t file = H5Fopen(name, mode, H5P_DEFAULT);
+        if (file != H5I_INVALID_HID) {
+            int step;
+            for (step = 0; step < 1000; ++step) {
+
+                // do important work & flush every 20 steps
+
+                if (step % 20 == 0) {
+                    if (H5Fflush(file, H5F_SCOPE_LOCAL) < 0) {
+                        perror("H5Fflush failed.");
+                        ret_val = EXIT_FAILURE;
+                        break;
+                    }
+                }
+            }
+
+            if (H5Fclose(file) < 0)
+                perror("H5Fclose failed.");
+        }
+        else
+            ret_val = EXIT_FAILURE;
+    }
+    //! <!-- [flush] -->
+
+    //! <!-- [libver_bounds] -->
+    {
+        unsigned mode   = H5F_ACC_RDWR;
+        char     name[] = "f11.h5";
+
+        hid_t file = H5Fopen(name, mode, H5P_DEFAULT);
+        if (file != H5I_INVALID_HID) {
+            if (H5Fset_libver_bounds(file, H5F_LIBVER_EARLIEST, H5F_LIBVER_V18) >= 0) {
+
+                // object creation will not exceed HDF5 version 1.8.x
+            }
+            else
+                perror("H5Fset_libver_bounds failed.");
+
+            if (H5Fclose(file) < 0)
+                perror("H5Fclose failed.");
+        }
+        else
+            ret_val = EXIT_FAILURE;
+    }
+    //! <!-- [libver_bounds] -->
+
+    //! <!-- [mount] -->
+    {
+        hid_t file = H5Fopen("f11.h5", H5F_ACC_RDWR, H5P_DEFAULT);
+        if (file != H5I_INVALID_HID) {
+            hid_t group, child;
+            if ((group = H5Gcreate1(file, "mount_point", H5P_DEFAULT)) != H5I_INVALID_HID) {
+                if ((child = H5Fopen("f1.h5", H5F_ACC_RDONLY, H5P_DEFAULT)) != H5I_INVALID_HID) {
+                    if (H5Fmount(group, ".", child, H5P_DEFAULT) >= 0) {
+
+                        // do something useful w/ the mounted file
+                    }
+                    else {
+                        ret_val = EXIT_FAILURE;
+                        perror("H5Fmount failed.");
+                    }
+                    H5Fclose(child);
+                }
+                H5Gclose(group);
+            }
+            H5Fclose(file);
+        }
+        else
+            ret_val = EXIT_FAILURE;
+    }
+    //! <!-- [mount] -->
+
+    return ret_val;
+}