1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(* This file is part of Markup.ml, released under the MIT license. See
LICENSE.md for details, or visit https://github.com/aantron/markup.ml. *)
open Markup__Common
val wrong_k : string -> _ cont
val with_text_limit : int -> (unit -> unit) -> unit
val expect_error :
?allow_recovery:int ->
location ->
Markup.Error.t ->
(Markup__Error.parse_handler -> unit) ->
unit
type 'a general_signal = S of 'a | E of Markup.Error.t
val expect_signals :
?prefix:bool ->
('a -> string) ->
string ->
(int * int * 'a general_signal) list ->
Markup__Error.parse_handler * ((location * 'a) -> unit cps) *
(unit -> unit)
val expect_strings :
string -> string general_signal list ->
Markup__Error.write_handler * (string -> unit cps) * (unit -> unit)
val iter : ('a -> unit cps) -> 'a Markup__Kstream.t -> unit
|
