* Compilation of module hdf5 fixed 36/16836/3
Cedric Delamarre [Fri, 10 Jul 2015 12:34:04 +0000 (14:34 +0200)]
* fix wrong merge of test bug_7242.tst
* Fix string.tst test (path to library)

Change-Id: Idfc1301cf9d79187834fdf20bdd5175c7eb6b6a2

scilab/modules/api_scilab/tests/nonreg_tests/bug_7242.dia.ref
scilab/modules/api_scilab/tests/nonreg_tests/bug_7242.tst
scilab/modules/hdf5/sci_gateway/cpp/sci_hdf5_load.cpp
scilab/modules/hdf5/src/c/h5_writeDataToFile.c

index f95eabc..6b2ef4d 100644 (file)
 // http://bugzilla.scilab.org/show_bug.cgi?id=7242
 //
 // <-- Short Description -->
-//  API was unable to retrieve named variable address 
+//  API was unable to retrieve named variable address
 //  when variable name is passed in argument of function
-function result = myExport(data, filepath)
-    result = %t
-    try
-        save(filepath, "data");
-    catch
-        retult = %f;
-    end
+function myExport(data, filepath)
+    save(filepath, "data");
 endfunction
 myData = "blam";
 myFile = TMPDIR + "/myFile.sod";
-if ~myExport(myData, myFile) then bugmes();quit;end
-
+myExport(myData, myFile); // Should not produce any error
index cff3d0d..0e7efbb 100644 (file)
 //  API was unable to retrieve named variable address
 //  when variable name is passed in argument of function
 
-function result = myExport(data, filepath)
-    result = %t
-    try
-        save(filepath, "data");
-    catch
-        retult = %f;
-    end
+function myExport(data, filepath)
+    save(filepath, "data");
 endfunction
 
 myData = "blam";
index 4158c61..96cd67b 100644 (file)
@@ -65,7 +65,7 @@ Function::ReturnValue sci_hdf5_load(typed_list &in, int _iRetCount, typed_list&
     {
         //lib file
         int err = 0;
-        Library* lib = loadlib(wfilename, &err);
+        Library* lib = loadlib(in[0]->getAs<String>()->get()[0], &err);
 
         switch (err)
         {
@@ -159,4 +159,4 @@ Function::ReturnValue sci_hdf5_load(typed_list &in, int _iRetCount, typed_list&
     }
 
     return ret;
-}
\ No newline at end of file
+}
index 419d2e4..39dff5c 100644 (file)
@@ -1976,27 +1976,28 @@ int closeList(int _iFile, void *_pvList, char *_pstListName, int _iNbItem, int _
 
 static int deleteHDF5group(int _iFile, const char* _pstName)
 {
+    H5G_info_t groupInfo;
     hid_t status = 0;
     //open group
     hid_t groupID = H5Gopen(_iFile, _pstName, H5P_DEFAULT);
     //hid_t groupID = H5Gopen(_iFile, _pstName, H5P_DEFAULT);
+
     if (groupID < 0)
     {
         return -1;
     }
 
-    int ret = 0;
-    int index = 0;
-    int i = 0;
-    H5G_info_t groupInfo;
     //get children count
     status = H5Gget_info(groupID, &groupInfo);
     if (status != -1)
     {
         int index = 0;
+        int i = 0;
+
         //for each child,
         for (i = 0; i < groupInfo.nlinks; i++)
         {
+            int ret = 0;
             //get child name
             ssize_t size = H5Lget_name_by_idx(groupID, ".", H5_INDEX_NAME, H5_ITER_INC, index, 0, 0, H5P_DEFAULT) + 1;
             char* pstChildName = (char*)MALLOC(sizeof(char) * size);
@@ -2052,7 +2053,6 @@ int deleteHDF5Var(int _iFile, const char* _pstName)
     ret = deleteHDF5group(_iFile, _pstName);
     if (ret == -1)
     {
-        ret = 0;
         //delete current dataset link
         hid_t status = H5Ldelete(_iFile, _pstName, H5P_DEFAULT);
         if (status < 0)
@@ -2060,6 +2060,7 @@ int deleteHDF5Var(int _iFile, const char* _pstName)
             H5Eset_auto2(H5E_DEFAULT, oldfunc, oldclientdata);
             return -1;
         }
+        ret = 0;
     }
 
     H5Eset_auto2(H5E_DEFAULT, oldfunc, oldclientdata);