}
type text_out_spec = {out : string -> unit;
+ sep : string;
path : (string -> unit) -> M.path -> unit;
- query : (string -> unit) -> string -> M.query -> unit;
+ query : (string -> unit) -> string -> M.query -> unit;
result : (string -> unit) -> string -> M.result -> unit
}
let std o =
{s_out = o.out; s_path = o.path o.out;
- s_query = o.query o.out ""; s_result = o.result o.out "\n"
+ s_query = o.query o.out o.sep; s_result = o.result o.out o.sep
}
let out_txt2 o n x1 x2 =