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

fix unstable/socket loading in windows

Browse Source 
closes PR 13743
This commit is contained in:
Ryan Culpepper 2013-05-09 12:09:42 -04:00
parent 1c3cbce0af
commit 26545f29b9
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/unstable/socket.rkt
View File

@ -49,13 +49,14 @@ macosx (64):
(_fun #:save-errno 'posix
_int _int _int -> _int))
(define-libc connect
(case platform
((linux86)
(_fun #:save-errno 'posix
_int _linux_sockaddr_un-pointer _int -> _int))
((macosx)
(_fun #:save-errno 'posix
_int _macosx_sockaddr_un-pointer _int -> _int))))
(_fun #:save-errno 'posix
_int
(case platform
((linux86) _linux_sockaddr_un-pointer)
((macosx) _macosx_sockaddr_un-pointer)
(else _pointer)) ;; dummy type to avoid error
_int
-> _int))
(define-libc close
(_fun #:save-errno 'posix
_int -> _int))
@ -68,7 +69,8 @@ macosx (64):
((linux86)
(make-linux_sockaddr_un AF_UNIX path))
((macosx)
(make-macosx_sockaddr_un (bytes-length path) AF_UNIX path))))
(make-macosx_sockaddr_un (bytes-length path) AF_UNIX path))
(else (error 'make-sockaddr "not available"))))
(define strerror_r
(get-ffi-obj (case platform