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

access foreign libs more consistently under Unix

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-07 12:32:26 -06:00
parent e97cf6815b
commit 42610ccecb
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wx/gtk/utils.rkt
View File

@ -56,26 +56,36 @@
(case (system-type)
[(windows)
(ffi-lib "libgobject-2.0-0")]
[(unix)
(ffi-lib "libgobject-2.0" '("0"))]
[else gdk-lib]))
(define glib-lib
(case (system-type)
[(windows)
(ffi-lib "libglib-2.0-0")]
[(unix)
(ffi-lib "libglib-2.0" '("0"))]
[else gdk-lib]))
(define gio-lib
(case (system-type)
[(windows)
(ffi-lib "libgio-2.0-0")]
[(unix)
(ffi-lib "libgio-2.0" '("0"))]
[else gdk-lib]))
(define gmodule-lib
(case (system-type)
[(windows)
(ffi-lib "libgmodule-2.0-0")]
[(unix)
(ffi-lib "libgmodule-2.0" '("0"))]
[else gdk-lib]))
(define gdk_pixbuf-lib
(case (system-type)
[(windows)
(ffi-lib "libgdk_pixbuf-2.0-0")]
[(unix)
(ffi-lib "libgdk_pixbuf-2.0" '("0"))]
[else gdk-lib]))
(define gtk-lib
(case (system-type)

1
collects/racket/draw/pango.rkt
View File

@ -35,6 +35,7 @@
(define glib-lib
(case (system-type)
[(macosx) (ffi-lib "libgobject-2.0.0")]
[(unix) (ffi-lib "libgobject-2.0" '("0"))]
[else #f]))
(define-ffi-definer define-pango pango-lib