| changeset 438: | b719ae57647d |
| child: | c6caddf91c72 |
| author: | Richard Westhaver <ellis@rwest.io> |
| date: | Tue, 11 Jun 2024 22:44:32 -0400 |
| permissions: | -rw-r--r-- |
| description: | zstd refactoring |
| 438 | 1 | ;;; simple.lisp --- Zstd Simple API |
| 2 | ||
| 3 | ;; |
|
| 4 | ||
| 5 | ;;; Code: |
|
| 6 | (in-package :zstd) |
|
| 7 | ||
| 8 | (define-alien-routine "ZSTD_compress" size-t |
|
| 9 | (dst (* t)) |
|
| 10 | (dst-capacity size-t) |
|
| 11 | (src (* t)) |
|
| 12 | (src-size size-t) |
|
| 13 | (compression int)) |
|
| 14 | ||
| 15 | (define-alien-routine "ZSTD_decompress" size-t |
|
| 16 | (dst (* t)) (dst-capacity size-t) |
|
| 17 | (src (* t)) (compressed-size size-t)) |