Dasemu
40631362b3
Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
32 lines
1.0 KiB
OCaml
32 lines
1.0 KiB
OCaml
type parsed = { ids : Cli_primitive.db_id Rrbvec.t; multi : bool }
|
|
|
|
let valid_id id = Int64.compare id 0L > 0
|
|
|
|
let strip_vector_brackets value =
|
|
let value = String.trim value in
|
|
let len = String.length value in
|
|
if len >= 2 && value.[0] = '[' && value.[len - 1] = ']' then
|
|
String.sub value 1 (len - 2)
|
|
else value
|
|
|
|
let parse_id_string s =
|
|
try
|
|
let split_ids value =
|
|
Vec.split_on_char ',' value
|
|
|> Vec.concat_map (fun part ->
|
|
Vec.split_on_char ' ' part
|
|
|> Vec.concat_map (fun part -> Vec.split_on_char '\t' part))
|
|
in
|
|
let ids =
|
|
strip_vector_brackets s |> split_ids
|
|
|> Vec.filter_map (fun p ->
|
|
let p = String.trim p in
|
|
if p = "" then None else Some (Int64.of_string p))
|
|
in
|
|
if Vec.for_all valid_id ids then Ok { ids; multi = Vec.length ids > 1 }
|
|
else Error (Error.invalid_options "invalid id")
|
|
with _ -> Error (Error.invalid_options "invalid id")
|
|
|
|
let to_single parsed =
|
|
if Vec.length parsed.ids = 1 then Vec.nth_opt parsed.ids 0 else None
|