Re: [Caml-list] do i need a private row type?

[Joel Reymont <joelr1@gmail.com>]

On May 16, 2011, at 4:06 PM, Gabriel Scherer wrote:

> module Device : sig
>   type pull
>   type push
>   type pub
>   type sub
>   type router
>   type dealer
>   val streamer  : pull Socket.t -> push Socket.t -> unit
>   val forwarder : sub Socket.t -> pub Socket.t -> unit
>   val queue     : router Socket.t -> dealer Socket.t -> unit
> end

This is very much how it was before and then I could not implement the poll

module Poll :
sig

  type t

  type event_mask = In | Out | In_out
  type poll_socket = [`Pair|`Pub|`Sub|`Req|`Rep|`Dealer|`Router|`Pull|`Push] Socket.t
  type poll_item = (poll_socket * event_mask)

  val of_poll_items : poll_item array -> t
  val poll : ?timeout: int -> t -> poll_item array

end

--------------------------------------------------------------------------
- for hire: mac osx device driver ninja, kernel extensions and usb drivers
---------------------+------------+---------------------------------------
http://wagerlabs.com | @wagerlabs | http://www.linkedin.com/in/joelreymont
---------------------+------------+---------------------------------------