summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/H5Odtype.c46
1 files changed, 45 insertions, 1 deletions
diff --git a/src/H5Odtype.c b/src/H5Odtype.c
index f6c1f3f..f42120f 100644
--- a/src/H5Odtype.c
+++ b/src/H5Odtype.c
@@ -38,6 +38,9 @@ static herr_t H5O_dtype_set_share(void *_mesg, const H5O_shared_t *sh);
static herr_t H5O_dtype_is_shared(const void *_mesg);
static herr_t H5O_dtype_pre_copy_file(H5F_t *file_src, const H5O_msg_class_t *type,
const void *mesg_src, hbool_t *deleted, const H5O_copy_t *cpy_info, void *_udata);
+static void *H5O_dtype_copy_file(H5F_t *file_src, const H5O_msg_class_t *mesg_type,
+ void *native_src, H5F_t *file_dst, hid_t dxpl_id, H5O_copy_t *cpy_info, void *udata);
+
static herr_t H5O_dtype_debug(H5F_t *f, hid_t dxpl_id, const void *_mesg,
FILE * stream, int indent, int fwidth);
@@ -58,7 +61,7 @@ const H5O_msg_class_t H5O_MSG_DTYPE[1] = {{
H5O_dtype_set_share, /* set share method */
H5O_dtype_is_shared, /* is shared method */
H5O_dtype_pre_copy_file, /* pre copy native value to file */
- NULL, /* copy native value to file */
+ H5O_dtype_copy_file, /* copy native value to file */
NULL, /* post copy native value to file */
H5O_dtype_debug /* debug the message */
}};
@@ -1426,6 +1429,47 @@ done:
} /* end H5O_dtype_pre_copy_file() */
+/*-------------------------------------------------------------------------
+ * Function: H5O_dtype_copy_file
+ *
+ * Purpose: Copy a native datatype message from one file to another.
+ *
+ * Return: Success: Native copy of message
+ * Failure: NULL
+ *
+ * Programmer: James Laird
+ * December 12, 2006
+ *
+ *-------------------------------------------------------------------------
+ */
+static void *
+H5O_dtype_copy_file(H5F_t UNUSED *file_src, const H5O_msg_class_t *mesg_type,
+ void *native_src, H5F_t *file_dst, hid_t UNUSED dxpl_id,
+ H5O_copy_t UNUSED *cpy_info, void UNUSED *udata)
+{
+ H5T_t *dst_mesg = NULL; /* Destination datatype */
+ void *ret_value = NULL; /* Return value */
+
+ FUNC_ENTER_NOAPI_NOINIT(H5O_dtype_copy_file)
+
+ /* Perform a normal copy of the object header message */
+ if(NULL == (dst_mesg = H5O_dtype_copy(native_src, NULL)))
+ HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, NULL, "unable to copy")
+
+ /* The datatype will be in the new file; set its location. */
+ if(H5T_set_loc(dst_mesg, file_dst, H5T_LOC_DISK) < 0)
+ HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, NULL, "unable to set location")
+
+ ret_value = dst_mesg;
+
+done:
+ if(NULL == ret_value) {
+ H5O_msg_free(mesg_type->id, dst_mesg);
+ }
+ FUNC_LEAVE_NOAPI(ret_value)
+} /* end H5O_dtype_copy_file() */
+
+
/*--------------------------------------------------------------------------
NAME
H5O_dtype_debug