suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ffi: dont specify version for libwand. try libmagickwand as well

Browse Source 
svn: r15400
This commit is contained in:
Jon Rafkind 2009-07-07 18:15:43 +00:00
parent d3b7827478
commit 6af1ab8050
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/ffi/magick.ss
View File

@ -2,7 +2,20 @@
(require mzlib/foreign) (unsafe!)
(define libwand (ffi-lib "libWand" "6.0.1"))
(define (ffi-try-libs . libs)
(let loop ([libs* libs]
[exceptions '()])
(if (null? libs*)
(error 'ffi-try-libs "Could not load any of the libraries in ~a\n~a\n" libs exceptions)
(let ([lib (car libs*)])
(with-handlers ([exn:fail:filesystem? (lambda (e)
(loop (cdr libs*) (cons e exceptions)))])
(ffi-lib lib))))))
;; Warning! This interface was written for libWand 6.0.1
;; No guarantees are made about future compatibility
;; (define libwand (ffi-lib "libWand" "6.0.1"))
(define libwand (ffi-try-libs "libWand" "libMagickWand"))
;; ===== Main Objects =========================================================