minor update to process msgpack

Author: fangq

jdatadecode.m

@@ -105,9 +105,10 @@
             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
+	    if(~isempty(strmatch(N_('_ArrayZipSize_'),fn)))
+            ndata=reshape(ndata(:),fliplr(data(j).(N_('_ArrayZipSize_'))(:)'));
+            ndata=permute(ndata,ndims(ndata):-1:1);
+        end
         iscpx=0;
         if(~isempty(strmatch(N_('_ArrayIsComplex_'),fn)))
             if(data(j).(N_('_ArrayIsComplex_')))

jsonopt.m

@@ -24,12 +24,14 @@
 % 
 
 val=default;
-if(nargin<=2) return; end
+if(nargin<=2)
+    return;
+end
 opt=varargin{1};
 if(isstruct(opt))
     if(isfield(opt,key))
-       val=getfield(opt,key);
+       val=opt.(key);
     elseif(isfield(opt,lower(key)))
-       val=getfield(opt,lower(key));
+       val=opt.(lower(key));
     end
 end

saveubjson.m

@@ -530,7 +530,9 @@
             fulldata=[ix,iy,data];
         end
         if(ismsgpack)
-            txt=[txt,N_('_ArrayZipSize_'),I_a(size(fulldata))];
+            cid=I_(uint32(max(size(fulldata))),Imarker,varargin{:});
+            txt=[txt,N_('_ArrayZipSize_'),I_a(size(fulldata),cid(1),Imarker,varargin{:})];
+            childcount=childcount+1;
         end
         varargin{:}.ArrayToStruct=0;
         txt=[txt,N_('_ArrayData_'),...
@@ -562,6 +564,7 @@
         if(ismsgpack)
             cid=I_(uint32(length(item(:))),Imarker,varargin{:});
             txt=[txt,N_('_ArrayZipSize_'),I_a([~isreal(item)+1 length(item(:))],cid(1),Imarker,varargin{:})];
+            childcount=childcount+1;
         end
         if(isreal(item))
             txt=[txt,N_('_ArrayData_'),...
@@ -641,11 +644,9 @@
 end
 
 type='';
-hasnegtive=(mat<0);
 
-varargin{:}.num2cell_=1;
 if(isa(mat,'integer') || isinteger(mat) || (isfloat(mat) && all(mod(mat(:),1) == 0)))
-    if(isempty(hasnegtive))
+    if(~any(mat<0))
        if(max(mat(:))<=2^8)
            type=Imarker(1);
        end