apiInterface.ml
3.04 KB
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
(*
* ENIAMexec implements ENIAM processing stream
* Copyright (C) 2016-2017 Wojciech Jaworski <wjaworski atSPAMfree mimuw dot edu dot pl>
* Copyright (C) 2016-2017 Institute of Computer Science Polish Academy of Sciences
*
* This library is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
let parser_host = ref "localhost"
let parser_port = ref 5739
let output_dir = ref "results/"
let spec_list = [
"-r", Arg.String (fun p -> output_dir:=p), "<path> Set output dir (by default results)";
"--port", Arg.Int (fun p -> parser_port:=p), "<port> Connect to parser on a given port (by default 5439)";
"--host", Arg.String (fun s -> parser_host:=s), "<hostname> Connect to parser on a given host (by default localhost)";
]
let usage_msg =
"Usage: apiInterface <options>\nInput is a sequence of lines. Empty line ends the sequence and invoke parsing.\nOptions are:"
let message = "ENIAMapiInterface, interface for ENIAM parser\n\
Copyright (C) 2017 Wojciech Jaworski <wjaworski atSPAMfree mimuw dot edu dot pl>\n\
Copyright (C) 2017 Institute of Computer Science Polish Academy of Sciences"
let anon_fun s = raise (Arg.Bad ("invalid argument: " ^ s))
let input_text channel =
let s = ref (try input_line channel with End_of_file -> "") in
let lines = ref [] in
while !s <> "" do
lines := !s :: !lines;
s := try input_line channel with End_of_file -> ""
done;
String.concat "\n" (List.rev !lines)
let rec main_loop parser_in parser_out =
let query = input_text stdin in
if query = "" then () else (
Printf.fprintf parser_out "%s\n\n%!" query;
let text,tokens,lex_sems,msg = (Marshal.from_channel parser_in : ENIAMexecTypes.text * ENIAMtokenizerTypes.token_env ExtArray.t * ENIAMlexSemanticsTypes.lex_sem ExtArray.t * string) in
if msg <> "" then ENIAMvisualization.print_other_result stdout "" query msg else
ENIAMvisualization.print_main_result_text "../../" (!output_dir^"/") "" tokens text;
prerr_endline "Done!");
Printf.fprintf parser_out "\n%!";
let _ = Unix.shutdown_connection parser_in in
()
let get_sock_addr host_name port =
let he = Unix.gethostbyname host_name in
let addr = he.Unix.h_addr_list in
Unix.ADDR_INET(addr.(0),port)
let _ =
prerr_endline message;
Arg.parse spec_list anon_fun usage_msg;
ignore (Sys.command ("mkdir -p " ^ !output_dir));
let parser_in,parser_out = Unix.open_connection (get_sock_addr !parser_host !parser_port) in
prerr_endline "Ready!";
main_loop parser_in parser_out