From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 20:52:35 +0000 Subject: 20060303-partial --- module/inflate.m | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 module/inflate.m (limited to 'module/inflate.m') diff --git a/module/inflate.m b/module/inflate.m new file mode 100644 index 00000000..c547ec16 --- /dev/null +++ b/module/inflate.m @@ -0,0 +1,25 @@ +Inflate: module +{ + PATH: con "/dis/lib/inflate.dis"; + + InflateBlock: con 16r8000; + InflateMask: con 16rf0000; + + InflateEmptyIn, + InflateFlushOut, + InflateAck, + InflateDone, + InflateError: con iota + (1 << 16) + 1; + + # conduit for data streaming between inflate and its producer/consumer + InflateIO: adt + { + ibuf: array of byte; # input buffer [InflateBlock] + obuf: array of byte; # output buffer [InflateBlock] + c: chan of int; # for inflate <-> server comm. + }; + + init: fn(); + reset: fn(): ref InflateIO; + inflate: fn(); +}; -- cgit v1.2.3