for msgpack, use ArrayZipSize

Author: fangq

jdatadecode.m

@@ -105,15 +105,16 @@
             end
             ndata=cast(data(j).(N_('_ArrayData_')),char(data(j).(N_('_ArrayType_'))));
         end
+	if(~isempty(strmatch(N_('_ArrayZipSize_'),fn)))
+	    ndata=reshape(ndata(:),data(j).(N_('_ArrayZipSize_')));
+	end
         iscpx=0;
         if(~isempty(strmatch(N_('_ArrayIsComplex_'),fn)))
             if(data(j).(N_('_ArrayIsComplex_')))
                iscpx=1;
             end
         end
         if(~isempty(strmatch(N_('_ArrayIsSparse_'),fn)) && data(j).(N_('_ArrayIsSparse_')))
-                if(islogical(data(j).(N_('_ArrayIsSparse_'))))
-                end
                 if(~isempty(strmatch(N_('_ArraySize_'),fn)))
                     dim=double(data(j).(N_('_ArraySize_'))(:)');
                     if(iscpx)

saveubjson.m

@@ -529,6 +529,9 @@
             % General case, store row and column indices.
             fulldata=[ix,iy,data];
         end
+        if(ismsgpack)
+            txt=[txt,N_('_ArrayZipSize_'),I_a(size(fulldata))];
+        end
         varargin{:}.ArrayToStruct=0;
         txt=[txt,N_('_ArrayData_'),...
                cell2ubjson('',num2cell(fulldata',2)',level+2,varargin{:})];
@@ -556,6 +559,10 @@
 	    txt=[txt,N_('_ArrayZipData_'), I_a(compfun(typecast(fulldata(:),'uint8')),Imarker(1),Imarker,varargin{:})];
         childcount=childcount+3;
     else
+        if(ismsgpack)
+            cid=I_(uint32(length(item(:))),Imarker,varargin{:});
+            txt=[txt,N_('_ArrayZipSize_'),I_a([~isreal(item)+1 length(item(:))],cid(1),Imarker,varargin{:})];
+        end
         if(isreal(item))
             txt=[txt,N_('_ArrayData_'),...
                 matdata2ubjson(item(:)',level+2,varargin{:})];