[ivette] Makefile-based checkdir

ivette/Makefile

@@ -44,16 +44,14 @@ lint: dome-pkg dome-templ checkdirs
 	yarn run typecheck
 	yarn run lint
 
-checkdirs: headers/checkdir
+checkdirs:
 	@echo "[Ivette] check imported filenames"
-	@headers/checkdirs.sh
-
-headers/checkdir: headers/checkdir.ml
-	@echo "[Ivette] headers/checkdir"
-	@ocamlopt -o $@ $<
-
-clean::
-	@rm -f headers/*.cm* headers/*.o headers/checkdir
+	@err=0 ; for f in `find src | sed -E 's/(.ts|.tsx|.js|.jsx|.css|.json)$$//' | sort -f | uniq -di` ;\
+	 do \
+		err=1; \
+		echo " - ambiguous $$f.*"; \
+	 done ;\
+	 exit $$err
 
 tsc: dome-pkg dome-templ
 	@echo "[Ivette] running typechecker & linter (with cache & fix mode)"

ivette/headers/checkdir.ml

-(* -------------------------------------------------------------------------- *)
-(* --- Check Filename CASE sensitivity                                    --- *)
-(* -------------------------------------------------------------------------- *)
-
-let loadable = [".ts";".tsx";".js";".jsx";".css";".json"]
-
-let basename f =
-  let rec lookup f = function
-    | [] -> None
-    | suffix::others ->
-      match Filename.chop_suffix_opt ~suffix f with
-      | None -> lookup f others
-      | Some basename -> Some (String.lowercase_ascii basename)
-  in lookup f loadable
-
-let () =
-  let dir = Sys.argv.(1) in
-  let hmap : (string,string) Hashtbl.t = Hashtbl.create 32 in
-  Sys.readdir dir |> Array.iter
-    begin fun f ->
-      match basename f with
-      | None -> ()
-      | Some base ->
-        try
-          let f0 = Hashtbl.find hmap base in
-          Format.printf "Ambiguous import '%s/%s':@\n" dir base ;
-          Format.printf " - '%s'@\n" f0 ;
-          Format.printf " - '%s'@\n" f ;
-          exit 1 ;
-        with Not_found ->
-          Hashtbl.add hmap base f
-    end ;
-  exit 0
-
-(* -------------------------------------------------------------------------- *)

ivette/headers/checkdirs.sh

-#!/bin/sh -e
-
-for d in `find src -type d`
-do
-    headers/checkdir $d
-done