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

win32: fixes for create executable

Browse Source
This commit is contained in:
Matthew Flatt 2010-10-22 19:26:24 -06:00
parent 75a6bfe119
commit 60897722c4
2 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/racket/draw/cairo.rkt
View File

@ -13,12 +13,12 @@
(ffi-lib "libpng14.14.dylib") (ffi-lib "libpng14.14.dylib")
(ffi-lib "libcairo.2.dylib")] (ffi-lib "libcairo.2.dylib")]
[(windows) [(windows)
(ffi-lib "zlib1") (ffi-lib "zlib1.dll")
(ffi-lib "libpng14-14") (ffi-lib "libpng14-14.dll")
(ffi-lib "libexpat-1") (ffi-lib "libexpat-1.dll")
(ffi-lib "freetype6") (ffi-lib "freetype6.dll")
(ffi-lib "libfontconfig-1") (ffi-lib "libfontconfig-1.dll")
(ffi-lib "libcairo-2")]) (ffi-lib "libcairo-2.dll")])
(define-ffi-definer define-cairo cairo-lib (define-ffi-definer define-cairo cairo-lib
#:provide provide-protected) #:provide provide-protected)

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

@ -17,33 +17,38 @@
(ffi-lib "libintl.8.dylib") (ffi-lib "libintl.8.dylib")
(ffi-lib "libpango-1.0.0.dylib")] (ffi-lib "libpango-1.0.0.dylib")]
[(windows) [(windows)
(ffi-lib "libglib-2.0-0") (ffi-lib "libglib-2.0-0.dll")
(ffi-lib "libgmodule-2.0-0") (ffi-lib "libgmodule-2.0-0.dll")
(ffi-lib "libgobject-2.0-0") (ffi-lib "libgobject-2.0-0.dll")
(ffi-lib "libpango-1.0-0")]) (ffi-lib "libpango-1.0-0.dll")])
(define-runtime-lib pangowin32-lib (define-runtime-lib pangowin32-lib
[(unix) #f] [(unix) #f]
[(macosx)] [(macosx)]
[(windows) [(windows)
(ffi-lib "libpangowin32-1.0-0")]) (ffi-lib "libpangowin32-1.0-0.dll")])
(define-runtime-lib pangocairo-lib (define-runtime-lib pangocairo-lib
[(unix) (ffi-lib "libpangocairo-1.0" '("0"))] [(unix) (ffi-lib "libpangocairo-1.0" '("0"))]
[(macosx) [(macosx)
(ffi-lib "libpangocairo-1.0.0.dylib")] (ffi-lib "libpangocairo-1.0.0.dylib")]
[(windows) [(windows)
(ffi-lib "libpangowin32-1.0-0") (ffi-lib "libpangowin32-1.0-0.dll")
(ffi-lib "libexpat-1") (ffi-lib "libexpat-1.dll")
(ffi-lib "freetype6") (ffi-lib "freetype6.dll")
(ffi-lib "libfontconfig-1") (ffi-lib "libfontconfig-1.dll")
(ffi-lib "libpangoft2-1.0-0") (ffi-lib "libpangoft2-1.0-0.dll")
(ffi-lib "libpangocairo-1.0-0")]) (ffi-lib "libpangocairo-1.0-0.dll")])
(define-runtime-lib glib-lib (define-runtime-lib glib-lib
[(unix) (ffi-lib "libglib-2.0" '("0"))]
[(macosx) (ffi-lib "libglib-2.0.0")]
[(windows) (ffi-lib "libglib-2.0-0.dll")])
(define-runtime-lib gobj-lib
[(unix) (ffi-lib "libgobject-2.0" '("0"))] [(unix) (ffi-lib "libgobject-2.0" '("0"))]
[(macosx) (ffi-lib "libgobject-2.0.0")] [(macosx) (ffi-lib "libgobject-2.0.0")]
[(windows) (ffi-lib "libgobject-2.0-0")]) [(windows) (ffi-lib "libgobject-2.0-0.dll")])
(define-ffi-definer define-pango pango-lib (define-ffi-definer define-pango pango-lib
#:provide provide) #:provide provide)
@ -53,6 +58,8 @@
#:provide provide) #:provide provide)
(define-ffi-definer define-glib glib-lib (define-ffi-definer define-glib glib-lib
#:provide provide) #:provide provide)
(define-ffi-definer define-gobj gobj-lib
#:provide provide)
(define PangoContext (_cpointer 'PangoContext)) (define PangoContext (_cpointer 'PangoContext))
(define PangoLayout (_cpointer 'PangoLayout)) (define PangoLayout (_cpointer 'PangoLayout))
@ -117,7 +124,7 @@
(provide (struct-out PangoGlyphItem)) (provide (struct-out PangoGlyphItem))
(define-glib g_object_unref (_fun _pointer -> _void) (define-gobj g_object_unref (_fun _pointer -> _void)
#:wrap (deallocator)) #:wrap (deallocator))
(define-glib g_free (_fun _pointer -> _void) (define-glib g_free (_fun _pointer -> _void)
#:wrap (deallocator)) #:wrap (deallocator))