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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
(* Copyright 2022-2023 Kotoi-Xie Consultancy, Inc. This file is a part of the
==== Bindoj (https://kxc.dev/bindoj) ====
software project that is developed, maintained, and distributed by
Kotoi-Xie Consultancy, Inc. (https://kxc.inc) which is also known as KXC.
Licensed under the Apache License, Version 2.0 (the "License"); you may not
use this file except in compliance with the License. You may obtain a copy
of the License at http://www.apache.org/licenses/LICENSE-2.0. Unless required
by applicable law or agreed to in writing, software distributed under the
License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS
OF ANY KIND, either express or implied. See the License for the specific
language governing permissions and limitations under the License.
*)
(* Acknowledgements --- AnchorZ Inc. --- The current/initial version or a
significant portion of this file is developed under the funding provided by
AnchorZ Inc. to satisfy its needs in its product development workflow.
*)
let numeric = String.for_all (function '0' .. '9' -> true | _ -> false)
let version_head ?(case=(`any : [ `lower | `upper | `any ])) =
match case with
| `any -> (
String.partition_opt 1 &> function
| Some (("V" | "v"), n) when numeric n -> true
| _ -> false)
| `lower -> (
String.partition_opt 1 &> function
| Some ("v", n) when numeric n -> true
| _ -> false)
| `upper -> (
String.partition_opt 1 &> function
| Some ("V", n) when numeric n -> true
| _ -> false)
(* e.g.
[partition_snake "v1_2_foo_bar" = [`v ["1"; "2"]; `n "foo"; `n "bar"]]
[partition_snake "foo_v1_2_bar" = [`n "foo"; `v ["1"; "2"]; `n "bar"]]
[partition_snake "foo_bar_v1_2" = [`n "foo"; `n "bar"; `v ["1"; "2"];]]
[partition_snake "V1_2_foo_bar" = [`v ["1"; "2"]; `n "foo"; `n "bar"]]
*)
let partition_snake ?(f=identity) str : [
| `n of string (* normal component *)
| `v of string (* numeric string *) list (* version string component *)
] list =
let rec go_rev acc cacc rest = match cacc, rest with
| [], [] -> acc
| v, [] -> `v (List.rev v) :: acc
| (_ :: _ as v), (next :: rest) ->
if numeric next then go_rev acc (next :: cacc) rest
else go_rev (`n (f next) :: `v (List.rev v) :: acc) [] rest
| [], (next :: rest) ->
if version_head next
then go_rev acc [String.partition 1 next |> snd] rest
else go_rev (`n (f next) :: acc) [] rest
in
String.split_on_char '_' str
|> go_rev [] [] |> List.rev
module Mangling = struct
let concat_strings = String.concat ""
let snake_to_upper_camel ?(preserve_version_substring = true) snake_str =
if preserve_version_substring then (
partition_snake ~f:String.capitalize_ascii snake_str
|&> (function
| `n comp -> comp
| `v v -> "V"^String.(concat "_" v))
|> concat_strings
) else (
String.split_on_char '_' snake_str
|> List.map String.capitalize_ascii
|> concat_strings)
let snake_to_lower_camel ?preserve_version_substring snake_str =
match snake_to_upper_camel ?preserve_version_substring snake_str
|> String.partition_opt 1 with
| None -> ""
| Some (h, rest) -> String.lowercase_ascii h ^ rest
let snake_to_kebab' ?(f=identity) ?(preserve_version_substring = true) snake_str =
if preserve_version_substring then (
partition_snake ~f snake_str
|&> (function
| `n comp -> comp
| `v v -> "v"^String.(concat "_" v))
|> String.concat "-"
) else (
String.split_on_char '_' snake_str
|> List.map f
|> String.concat "-")
let snake_to_kebab ?preserve_version_substring snake_str =
snake_to_kebab' ?preserve_version_substring snake_str
let cap_snake_to_kebab ?preserve_version_substring cap_snake_str =
snake_to_kebab' ~f:String.lowercase_ascii ?preserve_version_substring cap_snake_str
end