Source file fileType.ml

(*****************************************************************************)
(*                                                                           *)
(*  Copyright (C) 2025 Yves Ndiaye                                           *)
(*                                                                           *)
(* This Source Code Form is subject to the terms of the Mozilla Public       *)
(* License, v. 2.0. If a copy of the MPL was not distributed with this       *)
(* file, You can obtain one at https://mozilla.org/MPL/2.0/.                 *)
(*                                                                           *)
(*****************************************************************************)

(** Operations on file type accepted in a cue sheet. *)

(** The type of FileType associated with a {!File} *)
type t = BINARY | MOTOROLA | AIFF | WAVE | MP3

let to_string = function
  | BINARY -> "BINARY"
  | MOTOROLA -> "MOTOROLA"
  | AIFF -> "AIFF"
  | WAVE -> "WAVE"
  | MP3 -> "MP3"

(** [compare lhs rhs] is [Stdlib.compare] *)
let compare : t -> t -> int = Stdlib.compare

(** Pretty printer *)
let pp format s = Format.fprintf format "%s" (to_string s)