Na}{

File Content: `zlib.sl`

% -*- mode: slang; mode: fold -*-
% Copyright (C) 2012-2017,2018 John E. Davis
%
% This file is part of the S-Lang Library and may be distributed under the
% terms of the GNU General Public License.  See the file COPYING for
% more information.
%---------------------------------------------------------------------------
import ("zlib");

%{{{ Deflate Object and methods
private define deflate_method ()
{
   if (_NARGS != 2)
     {
	_pop_n (_NARGS);
	usage (".deflate(str [;flush=val])");
     }
   variable z, b;
   (z, b) = ();
   return _zlib_deflate (z.zobj, b, qualifier("flush", ZLIB_NO_FLUSH));
}

private define def_reset_method (z)
{
   _zlib_deflate_reset (z.zobj);
}

private define def_flush_method ()
{
   variable z, flush = ZLIB_FINISH;
   switch (_NARGS)
     {
      case 2:
	(z, flush) = ();
     }
     {
      case 1:
	z = ();
     }
     {
	_pop_n (_NARGS);
	usage (".flush ([val]);  Default is ZLIB_FINISH");
     }

   return _zlib_deflate_flush (z.zobj, flush);
}

private variable Deflate_Object = struct
{
   zobj,
   deflate = &deflate_method,
   reset = &def_reset_method,
   flush = &def_flush_method,
};

define zlib_deflate_new ()
{
   variable z = @Deflate_Object;
   z.zobj = _zlib_deflate_new (qualifier ("level", ZLIB_DEFAULT_COMPRESSION),
			       qualifier ("method", ZLIB_DEFLATED),
			       qualifier ("wbits", 15),
			       qualifier ("memlevel", 8),
			       qualifier ("strategy", ZLIB_DEFAULT_STRATEGY));
   return z;
}

%}}}

%{{{ Inflate Object and methods

private define inflate_method ()
{
   if (_NARGS != 2)
     {
	_pop_n (_NARGS);
	usage (".inflate(str [;flush=val])");
     }
   variable z, b;
   (z, b) = ();
   return _zlib_inflate (z.zobj, b, qualifier("flush", ZLIB_NO_FLUSH));
}

private define inf_reset_method (z)
{
   _zlib_inflate_reset (z.zobj);
}

private define inf_flush_method ()
{
   variable z, flush = ZLIB_FINISH;
   switch (_NARGS)
     {
      case 2:
	(z, flush) = ();
     }
     {
      case 1:
	z = ();
     }
     {
	_pop_n (_NARGS);
	usage (".flush ([val]);  Default is ZLIB_FINISH");
     }

   return _zlib_inflate_flush (z.zobj, flush);
}

private variable Inflate_Object = struct
{
   zobj,
   inflate = &inflate_method,
   reset = &inf_reset_method,
   flush = &inf_flush_method,
};

define zlib_inflate_new ()
{
   variable z = @Inflate_Object;
   z.zobj = _zlib_inflate_new (qualifier ("wbits", 15));
   return z;
}

%}}}

define zlib_deflate ()
{
   if (_NARGS != 1)
     {
	usage ("zstr = zlib_deflate (str [;qualifiers])\n"
	       + " qualifiers:\n"
	       + "  level=val, method=val, wbits=val, memlevel=val, strategy=val");
     }
   variable bstr = ();
   variable z = zlib_deflate_new (;; __qualifiers);

   return _zlib_deflate (z.zobj, bstr, ZLIB_FINISH);
}

define zlib_inflate ()
{
   if (_NARGS != 1)
     {
	usage ("str = zlib_inflate (zstr [;wbits=val])");
     }

   variable zstr = ();
   variable z = zlib_inflate_new (;; __qualifiers);
   return _zlib_inflate (z.zobj, zstr, ZLIB_FINISH);
}

Name	Size	Permission
cmaps	---	0755
help	---	0755
rline	---	0755
scripts	---	0755
arrayfuns.sl	1898 bytes	0644
autoload.sl	460 bytes	0644
base64.sl	19 bytes	0644
chksum.sl	1613 bytes	0644
cmdopt.sl	7760 bytes	0644
csv.sl	16740 bytes	0644
fcntl.sl	35 bytes	0644
fork.sl	17 bytes	0644
fswalk.sl	2421 bytes	0644
glob.sl	2482 bytes	0644
histogram.sl	3053 bytes	0644
iconv.sl	35 bytes	0644
json.sl	6113 bytes	0644
listfuns.sl	3110 bytes	0644
onig.sl	17 bytes	0644
pcre.sl	1240 bytes	0644
png.sl	4116 bytes	0644
print.sl	7796 bytes	0644
process.sl	10062 bytes	0644
profile.sl	20355 bytes	0644
rand.sl	4382 bytes	0644
readascii.sl	5361 bytes	0644
require.sl	1303 bytes	0644
select.sl	37 bytes	0644
setfuns.sl	4919 bytes	0644
sldb.sl	2165 bytes	0644
sldbcore.sl	18534 bytes	0644
sldbsock.sl	7610 bytes	0644
slshhelp.sl	536 bytes	0644
slshrl.sl	9451 bytes	0644
slsmg.sl	35 bytes	0644
socket.sl	151 bytes	0644
stats.sl	15428 bytes	0644
stkcheck.sl	2679 bytes	0644
structfuns.sl	2096 bytes	0644
sysconf.sl	20 bytes	0644
termios.sl	39 bytes	0644
varray.sl	37 bytes	0644
zlib.sl	3003 bytes	0644

File Content: zlib.sl

File Content: `zlib.sl`