generic-library/libzmq
1
0
Fork 0
mirror of https://github.com/zeromq/libzmq.git synced 2025-03-31 16:04:23 +02:00
Code Issues Projects Releases Wiki Activity

timeout parameter for zmq_poll added in cl binding

Browse Source
This commit is contained in:
Martin Sustrik 2010-01-13 13:35:13 +01:00
parent 20a8edcf5c
commit 30a107e06d
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
bindings/cl/zeromq-api.lisp
View File

@ -146,7 +146,7 @@ The string must be freed with FOREIGN-STRING-FREE."
(setf (mem-aref int :long 0) value)
(%setsockopt socket option int (foreign-type-size :long))))))
(defun poll (items)
(defun poll (items &optional (timeout -1))
(let ((len (length items)))
(with-foreign-object (%items 'pollitem len)
(dotimes (i len)
@ -156,14 +156,16 @@ The string must be freed with FOREIGN-STRING-FREE."
(setf socket (pollitem-socket item)
fd (pollitem-fd item)
events (pollitem-events item)))))
(let ((ret (%poll %items len)))
(if (> ret 0)
(let ((ret (%poll %items len timeout)))
(cond
((zerop ret) nil)
((> ret 0)
(loop for i below len
for revent = (foreign-slot-value (mem-aref %items 'pollitem i)
'pollitem
'revents)
collect (setf (pollitem-revents (nth i items)) revent))
(error (convert-from-foreign (%strerror *errno*) :string)))))))
collect (setf (pollitem-revents (nth i items)) revent)))
(t (error (convert-from-foreign (%strerror *errno*) :string))))))))
(defmacro with-polls (list &body body)
`(let ,(loop for (name . polls) in list

3
bindings/cl/zeromq.lisp
View File

@ -231,7 +231,8 @@
(defcfun ("zmq_poll" %poll) :int
(items :pointer)
(nitems :int))
(nitems :int)
(timeout :long))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Helper functions.