summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/H5D.c162
-rw-r--r--src/H5Dprivate.h29
-rw-r--r--src/H5Dproto.h40
3 files changed, 231 insertions, 0 deletions
diff --git a/src/H5D.c b/src/H5D.c
new file mode 100644
index 0000000..cd73c8f
--- /dev/null
+++ b/src/H5D.c
@@ -0,0 +1,162 @@
+/****************************************************************************
+* NCSA HDF *
+* Software Development Group *
+* 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 file. *
+* *
+****************************************************************************/
+
+#ifdef RCSID
+static char RcsId[] = "@(#)$Revision$";
+#endif
+
+/* $Id$ */
+
+/*LINTLIBRARY */
+/*+
+ FILE
+ H5D.c
+ HDF5 Dataset routines
+
+ EXPORTED ROUTINES
+ H5Dcreate -- Create a dataset
+ H5Drelease -- Release access to a dataset
+
+ LIBRARY-SCOPED ROUTINES
+
+ LOCAL ROUTINES
+ H5P_init_interface -- initialize the interface
+ + */
+
+#include "hdf5.h"
+#include "H5private.h" /* Generic Functions */
+#include "H5Dprivate.h" /* Dataset functions */
+
+/*--------------------- Locally scoped variables -----------------------------*/
+
+/* Whether we've installed the library termination function yet for this interface */
+static intn interface_initialize = FALSE;
+
+/*--------------------------------------------------------------------------
+NAME
+ H5D_init_interface -- Initialize interface-specific information
+USAGE
+ herr_t H5D_init_interface()
+
+RETURNS
+ SUCCEED/FAIL
+DESCRIPTION
+ Initializes any interface-specific data or routines.
+
+--------------------------------------------------------------------------*/
+static herr_t H5D_init_interface(void)
+{
+#ifdef LATER
+ CONSTR(FUNC, "H5D_init_interface"); /* For HERROR */
+#endif /* LATER */
+ herr_t ret_value = SUCCEED;
+
+ /* Don't use "FUNC_ENTER" macro, to avoid potential infinite recursion */
+ PABLO_TRACE_ON(H5D_mask, ID_H5D_init_interface);
+
+ /* Don't call this routine again... */
+ interface_initialize = TRUE;
+
+ /* Initialize the atom group for the file IDs */
+ ret_value=H5Ainit_group(H5_DATASET,HDF5_DATASETID_HASHSIZE,H5D_RESERVED_ATOMS);
+
+ FUNC_LEAVE(H5D_mask, ID_H5D_init_interface, ret_value);
+} /* H5D_init_interface */
+
+/*--------------------------------------------------------------------------
+ NAME
+ H5D_create
+ PURPOSE
+ Create a new HDF5 dataset object
+ USAGE
+ hatom_t H5D_create(owner_id, type, name)
+ hatom_t owner_id; IN: Group/file which owns this object
+ hobjtype_t type; IN: Type of object to create
+ const char *name; IN: Name of the object
+ RETURNS
+ Returns ID (atom) on success, FAIL on failure
+ DESCRIPTION
+ This function actually creates the dataset object.
+--------------------------------------------------------------------------*/
+hatom_t H5D_create(hatom_t owner_id, hobjtype_t type, const char *name)
+{
+ CONSTR(FUNC, "H5D_create"); /* for HERROR */
+ H5D_dataset_t *new_dataset; /* new dataset object to create */
+ hatom_t ret_value = SUCCEED;
+
+ FUNC_ENTER(H5D_mask, ID_H5D_create, H5D_init_interface, FAIL);
+
+ /* Clear errors and check args and all the boring stuff. */
+ H5ECLEAR;
+
+ /* Allocate space for the new data-type */
+ if((new_dataset=HDmalloc(sizeof(H5D_dataset_t)))==NULL)
+ HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, FAIL);
+
+ /* Initialize the dimensionality object */
+
+ /* Register the new datatype and get an ID for it */
+ if((ret_value=H5Aregister_atom(H5_DATASET, (const VOIDP)new_dataset))==FAIL)
+ HGOTO_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL);
+
+done:
+ if(ret_value == FAIL)
+ { /* Error condition cleanup */
+
+ } /* end if */
+
+ /* Normal function cleanup */
+
+ FUNC_LEAVE(H5D_mask, ID_H5D_create, ret_value);
+} /* end H5D_create() */
+
+/*--------------------------------------------------------------------------
+ NAME
+ H5D_release
+ PURPOSE
+ Release access to an HDF5 dataset object.
+ USAGE
+ herr_t H5D_release(oid)
+ hatom_t oid; IN: Object to release access to
+ RETURNS
+ SUCCEED/FAIL
+ DESCRIPTION
+ This function releases a dataset from active use by a user.
+--------------------------------------------------------------------------*/
+herr_t H5D_release(hatom_t oid)
+{
+ CONSTR(FUNC, "H5D_release"); /* for HERROR */
+ H5D_dataset_t *dataset; /* dataset object to release */
+ herr_t ret_value = SUCCEED;
+
+ FUNC_ENTER(H5D_mask, ID_H5Drelease, H5D_init_interface, FAIL);
+
+ /* Clear errors and check args and all the boring stuff. */
+ H5ECLEAR;
+
+ /* Chuck the object! :-) */
+ if((dataset=H5Aremove_atom(oid))==NULL)
+ HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL);
+ HDfree(dataset);
+
+done:
+ if(ret_value == FAIL)
+ { /* Error condition cleanup */
+
+ } /* end if */
+
+ /* Normal function cleanup */
+
+ FUNC_LEAVE(H5D_mask, ID_H5D_release, ret_value);
+} /* end H5D_release() */
+
+
diff --git a/src/H5Dprivate.h b/src/H5Dprivate.h
new file mode 100644
index 0000000..1def360
--- /dev/null
+++ b/src/H5Dprivate.h
@@ -0,0 +1,29 @@
+/****************************************************************************
+ * NCSA HDF *
+ * Software Development Group *
+ * 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 file. *
+ * *
+ ****************************************************************************/
+
+/* $Id$ */
+
+/*
+ * This file contains private information about the H5D module
+ */
+
+#ifndef H5DPRIVATE_H
+#define H5DPRIVATE_H
+
+#include "H5Dproto.h"
+#define H5D_RESERVED_ATOMS 0
+
+/*------------------_-- Local function prototypes ----------------------------*/
+static herr_t H5D_init_interface(void);
+
+#endif /* H5DPRIVATE_H */
+
diff --git a/src/H5Dproto.h b/src/H5Dproto.h
new file mode 100644
index 0000000..5ffe8a9
--- /dev/null
+++ b/src/H5Dproto.h
@@ -0,0 +1,40 @@
+/****************************************************************************
+ * NCSA HDF *
+ * Software Development Group *
+ * 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 file. *
+ * *
+ ****************************************************************************/
+
+/* $Id$ */
+
+/*
+ * This file contains function prototypes for each exported function in the H5D module
+ */
+
+#ifndef H5DPROTO_H
+#define H5DPROTO_H
+
+typedef struct {
+ int foo; /* stop compiler from whining right now */
+ } H5D_dataset_t;
+
+#if defined c_plusplus || defined __cplusplus
+extern "C"
+{
+#endif /* c_plusplus || __cplusplus */
+
+/* Functions in H5D.c */
+hatom_t H5D_create(hatom_t owner_id, hobjtype_t type, const char *name);
+herr_t H5D_release(hatom_t oid);
+
+#if defined c_plusplus || defined __cplusplus
+}
+#endif /* c_plusplus || __cplusplus */
+
+#endif /* H5PPROTO_H */
+