support lz4 and lz4hc compression via zmat v0.9

Author: fangq

jdatadecode.m

@@ -89,7 +89,7 @@
             if(~isempty(strmatch(N_('_ArrayZipType_'),fn)))
                 zipmethod=data(j).(N_('_ArrayZipType_'));
             end
-            if(~isempty(strmatch(zipmethod,{'zlib','gzip','lzma','lzip'})))
+            if(~isempty(strmatch(zipmethod,{'zlib','gzip','lzma','lzip','lz4','lz4hc'})))
                 decompfun=str2func([zipmethod 'decode']);
                 if(needbase64)
                     ndata=reshape(typecast(decompfun(base64decode(data(j).(N_('_ArrayZipData_')))),data(j).(N_('_ArrayType_'))),data(j).(N_('_ArrayZipSize_'))(:)');

lz4decode.m

@@ -0,0 +1,23 @@
+function output = lz4decode(input)
+%LZ4DECODE Decompress input bytes using lz4.
+%
+%    output = lz4decode(input)
+%
+% The function takes a compressed byte array INPUT and returns inflated
+% bytes OUTPUT. The INPUT is a result of LZ4DECODE function. The OUTPUT
+% is always an 1-by-N uint8 array.
+%
+% See also lz4encode typecast
+%
+% License : BSD, see LICENSE_*.txt
+%
+
+if(nargin==0)
+    error('you must provide at least 1 input');
+end
+if(exist('zmat','file')==2 || exist('zmat','file')==3)
+    output=zmat(uint8(input),0,'lz4');
+    return;
+else
+    error('you must install ZMat toolbox to use this feature: http://github.com/fangq/zmat')
+end

lz4encode.m

@@ -0,0 +1,23 @@
+function output = lz4encode(input)
+%LZ4ENCODE Compress input bytes with lz4.
+%
+%    output = lz4encode(input)
+%
+% The function takes a char, int8, or uint8 array INPUT and returns
+% compressed bytes OUTPUT as a uint8 array. Note that the compression
+% doesn't preserve input dimensions.
+%
+% See also lz4decode
+%
+% License : BSD, see LICENSE_*.txt
+%
+
+if(nargin==0)
+    error('you must provide at least 1 input');
+end
+if(exist('zmat','file')==2 || exist('zmat','file')==3)
+    output=zmat(uint8(input),1,'lz4');
+    return;
+else
+    error('you must install ZMat toolbox to use this feature: http://github.com/fangq/zmat')
+end

lz4hcdecode.m

@@ -0,0 +1,23 @@
+function output = lz4hcdecode(input)
+%LZ4HCDECODE Decompress input bytes using lz4hc.
+%
+%    output = lz4hcdecode(input)
+%
+% The function takes a compressed byte array INPUT and returns inflated
+% bytes OUTPUT. The INPUT is a result of LZ4HCDECODE function. The OUTPUT
+% is always an 1-by-N uint8 array.
+%
+% See also lz4hcencode typecast
+%
+% License : BSD, see LICENSE_*.txt
+%
+
+if(nargin==0)
+    error('you must provide at least 1 input');
+end
+if(exist('zmat','file')==2 || exist('zmat','file')==3)
+    output=zmat(uint8(input),0,'lz4hc');
+    return;
+else
+    error('you must install ZMat toolbox to use this feature: http://github.com/fangq/zmat')
+end

lz4hcencode.m

@@ -0,0 +1,23 @@
+function output = lz4hcencode(input)
+%LZ4HCENCODE Compress input bytes with lz4hc.
+%
+%    output = lz4hcencode(input)
+%
+% The function takes a char, int8, or uint8 array INPUT and returns
+% compressed bytes OUTPUT as a uint8 array. Note that the compression
+% doesn't preserve input dimensions.
+%
+% See also lz4hcdecode
+%
+% License : BSD, see LICENSE_*.txt
+%
+
+if(nargin==0)
+    error('you must provide at least 1 input');
+end
+if(exist('zmat','file')==2 || exist('zmat','file')==3)
+    output=zmat(uint8(input),1,'lz4hc');
+    return;
+else
+    error('you must install ZMat toolbox to use this feature: http://github.com/fangq/zmat')
+end

savejson.m

@@ -67,8 +67,8 @@
 %                         back to the string form
 %        opt.SaveBinary [0|1]: 1 - save the JSON file in binary mode; 0 - text mode.
 %        opt.Compact [0|1]: 1- out compact JSON format (remove all newlines and tabs)
-%        opt.Compression  'zlib', 'gzip', 'lzma' or 'lzip': specify array compression
-%                         method; currently only supports 4 methods. The
+%        opt.Compression  'zlib', 'gzip', 'lzma', 'lzip', 'lz4' or 'lz4hc': specify array 
+%                         compression method; currently only supports 6 methods. The
 %                         data compression only applicable to numerical arrays 
 %                         in 3D or higher dimensions, or when ArrayToStruct
 %                         is 1 for 1D or 2D arrays. If one wants to
@@ -131,7 +131,7 @@
 
 dozip=jsonopt('Compression','',opt);
 if(~isempty(dozip))
-    if(isempty(strmatch(dozip,{'zlib','gzip','lzma','lzip'})))
+    if(isempty(strmatch(dozip,{'zlib','gzip','lzma','lzip','lz4','lz4hc'})))
         error('compression method "%s" is not supported',dozip);
     end
     if(exist('zmat','file')~=2 && exist('zmat','file')~=3)

saveubjson.m

@@ -61,8 +61,8 @@
 %                         wrapped inside a function call as 'foo(...);'
 %        opt.UnpackHex [1|0]: conver the 0x[hex code] output by loadjson 
 %                         back to the string form
-%        opt.Compression  'zlib', 'gzip', 'lzma' or 'lzip': specify array compression
-%                         method; currently only supports 4 methods. The
+%        opt.Compression  'zlib', 'gzip', 'lzma', 'lzip', 'lz4' or 'lz4hc': specify array 
+%                         compression method; currently only supports 6 methods. The
 %                         data compression only applicable to numerical arrays 
 %                         in 3D or higher dimensions, or when ArrayToStruct
 %                         is 1 for 1D or 2D arrays. If one wants to
@@ -129,7 +129,7 @@
 
 dozip=jsonopt('Compression','',opt);
 if(~isempty(dozip))
-    if(isempty(strmatch(dozip,{'zlib','gzip','lzma','lzip'})))
+    if(isempty(strmatch(dozip,{'zlib','gzip','lzma','lzip','lz4','lz4hc'})))
         error('compression method "%s" is not supported',dozip);
     end
     if(exist('zmat','file')~=2 && exist('zmat','file')~=3)