commit 5fc154f0a373d398fe2c98cadf5fbc1d2f125fe7 · anil.recoil.org/ocaml-mcp

+12

lib/mcp_sdk.ml

···

       442
       442
        
           else

     

       443
       443
        
             caps

     

       444
       444
        
         in

     

       445
       445
       +
         let caps =

     

       446
       446
       +
           if with_resource_templates then

     

       447
       447
       +
             ("resourceTemplates", `Assoc [

     

       448
       448
       +
               ("listChanged", `Bool true)

     

       449
       449
       +
             ]) :: caps

     

       450
       450
       +
           else if not with_resource_templates then

     

       451
       451
       +
             ("resourceTemplates", `Assoc [

     

       452
       452
       +
               ("listChanged", `Bool false)

     

       453
       453
       +
             ]) :: caps

     

       454
       454
       +
           else

     

       455
       455
       +
             caps

     

       456
       456
       +
         in

     

       445
       457
        
         let caps = 

     

       446
       458
        
           if with_prompts then

     

       447
       459
        
             ("prompts", `Assoc [

lib/mcp_server.ml

···

       60
       60
        
         let response = Mcp_rpc.ResourcesList.create_response ~id:req.id ~resources:resources_list () in

     

       61
       61
        
         Some response

     

       62
       62
        
       

     

       63
       63
       +
       (* Process resources/templates/list request *)

     

       64
       64
       +
       let handle_resource_templates_list server (req:JSONRPCMessage.request) =

     

       65
       65
       +
         Log.debug "Processing resources/templates/list request";

     

       66
       66
       +
         let templates_list = ResourceTemplate.to_rpc_resource_templates_list (resource_templates server) in

     

       67
       67
       +
         let response = Mcp_rpc.ListResourceTemplatesResult.create_response ~id:req.id ~resource_templates:templates_list () in

     

       68
       68
       +
         Some response

     

       69
       69
       +
       

     

       63
       70
        
       (* Utility module for resource template matching *)

     

       64
       71
        
       module Resource_matcher = struct

     

       65
       72
        
         (* Define variants for resource handling result *)

     
···

       323
       330
        
              | Method.PromptsList -> handle_prompts_list server req

     

       324
       331
        
              | Method.ResourcesList -> handle_resources_list server req

     

       325
       332
        
              | Method.ResourcesRead -> handle_resources_read server req

     

       333
       333
       +
              | Method.ResourceTemplatesList -> handle_resource_templates_list server req

     

       326
       334
        
              | _ -> 

     

       327
       335
        
                 Log.errorf "Unknown method received: %s" (Method.to_string req.meth);

     

       328
       336
        
                 Some (create_jsonrpc_error req.id ErrorCode.MethodNotFound ("Method not found: " ^ (Method.to_string req.meth)) ()))