~ util; add Protocol_version

src/util.ml

@@ -1,33 +1,42 @@
-let mimetype_ext_assoc =
-  [
-    (("text", "plain"), ".txt"); (("text", "markdown"), ".md")
-  ; (("text", "html"), ".html"); (("text", "html"), ".htm")
-  ; (("application", "pdf"), ".pdf"); (("image", "jpeg"), ".jpg")
-  ; (("image", "jpeg"), ".jpeg"); (("image", "png"), ".png")
-  ; (("image", "gif"), ".gif")
-  ]
+module Protocol_version = struct
+  (* libtool version format *)
+  (* todo *)
+  let current = 0
+  let revision = 0
+  let age = 0
+  let v = Fmt.str "%d:%d:%d"
+end
 
-(* <> than the actual set of "supported" extension (which depends on config files) *)
-let all_known_mimetypes, all_known_extensions = List.split mimetype_ext_assoc
-let is_valid_filename path = Fpath.mem_ext all_known_extensions path
+module Mimetype = struct
+  let mimetype_extension_assoc =
+    [
+      (("text", "plain"), ".txt"); (("text", "markdown"), ".md")
+    ; (("text", "html"), ".html"); (("text", "html"), ".htm")
+    ; (("application", "pdf"), ".pdf"); (("image", "jpeg"), ".jpg")
+    ; (("image", "jpeg"), ".jpeg"); (("image", "png"), ".png")
+    ; (("image", "gif"), ".gif")
+    ]
 
-let media_to_known_mimetype = function
-  | Cohttp.Accept.MediaType (m, m_sub) ->
-      List.find_opt (( = ) (m, m_sub)) all_known_mimetypes
-  | AnyMediaSubtype m ->
-      List.find_opt (fun (m', _) -> String.equal m m') all_known_mimetypes
-  | AnyMedia -> Some Config.default_mimetype
+  let mimetype_l, _ = List.split mimetype_extension_assoc
 
-let mimetype_to_extension (m, m_sub) =
-  assert (m <> "*");
-  assert (m_sub <> "*");
-  List.assoc_opt (m, m_sub) mimetype_ext_assoc
+  let of_cohttp_media = function
+    | Cohttp.Accept.MediaType (m, m_sub) ->
+        List.find_opt (( = ) (m, m_sub)) mimetype_l
+    | AnyMediaSubtype m ->
+        List.find_opt (fun (m', _) -> String.equal m m') mimetype_l
+    | AnyMedia -> Some Config.default_mimetype
 
-let extension_to_mimetype ext =
-  List.find_map
-    (fun (mime, ext') ->
-      match String.equal ext ext' with false -> None | true -> Some mime)
-    mimetype_ext_assoc
+  let to_extension (m, m_sub) =
+    assert (m <> "*");
+    assert (m_sub <> "*");
+    List.assoc_opt (m, m_sub) mimetype_extension_assoc
+
+  let of_extension ext =
+    List.find_map
+      (fun (mime, ext') ->
+        match String.equal ext ext' with false -> None | true -> Some mime)
+      mimetype_extension_assoc
+end
 
 (* -- pretty printers -- *)
 let pp_mime fmt mime = Fmt.pf fmt "%s/%s" (fst mime) (snd mime)