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