You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
819 B
35 lines
819 B
|
|
(in-package #:cl-rng-ffi)
|
|
|
|
(define-foreign-library libsrng
|
|
(:unix (:or "libsrng.so" "libsrng" "./libsrng.so" "/usr/lib/libsrng.so" "/usr/local/lib/libsrng.so"))
|
|
(t (:default "libsrng")))
|
|
|
|
(use-foreign-library libsrng)
|
|
|
|
(defcfun "sample" :int (to :pointer))
|
|
(defcfun "bytes" :int
|
|
(to :pointer)
|
|
(size :int))
|
|
|
|
(defun ffi-sample ()
|
|
(with-foreign-pointer (value 8)
|
|
(let ((rval (sample value)))
|
|
(values
|
|
(mem-ref value :double 0)
|
|
(= rval 1)))))
|
|
|
|
(defun ffi-bytes (size)
|
|
(with-foreign-pointer (value size)
|
|
(let ((rval (bytes value size))
|
|
(output (make-array size)))
|
|
(and (= rval 1)
|
|
(loop for x from 0 below size
|
|
do (setf (aref output x) (mem-aref value :unsigned-char x))))
|
|
(values
|
|
output
|
|
(= rval 1)))))
|
|
|
|
(export 'ffi-sample)
|
|
(export 'ffi-bytes)
|