[ivette] check directories for import clashes

ivette/Makefile

@@ -31,7 +31,7 @@ DOME_CUSTOM_ENTRIES= yes
 COPYRIGHT=CEA LIST / LSL
 # --------------------------------------------------------------------------
 
-.PHONY: all app dev pkg doc serve dist lint fixlint
+.PHONY: all app dev pkg doc serve dist lint fixlint checkdirs
 
 all: pkg lint app
 
@@ -39,11 +39,22 @@ app: dome-app
 dev: dome-dev
 dist: dome-dist
 
-lint: dome-pkg dome-templ
+lint: dome-pkg dome-templ checkdirs
 	@echo "[Ivette] running typechecker & linter"
 	yarn run typecheck
 	yarn run lint
 
+checkdirs: headers/checkdir
+	@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
+
 tsc: dome-pkg dome-templ
 	@echo "[Ivette] running typechecker & linter (with cache & fix mode)"
 	yarn run typecheck

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

ivette/headers/register.sh

 #!/bin/sh
 case "$1" in
-    Makefile.distrib | *.json | src/dome/doc/* | */.eslintrc.js )
+    Makefile.distrib | *.json | src/dome/doc/* | */.eslintrc.js | headers/* )
         echo "$1: .ignore"
         ;;
     *Make* | src/*/*.js* | src/*/*.ts* | src/*/*.ml*)