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

ask png library for its version

Browse Source
This commit is contained in:
Matthew Flatt 2010-10-26 16:38:54 -06:00
parent 3abecbc95d
commit ffebbfdbe0
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/racket/draw/png.rkt
View File

@ -22,10 +22,15 @@
(define-ffi-definer define-png png-lib (define-ffi-definer define-png png-lib
#:provide provide) #:provide provide)
(define PNG_LIBPNG_VER_STRING (define-png png_access_version_number (_fun -> _uint32))
(case (system-type)
[(macosx windows) #"1.4"] ;; We support version 1.2 and 1.4... and (WARNING!) we'll optimisitically
[else #"1.2"])) ;; assume that other versions are also ok
(define PNG_LIBPNG_VER_STRING (string->bytes/latin-1
(let ([v (png_access_version_number)])
(format "~s.~s"
(quotient v 10000)
(quotient (remainder v 10000) 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))