txt: ## dist_github-retupmoca-Compress-Zlib-Raw.md
  # Compress::Zlib::Raw
  
  [![Build Status](https://travis-ci.org/retupmoca/P6-Compress-Zlib-Raw.svg?branch=master)](https://travis-ci.org/retupmoca/P6-Compress-Zlib-Raw) [![Build status](https://ci.appveyor.com/api/projects/status/github/retupmoca/P6-Compress-Zlib-Raw?svg=true)](https://ci.appveyor.com/project/retupmoca/P6-Compress-Zlib-Raw/branch/master)
  
  Low-level interface to zlib.
  
  Note: This will probably only work on 64bit \*nix, due to hardcoded library name
  and `sizeof` numbers.
  
  ##Example
  
  ```
  use v6;
  
  use Compress::Zlib::Raw;
  use NativeCall;
  
  my $to-compress = "test".encode;
  
  my $return-buf-len = CArray[long].new;
  $return-buf-len[0] = 128;
  
  my $return-buf = buf8.new;
  $return-buf[127] = 0;
  
  my $result = compress($return-buf, $return-buf-len, $to-compress, 4);
  die if $result != Compress::Zlib::Raw::Z_OK;
  
  my $orig-buf = buf8.new;
  $orig-buf[127] = 1;
  
  my $orig-size = CArray[long].new;
  $orig-size[0] = 128;
  
  $result = uncompress($orig-buf, $orig-size, $return-buf, $return-buf-len[0]);
  die if  $result != Compress::Zlib::Raw::Z_OK;
  
  ```
  
  ## Author
  
  Andrew Egeler, retupmoca on #perl6, <https://github.com/retupmoca/>
  
  ## License
  
  MIT License
  