commit 578f7feacda5563b51868a81400dc582ac8e1834 · anil.recoil.org/ocaml-mcp

lib/mcp_sdk.ml

···

       201
       201
        
       let lifespan_context { lifespan_context; _ } = lifespan_context

     

       202
       202
        
       let protocol_version { protocol_version; _ } = protocol_version

     

       203
       203
        
       let tools { tools; _ } = tools

     

       204
       204
       +
       let resources { resources; _ } = resources

     

       205
       205
       +
       let prompts { prompts; _ } = prompts

     

       204
       206
        
       

     

       205
       207
        
       (* Create a new server *)

     

       206
       208
        
       let create_server ~name ?(version="0.1.0") ?(protocol_version="2024-11-05") () =

lib/mcp_sdk.mli

···

       97
       97
        
       val protocol_version : server -> string

     

       98
       98
        
       val capabilities : server -> Json.t

     

       99
       99
        
       val tools : server -> Tool.t list

     

       100
       100
       +
       val resources : server -> Resource.t list

     

       101
       101
       +
       val prompts : server -> Prompt.t list

     

       100
       102
        
       

     

       101
       103
        
       (** Create a new server *)

     

       102
       104
        
       val create_server : name:string -> ?version:string -> ?protocol_version:string -> unit -> server

+201 -153

lib/mcp_server.ml

