[svn-r12138] Purpose: VMS port

Description: Unix remove function removes only the latest version of a file
             on VMS. Some of our tests create multiple versions of the testfiles
             and as a result, test programs may be confused, give false negative result,
             etc.

Solution: Created HDremove_all function for VMS that removes all versions of the files.
          HDremove on VMS is an alias to HDremove_all.

Platforms tested: VMS server and heping (to check that nothing is borken on UNIX side)

Misc. update:

1 files changed, 36 insertions, 0 deletions

diff --git a/src/H5.c b/src/H5.c
index 9988414..d2024ab 100644
--- a/src/H5.c
+++ b/src/H5.c
@@ -3150,3 +3150,39 @@ void HDsrand(unsigned int seed)
 }
 
 #endif
+/*-------------------------------------------------------------------------
+ * Function:	HDremove_all
+ *
+ * Purpose:	Wrapper function for remove on VMS systems
+ *
+ * 		This function deletes all versions of a file
+ *
+ * Return:	Success:        0;
+ *
+ *		Failure:	-1
+ *
+ * Programmer:	Elena Pourmal
+ *              March 22, 2006
+ *
+ * Modifications:
+ *-------------------------------------------------------------------------
+ */
+#ifdef H5_VMS
+
+
+int HDremove_all(char *fname)
+{
+   int ret_value = -1;
+   char *_fname;
+   _fname = malloc(strlen(fname)+3); /* to accomodate ;* and null */
+   if(_fname) {
+      strcpy(_fname, fname);
+      strcat(_fname,";*");
+      remove(_fname);
+      free(_fname);
+      ret_value = 0;
+   }
+   return ret_value;
+}
+#endif
+