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.6.tbz
sha256=44e7f6ebef6da2828ec2844dd5b38c8f37284c08e54a29e06f6a8822df6f8e10
sha512=ce31d0868abf28bcaef7b24a0ab09b37dcfc94db3de96b38ff36a03800ae59a19e8009a35314f93191b3c8f178c40f8569630d4389f56ddc2f2cc94fb7bffc3c

doc/src/ocaml-ai-sdk.ai_provider_anthropic/convert_usage.ml.html

Source file convert_usage.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
open Melange_json.Primitives

type cache_creation = {
  ephemeral_5m_input_tokens : int; [@json.default 0]
  ephemeral_1h_input_tokens : int; [@json.default 0]
}
[@@json.allow_extra_fields] [@@deriving json]

type anthropic_usage = {
  input_tokens : int; [@json.default 0]
  output_tokens : int; [@json.default 0]
  cache_read_input_tokens : int option; [@json.default None]
  cache_creation_input_tokens : int option; [@json.default None]
  cache_creation : cache_creation option; [@json.default None]
  service_tier : string option; [@json.default None]
  inference_geo : string option; [@json.default None]
}
[@@json.allow_extra_fields] [@@deriving json]

let to_usage u =
  {
    Ai_provider.Usage.input_tokens = u.input_tokens;
    output_tokens = u.output_tokens;
    total_tokens = Some (u.input_tokens + u.output_tokens);
  }

type _ Ai_provider.Provider_options.key += Cache_metrics : anthropic_usage Ai_provider.Provider_options.key

let to_provider_metadata u = Ai_provider.Provider_options.set Cache_metrics u Ai_provider.Provider_options.empty
let of_provider_metadata opts = Ai_provider.Provider_options.find Cache_metrics opts