sig
  val src_matches_arch : string -> string -> bool
  val read_tupletable :
    ?ttfile:string option -> ?ctfile:string option -> unit -> unit
end