function varargout = gzipencode(varargin)

if (nargin == 0)

error('you must provide at least 1 input');

inputinfo = struct('type', class(varargin{1}), 'size', size(varargin{1}), 'method', 'gzip', 'status', 0);

if (usejava('jvm'))

try

input = varargin{1}(:)';

if (ischar(input))

input = uint8(input);

elseif (isa(input, 'string'))

input = uint8(char(input));

else

input = typecast(input, 'uint8');

end

if (isoctavemesh)

% Octave with Java: write bytes one at a time

baos = javaObject('java.io.ByteArrayOutputStream');

gzos = javaObject('java.util.zip.GZIPOutputStream', baos);

for i = 1:numel(input)

gzos.write(int32(input(i)));

end

gzos.finish();

gzos.close();

varargout{1} = typecast(baos.toByteArray(), 'uint8')';

else

% MATLAB with Java: direct array write

buffer = java.io.ByteArrayOutputStream();

gzip = java.util.zip.GZIPOutputStream(buffer);

gzip.write(input, 0, numel(input));

gzip.close();

varargout{1} = typecast(buffer.toByteArray(), 'uint8')';

end

varargout{1} = normalize_gzip_os(varargout{1});

if (nargout > 1)

varargout{2} = inputinfo;

end

return

catch

% JVM-based gzip failed; fall through to zmat/octavezmat

end

nozmat = getvarfrom({'caller', 'base'}, 'NO_ZMAT');

if ((exist('zmat', 'file') == 2 || exist('zmat', 'file') == 3) && (isempty(nozmat) || nozmat == 0))

try

[varargout{1:nargout}] = zmat(varargin{1}, 1, 'gzip');

varargout{1} = normalize_gzip_os(varargout{1});

return

catch

% zmat is on path but its zipmat MEX is missing or failed;

% fall through to the pure-MATLAB/Octave fallback

end

[varargout{1:nargout}] = octavezmat(varargin{1}, 1, 'gzip');

varargout{1} = normalize_gzip_os(varargout{1});

function out = normalize_gzip_os(out)

if (numel(out) >= 10)

out(10) = uint8(3);