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

support libpng16

Browse Source
This commit is contained in:
Matthew Flatt 2013-05-15 20:28:05 -06:00
parent a3d4305dda
commit 5629a6156a
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,11 +10,15 @@
[(unix) [(unix)
;; Most Linux distros supply "libpng12", while other Unix ;; Most Linux distros supply "libpng12", while other Unix
;; variants often have just "libpng", etc. ;; variants often have just "libpng", etc.
(ffi-lib "libpng15" '("15" "") (let loop ([alts '(("libpng16" ("16" ""))
#:fail (lambda () ("libpng15" ("15" ""))
(ffi-lib "libpng12" '("0" "") ("libpng12" ("0" ""))
#:fail (lambda () ("libpng"))])
(ffi-lib "libpng")))))] (cond
[(null? alts) #f]
[else (apply ffi-lib (car alts)
#:fail (lambda ()
(loop (cdr alts))))]))]
[(macosx) (ffi-lib "libpng15.15.dylib")] [(macosx) (ffi-lib "libpng15.15.dylib")]
[(windows) [(windows)
(ffi-lib "zlib1.dll") (ffi-lib "zlib1.dll")
@ -29,9 +33,12 @@
;; assume that other versions are also ok ;; assume that other versions are also ok
(define PNG_LIBPNG_VER_STRING (string->bytes/latin-1 (define PNG_LIBPNG_VER_STRING (string->bytes/latin-1
(let ([v (png_access_version_number)]) (let ([v (png_access_version_number)])
(format "~s.~s" (format "~s.~s~a"
(quotient v 10000) (quotient v 10000)
(quotient (remainder v 10000) 100))))) (quotient (remainder v 10000) 100)
(if (zero? (remainder v 100))
""
(format ".~a" (remainder v 100)))))))
(define _png_structp (_cpointer 'png_structp)) (define _png_structp (_cpointer 'png_structp))
(define _png_infop (_cpointer 'png_infop)) (define _png_infop (_cpointer 'png_infop))