sig
  module Output : Log.Messages
  type t = private {
    pid : int;
    mutable name : string;
    mutable unique_name : string;
  }
  type project = Project_skeleton.t
  val dummy : Project_skeleton.t
  module Make_setter :
    functor (X : sig val mem : string -> bool end->
      sig
        val make_unique_name : string -> string
        val make : string -> Project_skeleton.t
        val set_name : Project_skeleton.t -> string -> unit
      end
end