jon.recoil.org
this repo has no description
1module Merlin_protocol = Protocol
2
3type id = int
4
5type request =
6 | Merlin of id * Merlin_protocol.action
7 | Eval of id * int * string
8 | Format of id * string
9 | Format_config of string
10 | Setup
11 | Add_cmis of Merlin_protocol.cmis
12
13type output =
14 | Stdout of string
15 | Stderr of string
16 | Meta of string
17 | Html of string
18
19type response =
20 | Merlin_response of id * Merlin_protocol.answer
21 | Top_response of id * output list
22 | Top_response_at of id * int * output list
23 | Formatted_source of id * string
24
25let req_to_bytes (req : request) = Marshal.to_bytes req []
26let resp_to_bytes (req : response) = Marshal.to_bytes req []
27let req_of_bytes req : request = Marshal.from_bytes req 0
28let resp_of_string resp : response = Marshal.from_string resp 0