grovel.lisp

(in-package #:pzmq)
(include "zmq.h")
(ctype size "size_t")
(cstruct %msg "zmq_msg_t")
(bitfield (events :base-type :short)
  ((:pollin "ZMQ_POLLIN"))
  ((:pollout "ZMQ_POLLOUT"))
  ((:pollerr "ZMQ_POLLERR")))
(cstruct pollitem "zmq_pollitem_t"
  (socket "socket" :type :pointer)
  (events "events" :type events)
  (revents "revents" :type events))
(constantenum
 c-errors
;;; awk -F '[*:]' '/\*E.+\*::/ {print $2}' doc/* | sort | uniq | awk '{print " ((:" tolower($1),  "\"" $1 "\"))"}' | xclip
 ((:eaddrinuse "EADDRINUSE"))
 ((:eaddrnotavail "EADDRNOTAVAIL"))
 ((:eagain "EAGAIN"))
 ((:efault "EFAULT"))
 ((:efsm "EFSM"))
 ((:ehostunreach "EHOSTUNREACH"))
 ((:eintr "EINTR"))
 ((:einval "EINVAL"))
 ((:emfile "EMFILE"))
 ((:emthread "EMTHREAD"))
 ((:enocompatproto "ENOCOMPATPROTO"))
 ((:enodev "ENODEV"))
 ((:enoent "ENOENT"))
 ((:enomem "ENOMEM"))
 ((:enotsock "ENOTSOCK"))
 ((:enotsup "ENOTSUP"))
 ((:eprotonosupport "EPROTONOSUPPORT"))
 ((:eterm "ETERM")))