Source file waves_intf.ml

open Base

module type S = sig
  module Data : Data.S
  module Wave : Wave.M(Data).S

  module Config : sig
    type t =
      { mutable signals_width : int
      ; mutable values_width : int
      ; mutable wave_width : int
      ; mutable wave_height : int
      ; mutable start_cycle : int
      ; mutable start_signal : int
      ; mutable selected_signal : int
      ; mutable wave_cursor : int
      ; mutable signal_scroll : int
      ; mutable value_scroll : int
      }
    [@@deriving sexp]

    val default : t
  end

  type t =
    { cfg : Config.t
    ; waves : Wave.t array
    }
  [@@deriving sexp_of]
end

module M (Data : Data.S) (Wave : Wave.M(Data).S) = struct
  module type S = S with module Data := Data and module Wave := Wave
end

module type Waves = sig
  module type S = S

  module M = M
  module Make (Data : Data.S) (Wave : Wave.M(Data).S) : M(Data)(Wave).S
end