Example for use of Polling

[nixz]

Hi in the documentation can you give an example for how to use polling?

[Plisp]

Basically you pass a callback to event-cb that's passed a list of events you specify.

(cffi:defcfun ("read" c-read) :int
  (fd :int)
  (buf :pointer)
  (count :unsigned-int))

(as:poll 0 (lambda (event)
                 (assert (equal event '(:readable)))
                 (cffi:with-foreign-object (buf :char 50)
                   (let ((nbytes (c-read 0 buf 50)))
                     (format t "~d bytes recieved: ~A~&"
                             nbytes
                             (cffi:foreign-string-to-lisp buf)))))
             :poll-for '(:readable))