moved file_extension to common

common.ml

@@ -164,7 +164,7 @@ let get_signature com =
 	match com.defines_signature with
 	| Some s -> s
 	| None ->
-		let str = String.concat "@" (PMap.foldi (fun k _ acc -> 
+		let str = String.concat "@" (PMap.foldi (fun k _ acc ->
 			(* don't make much difference between these special compilation flags *)
 			match k with
 			| "display" | "use_rtti_doc" | "macrotimes" -> acc
@@ -174,6 +174,11 @@ let get_signature com =
 		com.defines_signature <- Some s;
 		s
 
+let file_extension file =
+	match List.rev (ExtString.String.nsplit file ".") with
+	| e :: _ -> String.lowercase e
+	| [] -> ""
+
 let platforms = [
 	Flash8;
 	Js;

main.ml

@@ -106,12 +106,6 @@ let report_times print =
 	let timers = List.sort (fun t1 t2 -> compare t1.name t2.name) (Hashtbl.fold (fun _ t acc -> t :: acc) Common.htimers []) in
 	List.iter (fun t -> print (Printf.sprintf "  %s : %.3fs, %.0f%%" t.name t.total (t.total *. 100. /. !tot))) timers
 
-let file_extension f =
-	let cl = ExtString.String.nsplit f "." in
-	match List.rev cl with
-	| [] -> ""
-	| x :: _ -> x
-
 let make_path f =
 	let f = String.concat "/" (ExtString.String.nsplit f "\\") in
 	let cl = ExtString.String.nsplit f "." in