[svn-r22273] H5Ldelete goes thorugh VOL

1 files changed, 37 insertions, 1 deletions

diff --git a/src/H5VL.c b/src/H5VL.c
index 19125e9..293711f 100644
--- a/src/H5VL.c
+++ b/src/H5VL.c
@@ -1795,7 +1795,7 @@ done:
 
 
 /*-------------------------------------------------------------------------
- * Function:	H5VL_link_create
+ * Function:	H5VL_link_move
  *
  * Purpose:	Copy or move a link from src to dst.
  *
@@ -1856,6 +1856,42 @@ done:
 
 
 /*-------------------------------------------------------------------------
+ * Function:	H5VL_link_delete
+ *
+ * Purpose:	Copy or delete a link from src to dst.
+ *
+ * Return:	Non-negative on success/Negative on failure
+ *
+ * Programmer:	Mohamad Chaarawi
+ *              April, 2012
+ *
+ *-------------------------------------------------------------------------
+ */
+H5_DLL herr_t H5VL_link_delete(hid_t loc_id, const char *name, hid_t lapl_id)
+{
+    H5VL_id_wrapper_t    *id_wrapper;
+    herr_t               ret_value = SUCCEED;  /* Return value */
+
+    FUNC_ENTER_NOAPI(FAIL)
+
+    if(NULL == (id_wrapper = (H5VL_id_wrapper_t *)H5I_object(loc_id)))
+        HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "invalid user identifier")        
+
+    /* check if the corresponding VOL delete callback exists */
+    if(NULL == id_wrapper->vol_plugin->link_cls.delete)
+	HGOTO_ERROR(H5E_VOL, H5E_UNSUPPORTED, FAIL, "vol plugin has no `link delete' method")
+
+    /* call the corresponding VOL delete callback */
+    if((ret_value = (id_wrapper->vol_plugin->link_cls.delete)
+        (id_wrapper->obj_id, name, lapl_id)) < 0)
+	HGOTO_ERROR(H5E_VOL, H5E_CANTINIT, FAIL, "link delete failed")
+
+done:
+    FUNC_LEAVE_NOAPI(ret_value)
+} /* end H5VL_link_delete() */
+
+
+/*-------------------------------------------------------------------------
  * Function:	H5VL_attr_create
  *
  * Purpose:	Creates an attribute through the VOL