commit f179b71b7efc3d3372a115a72cbcdd02237c3137 · anil.recoil.org/ocaml-mcp

+18

dune-project

···

       1
       1
        
       (lang dune 3.17)

     

       2
       2
       +
       (name mcp)

     

       3
       3
       +
       

     

       4
       4
       +
       (license ISC)

     

       5
       5
       +
       (authors "Anil Madhavapeddy")

     

       6
       6
       +
       (maintainers "anil@recoil.org")

     

       7
       7
       +
       

     

       8
       8
       +
       (generate_opam_files true)

     

       9
       9
       +
       

     

       10
       10
       +
       (package

     

       11
       11
       +
        (name mcp)

     

       12
       12
       +
        (synopsis "Model Context Protocol for LLMs")

     

       13
       13
       +
        (description "This is all still a work in progress")

     

       14
       14
       +
        (depends

     

       15
       15
       +
         (ocaml (>= "5.2.0"))

     

       16
       16
       +
         jsonrpc

     

       17
       17
       +
         eio_main

     

       18
       18
       +
         eio))

     

       19
       19
       +

+4 -1

lib/dune

···

       1
       1
        
       (library

     

       2
       2
        
         (name mcp)

     

       3
       3
       +
         (public_name mcp)

     

       3
       4
        
         (libraries jsonrpc unix yojson)

     

       4
       5
        
         (modules mcp))

     

       5
       6
        
       

     

       6
       7
        
       (library

     

       7
       8
        
         (name mcp_sdk)

     

       9
       9
       +
         (public_name mcp.sdk)

     

       8
       10
        
         (libraries mcp jsonrpc unix yojson)

     

       9
       11
        
         (modules mcp_sdk)

     

       10
       12
        
         (flags (:standard -w -67 -w -27 -w -32)))

     

       11
       13
        
       

     

       12
       14
        
       (library

     

       13
       15
        
         (name mcp_server)

     

       16
       16
       +
         (public_name mcp.server)

     

       14
       17
        
         (libraries mcp_sdk jsonrpc eio_main eio)

     

       15
       18
        
         (modules mcp_server)

     

       16
       16
       -
       )
     

       19
       19
       +
       )

+2 -4

lib/mcp.mli

···

       299
       299
        
             a large dataset that the client can later reference or update. *)

     

       300
       300
        
         type t = {

     

       301
       301
        
           resource: [ `Text of TextResourceContents.t | `Blob of BlobResourceContents.t ];

     

       302
       302
       -
           (** The resource content, either as text or binary blob.

     

       303
       303
       -
               This polymorphic variant allows handling both text and binary resources

     

       304
       304
       -
               with a unified interface, while maintaining type safety. *)

     

       302
       302
       +
           (** The resource content, either as text or binary blob. *)

     

       305
       303
        
           annotations: Annotated.annotation option;

     

       306
       304
        
           (** Optional annotations for audience targeting and priority.

     

       307
       305
        
               Annotations can restrict resource visibility to specific roles (user/assistant)

     
···

       917
       915
        
           @param data Optional additional error data providing more context

     

       918
       916
        
           @return A new JSON-RPC error message

     

       919
       917
        
       *)

     

       920
       920
       -
       val create_error : id:RequestId.t -> code:int -> message:string -> ?data:Json.t option -> unit -> JSONRPCMessage.t
     

       918
       918
       +
       val create_error : id:RequestId.t -> code:int -> message:string -> ?data:Json.t option -> unit -> JSONRPCMessage.t

+29

mcp.opam

···

       1
       1
       +
       # This file is generated by dune, edit dune-project instead

     

       2
       2
       +
       opam-version: "2.0"

     

       3
       3
       +
       synopsis: "Model Context Protocol for LLMs"

     

       4
       4
       +
       description: "This is all still a work in progress"

     

       5
       5
       +
       maintainer: ["anil@recoil.org"]

     

       6
       6
       +
       authors: ["Anil Madhavapeddy"]

     

       7
       7
       +
       license: "ISC"

     

       8
       8
       +
       depends: [

     

       9
       9
       +
         "dune" {>= "3.17"}

     

       10
       10
       +
         "ocaml" {>= "5.2.0"}

     

       11
       11
       +
         "jsonrpc"

     

       12
       12
       +
         "eio_main"

     

       13
       13
       +
         "eio"

     

       14
       14
       +
         "odoc" {with-doc}

     

       15
       15
       +
       ]

     

       16
       16
       +
       build: [

     

       17
       17
       +
         ["dune" "subst"] {dev}

     

       18
       18
       +
         [

     

       19
       19
       +
           "dune"

     

       20
       20
       +
           "build"

     

       21
       21
       +
           "-p"

     

       22
       22
       +
           name

     

       23
       23
       +
           "-j"

     

       24
       24
       +
           jobs

     

       25
       25
       +
           "@install"

     

       26
       26
       +
           "@runtest" {with-test}

     

       27
       27
       +
           "@doc" {with-doc}

     

       28
       28
       +
         ]

     

       29
       29
       +
       ]