[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Hello! I'm guile newbie. getsockopt problem on OSX.
From: |
Park SungMin |
Subject: |
Hello! I'm guile newbie. getsockopt problem on OSX. |
Date: |
Thu, 12 Nov 2015 03:17:32 +0900 |
I used guile 2.0.11 on Mac OSX.
but, I find this problem..
(use-modules (system foreign)
(rnrs bytevectors))
(define sock (socket AF_INET SOCK_DGRAM 0))
(getsockopt sock SOL_SOCKET SO_SNDBUF) ;;=> 140733193397248 ???
so…I use C function directly…
;;;
(define foreign-getsockopt
(pointer->procedure int (dynamic-func "getsockopt" (dynamic-link))
(list int int int '* '*)))
(define ret-value (sint-list->bytevector '(0) (native-endianness) 4))
(define size-value (sint-list->bytevector '(4) (native-endianness) 4))
(foreign-getsockopt (port->fdes sock) SOL_SOCKET SO_SNDBUF (bytevector->pointer
ret-value)
(bytevector->pointer size-value))
(bytevector->sint-list ret-value (native-endianness) 4) ;;=> 9216. It's right!
is it bug of getsockopt??
- Hello! I'm guile newbie. getsockopt problem on OSX.,
Park SungMin <=