hdf5: work more broadly

Author: scivision

+stdlib/h5create_group.m

@@ -7,10 +7,10 @@
 % * HDF5 file handle
 
 function fid = h5create_group(file, hpath)
-arguments
-  file (1,1)
-  hpath (1,1) string
-end
+% arguments
+%   file (1,1)
+%   hpath (1,1) string
+% end
 
 % polymorphic fid/filename
 if isa(file, 'H5ML.id')
@@ -25,7 +25,7 @@
 end
 
 % are there any groups
-grps = split(hpath, "/");
+grps = split(string(hpath), "/");
 if length(grps) < 3
   return
 end

+stdlib/h5save.m

@@ -18,15 +18,23 @@
 % Likewise, the type of the dataset may be explicitly specified with the "type" argument.
 %  h5save(filename, dataset_name, dataset, type="int32")
 
-function h5save(filename, varname, A, opts)
-arguments
-  filename (1,1) string
-  varname (1,1) string
-  A {mustBeNonempty}
-  opts.size (1,:) double {mustBeInteger,mustBeNonnegative} = []
-  opts.type (1,1) string = ""
-  opts.compressLevel (1,1) double {mustBeInteger,mustBeNonnegative} = 0
-end
+function h5save(filename, varname, A, varargin)
+% arguments
+%   filename (1,1) string
+%   varname (1,1) string
+%   A {mustBeNonempty}
+%   opts.size (1,:) double {mustBeInteger,mustBeNonnegative} = []
+%   opts.type (1,1) string = ""
+%   opts.compressLevel (1,1) double {mustBeInteger,mustBeNonnegative} = 0
+% end
+
+p = inputParser;
+addParameter(p, 'size', []);
+addParameter(p, 'type', "");
+addParameter(p, 'compressLevel', 0, @(x) mustBeInteger(x) && mustBeNonnegative(x));
+parse(p, varargin{:});
+
+opts = p.Results;
 
 if isnumeric(A)
   mustBeReal(A)
@@ -42,7 +50,7 @@ function h5save(filename, varname, A, opts)
   h5save_exist(filename, varname, A, opts.size)
 catch e
   switch e.identifier
-    case {'MATLAB:imagesci:hdf5io:resourceNotFound', 'MATLAB:imagesci:h5info:unableToFind', 'MATLAB:imagesci:h5info:fileOpenErr'}
+    case {'MATLAB:imagesci:hdf5io:resourceNotFound', 'MATLAB:imagesci:h5info:unableToFind', 'MATLAB:imagesci:h5info:fileOpenErr', 'MATLAB:imagesci:h5info:libraryError'}
       h5save_new(filename, varname, A, opts.size, opts.compressLevel)
     otherwise
       rethrow(e)

+stdlib/h5size.m

@@ -8,7 +8,8 @@
 
 function fsize = h5size(file, variable)
 
-dsi = h5info(file, variable).Dataspace;
+finf = h5info(file, variable);
+dsi = finf.Dataspace;
 
 if dsi.Type == "scalar"
   fsize = [];

+stdlib/h5variables.m

@@ -9,16 +9,11 @@
 % * names: variable names
 
 function names = h5variables(file, group)
-arguments
-  file
-  group (1,1) string = ""
+if nargin < 2
+  group = '/';
 end
 
-if stdlib.strempty(group)
-  finf = h5info(file);
-else
-  finf = h5info(file, group);
-end
+finf = h5info(file, group);
 
 ds = finf.Datasets;
 

+stdlib/private/coerce_ds.m

@@ -1,9 +1,9 @@
 function A = coerce_ds(A, dtype)
 % used by h5save and ncsave
-arguments
-  A
-  dtype (1,1) string
-end
+% arguments
+%   A
+%   dtype (1,1) string
+% end
 
 if ischar(A)
   A = string(A);

+stdlib/private/h5save_exist.m

@@ -2,11 +2,14 @@
 % normally users use h5save() instead of this function
 
 function h5save_exist(filename, varname, A, sizeA)
-arguments
-  filename
-  varname
-  A
-  sizeA (1,:) double {mustBeInteger,mustBeNonnegative} = []
+% arguments
+%   filename
+%   varname
+%   A
+%   sizeA (1,:) double {mustBeInteger,mustBeNonnegative} = []
+% end
+if nargin < 4
+  sizeA = [];
 end
 
 diskshape = stdlib.h5size(filename, varname);

+stdlib/private/h5save_new.m

@@ -2,13 +2,20 @@
 % normally users will use h5save() instead of this function
 
 function h5save_new(filename, varname, A, sizeA, compressLevel)
-arguments
-  filename
-  varname
-  A
-  sizeA (1,:) double {mustBeInteger,mustBeNonnegative} = []
-  compressLevel (1,1) double {mustBeInteger,mustBeNonnegative} = 0
+% arguments
+%   filename
+%   varname
+%   A
+%   sizeA (1,:) double {mustBeInteger,mustBeNonnegative} = []
+%   compressLevel (1,1) double {mustBeInteger,mustBeNonnegative} = 0
+% end
+if nargin < 4
+  sizeA = [];
 end
+if nargin < 5
+  compressLevel = 0;
+end
+
 
 if isempty(sizeA)
   sizeA = defaultSize(A);

+stdlib/private/h5save_scalar.m

@@ -1,12 +1,12 @@
 function h5save_scalar(filename, hpath, A)
 %% write HDF5 scalar as a scalar
 %  h5create doesn't support scalars
-arguments
-  filename (1,1) string
-  hpath (1,1) string
-  A (1,1)
-end
-% filename must be a scalar string--char does not work
+% arguments
+%   filename (1,1) string
+%   hpath (1,1) string
+%   A (1,1)
+% end
+
 
 dcpl = 'H5P_DEFAULT';
 

test/TestHDF5.m

@@ -34,9 +34,9 @@ function setupData(tc)
 methods(TestMethodSetup)
 
 function setup_file(tc)
-tc.applyFixture(matlab.unittest.fixtures.WorkingFolderFixture())
+tc.applyFixture(matlab.unittest.fixtures.WorkingFolderFixture());
 
-tc.file = fullfile(pwd(), class(tc) + ".h5");
+tc.file = [pwd(), class(tc), '.h5'];
 
 % create test data first, so that parallel tests works
 stdlib.h5save(tc.file, '/A0', tc.A0)
@@ -63,7 +63,7 @@ function setup_file(tc)
 end
 
 
-methods (Test, TestTags = {'R2019b'})
+methods (Test, TestTags = {'R2017b'})
 
 function test_auto_chunk_size(tc)
 
@@ -242,7 +242,7 @@ function test_real_only(tc)
 end
 
 
-methods (Test, TestTags=["R2020b", "hdf5"])
+methods (Test, TestTags={'R2020b'})
 
 function test_string(tc, str)
 tc.assumeFalse(stdlib.matlabOlderThan("R2020b"))