···

       
91
       
91
       
 
       


     

       
92
       
92
       
 
       
  (* Create a tool error result with structured content *)

     

       
93
       
93
       
 
       
  let create_error_result error =

     

       
94
       
94
       
+
       
    Log.errorf "Error result: %s" error;

     

       
94
       
95
       
 
       
    create_tool_result [Mcp.make_text_content error] ~is_error:true

     

       
95
       
96
       
 
       
  

     

       
96
       
97
       
 
       
  (* Handle tool execution errors *)

     

       
97
       
98
       
 
       
  let handle_execution_error err =

     

       
98
       
98
       
-
       
    Log.errorf "Tool execution failed: %s" err;

     

       
99
       
99
       
 
       
    create_error_result (Printf.sprintf "Error executing tool: %s" err)

     

       
100
       
100
       
 
       
  

     

       
101
       
101
       
 
       
  (* Handle unknown tool error *)

     

       
102
       
102
       
 
       
  let handle_unknown_tool_error name =

     

       
103
       
103
       
-
       
    Log.errorf "Unknown tool: %s" name;

     

       
104
       
103
       
 
       
    create_error_result (Printf.sprintf "Unknown tool: %s" name)

     

       
105
       
104
       
 
       
  

     

       
106
       
105
       
 
       
  (* Handle general tool execution exception *)

     

       
107
       
106
       
 
       
  let handle_execution_exception exn =

     

       
108
       
108
       
-
       
    Log.errorf "Exception executing tool: %s" (Printexc.to_string exn);

     

       
109
       
107
       
 
       
    create_error_result (Printf.sprintf "Internal error: %s" (Printexc.to_string exn))

     

       
110
       
108
       
 
       
end

     

       
111
       
109