Thanks you for help. That made a trick. I managed to create a small server that responds well with cffi and libevent now.
-Marko
Stephen Compall kirjoitti 17.6.2008 kello 20.07:
Marko Tapio Manninen mmstud@gmail.com writes:
Thank you for comments. I have advanced with this (actually almost ready compared to my starting point), but still im getting an error, when server is running and i am trying to get response from it.
Note the return type here:
(defcfun ("evhttp_send_reply" %evhttp-send-reply) :void (req evhttp-request) (flag :int) (msg :string) (buf evbuffer))
;;; unwind-protect to create evbuffer-new???
(defcallback generic-handler :pointer ((req :pointer) (arg :pointer)) (let ((buf (%evbuffer-new))) (if (null buf) (format t "Failed to create response buffer") (progn (%evbuffer-add-printf buf "Requested: %sn" (%evhttp-request-uri req)) (%evhttp-send-reply req HTTP_OK "OK" buf)))))
what you answer above from this callback, and what you declared the return type of the callback to be.
-- But you know how reluctant paranormal phenomena are to reveal themselves when skeptics are present. --Robert Sheaffer, SkI 9/2003