···

       2
       2
        
       open Jsonrpc

     

       3
       3
        
       open Mcp_sdk

     

       4
       4
        
       

     

       5
       5
       +
       (* Process initialize request *)

     

       6
       6
       +
       let handle_initialize server req =

     

       7
       7
       +
         Log.debug "Processing initialize request";

     

       8
       8
       +
         let result = match req.JSONRPCMessage.params with

     

       9
       9
       +
           | Some params -> 

     

       10
       10
       +
               let req_data = Initialize.Request.t_of_yojson params in

     

       11
       11
       +
               Log.debug (Printf.sprintf "Client info: %s v%s" 

     

       12
       12
       +
                 req_data.client_info.name req_data.client_info.version);

     

       13
       13
       +
               Log.debug (Printf.sprintf "Client protocol version: %s" req_data.protocol_version);

     

       14
       14
       +
               

     

       15
       15
       +
               (* Create initialize response *)

     

       16
       16
       +
               let result = Initialize.Result.create

     

       17
       17
       +
                 ~capabilities:(capabilities server)

     

       18
       18
       +
                 ~server_info:Implementation.{ 

     

       19
       19
       +
                   name = name server; 

     

       20
       20
       +
                   version = version server 

     

       21
       21
       +
                 }

     

       22
       22
       +
                 ~protocol_version:(protocol_version server)

     

       23
       23
       +
                 ~instructions:(Printf.sprintf "This server provides tools for %s." (name server))

     

       24
       24
       +
                 ()

     

       25
       25
       +
               in

     

       26
       26
       +
               Initialize.Result.yojson_of_t result

     

       27
       27
       +
           | None -> 

     

       28
       28
       +
               Log.error "Missing params for initialize request";

     

       29
       29
       +
               `Assoc [("error", `String "Missing params for initialize request")]

     

       30
       30
       +
         in

     

       31
       31
       +
         Some (create_response ~id:req.id ~result)

     

       32
       32
       +
       

     

       33
       33
       +
       (* Process tools/list request *)

     

       34
       34
       +
       let handle_tools_list server (req:JSONRPCMessage.request) =

     

       35
       35
       +
         Log.debug "Processing tools/list request";

     

       36
       36
       +
         let tool_list = List.map Tool.to_json (tools server) in

     

       37
       37
       +
         let result = `Assoc [("tools", `List tool_list)] in

     

       38
       38
       +
         Some (create_response ~id:req.id ~result)

     

       39
       39
       +
       

     

       40
       40
       +
       (* Process prompts/list request *)

     

       41
       41
       +
       let handle_prompts_list server (req:JSONRPCMessage.request) =

     

       42
       42
       +
         Log.debug "Processing prompts/list request";

     

       43
       43
       +
         let prompt_list = List.map Prompt.to_json (prompts server) in

     

       44
       44
       +
         let result = `Assoc [("prompts", `List prompt_list)] in

     

       45
       45
       +
         Some (create_response ~id:req.id ~result)

     

       46
       46
       +
       

     

       47
       47
       +
       (* Process resources/list request *)

     

       48
       48
       +
       let handle_resources_list server (req:JSONRPCMessage.request) =

     

       49
       49
       +
         Log.debug "Processing resources/list request";

     

       50
       50
       +
         let resource_list = List.map Resource.to_json (resources server) in

     

       51
       51
       +
         let result = `Assoc [("resources", `List resource_list)] in

     

       52
       52
       +
         Some (create_response ~id:req.id ~result)

     

       53
       53
       +
       

     

       54
       54
       +
       (* Create an error result with text content *)

     

       55
       55
       +
       let create_error_content err =

     

       56
       56
       +
         let error_content = TextContent.{

     

       57
       57
       +
           text = err;

     

       58
       58
       +
           annotations = None

     

       59
       59
       +
         } in

     

       60
       60
       +
         `Assoc [

     

       61
       61
       +
           ("content", `List [TextContent.yojson_of_t error_content]);

     

       62
       62
       +
           ("isError", `Bool true)

     

       63
       63
       +
         ]

     

       64
       64
       +
       

     

       65
       65
       +
       (* Extract the tool name from params *)

     

       66
       66
       +
       let extract_tool_name params =

     

       67
       67
       +
         match List.assoc_opt "name" params with

     

       68
       68
       +
           | Some (`String name) -> 

     

       69
       69
       +
               Log.debug (Printf.sprintf "Tool name: %s" name);

     

       70
       70
       +
               Some name

     

       71
       71
       +
           | _ -> 

     

       72
       72
       +
               Log.error "Missing or invalid 'name' parameter in tool call";

     

       73
       73
       +
               None

     

       74
       74
       +
       

     

       75
       75
       +
       (* Extract the tool arguments from params *)

     

       76
       76
       +
       let extract_tool_arguments params =

     

       77
       77
       +
         match List.assoc_opt "arguments" params with

     

       78
       78
       +
           | Some (args) -> 

     

       79
       79
       +
               Log.debug (Printf.sprintf "Tool arguments: %s" (Yojson.Safe.to_string args));

     

       80
       80
       +
               args

     

       81
       81
       +
           | _ -> 

     

       82
       82
       +
               Log.debug "No arguments provided for tool call, using empty object";

     

       83
       83
       +
               `Assoc [] (* Empty arguments is valid *)

     

       84
       84
       +
       

     

       85
       85
       +
       (* Handle tool execution errors *)

     

       86
       86
       +
       let handle_tool_execution_error err =

     

       87
       87
       +
         Log.error (Printf.sprintf "Tool execution failed: %s" err);

     

       88
       88
       +
         create_error_content (Printf.sprintf "Error executing tool: %s" err)

     

       89
       89
       +
       

     

       90
       90
       +
       (* Handle unknown tool error *)

     

       91
       91
       +
       let handle_unknown_tool_error name =

     

       92
       92
       +
         Log.error (Printf.sprintf "Unknown tool: %s" name);

     

       93
       93
       +
         create_error_content (Printf.sprintf "Unknown tool: %s" name)

     

       94
       94
       +
       

     

       95
       95
       +
       (* Handle general tool execution exception *)

     

       96
       96
       +
       let handle_tool_execution_exception exn =

     

       97
       97
       +
         Log.error (Printf.sprintf "Exception executing tool: %s" (Printexc.to_string exn));

     

       98
       98
       +
         create_error_content (Printf.sprintf "Internal error: %s" (Printexc.to_string exn))

     

       99
       99
       +
       

     

       100
       100
       +
       (* Execute a tool *)

     

       101
       101
       +
       let execute_tool server ctx name args =

     

       102
       102
       +
         try

     

       103
       103
       +
           let tool = List.find (fun t -> t.Tool.name = name) (tools server) in

     

       104
       104
       +
           Log.debug (Printf.sprintf "Found tool: %s" name);

     

       105
       105
       +
           

     

       106
       106
       +
           (* Call the tool handler *)

     

       107
       107
       +
           match tool.handler ctx args with

     

       108
       108
       +
           | Ok result -> 

     

       109
       109
       +
               Log.debug "Tool execution succeeded";

     

       110
       110
       +
               result

     

       111
       111
       +
           | Error err -> handle_tool_execution_error err

     

       112
       112
       +
         with

     

       113
       113
       +
         | Not_found -> handle_unknown_tool_error name

     

       114
       114
       +
         | exn -> handle_tool_execution_exception exn

     

       115
       115
       +
       

     

       116
       116
       +
       (* Process tools/call request *)

     

       117
       117
       +
       let handle_tools_call server req =

     

       118
       118
       +
         Log.debug "Processing tools/call request";

     

       119
       119
       +
         match req.JSONRPCMessage.params with

     

       120
       120
       +
         | Some (`Assoc params) ->

     

       121
       121
       +
           (match extract_tool_name params with

     

       122
       122
       +
           | Some name ->

     

       123
       123
       +
               let args = extract_tool_arguments params in

     

       124
       124
       +
               

     

       125
       125
       +
               (* Create context for this request *)

     

       126
       126
       +
               let ctx = Context.create ?request_id:req.progress_token () in

     

       127
       127
       +
               

     

       128
       128
       +
               (* Execute the tool *)

     

       129
       129
       +
               let result = execute_tool server ctx name args in

     

       130
       130
       +
               Some (create_response ~id:req.id ~result)

     

       131
       131
       +
           | None ->

     

       132
       132
       +
               Some (create_error ~id:req.id ~code:(-32602) ~message:"Missing tool name parameter" ()))

     

       133
       133
       +
         | _ ->

     

       134
       134
       +
           Log.error "Invalid params format for tools/call";

     

       135
       135
       +
           Some (create_error ~id:req.id ~code:(-32602) ~message:"Invalid params for tools/call" ())

     

       136
       136
       +
       

     

       137
       137
       +
       (* Process ping request *)

     

       138
       138
       +
       let handle_ping (req:JSONRPCMessage.request) =

     

       139
       139
       +
         Log.debug "Processing ping request";

     

       140
       140
       +
         Some (create_response ~id:req.JSONRPCMessage.id ~result:(`Assoc []))

     

       141
       141
       +
       

     

       142
       142
       +
       (* Handle notifications/initialized *)

     

       143
       143
       +
       let handle_initialized (notif:JSONRPCMessage.notification) =

     

       144
       144
       +
         Log.debug "Client initialization complete - Server is now ready to receive requests";

     

       145
       145
       +
         Log.debug (Printf.sprintf "Notification params: %s" 

     

       146
       146
       +
           (match notif.JSONRPCMessage.params with

     

       147
       147
       +
             | Some p -> Yojson.Safe.to_string p

     

       148
       148
       +
             | None -> "null"));

     

       149
       149
       +
         None

     

       150
       150
       +
       

     

       5
       151
        
       (* Process a single message using the MCP SDK *)

     

       6
       152
        
       let process_message server message =

     

       7
       153
        
         try

     
···

       10
       156
        
           | JSONRPCMessage.Request req ->

     

       11
       157
        
             Log.debug (Printf.sprintf "Received request with method: %s" req.method_);

     

       12
       158
        
             (match req.method_ with

     

       13
       13
       -
              | "initialize" -> 

     

       14
       14
       -
                 Log.debug "Processing initialize request";

     

       15
       15
       -
                 let result = match req.params with

     

       16
       16
       -
                   | Some params -> 

     

       17
       17
       -
                       let req_data = Initialize.Request.t_of_yojson params in

     

       18
       18
       -
                       Log.debug (Printf.sprintf "Client info: %s v%s" 

     

       19
       19
       -
                         req_data.client_info.name req_data.client_info.version);

     

       20
       20
       -
                       Log.debug (Printf.sprintf "Client protocol version: %s" req_data.protocol_version);

     

       21
       21
       -
                       

     

       22
       22
       -
                       (* Create initialize response *)

     

       23
       23
       -
                       let result = Initialize.Result.create

     

       24
       24
       -
                         ~capabilities:(capabilities server)

     

       25
       25
       -
                         ~server_info:Implementation.{ 

     

       26
       26
       -
                           name = name server; 

     

       27
       27
       -
                           version = version server 

     

       28
       28
       -
                         }

     

       29
       29
       -
                         ~protocol_version:(protocol_version server)

     

       30
       30
       -
                         ~instructions:(Printf.sprintf "This server provides tools for %s." (name server))

     

       31
       31
       -
                         ()

     

       32
       32
       -
                       in

     

       33
       33
       -
                       Initialize.Result.yojson_of_t result

     

       34
       34
       -
                   | None -> 

     

       35
       35
       -
                       Log.error "Missing params for initialize request";

     

       36
       36
       -
                       `Assoc [("error", `String "Missing params for initialize request")]

     

       37
       37
       -
                 in

     

       38
       38
       -
                 Some (create_response ~id:req.id ~result)

     

       39
       39
       -
              | "tools/list" -> 

     

       40
       40
       -
                 Log.debug "Processing tools/list request";

     

       41
       41
       -
                 let tool_list = List.map Tool.to_json (tools server) in

     

       42
       42
       -
                 let result = `Assoc [("tools", `List tool_list)] in

     

       43
       43
       -
                 Some (create_response ~id:req.id ~result)

     

       44
       44
       -
              | "tools/call" -> 

     

       45
       45
       -
                 Log.debug "Processing tools/call request";

     

       46
       46
       -
                 (match req.params with

     

       47
       47
       -
                 | Some (`Assoc params) ->

     

       48
       48
       -
                   let name = match List.assoc_opt "name" params with

     

       49
       49
       -
                     | Some (`String name) -> 

     

       50
       50
       -
                         Log.debug (Printf.sprintf "Tool name: %s" name);

     

       51
       51
       -
                         name

     

       52
       52
       -
                     | _ -> 

     

       53
       53
       -
                         Log.error "Missing or invalid 'name' parameter in tool call";

     

       54
       54
       -
                         ""

     

       55
       55
       -
                   in

     

       56
       56
       -
                   let args = match List.assoc_opt "arguments" params with

     

       57
       57
       -
                     | Some (args) -> 

     

       58
       58
       -
                         Log.debug (Printf.sprintf "Tool arguments: %s" (Yojson.Safe.to_string args));

     

       59
       59
       -
                         args

     

       60
       60
       -
                     | _ -> 

     

       61
       61
       -
                         Log.debug "No arguments provided for tool call, using empty object";

     

       62
       62
       -
                         `Assoc [] (* Empty arguments is valid *)

     

       63
       63
       -
                   in

     

       64
       64
       -
                   

     

       65
       65
       -
                   (* Find the matching tool *)

     

       66
       66
       -
                   let result = 

     

       67
       67
       -
                     try

     

       68
       68
       -
                       let tool = List.find (fun t -> t.Tool.name = name) (tools server) in

     

       69
       69
       -
                       Log.debug (Printf.sprintf "Found tool: %s" name);

     

       70
       70
       -
                       

     

       71
       71
       -
                       (* Create context for this request *)

     

       72
       72
       -
                       let ctx = Context.create ?request_id:req.progress_token () in

     

       73
       73
       -
                       

     

       74
       74
       -
                       (* Call the tool handler *)

     

       75
       75
       -
                       match tool.handler ctx args with

     

       76
       76
       -
                       | Ok result -> 

     

       77
       77
       -
                           Log.debug (Printf.sprintf "Tool execution succeeded");

     

       78
       78
       -
                           result

     

       79
       79
       -
                       | Error err -> 

     

       80
       80
       -
                           Log.error (Printf.sprintf "Tool execution failed: %s" err);

     

       81
       81
       -
                           let error_content = TextContent.{

     

       82
       82
       -
                             text = Printf.sprintf "Error executing tool: %s" err;

     

       83
       83
       -
                             annotations = None

     

       84
       84
       -
                           } in

     

       85
       85
       -
                           `Assoc [

     

       86
       86
       -
                             ("content", `List [TextContent.yojson_of_t error_content]);

     

       87
       87
       -
                             ("isError", `Bool true)

     

       88
       88
       -
                           ]

     

       89
       89
       -
                     with

     

       90
       90
       -
                     | Not_found ->

     

       91
       91
       -
                         Log.error (Printf.sprintf "Unknown tool: %s" name);

     

       92
       92
       -
                         let error_content = TextContent.{

     

       93
       93
       -
                           text = Printf.sprintf "Unknown tool: %s" name;

     

       94
       94
       -
                           annotations = None

     

       95
       95
       -
                         } in

     

       96
       96
       -
                         `Assoc [

     

       97
       97
       -
                           ("content", `List [TextContent.yojson_of_t error_content]);

     

       98
       98
       -
                           ("isError", `Bool true)

     

       99
       99
       -
                         ]

     

       100
       100
       -
                     | exn ->

     

       101
       101
       -
                         Log.error (Printf.sprintf "Exception executing tool: %s" (Printexc.to_string exn));

     

       102
       102
       -
                         let error_content = TextContent.{

     

       103
       103
       -
                           text = Printf.sprintf "Internal error: %s" (Printexc.to_string exn);

     

       104
       104
       -
                           annotations = None

     

       105
       105
       -
                         } in

     

       106
       106
       -
                         `Assoc [

     

       107
       107
       -
                           ("content", `List [TextContent.yojson_of_t error_content]);

     

       108
       108
       -
                           ("isError", `Bool true)

     

       109
       109
       -
                         ]

     

       110
       110
       -
                   in

     

       111
       111
       -
                   Some (create_response ~id:req.id ~result)

     

       112
       112
       -
                 | _ ->

     

       113
       113
       -
                   Log.error "Invalid params format for tools/call";

     

       114
       114
       -
                   Some (create_error ~id:req.id ~code:(-32602) ~message:"Invalid params for tools/call" ()))

     

       115
       115
       -
              | "ping" -> 

     

       116
       116
       -
                 Log.debug "Processing ping request";

     

       117
       117
       -
                 Some (create_response ~id:req.id ~result:(`Assoc []))

     

       159
       159
       +
              | "initialize" -> handle_initialize server req

     

       160
       160
       +
              | "tools/list" -> handle_tools_list server req

     

       161
       161
       +
              | "tools/call" -> handle_tools_call server req

     

       162
       162
       +
              | "prompts/list" -> handle_prompts_list server req

     

       163
       163
       +
              | "resources/list" -> handle_resources_list server req

     

       164
       164
       +
              | "ping" -> handle_ping req

     

       118
       165
        
              | _ -> 

     

       119
       166
        
                 Log.error (Printf.sprintf "Unknown method received: %s" req.method_);

     

       120
       167
        
                 Some (create_error ~id:req.id ~code:(-32601) ~message:("Method not found: " ^ req.method_) ()))

     

       121
       168
        
           | JSONRPCMessage.Notification notif ->

     

       122
       169
        
             Log.debug (Printf.sprintf "Received notification with method: %s" notif.method_);

     

       123
       170
        
             (match notif.method_ with

     

       124
       124
       -
              | "notifications/initialized" ->

     

       125
       125
       -
                 Log.debug "Client initialization complete - Server is now ready to receive requests";

     

       126
       126
       -
                 Log.debug (Printf.sprintf "Notification params: %s" 

     

       127
       127
       -
                   (match notif.params with

     

       128
       128
       -
                    | Some p -> Yojson.Safe.to_string p

     

       129
       129
       -
                    | None -> "null"));

     

       130
       130
       -
                 None

     

       171
       171
       +
              | "notifications/initialized" -> handle_initialized notif

     

       131
       172
        
              | _ ->

     

       132
       173
        
                 Log.debug (Printf.sprintf "Ignoring notification: %s" notif.method_);

     

       133
       174
        
                 None)

     
···

       147
       188
        
           Log.error (Printf.sprintf "Message was: %s" (Yojson.Safe.to_string message));

     

       148
       189
        
           None

     

       149
       190
        
       

     

       191
       191
       +
       (* Handle processing for an input line *)

     

       192
       192
       +
       let process_input_line server line =

     

       193
       193
       +
         if line = "" then (

     

       194
       194
       +
           Log.debug "Empty line received, ignoring";

     

       195
       195
       +
           None

     

       196
       196
       +
         ) else (

     

       197
       197
       +
           Log.debug (Printf.sprintf "Raw input: %s" line);

     

       198
       198
       +
           try

     

       199
       199
       +
             let json = Yojson.Safe.from_string line in

     

       200
       200
       +
             Log.debug "Successfully parsed JSON";

     

       201
       201
       +
             

     

       202
       202
       +
             (* Process the message *)

     

       203
       203
       +
             process_message server json

     

       204
       204
       +
           with

     

       205
       205
       +
           | Yojson.Json_error msg -> begin

     

       206
       206
       +
               Log.error (Printf.sprintf "Error parsing JSON: %s" msg);

     

       207
       207
       +
               Log.error (Printf.sprintf "Input was: %s" line);

     

       208
       208
       +
               None

     

       209
       209
       +
           end

     

       210
       210
       +
         )

     

       211
       211
       +
       

     

       212
       212
       +
       (* Send a response to the client *)

     

       213
       213
       +
       let send_response stdout response =

     

       214
       214
       +
         let response_json = JSONRPCMessage.yojson_of_t response in

     

       215
       215
       +
         let response_str = Yojson.Safe.to_string response_json in

     

       216
       216
       +
         Log.debug (Printf.sprintf "Sending response: %s" response_str);

     

       217
       217
       +
         

     

       218
       218
       +
         (* Write the response followed by a newline *)

     

       219
       219
       +
         Eio.Flow.copy_string response_str stdout;

     

       220
       220
       +
         Eio.Flow.copy_string "\n" stdout

     

       221
       221
       +
       

     

       150
       222
        
       (* Run the MCP server with the given server configuration *)

     

       151
       223
        
       let run_server env server =

     

       152
       224
        
         let stdin = Eio.Stdenv.stdin env in

     
···

       162
       234
        
         

     

       163
       235
        
         (* Main processing loop *)

     

       164
       236
        
         try

     

       165
       165
       -
         while true do

     

       166
       166
       -
           Log.debug (Printf.sprintf "Waiting for message..." );

     

       237
       237
       +
           while true do

     

       238
       238
       +
             Log.debug "Waiting for message...";

     

       167
       239
        
             let line = Eio.Buf_read.line buf in

     

       168
       168
       -
             if line = "" then (

     

       169
       169
       -
               Log.debug "Empty line received, ignoring";

     

       170
       170
       -
             ) else (

     

       171
       171
       -
               Log.debug (Printf.sprintf "Raw input: %s" line);

     

       172
       172
       -
               try

     

       173
       173
       -
                 let json = Yojson.Safe.from_string line in

     

       174
       174
       -
                 Log.debug "Successfully parsed JSON";

     

       175
       175
       -
                 

     

       176
       176
       -
                 (* Process the message *)

     

       177
       177
       -
                 match process_message server json with

     

       178
       178
       -
                 | Some response -> begin

     

       179
       179
       -
                     (* Send response *)

     

       180
       180
       -
                     let response_json = JSONRPCMessage.yojson_of_t response in

     

       181
       181
       -
                     let response_str = Yojson.Safe.to_string response_json in

     

       182
       182
       -
                     Log.debug (Printf.sprintf "Sending response: %s" response_str);

     

       183
       183
       -
                     

     

       184
       184
       -
                     (* Write the response followed by a newline *)

     

       185
       185
       -
                     Eio.Flow.copy_string response_str stdout;

     

       186
       186
       -
                     Eio.Flow.copy_string "\n" stdout;

     

       187
       187
       -
                 end

     

       188
       188
       -
                 | None -> 

     

       189
       189
       -
                     Log.debug "No response needed for this message";

     

       190
       190
       -
               with

     

       191
       191
       -
               | Yojson.Json_error msg -> begin

     

       192
       192
       -
                   Log.error (Printf.sprintf "Error parsing JSON: %s" msg);

     

       193
       193
       -
                   Log.error (Printf.sprintf "Input was: %s" line);

     

       194
       194
       -
               end

     

       195
       195
       -
             )

     

       240
       240
       +
             

     

       241
       241
       +
             (* Process the input and send response if needed *)

     

       242
       242
       +
             match process_input_line server line with

     

       243
       243
       +
             | Some response -> send_response stdout response

     

       244
       244
       +
             | None -> Log.debug "No response needed for this message"

     

       196
       245
        
           done

     

       197
       197
       -
           with

     

       198
       198
       -
           | End_of_file -> 

     

       199
       199
       -
               Log.debug "End of file received on stdin";

     

       200
       200
       -
               ()

     

       201
       201
       -
           | Eio.Exn.Io _ as exn ->

     

       202
       202
       -
               Log.error (Printf.sprintf "I/O error while reading: %s" (Printexc.to_string exn));

     

       203
       203
       -
               ()

     

       204
       204
       -
           | exc ->

     

       205
       205
       -
               Log.error (Printf.sprintf "Exception while reading: %s" (Printexc.to_string exc));

     

       206
       206
       -
               ()

     

       207
       207
       -
         

     

       246
       246
       +
         with

     

       247
       247
       +
         | End_of_file -> 

     

       248
       248
       +
             Log.debug "End of file received on stdin";

     

       249
       249
       +
             ()

     

       250
       250
       +
         | Eio.Exn.Io _ as exn ->

     

       251
       251
       +
             Log.error (Printf.sprintf "I/O error while reading: %s" (Printexc.to_string exn));

     

       252
       252
       +
             ()

     

       253
       253
       +
         | exn ->

     

       254
       254
       +
             Log.error (Printf.sprintf "Exception while reading: %s" (Printexc.to_string exn));

     

       255
       255
       +
             ()