1.1--- a/lisp/ffi/zstd/pkg.lisp Sat Jun 01 15:44:55 2024 -0400
1.2+++ b/lisp/ffi/zstd/pkg.lisp Sat Jun 01 17:36:57 2024 -0400
1.3@@ -87,15 +87,10 @@
1.4 (src (* t)) (src-size size-t))
1.5
1.6 ;;; Streaming API
1.7-(define-alien-type zstd-inbuffer (struct zstd-inbuffer-s
1.8- (src (* t))
1.9- (size size-t)
1.10- (pos size-t)))
1.11+(define-alien-type zstd-inbuffer (struct zstd-inbuffer-s))
1.12
1.13-(define-alien-type zstd-outbuffer (struct zstd-outbuffer-s
1.14- (dst (* t))
1.15- (size size-t)
1.16- (pos size-t)))
1.17+
1.18+(define-alien-type zstd-outbuffer (struct zstd-outbuffer-s))
1.19
1.20 (define-alien-type zstd-cstream zstd-cctx)
1.21
1.22@@ -103,6 +98,10 @@
1.23 (define-alien-routine "ZSTD_freeCStream" void (zcs (* zstd-cstream)))
1.24
1.25 (define-alien-type zstd-enddirective int)
1.26+;; (enum nil
1.27+;; (zstd-e-continue 0)
1.28+;; (zstd-e-flush 1)
1.29+;; (zstd-e-end 2))
1.30
1.31 (define-alien-routine "ZSTD_compressStream2" size-t
1.32 (cctx (* zstd-cctx))
1.33@@ -112,6 +111,11 @@
1.34
1.35 (define-alien-routine "ZSTD_CStreamInSize" size-t)
1.36 (define-alien-routine "ZSTD_CStreamOutSize" size-t)
1.37+(define-alien-routine "ZSTD_initCStream" size-t (zcs (* zstd-cstream)) (compression-level int))
1.38+
1.39+(define-alien-routine "ZSTD_compressStream" size-t (zcs (* zstd-cstream)) (output (* zstd-outbuffer)) (input (* zstd-inbuffer)))
1.40+(define-alien-routine "ZSTD_flushStream" size-t (zcs (* zstd-cstream)) (output (* zstd-outbuffer)))
1.41+(define-alien-routine "ZSTD_endStream" size-t (zcs (* zstd-cstream)) (output (* zstd-outbuffer)))
1.42
1.43 (define-alien-type zstd-dstream zstd-dctx)
1.44