Sourcetype t = {buf : buf;mutable w : int;mutable r : int;mutable c : int;
} Sourceval unsafe_set : buf -> int -> int -> unit Sourceval push_exn : t -> int -> unit Sourceval junk_exn : t -> int -> unit Sourceval literal : char -> int Sourceval cmd : [< `Copy of int * int | `End | `Literal of char ] -> cmd Sourceval code : int -> [> `Copy of int * int | `End | `Literal of char ] Sourceval to_list : t -> [> `Copy of int * int | `End | `Literal of char ] list Sourceval (<.>) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b Sourceval of_list : [< `Copy of int * int | `End | `Literal of char ] list -> t