Generate Unicode data using Dune

Author: MisterDA

dune-project

@@ -17,7 +17,8 @@
  (depends
   (ocaml (>= 4.08.0))
   (cppo (and :build (>= 1.1.0)))
-  (uutf (>= 1.0.0)))
+  (uutf (>= 1.0.0))
+  (uucp :with-dev-setup))
  (depopts
   lwt)
  (conflicts

notty.opam

@@ -14,6 +14,7 @@ depends: [
   "ocaml" {>= "4.08.0"}
   "cppo" {build & >= "1.1.0"}
   "uutf" {>= "1.0.0"}
+  "uucp" {with-dev-setup}
   "odoc" {with-doc}
 ]
 depopts: ["lwt"]

src/no-uucp/dune

@@ -0,0 +1,5 @@
+(rule
+ (targets notty_uucp_data.ml notty_uucp_data.mli)
+ (action
+  (run ../../support/gen_unicode_props.exe))
+ (mode promote))

support/dune

@@ -0,0 +1,3 @@
+(executable
+ (name gen_unicode_props)
+ (libraries uucp))

support/gen_unicode_props.ml

@@ -1,10 +1,6 @@
-#!/usr/bin/env ocaml
 (* Copyright (c) 2020 David Kaloper Meršinjak. All rights reserved.
    See LICENSE.md. *)
 
-#use "topfind"
-#require "uucp"
-
 let filter p seq i = seq (fun x -> if p x then i x)
 let map f seq i = seq (fun x -> i (f x))
 let uchars it =
@@ -24,7 +20,7 @@ let intervals_kv seq i =
   seq f;
   match !s with Some e -> i e | _ -> ()
 
-let intervals_p seq =
+let[@warning "-32"] intervals_p seq =
   map (fun x -> x, ()) seq |> intervals_kv |> map (fun (a, b, _) -> a, b)
 
 (* Condenses code points into continuous range. *)
@@ -132,15 +128,15 @@ let extract (ppmli, ppml as ppfs) =
 
   ()
 
-let file = "src/no-uucp/notty_uucp_data"
+let file = "notty_uucp_data"
 
 let with_new name f =
   let o = open_out_gen [Open_trunc; Open_creat; Open_wronly] 0o664 name in
   let ppf = Format.formatter_of_out_channel o in
   f ppf; Format.pp_print_flush ppf (); close_out o
 
 let () =
-  Format.printf "Dumping Unicode v%s data to %s.@." Uucp.unicode_version file;
+  Format.printf "Dumping Unicode v%s data to %s.ml and %s.mli.@." Uucp.unicode_version file file;
   with_new (file ^ ".mli") @@ fun ppmli ->
     with_new (file ^ ".ml") @@ fun ppml ->
       extract (ppmli, ppml)