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.5.tbz
sha256=9e3437d6ebf48ec9f5d9a8afd62eaeece124023f02dbd87e4b291205fd309b72
sha512=605c10ed62c0cbc31a151b7031cc80a284d5c94231c1ef423ae7439572e3fadddab4a45f52eaeeef83973a8e324839b9fda03f9082deef1b6781353f63975510
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)"
>