apiInterface.ml
3.51 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
71
72
73
74
75
76
77
78
79
80
81
82
83
(*
* ENIAMmorphology, a morphological analyser and a guesser for Polish
* 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/>.
*)
type output = Text | Xml | Html
let output = ref Text
let parser_host = ref "localhost"
let parser_port = ref 5736
(* 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)";
"-t", Arg.Unit (fun () -> output:=Text), "Output as plain text (default)";
"-x", Arg.Unit (fun () -> output:=Xml), "Output as XML";
"-h", Arg.Unit (fun () -> output:=Html), "Output as HTML";
]
let usage_msg =
"Usage: morphology.api <options>\nInput is a sequence of lines. Empty line ends the sequence and invoke parsing.\nOptions are:"
let message = "ENIAMmorphologyApi, interface for ENIAMmorphology\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 r = ref 0 *)
let rec main_loop parser_in parser_out =
(* incr r; *)
let query = (try input_line stdin with End_of_file -> "") in
if query = "" then () else (
Printf.fprintf parser_out "%s\n%!" query;
let result,msg = (Marshal.from_channel parser_in : ENIAMinflexion.t list * string) in
(match !output with
Text ->
if msg = "" then print_endline (ENIAMinflexion.string_of_interpretations result ^ "\n\n")
else print_endline (query ^ "\n" ^ msg ^ "\n\n")
| Xml -> print_endline (Xml.to_string (ENIAMinflexion.xml_of_interpretations result msg) ^ "\n\n")
| Html -> print_endline (ENIAMinflexion.html_of_interpretations result msg ^ "\n\n"));
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