compress: add a new `compress.zlib` module (#12646)

vlib/compress/zlib/zlib.v

@@ -0,0 +1,56 @@
+module zlib
+
+#flag -I @VEXEROOT/thirdparty/zip
+#include "miniz.h"
+
+pub const max_size = u64(1 << 31)
+
+fn C.tdefl_compress_mem_to_heap(source_buf voidptr, source_buf_len usize, out_len &usize, flags int) voidptr
+fn C.tinfl_decompress_mem_to_heap(source_buf voidptr, source_buf_len usize, out_len &usize, flags int) voidptr
+
+[manualfree]
+pub fn compress(data []byte) ?[]byte {
+	if u64(data.len) > zlib.max_size {
+		return error('data too large ($data.len > $zlib.max_size)')
+	}
+	mut out_len := usize(0)
+
+	// flags = TDEFL_WRITE_ZLIB_HEADER (0x01000)
+	address := C.tdefl_compress_mem_to_heap(data.data, data.len, &out_len, 0x01000)
+	if address == 0 {
+		return error('compression failed')
+	}
+	if u64(out_len) > zlib.max_size {
+		return error('compressed data is too large ($out_len > $zlib.max_size)')
+	}
+	compressed := unsafe {
+		address.vbytes(int(out_len))
+	}
+	copy := compressed.clone()
+	unsafe {
+		free(address)
+	}
+	return copy
+}
+
+[manualfree]
+pub fn decompress(data []byte) ?[]byte {
+	mut out_len := usize(0)
+
+	// flags = TINFL_FLAG_PARSE_ZLIB_HEADER (0x1)
+	address := C.tinfl_decompress_mem_to_heap(data.data, data.len, &out_len, 0x1)
+	if address == 0 {
+		return error('decompression failed')
+	}
+	if u64(out_len) > zlib.max_size {
+		return error('decompressed data is too large ($out_len > $zlib.max_size)')
+	}
+	decompressed := unsafe {
+		address.vbytes(int(out_len))
+	}
+	copy := decompressed.clone()
+	unsafe {
+		free(address)
+	}
+	return copy
+}

vlib/compress/zlib/zlib_test.v

@@ -0,0 +1,8 @@
+module zlib
+
+fn test_zlib() ? {
+	uncompressed := 'Hello world!'
+	compressed := compress(uncompressed.bytes()) ?
+	decompressed := decompress(compressed) ?
+	assert decompressed == uncompressed.bytes()
+}