Source file `Syntax.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
(**************************************************************************)
(*                                                                        *)
(*                              OCamlFormat                               *)
(*                                                                        *)
(*            Copyright (c) Facebook, Inc. and its affiliates.            *)
(*                                                                        *)
(*      This source code is licensed under the MIT license found in       *)
(*      the LICENSE file in the root directory of this source tree.       *)
(*                                                                        *)
(**************************************************************************)

type t =
  | Structure
  | Signature
  | Use_file
  | Core_type
  | Module_type
  | Expression
  | Repl_file
  | Documentation

let of_fname fname =
  match Filename.extension fname with
  | ".ml" | ".mlt" | ".eliom" -> Some Use_file
  | ".mli" | ".eliomi" -> Some Signature
  | ".mld" -> Some Documentation
  | _ -> None