My aggregated monorepo of OCaml code, automaintained

Documentation fixes #1

merged opened by jon.recoil.org targeting main from jon.recoil.org/monopam-myspace: doc-fixes

Fixes all the warnings in the docs. Requires the latest commits on my fork of dune, branch odoc-v3-rules-3.21

Labels

None yet.

assignee

None yet.

Participants 2
AT URI
at://did:plc:v3lpbvpa4s5yxincntuvtwtm/sh.tangled.repo.pull/3mch7zk4dbw22
+44 -28
Diff #0
+2
.gitignore
··· 1 1 _build 2 + .vscode 3 +
+3
dune-project
··· 51 51 xdg 52 52 zarith 53 53 )) 54 + 55 + (documentation (index index.mld)) 56 +
+6
index.mld
··· 1 + {0 Toplevel index} 2 + 3 + Here we put all the text we want in the toplevel index. 4 + 5 + In addition, we can put links to {{!/cbort/Cbort.Error.path}elements} 6 +
+2 -1
ocaml-bytesrw-eio/dune-project
··· 21 21 (eio (>= 1.0)) 22 22 (odoc :with-doc) 23 23 (alcotest (and :with-test (>= 1.7.0))) 24 - (eio_main :with-test))) 24 + (eio_main :with-test)) 25 + (documentation (depends bytesrw)))
+2 -1
ocaml-cff/dune-project
··· 30 30 bytesrw-eio 31 31 (odoc :with-doc) 32 32 (alcotest (and :with-test (>= 1.7.0))) 33 - (eio_main :with-test))) 33 + (eio_main :with-test)) 34 + (documentation (depends bytesrw-eio)))
+3
ocaml-claudeio/lib/claude.mli
··· 210 210 module Model = Model 211 211 (** Claude AI model identifiers. *) 212 212 213 + module Structured_output = Structured_output 214 + (** Structured output configuration using JSON Schema. *) 215 + 213 216 (** {1 Custom Tools (MCP)} 214 217 215 218 These modules enable custom tool definitions that run in-process via MCP
+4 -4
ocaml-claudeio/lib/client.mli
··· 36 36 {2 Message Flow} 37 37 38 38 1. Create a client with {!create} 2. Send messages with {!query} or 39 - {!send_message} 3. Receive responses with {!receive} or {!receive_all} 4. 39 + {!Advanced.send_message} 3. Receive responses with {!receive} or {!receive_all} 4. 40 40 Continue multi-turn conversations by sending more messages 5. Client 41 41 automatically cleans up when the switch exits 42 42 ··· 304 304 (** [receive_raw t] returns a lazy sequence of raw incoming messages. 305 305 306 306 This includes all message types before Response conversion: 307 - - {!Incoming.Message} - Regular messages 308 - - {!Incoming.Control_response} - Control responses (normally handled 307 + - {!Proto.Incoming.t.constructor-Message} - Regular messages 308 + - {!Proto.Incoming.t.constructor-Control_response} - Control responses (normally handled 309 309 internally) 310 - - {!Incoming.Control_request} - Control requests (normally handled 310 + - {!Proto.Incoming.t.constructor-Control_request} - Control requests (normally handled 311 311 internally) 312 312 313 313 Most users should use {!receive} or {!run} instead. *)
+1 -1
ocaml-claudeio/proto/structured_output.mli
··· 11 11 the specified JSON format, validated against the provided schema. 12 12 13 13 This is the protocol-level module. For the high-level API with logging and 14 - additional features, see {!Claudeio.Structured_output}. *) 14 + additional features, see {!Claude.Structured_output}. *) 15 15 16 16 (** {1 Output Format Configuration} *) 17 17
+18 -18
ocaml-json-pointer/src/json_pointer.mli
··· 77 77 (** [unescape s] unescapes a JSON Pointer reference token. 78 78 Specifically, [~1] becomes [/] and [~0] becomes [~]. 79 79 80 - @raise Jsont.Error.Error if [s] contains invalid escape sequences 80 + @raise Jsont.exception-Error if [s] contains invalid escape sequences 81 81 (a [~] not followed by [0] or [1]). *) 82 82 end 83 83 ··· 202 202 203 203 val to_nav_exn : any -> nav t 204 204 (** [to_nav_exn p] returns the navigation pointer if [p] is one. 205 - @raise Jsont.Error.Error if [p] is an append pointer. *) 205 + @raise Jsont.exception-Error if [p] is an append pointer. *) 206 206 207 207 (** {2:parsing Parsing} *) 208 208 ··· 217 217 with [/]. Each segment between [/] characters is unescaped as a 218 218 reference token. 219 219 220 - @raise Jsont.Error.Error if [s] has invalid syntax: 220 + @raise Jsont.exception-Error if [s] has invalid syntax: 221 221 - Non-empty string not starting with [/] 222 222 - Invalid escape sequence ([~] not followed by [0] or [1]) 223 223 - [-] appears in non-final position *) ··· 230 230 differently, or when you need a typed pointer for operations that 231 231 require a specific kind. 232 232 233 - @raise Jsont.Error.Error if [s] has invalid syntax. *) 233 + @raise Jsont.exception-Error if [s] has invalid syntax. *) 234 234 235 235 val of_string_nav : string -> nav t 236 236 (** [of_string_nav s] parses a JSON Pointer that must not contain [-]. ··· 238 238 Use this when you need a {!nav} pointer for retrieval operations 239 239 like {!get} or {!find}. 240 240 241 - @raise Jsont.Error.Error if [s] has invalid syntax or contains [-]. *) 241 + @raise Jsont.exception-Error if [s] has invalid syntax or contains [-]. *) 242 242 243 243 val of_string_result : string -> (any, string) result 244 244 (** [of_string_result s] is like {!of_string} but returns a result ··· 251 251 according to {{:https://www.rfc-editor.org/rfc/rfc3986}RFC 3986}. 252 252 The leading [#] should {b not} be included in [s]. 253 253 254 - @raise Jsont.Error.Error on invalid syntax or invalid percent-encoding. *) 254 + @raise Jsont.exception-Error on invalid syntax or invalid percent-encoding. *) 255 255 256 256 val of_uri_fragment_nav : string -> nav t 257 257 (** [of_uri_fragment_nav s] is like {!of_uri_fragment} but requires 258 258 the pointer to not contain [-]. 259 259 260 - @raise Jsont.Error.Error if invalid or contains [-]. *) 260 + @raise Jsont.exception-Error if invalid or contains [-]. *) 261 261 262 262 val of_uri_fragment_result : string -> (any, string) result 263 263 (** [of_uri_fragment_result s] is like {!of_uri_fragment} but returns ··· 317 317 val get : nav t -> Jsont.json -> Jsont.json 318 318 (** [get p json] retrieves the value at pointer [p] in [json]. 319 319 320 - @raise Jsont.Error.Error if: 320 + @raise Jsont.exception-Error if: 321 321 - The pointer references a nonexistent object member 322 322 - The pointer references an out-of-bounds array index 323 323 - An index type doesn't match the JSON value (e.g., [Nth] ··· 353 353 This accepts {!type:any} pointers directly from {!of_string}: 354 354 {[set (of_string "/tasks/-") json ~value:(Jsont.Json.string "new task")]} 355 355 356 - @raise Jsont.Error.Error if the pointer doesn't resolve to an existing 356 + @raise Jsont.exception-Error if the pointer doesn't resolve to an existing 357 357 location (except for {!append} pointers on arrays). *) 358 358 359 359 val add : any -> Jsont.json -> value:Jsont.json -> Jsont.json ··· 368 368 valid (0 to length inclusive).} 369 369 {- For {!append} pointers: Appends [value] to the array.}} 370 370 371 - @raise Jsont.Error.Error if: 371 + @raise Jsont.exception-Error if: 372 372 - The parent of the target location doesn't exist 373 373 - An array index is out of bounds (except for {!append} pointers) 374 374 - The parent is not an object or array *) ··· 379 379 For objects, removes the member. For arrays, removes the element 380 380 and shifts subsequent elements. 381 381 382 - @raise Jsont.Error.Error if: 382 + @raise Jsont.exception-Error if: 383 383 - [p] is the root (cannot remove the root) 384 384 - The pointer doesn't resolve to an existing value *) 385 385 ··· 388 388 389 389 Unlike {!add}, this requires the target to exist. 390 390 391 - @raise Jsont.Error.Error if the pointer doesn't resolve to an existing value. *) 391 + @raise Jsont.exception-Error if the pointer doesn't resolve to an existing value. *) 392 392 393 393 val move : from:nav t -> path:any -> Jsont.json -> Jsont.json 394 394 (** [move ~from ~path json] moves the value from [from] to [path]. ··· 396 396 This is equivalent to {!remove} at [from] followed by {!add} 397 397 at [path] with the removed value. 398 398 399 - @raise Jsont.Error.Error if: 399 + @raise Jsont.exception-Error if: 400 400 - [from] doesn't resolve to a value 401 401 - [path] is a proper prefix of [from] (would create a cycle) *) 402 402 ··· 406 406 This is equivalent to {!get} at [from] followed by {!add} 407 407 at [path] with the retrieved value. 408 408 409 - @raise Jsont.Error.Error if [from] doesn't resolve to a value. *) 409 + @raise Jsont.exception-Error if [from] doesn't resolve to a value. *) 410 410 411 411 val test : nav t -> Jsont.json -> expected:Jsont.json -> bool 412 412 (** [test p json ~expected] tests if the value at [p] equals [expected]. ··· 511 511 The syntax is the same as RFC 6901 JSON Pointer, except [*] is allowed 512 512 as a reference token for array mapping. 513 513 514 - @raise Jsont.Error.Error if [s] has invalid syntax. *) 514 + @raise Jsont.exception-Error if [s] has invalid syntax. *) 515 515 516 516 val of_string_result : string -> (t, string) result 517 517 (** [of_string_result s] is like {!of_string} but returns a result. *) ··· 528 528 For [*] tokens on arrays, maps through all elements and collects results. 529 529 Results that are arrays are flattened into the output. 530 530 531 - @raise Jsont.Error.Error if: 531 + @raise Jsont.exception-Error if: 532 532 - A standard token doesn't resolve (member not found, index out of bounds) 533 533 - [*] is used on a non-array value 534 534 - [-] appears in the pointer (not supported in JMAP extended pointers) *) ··· 561 561 (Jsont.list Jsont.string) 562 562 ]} 563 563 564 - @raise Jsont.Error.Error if the pointer fails to resolve (and no [absent]) 564 + @raise Jsont.exception-Error if the pointer fails to resolve (and no [absent]) 565 565 or if decoding with [codec] fails. *) 566 566 567 567 val path_list : t -> 'a Jsont.t -> 'a list Jsont.t ··· 576 576 Jmap.path (Jmap.of_string "/list/*/id") (Jsont.list Jsont.string) 577 577 ]} 578 578 579 - @raise Jsont.Error.Error if pointer resolution fails, the result is not an array, 579 + @raise Jsont.exception-Error if pointer resolution fails, the result is not an array, 580 580 or any element fails to decode. *) 581 581 end
+1 -1
ocaml-tomlt/lib_jsont/tomlt_jsont.mli
··· 92 92 93 93 val decode_jsont_exn : string -> Toml.t 94 94 (** [decode_jsont_exn s] is like [decode_jsont'] but raises on error. 95 - @raise Jsont.Error.Error on decode failure. *) 95 + @raise Jsont.exception-Error on decode failure. *) 96 96 97 97 (** {1:internal Internal Types} 98 98
+2 -2
ocaml-tomlt/lib_unix/tomlt_unix.mli
··· 57 57 val of_channel : ?file:string -> in_channel -> Tomlt.Toml.t 58 58 (** [of_channel ic] reads and parses TOML from an input channel. 59 59 @param file Optional filename for error messages. 60 - @raise Toml.Error.Error on parse errors. *) 60 + @raise Tomlt.Toml.Error.exception-Error on parse errors. *) 61 61 62 62 val to_channel : out_channel -> Tomlt.Toml.t -> unit 63 63 (** [to_channel oc value] writes [value] as TOML to an output channel. ··· 73 73 74 74 val decode_file_exn : 'a Tomlt.t -> string -> 'a 75 75 (** [decode_file_exn codec path] is like {!decode_file} but raises on errors. 76 - @raise Toml.Error.Error on parse or decode errors. 76 + @raise Tomlt.Toml.Error.exception-Error on parse or decode errors. 77 77 @raise Sys_error on file errors. *) 78 78 79 79 val encode_file : 'a Tomlt.t -> 'a -> string -> unit

History

1 round 1 comment
sign up or login to add to the discussion
jon.recoil.org submitted #0
1 commit
expand
Fix errors in documentation, and add a toplevel index
expand 1 comment
pull request successfully merged