package ocaml-ai-sdk
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
OCaml AI SDK - Provider abstraction for AI models
Install
dune-project
Dependency
Authors
Maintainers
Sources
ocaml-ai-sdk-0.4.tbz
sha256=4f3f22ae61d360b994cd75323bcb6b6bf915f6755fd1e7bab6844ca8a240c1e7
sha512=3c52b17096da818f5d3bcf9fe16826c3bec4533d6a1681e8ba0f957f37ee4f425696017cb78f1a24732f8851010d436cf446f873b72b6a4f5004d6b492072abf
doc/ocaml-ai-sdk.ai_provider/Ai_provider/Prompt/index.html
Module Ai_provider.PromptSource
Prompt messages with role-constrained content parts.
Each message role restricts which content parts are valid:
System: text onlyUser: text and filesAssistant: text, files, reasoning, and tool callsTool: tool results only
How file data is represented.
Source
type user_part = | Text of {text : string;provider_options : Provider_options.t;
}| File of {data : file_data;media_type : string;filename : string option;provider_options : Provider_options.t;
}
A single part in a user message.
Source
type assistant_part = | Text of {text : string;provider_options : Provider_options.t;
}| File of {data : file_data;media_type : string;filename : string option;provider_options : Provider_options.t;
}| Reasoning of {text : string;provider_options : Provider_options.t;
}| Tool_call of {id : string;name : string;args : Yojson.Basic.t;provider_options : Provider_options.t;
}
A single part in an assistant message.
Content returned with a tool result.
Source
type tool_result = {tool_call_id : string;tool_name : string;result : Yojson.Basic.t;is_error : bool;content : tool_result_content list;provider_options : Provider_options.t;
}A tool execution result.
Source
type message = | System of {content : string;provider_options : Provider_options.t;
}| User of {content : user_part list;
}| Assistant of {content : assistant_part list;
}| Tool of {content : tool_result list;
}
A prompt message. The role constrains valid content parts.
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>