stay as restrictive as possible (#158)

ocaml-community · Sep 17, 2024 · d93aeb6 · d93aeb6
1 parent 78af0c6
commit d93aeb6
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/generator/gen_unicode.ml b/src/generator/gen_unicode.ml
@@ -14,6 +14,7 @@ let parse_line l =
     match String.index_opt l '#' with None -> l | Some i -> String.sub l 0 i
   in
   String.split_on_char ';' l
+  |> List.map String.trim
 
 let parse_code s =
   try int_of_string (Printf.sprintf "0x%s" s)
@@ -91,8 +92,11 @@ let files =
               let interval = parse_interval interval in
               let prop = parse_prop prop in
               Hashtbl.add labels prop interval
-          (* TODO: support non-binary properties? *)
-          | _ -> () );
+          | [_interval; ("InCB"); ("Extend"|"Consonant"|"Linker")] ->
+             (* TODO: support non-binary properties? *)
+             ()
+          | _ ->
+             assert false);
     ( "DerivedGeneralCategory.txt",
       fun s ->
         match parse_line s with