Module Project


module Project: sig .. end
The projects arborescent type, containing teams and subprojects.

module H: Assoc.H

type project = {
   num : int;
   add : Base.paddress;
   name : string ref;
   id : string ref;
   coeff : float ref;
   dgrad : float ref;
   teams : (int, Team.team) H.t;
   sub : project list ref;
}
val make_project : ?name:string ->
?id:string ->
?a:Base.paddress -> ?coeff:float -> ?dgrad:float -> int -> project
val empty_project : project
val get_project_num : project -> int
val get_paddress : project -> Base.paddress
val get_project_name : project -> string
val set_project_name : project -> string -> unit
val get_project_id : project -> string
val set_project_id : project -> string -> unit
val get_project_coeff : project -> float
val set_project_coeff : project -> float -> unit
val get_project_dgrad : project -> float
val set_project_dgrad : project -> float -> unit
val get_project_teams : project -> (int, Team.team) H.t
val get_project_sub : project -> project list
val set_project_sub : project -> project list -> unit
val create_find_subproject_at_address : project -> Base.paddress -> project