module M = MQueryMisc
let get_handle () =
- C.init (C.flags_of_string ! int_options)
- (fun s -> print_string s; flush stdout)
+ C.init ~flags:(C.flags_of_string ! int_options)
+ ~log:(fun s -> print_string s; flush stdout) ()
let issue handle q =
let mode = [Open_wronly; Open_append; Open_creat; Open_text] in
let ich = Lexing.from_channel stdin in
let flags = if Array.length Sys.argv >= 2 then Sys.argv.(1) else "" in
let log s = print_string s; flush stdout in
- let handle = C.init_if_connected (C.flags_of_string flags) log in
+ let handle =
+ C.init_if_connected ~flags:(C.flags_of_string flags) ~log:log ()
+ in
if not (C.connected handle) then begin
print_endline "mqitop: no connection"; flush stdout
end;