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