NetCDF4: string/char read/write scalar/array (>= R2021b)

Author: scivision

+stdlib/+hdf5nc/ncsave.m

@@ -6,14 +6,19 @@ function ncsave(filename, varname, A, opts)
 arguments
   filename (1,1) string {mustBeNonzeroLengthText}
   varname (1,1) string {mustBeNonzeroLengthText}
-  A {mustBeNumeric,mustBeNonempty,mustBeReal}
+  A {mustBeNonempty}
   opts.dims cell = {}
   opts.type string {mustBeScalarOrEmpty} = string.empty
 end
 
 import stdlib.fileio.expanduser
 import stdlib.hdf5nc.ncexists
 
+if isnumeric(A)
+  mustBeReal(A)
+end
+
+
 filename = expanduser(filename);
 
 if isempty(opts.dims)

+stdlib/TestNetCDF.m

@@ -22,12 +22,16 @@ function setup_file(tc)
 A3 = A2(:,1:3,1);
 A3(:,:,2) = 2*A3;
 A4(:,:,:,5) = A3;
+utf = 'Hello There 😄';
+utf2 = [utf; "☎"];
 
 tc.TestData.A0 = A0;
 tc.TestData.A1 = A1;
 tc.TestData.A2 = A2;
 tc.TestData.A3 = A3;
 tc.TestData.A4 = A4;
+tc.TestData.utf = utf;
+tc.TestData.utf2 = utf2;
 
 basic = tempname + ".nc";
 tc.TestData.basic = basic;
@@ -38,6 +42,8 @@ function setup_file(tc)
 ncsave(basic, 'A2', A2, "dims", {'x2', size(A2,1), 'y2', size(A2,2)})
 ncsave(basic, 'A3', A3, "dims", {'x3', size(A3,1), 'y3', size(A3,2), 'z3', size(A3,3)})
 ncsave(basic, 'A4', A4, "dims", {'x4', size(A4,1), 'y4', size(A4,2), 'z4', size(A4,3), 'w4', size(A4,4)})
+ncsave(basic, "utf", utf)
+ncsave(basic, "utf2", utf2)
 
 tc.assumeThat(basic, IsFile)
 end
@@ -56,7 +62,7 @@ function test_get_variables(tc)
 import stdlib.hdf5nc.ncvariables
 basic = tc.TestData.basic;
 
-tc.verifyEqual(sort(ncvariables(basic)), ["A0", "A1", "A2", "A3", "A4"])
+tc.verifyEqual(sort(ncvariables(basic)), ["A0", "A1", "A2", "A3", "A4", "utf", "utf2"])
 end
 
 
@@ -112,6 +118,16 @@ function test_size(tc)
 tc.verifyEqual(s, [4,3,2,5])
 tc.verifyEqual(r, 4)
 
+r = ncndims(basic, 'utf');
+s = ncsize(basic, 'utf');
+tc.verifyEmpty(s)
+tc.verifyEqual(r, 0)
+
+r = ncndims(basic, 'utf2');
+s = ncsize(basic, 'utf2');
+tc.verifyEqual(s, 2)
+tc.verifyEqual(r, 1)
+
 end
 
 
@@ -138,6 +154,14 @@ function test_read(tc)
 s = ncread(basic, '/A4');
 tc.verifyEqual(ndims(s), 4)
 tc.verifyEqual(s, tc.TestData.A4)
+
+s = ncread(basic, '/utf');
+tc.verifyTrue(isstring(s))
+tc.verifyEqual(s, string(tc.TestData.utf))
+
+s = ncread(basic, '/utf2');
+tc.verifyTrue(isstring(s))
+tc.verifyEqual(s, tc.TestData.utf2)
 end
 
 
@@ -177,12 +201,6 @@ function test_name_only(tc)
 delete(name)
 end
 
-function test_no_char_string(tc)
-import stdlib.hdf5nc.ncsave
-tc.verifyError(@() ncsave(tc.TestData.basic, "/a_string", "hello"), 'MATLAB:validators:mustBeNumeric')
-
-end
-
 
 function test_real_only(tc)
 import stdlib.hdf5nc.ncsave