--- /dev/null
+let _ =
+ let module U = MQueryUtil in
+ let module X = MQueryMisc in
+ let t = X.start_time () in
+ let ich = Lexing.from_channel stdin in
+ let rec aux () =
+ let t = X.start_time () in
+ U.text_of_query print_string (U.query_of_text ich) "\n";
+ Printf.printf "mqtop: query: %s\n" (X.stop_time t);
+ flush stdout; aux()
+ in
+ begin try aux() with End_of_file -> () end;
+ Printf.printf "mqtop: done: %s\n" (X.stop_time t)