Sophie

Sophie

distrib > * > cooker > x86_64 > by-pkgid > 25cc94cbc7a773d7a95087917a2e09e0 > files > 16

ecl-doc-11.1.1-2.x86_64.rpm

#|
Build this module with (compile-file "uffi.lsp")
Load it with (load "uffi.fas")
|#
;;
;; This toplevel statement notifies the compiler that we will
;; need this shared library at runtime. We do not need this
;; statement in windows.
;;
#-windows
(uffi:load-foreign-library #+darwin "/usr/lib/libm.dylib"
			   #-darwin "/usr/lib/libm.so")
;;
;; With this other statement, we import the C function sin(),
;; which operates on IEEE doubles.
;;
(uffi:def-function ("sin" c-sin) ((arg :double))
                   :returning :double)
;;
;; We now use this function and compare with the lisp version.
;;
(format t "~%Lisp sin:~t~d~%C sin:~t~d~%Difference:~t~d"
	(sin 1.0d0) (c-sin 1.0d0) (- (sin 1.0d0) (c-sin 1.0d0)))