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

add ffi/winapi; use it in mzlib/os

Browse Source 
Closes PR 12007

original commit: 59731368fc7d90c1177c60ade3ec1f8c4fb0a4ae
This commit is contained in:
Matthew Flatt 2011-07-01 10:34:43 -06:00
parent f1b2ecf4aa
commit 371f2ca494
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wx/win32/types.rkt
View File

@ -1,5 +1,6 @@
#lang racket/base #lang racket/base
(require ffi/unsafe) (require ffi/unsafe
ffi/winapi)
(provide (provide
(protect-out _wfun (protect-out _wfun
@ -50,11 +51,8 @@
MAKELONG MAKELONG
MAKELPARAM)) MAKELPARAM))
(define win64? (equal? "win32\\x86_64" (path->string (system-library-subpath #f))))
(define win_abi (if win64? #f 'stdcall))
(define-syntax-rule (_wfun . a) (define-syntax-rule (_wfun . a)
(_fun #:abi win_abi . a)) (_fun #:abi winapi . a))
(define _WORD _int16) (define _WORD _int16)
(define _DWORD _int32) (define _DWORD _int32)