1.1--- a/lisp/ffi/magick/pkg.lisp Sun Jun 02 22:34:29 2024 -0400
1.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
1.3@@ -1,64 +0,0 @@
1.4-;;; magick.lisp --- low-level bindings to CMAGICK
1.5-
1.6-;;; Commentary:
1.7-
1.8-;;; Code:
1.9-(defpackage :magick/pkg
1.10- (:nicknames :magick)
1.11- (:use :cl :std :sb-alien)
1.12- (:export ))
1.13-
1.14-(in-package :magick)
1.15-
1.16-(define-alien-loader "magick" t)
1.17-
1.18-(define-alien-routine magick-version c-string)
1.19-
1.20-(define-alien-type magick-chunk-state
1.21- (struct magick-chunk-state
1.22- (key (array unsigned-int 8))
1.23- (chunk-counter unsigned-long)
1.24- (buf (array (unsigned 8) 64))
1.25- (buf-len (unsigned 8))
1.26- (blocks-compressed (unsigned 8))
1.27- (flags (unsigned 8))))
1.28-
1.29-(define-alien-type magick-hasher
1.30- (struct magick-hasher
1.31- (key (array unsigned-int 8))
1.32- (chunk magick-chunk-state)
1.33- (cv-stack-len (unsigned 8))
1.34- (cv-stack (array (unsigned 8) 1760))))
1.35-
1.36-(define-alien-routine magick-hasher-init void (self (* magick-hasher)))
1.37-
1.38-(define-alien-routine magick-hasher-init-keyed void
1.39- (self (* magick-hasher))
1.40- (key (array (unsigned 8) 32)))
1.41-
1.42-(define-alien-routine magick-hasher-init-derive-key void
1.43- (self (* magick-hasher))
1.44- (context (* char)))
1.45-
1.46-(define-alien-routine magick-hasher-init-derive-key-raw void
1.47- (self (* magick-hasher))
1.48- (context (* t))
1.49- (context-len size-t))
1.50-
1.51-(define-alien-routine magick-hasher-update void
1.52- (self (* magick-hasher))
1.53- (input (* t))
1.54- (input-len size-t))
1.55-
1.56-(define-alien-routine magick-hasher-finalize void
1.57- (self (* magick-hasher))
1.58- (out (* (unsigned 8)))
1.59- (out-len size-t))
1.60-
1.61-(define-alien-routine magick-hasher-finalize-seek void
1.62- (self (* magick-hasher))
1.63- (seek (unsigned 64))
1.64- (out (* (unsigned 8)))
1.65- (out-len size-t))
1.66-
1.67-(define-alien-routine magick-hasher-reset void (self (* magick-hasher)))
