Added matlab object saving to saveubjson

Author: Sertan Senturk

savejson.m

@@ -17,7 +17,8 @@
 %      rootname: the name of the root-object, when set to '', the root name
 %        is ignored, however, when opt.ForceRootName is set to 1 (see below),
 %        the MATLAB variable name will be used as the root name.
-%      obj: a MATLAB object (array, cell, cell array, struct, struct array).
+%      obj: a MATLAB object (array, cell, cell array, struct, struct array,
+%      class instance).
 %      filename: a string for the file name to save the output JSON data.
 %      opt: a struct for additional options, ignore to use default values.
 %        opt can have the following fields (first in [.|.] is the default)

saveubjson.m

@@ -17,7 +17,8 @@
 %      rootname: the name of the root-object, when set to '', the root name
 %        is ignored, however, when opt.ForceRootName is set to 1 (see below),
 %        the MATLAB variable name will be used as the root name.
-%      obj: a MATLAB object (array, cell, cell array, struct, struct array)
+%      obj: a MATLAB object (array, cell, cell array, struct, struct array,
+%      class instance)
 %      filename: a string for the file name to save the output UBJSON data
 %      opt: a struct for additional options, ignore to use default values.
 %        opt can have the following fields (first in [.|.] is the default)
@@ -129,6 +130,8 @@
     txt=struct2ubjson(name,item,level,varargin{:});
 elseif(ischar(item))
     txt=str2ubjson(name,item,level,varargin{:});
+elseif(isobject(item)) 
+    txt=matlabobject2ubjson(name,item,level,varargin{:});
 else
     txt=mat2ubjson(name,item,level,varargin{:});
 end
@@ -328,6 +331,23 @@
 end
 txt=[txt,'}'];
 
+%%-------------------------------------------------------------------------
+function txt=matlabobject2ubjson(name,item,level,varargin)
+if numel(item) == 0 %empty object
+    st = struct();
+else
+    % "st = struct(item);" would produce an inmutable warning, because it
+    % make the protected and private properties visible. Instead we get the
+    % visible properties
+    propertynames = properties(item);
+    for p = 1:numel(propertynames)
+        for o = numel(item):-1:1 % aray of objects
+            st(o).(propertynames{p}) = item(o).(propertynames{p});
+        end
+    end
+end
+txt=struct2ubjson(name,st,level,varargin{:});
+
 %%-------------------------------------------------------------------------
 function txt=matdata2ubjson(mat,level,varargin)
 if(isempty(mat))