class virtual['a]base :nb_blocks:int -> blank:(unit -> 'b) ->object..end
val buffer : 'b arrayval mutable read : intval mutable write : intval wait_m : Mutex.tval wait_c : Condition.tval mutable state : [< `Crashed | `Idle | `Running of Thread.t | `Tired > `Idle `Tired ]method sourcering_stop : unit