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

racket/draw: use libpng15.so.15 when available

Browse Source 
E.g., Mageia 2 has libpng15, not libpng12
This commit is contained in:
Matthew Flatt 2012-05-01 16:25:03 -06:00 committed by Matthew Flatt
parent 54a6ba8d36
commit 466ffadb12
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/racket/draw/unsafe/png.rkt
View File

@ -10,9 +10,11 @@
[(unix) [(unix)
;; Most Linux distros supply "libpng12", while other Unix ;; Most Linux distros supply "libpng12", while other Unix
;; variants often have just "libpng": ;; variants often have just "libpng":
(with-handlers ([exn:fail:filesystem? (ffi-lib "libpng12" '("0" "")
(lambda (exn) (ffi-lib "libpng"))]) #:fail (lambda ()
(ffi-lib "libpng12" '("0" "")))] (ffi-lib "libpng15" '("15" "")
#:fail (lambda ()
(ffi-lib "libpng")))))]
[(macosx) (ffi-lib "libpng15.15.dylib")] [(macosx) (ffi-lib "libpng15.15.dylib")]
[(windows) [(windows)
(ffi-lib "zlib1.dll") (ffi-lib "zlib1.dll")