src/grovel.lisp

   1 ;; This file is part of CL-ZMQ.
   2
   3 (include "zmq.h")
   4 #+win32 (include "Winsock2.h")
   5
   6 (in-package :zmq)
   7
   8 (ctype size-t "size_t")
   9
  10 #+win32 (ctype win32-socket "SOCKET")
  11
  12 (constantenum error-codes
  13               ;; Standard error codes
  14               ((:enotsup "ENOTSUP"))
  15               ((:eprotonosupport "EPROTONOSUPPORT"))
  16               ((:enobufs "ENOBUFS"))
  17               ((:enetdown "ENETDOWN"))
  18               ((:eaddrinuse "EADDRINUSE"))
  19               ((:eaddrnotavail "EADDRNOTAVAIL"))
  20               ((:econnrefused "ECONNREFUSED"))
  21               ((:einprogress "EINPROGRESS"))
  22               ((:enotsock "ENOTSOCK"))
  23               ((:emsgsize "EMSGSIZE"))
  24               ((:eafnosupport "EAFNOSUPPORT"))
  25               ((:enetunreach "ENETUNREACH"))
  26               ((:econnaborted "ECONNABORTED"))
  27               ((:enotconn "ENOTCONN"))
  28               ((:etimedout "ETIMEDOUT"))
  29               ((:ehostunreach "EHOSTUNREACH"))
  30               ((:enetreset "ENETRESET"))
  31               ((:einval "EINVAL"))
  32               ((:enodev "ENODEV"))
  33               ((:eintr "EINTR"))
  34               ((:efault "EFAULT"))
  35               ((:enomem "ENOMEM"))
  36               ((:eagain "EAGAIN"))
  37               ((:emfile "EMFILE"))
  38               ;; ZMQ native error codes
  39               ((:efsm "EFSM"))
  40               ((:enocompatproto "ENOCOMPATPROTO"))
  41               ((:eterm "ETERM"))
  42               ((:emthread "EMTHREAD")))
  43
  44 (constantenum context-options
  45               ((:io-threads "ZMQ_IO_THREADS"))
  46               ((:max-sockets "ZMQ_MAX_SOCKETS")))
  47
  48 (constantenum socket-types
  49               ((:pair "ZMQ_PAIR"))
  50               ((:pub "ZMQ_PUB"))
  51               ((:sub "ZMQ_SUB"))
  52               ((:req "ZMQ_REQ"))
  53               ((:rep "ZMQ_REP"))
  54               ((:dealer "ZMQ_DEALER"))
  55               ((:router "ZMQ_ROUTER"))
  56               ((:pull "ZMQ_PULL"))
  57               ((:push "ZMQ_PUSH"))
  58               ((:xpub "ZMQ_XPUB"))
  59               ((:xsub "ZMQ_XSUB")))
  60
  61 (constantenum socket-options
  62               ((:affinity "ZMQ_AFFINITY"))
  63               ((:identity "ZMQ_IDENTITY"))
  64               ((:subscribe "ZMQ_SUBSCRIBE"))
  65               ((:unsubscribe "ZMQ_UNSUBSCRIBE"))
  66               ((:rate "ZMQ_RATE"))
  67               ((:recovery-ivl "ZMQ_RECOVERY_IVL"))
  68               ((:sndbuf "ZMQ_SNDBUF"))
  69               ((:rcvbuf "ZMQ_RCVBUF"))
  70               ((:rcvmore "ZMQ_RCVMORE"))
  71               ((:fd "ZMQ_FD"))
  72               ((:events "ZMQ_EVENTS"))
  73               ((:type "ZMQ_TYPE"))
  74               ((:linger "ZMQ_LINGER"))
  75               ((:reconnect-ivl "ZMQ_RECONNECT_IVL"))
  76               ((:backlog "ZMQ_BACKLOG"))
  77               ((:reconnect-ivl-max "ZMQ_RECONNECT_IVL_MAX"))
  78               ((:maxmsgsize "ZMQ_MAXMSGSIZE"))
  79               ((:sndhwm "ZMQ_SNDHWM"))
  80               ((:rcvhwm "ZMQ_RCVHWM"))
  81               ((:multicast-hops "ZMQ_MULTICAST_HOPS"))
  82               ((:rcvtimeo "ZMQ_RCVTIMEO"))
  83               ((:sndtimeo "ZMQ_SNDTIMEO"))
  84               ((:ipv4only "ZMQ_IPV4ONLY"))
  85               ((:last-endpoint "ZMQ_LAST_ENDPOINT"))
  86               ((:router-mandatory "ZMQ_ROUTER_MANDATORY"))
  87               ((:tcp-keepalive "ZMQ_TCP_KEEPALIVE"))
  88               ((:tcp-keepalive-cnt "ZMQ_TCP_KEEPALIVE_CNT"))
  89               ((:tcp-keepalive-idle "ZMQ_TCP_KEEPALIVE_IDLE"))
  90               ((:tcp-keepalive-intvl "ZMQ_TCP_KEEPALIVE_INTVL"))
  91               ((:tcp-accept-filter "ZMQ_TCP_ACCEPT_FILTER"))
  92               ((:tcp-delay-attach-on-connect "ZMQ_DELAY_ATTACH_ON_CONNECT"))
  93               ((:xpub-verbose "ZMQ_XPUB_VERBOSE")))
  94
  95 (bitfield event-types
  96           ((:pollin "ZMQ_POLLIN"))
  97           ((:pollout "ZMQ_POLLOUT"))
  98           ((:pollerr "ZMQ_POLLERR")))
  99
 100 (bitfield message-options
 101           ((:noblock "ZMQ_MORE")))
 102
 103 (bitfield send-recv-options
 104           ((:noblock "ZMQ_DONTWAIT"))
 105           ((:sndmore "ZMQ_SNDMORE")))
 106
 107 (bitfield transport-events
 108           ((:event-connected "ZMQ_EVENT_CONNECTED"))
 109           ((:event-connect-delayed "ZMQ_EVENT_CONNECT_DELAYED"))
 110           ((:event-connect-retried "ZMQ_EVENT_CONNECT_RETRIED"))
 111           ((:event-listening "ZMQ_EVENT_LISTENING"))
 112           ((:event-bind-failed "ZMQ_EVENT_BIND_FAILED"))
 113           ((:event-accepted "ZMQ_EVENT_ACCEPTED"))
 114           ((:event-accept-failed "ZMQ_EVENT_ACCEPT_FAILED"))
 115           ((:event-closed "ZMQ_EVENT_CLOSED"))
 116           ((:event-close-failed "ZMQ_EVENT_CLOSE_FAILED"))
 117           ((:event-disconnected "ZMQ_EVENT_DISCONNECTED")))