* implemented very simple interface to zlib

library.dylan

@@ -0,0 +1,13 @@
+module: dylan-user
+
+define library zlib
+  use common-dylan;
+  use c-ffi;
+  export zlib;
+end library;
+
+define module zlib
+  use common-dylan;
+  use c-ffi;
+  export compress;
+end module;

main.dylan

@@ -0,0 +1,32 @@
+module: zlib
+
+define C-function zlib-compress
+  parameter destination :: <C-string>;
+  parameter destination-length :: <C-int*>;
+  parameter source :: <C-string>;
+  parameter source-length :: <C-int>;
+  result return-code :: <C-int>;
+  c-name: "compress"
+end;
+
+define C-function zlib-compress-bound
+  parameter source-length :: <C-int>;
+  result return-code :: <C-int>;
+  c-name: "compressBound"
+end;
+
+define function compress (string :: <string>)
+ => (compressed-string :: <string>);
+  let destination-length :: <C-int*> = make(<C-int*>);
+  destination-length.pointer-value := zlib-compress-bound(size(string));
+  let result = make(<C-string>, size: destination-length.pointer-value, fill: ' ');
+  if (zlib-compress(result, destination-length, string, size(string)) ~= 0)
+    error("zlib compress failed.");
+  else
+    result;
+  end if;
+end;
+/*
+define variable foobar = "foobar";
+format-out("%= => %=\n", foobar, compress(foobar));
+*/

zlib.lid

@@ -0,0 +1,5 @@
+library: zlib
+executable: zlib
+c-libraries: -lz 
+files: library
+  main