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>
74 lines
2.2 KiB
OCaml
74 lines
2.2 KiB
OCaml
let replace_all ~needle ~replacement text =
|
|
let needle_len = String.length needle in
|
|
if needle_len = 0 then invalid_arg "needle must not be empty";
|
|
let text_len = String.length text in
|
|
let buffer = Buffer.create text_len in
|
|
let rec loop index =
|
|
if index >= text_len then Buffer.contents buffer
|
|
else if
|
|
index + needle_len <= text_len
|
|
&& String.sub text index needle_len = needle
|
|
then (
|
|
Buffer.add_string buffer replacement;
|
|
loop (index + needle_len))
|
|
else (
|
|
Buffer.add_char buffer text.[index];
|
|
loop (index + 1))
|
|
in
|
|
loop 0
|
|
|
|
let encode_graph_dir_name graph_name =
|
|
graph_name |> Js.Global.encodeURIComponent
|
|
|> replace_all ~needle:"%20" ~replacement:" "
|
|
|> replace_all ~needle:"~" ~replacement:"%7E"
|
|
|> replace_all ~needle:"%" ~replacement:"~"
|
|
|
|
let graph_dir_name_of_repo repo =
|
|
Cli_config.repo_to_graph repo
|
|
|> Cli_primitive.string_of_graph |> encode_graph_dir_name
|
|
|
|
let contains_substring ~needle text =
|
|
let needle_len = String.length needle in
|
|
let text_len = String.length text in
|
|
let rec loop index =
|
|
index + needle_len <= text_len
|
|
&& (String.sub text index needle_len = needle || loop (index + 1))
|
|
in
|
|
loop 0
|
|
|
|
let decode_percent_graph_dir_name dir_name =
|
|
try Some (Js.Global.decodeURIComponent dir_name) with _ -> None
|
|
|
|
let decode_graph_dir_name dir_name =
|
|
if
|
|
contains_substring ~needle:"++" dir_name
|
|
|| contains_substring ~needle:"+3A+" dir_name
|
|
then None
|
|
else
|
|
dir_name
|
|
|> replace_all ~needle:"~" ~replacement:"%"
|
|
|> decode_percent_graph_dir_name
|
|
|
|
let decode_legacy_graph_dir_name dir_name =
|
|
if
|
|
not
|
|
(contains_substring ~needle:"++" dir_name
|
|
|| contains_substring ~needle:"+3A+" dir_name
|
|
|| contains_substring ~needle:"%" dir_name)
|
|
then None
|
|
else
|
|
dir_name
|
|
|> replace_all ~needle:"+3A+" ~replacement:":"
|
|
|> replace_all ~needle:"++" ~replacement:"/"
|
|
|> decode_percent_graph_dir_name
|
|
|> fun graph_name ->
|
|
Option.bind graph_name (fun graph_name ->
|
|
if graph_name = "" then None else Some graph_name)
|
|
|
|
let canonical_graph_name_of_dir dir_name =
|
|
match decode_graph_dir_name dir_name with
|
|
| Some graph_name
|
|
when graph_name <> "" && encode_graph_dir_name graph_name = dir_name ->
|
|
Some graph_name
|
|
| _ -> None
|