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.1.tbz
sha256=cb3b82428abcda76c02ec92f8103a4db28edf3f42795794a37135e9a3c40af96
sha512=11be8889ee25bee67b2be00553c42a4692bc73e5ce23985e8bb87f8a07e9d8f556b5a63b219fe5fe30366c8b0d4edae494afa80ccfbfcb112f1fa1e458de55bf
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)"
>