Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed small bug in nn-recv |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1e3d1ba295b25672a783286923bb9603 |
| User & Date: | ovenpasta@pizzahack.eu 2016-08-17 10:43:56 |
Context
|
2016-08-17
| ||
| 11:49 | added nanomsg repl example check-in: 4228556d4b user: ovenpasta@pizzahack.eu tags: trunk | |
| 10:43 | fixed small bug in nn-recv check-in: 1e3d1ba295 user: ovenpasta@pizzahack.eu tags: trunk | |
| 08:49 | README.md updated a little bit check-in: 2306046923 user: ovenpasta@pizzahack.eu tags: trunk | |
Changes
Changes to nanomsg.sls.
351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 |
(define b #f)
(define r #f)
(dynamic-wind
(lambda ()
(set! b (make-ftype-pointer void* (foreign-alloc (ftype-sizeof void*))))
(set! r (nn-recv% s (ftype-pointer-address b) len flags)))
(lambda ()
(if (> r 0)
(let ([c (make-ftype-pointer char (ftype-ref void* () b))])
(set-box! buf (char*->bytevector c r)))
(set-box! buf #f)))
(lambda ()
(if (> r 0)
(nn-freemsg (ftype-ref void* () b)))
(if b (foreign-free (ftype-pointer-address b)))))
r)
(define-nn-func int nn-sendmsg ((s int) (msghdr (* nn-msghdr)) (flags int))
"nn_sendmsg")
|
| | |
351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 |
(define b #f)
(define r #f)
(dynamic-wind
(lambda ()
(set! b (make-ftype-pointer void* (foreign-alloc (ftype-sizeof void*))))
(set! r (nn-recv% s (ftype-pointer-address b) len flags)))
(lambda ()
(if (and r (> r 0))
(let ([c (make-ftype-pointer char (ftype-ref void* () b))])
(set-box! buf (char*->bytevector c r)))
(set-box! buf #f)))
(lambda ()
(if (and r (> r 0))
(nn-freemsg (ftype-ref void* () b)))
(if b (foreign-free (ftype-pointer-address b)))))
r)
(define-nn-func int nn-sendmsg ((s int) (msghdr (* nn-msghdr)) (flags int))
"nn_sendmsg")
|