Source file `lang_fuzzy.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
(* very similar to lang_GENERIC/parsing/lang.ml *)

module FT = File_type

type t =
  | PHP
  | ML
  | Java
  | Skip
  | Javascript
  | Cpp

let lang_of_string_opt = function
  | "phpfuzzy"            -> Some PHP
  | "cfuzzy" | "cppfuzzy" -> Some Cpp
  | "mlfuzzy"             -> Some ML
  | "javafuzzy"           -> Some Java
  | "jsfuzzy"             -> Some Javascript
  | "skipfuzzy"           -> Some Skip
  | _ -> None

let lang_of_filename_opt filename =
 let typ = File_type.file_type_of_file filename in
 match typ with
 | FT.PL (FT.Web (FT.Js)) -> Some Javascript
 | FT.PL (FT.Web (FT.Php _)) -> Some PHP
 | FT.PL (FT.C ("c" | "h" )) -> Some Cpp
 | FT.PL (FT.ML _) -> Some ML
 | FT.PL (FT.Java) -> Some Java
 | FT.PL (FT.Skip) -> Some Skip
 | _ -> None