forked from dbuenzli/uuseg
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathB0.ml
118 lines (99 loc) · 3.81 KB
/
B0.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
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
open B0_kit.V000
open Result.Syntax
let unicode_version = 15, 1, 0, None (* Adjust on new releases *)
let next_major = let maj, _, _, _ = unicode_version in (maj + 1), 0, 0, None
(* OCaml library names *)
let uucp = B0_ocaml.libname "uucp"
let uutf = B0_ocaml.libname "uutf"
let cmdliner = B0_ocaml.libname "cmdliner"
let uuseg = B0_ocaml.libname "uuseg"
(* Libraries *)
let uuseg_lib =
let srcs = [ `Dir ~/"src" ] in
let requires = [ uucp ] in
B0_ocaml.lib uuseg ~doc:"The uuseg library" ~srcs ~requires
let uuseg_string_lib =
let represents = [uuseg] in
B0_ocaml.deprecated_lib ~represents (B0_ocaml.libname "uuseg.string")
(* Tools *)
let usegtrip =
let srcs = [ `File ~/"test/usegtrip.ml" ] in
let requires = [ cmdliner; uutf; uuseg ] in
B0_ocaml.exe "usegtrip" ~public:true ~doc:"The usegtrip tool" ~srcs ~requires
(* Tests *)
let test =
let srcs = [ `File ~/"test/test.ml" ] in
let meta =
B0_meta.empty
|> B0_meta.(tag test)
|> B0_meta.add B0_unit.Exec.cwd `Scope_dir
in
let requires = [ uucp; uuseg ] in
B0_ocaml.exe "test" ~doc:"Test segmentations" ~srcs ~meta ~requires
let examples =
let srcs = [ `File ~/"test/examples.ml" ] in
let meta = B0_meta.empty |> B0_meta.(tag test) in
let requires = [ uuseg ] in
B0_ocaml.exe "examples" ~doc:"Doc samples" ~srcs ~meta ~requires
(* Actions *)
let show_version =
B0_action.make' "unicode-version" ~doc:"Show supported unicode version" @@
fun _ _ ~args:_ ->
Ok (Log.app (fun m -> m "%s" (String.of_version unicode_version)))
let curl env =
B0_env.get_cmd env @@
Cmd.(arg "curl" % "--fail" % "--show-error" % "--progress-bar" % "--location")
let test_uri kind =
Fmt.str "http://www.unicode.org/Public/%s/ucd/auxiliary/%sBreakTest.txt"
(String.of_version unicode_version) kind
let download_tests =
B0_action.make' "download-tests" ~doc:"Download the UCD break tests" @@
fun _ env ~args:_ ->
let* curl = curl env in
let get kind =
let test_uri = test_uri kind in
let test_file = Fpath.v (Fmt.str "test/%sBreakTest.txt" kind) in
let test_file = B0_env.in_scope_dir env test_file in
let stdout = Os.Cmd.out_file ~force:true ~make_path:true test_file in
(Log.app @@ fun m ->
m "@[<v>Downloading %s@,to %a@]" test_uri Fpath.pp test_file);
Os.Cmd.run Cmd.(curl % test_uri) ~stdout
in
let tests = ["Line"; "Grapheme"; "Word"; "Sentence"] in
List.iter_iter_on_error ~error:(Log.if_error ~use:()) get tests;
Ok ()
(* Packs *)
let default =
let meta =
B0_meta.empty
|> B0_meta.(add authors) ["The uuseg programmers"]
|> B0_meta.(add maintainers)
["Daniel Bünzli <daniel.buenzl i@erratique.ch>"]
|> B0_meta.(add homepage) "https://erratique.ch/software/uuseg"
|> B0_meta.(add online_doc) "https://erratique.ch/software/uuseg/doc/"
|> B0_meta.(add licenses) ["ISC"]
|> B0_meta.(add repo) "git+https://erratique.ch/repos/uuseg.git"
|> B0_meta.(add issues) "https://github.com/dbuenzli/uuseg/issues"
|> B0_meta.(add description_tags)
["unicode"; "text"; "segmentation"; "org:erratique"]
|> B0_meta.tag B0_opam.tag
|> B0_meta.add B0_opam.build
{|[["ocaml" "pkg/pkg.ml" "build" "--dev-pkg" "%{dev}%"
"--with-uutf" "%{uutf:installed}%"
"--with-cmdliner" "%{cmdliner:installed}%" ]]|}
|> B0_meta.add B0_opam.depopts [ "uutf", ""; "cmdliner", ""]
|> B0_meta.add B0_opam.conflicts
[ "uutf", {|< "1.0.0"|};
"cmdliner", {|< "1.1.0"|}]
|> B0_meta.add B0_opam.depends
[ "ocaml", {|>= "4.14.0"|};
"ocamlfind", {|build|};
"ocamlbuild", {|build|};
"topkg", {|build & >= "1.0.3"|};
"uucp",
Fmt.str {|>= "%s" & < "%s"|}
(String.of_version unicode_version)
(String.of_version next_major)]
in
B0_pack.make "default" ~doc:"uuseg package" ~meta ~locked:true @@
B0_unit.list ()