package ocaml-ai-sdk

  1. Overview
  2. Docs
OCaml AI SDK - Provider abstraction for AI models

Install 

dune-project
 Dependency

github.com Readme Changelog Edit opam file Versions (8)

Authors

  1. A
    Ahrefs

Maintainers

  1. J
    José Nogueira <jose.nogueira@ahrefs.com>

Sources

ocaml-ai-sdk-0.5.tbz
sha256=9e3437d6ebf48ec9f5d9a8afd62eaeece124023f02dbd87e4b291205fd309b72
sha512=605c10ed62c0cbc31a151b7031cc80a284d5c94231c1ef423ae7439572e3fadddab4a45f52eaeeef83973a8e324839b9fda03f9082deef1b6781353f63975510

doc/ocaml-ai-sdk.ai_provider_openrouter/Ai_provider_openrouter/Convert_prompt/index.html

Module Ai_provider_openrouter.Convert_promptSource

Convert SDK prompt messages to OpenRouter Chat Completions format.

Forked from Ai_provider_openai.Convert_prompt to mirror upstream @openrouter/ai-sdk-provider's src/chat/convert-to-openrouter-chat-messages.ts. The key differences from the OpenAI converter are:

  • System messages are always wrapped in a single-element text content-part array, even without cache control (upstream wire format).
  • User single-text messages switch from a plain string content to a one-element parts array iff a cache_control is resolved (message-level falls back to part-level).
  • User multi-part messages propagate message-level cache_control to the last text part only (per-part wins). No root-level cache_control on multi-part user messages.
  • Assistant part-level cache markers are hoisted to the root-level cache_control field used by OpenRouter assistant messages.
  • Tool messages include a name field and a root-level cache_control (message-level wins over per-result).

Per-part / per-message cache control is read via Cache_control_options.get_cache_control, which falls back to the Anthropic key for cross-provider prompt compatibility.

Sourcetype or_content_part =
  1. | Or_text of {
    1. text : string;
    2. cache_control : Cache_control.t option;
    }
  2. | Or_image_url of {
    1. url : string;
    2. cache_control : Cache_control.t option;
    }
Sourcetype or_function_call = {
  1. name : string;
  2. arguments : string;
}
Sourcetype or_tool_call = {
  1. id : string;
  2. type_ : string;
  3. function_ : or_function_call;
}
Sourcetype openrouter_message =
  1. | System_msg of {
    1. content : string;
    2. cache_control : Cache_control.t option;
    }
  2. | Developer_msg of {
    1. content : string;
    }
  3. | User_msg_single_text of {
    1. text : string;
    2. cache_control : Cache_control.t option;
    }
  4. | User_msg_parts of {
    1. parts : or_content_part list;
    }
  5. | Assistant_msg of {
    1. content : string option;
    2. tool_calls : or_tool_call list;
    3. cache_control : Cache_control.t option;
    }
  6. | Tool_msg of {
    1. tool_call_id : string;
    2. tool_name : string;
    3. content : string;
    4. cache_control : Cache_control.t option;
    }

Convert SDK messages to OpenRouter wire-format messages. Returns converted messages and any warnings generated.

Sourceval openrouter_message_to_json : openrouter_message -> Yojson.Basic.t

Serialize an OpenRouter message to JSON.