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.6.2.tbz
sha256=637f60398f673dfb2e661f6ed7da169b823a870d27b48e729d5b9200e46a52b2
sha512=5aec259473395025edb6689b544e57e821cfbef9352987f95eb2182034979ce898040e06e60a9d89a40a187b77fb5b1b7183c7ec4264da9d9a834864860a5fed
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)"
>