Module Base


module Base: sig .. end
Base.ml file, mainly containing the utility classes.

val createorderedlist : int -> int list
val remove : 'a list -> 'a -> 'a list
val remove_doubles : 'a list -> 'a list
val separate_list_at : int -> 'a list -> 'a list * 'a list
val iter_random : ('a -> unit) -> 'a list -> unit
val randomize_list : 'a list -> 'a list
val find_random : ('a -> bool) -> 'a list -> 'a
val max_list : int list -> int -> int list
val sum_int_list : int list -> int
val cut_list_at : int -> 'a list -> 'a list
val remove_dups : 'a list -> 'a list
val get_rank : 'a -> 'a list -> int
val time_to_string : Unix.tm -> string
val string_to_time : string -> Unix.tm
val nonnumregexp : Str.regexp
val convert_to_int_list : string -> int list
val convert_to_float_list : string -> float list
val convert_int_list_to_string : int list -> string
val print_int_list : int list -> unit
val convert_int_int_list_to_string : (int * int) list -> string
val cut_string_to_length : string -> string -> int -> string
type paddress = int list 
val pa_to_string : paddress -> string
val pa_of_string : string -> int list

type sort =
| No_order
| Alpha
| Grade of paddress
| Team of paddress

type goal =
| MaximizeTeams
| MinimizeTeams
| MaxLessEqualTo of int
| MinMoreEqualTo of int
val maximum_nb_projects : int
val maximum_nb_teams : int
val maximum_level : int
val base_dir : string
val server_mode : bool ref
val quiet_mode : bool ref
val verbose_mode : bool ref
val nogrades_mode : bool ref
val nologin_mode : bool ref
val debug : string -> unit
val do_assign_resp : bool ref
val do_color_terminal : bool ref
val allow_grading : bool ref
val allow_naming_projects : bool ref
val ref_sort : sort ref
val ref_team_possibilities : int list ref
val ref_strategy : goal ref
val default_grade : float ref
val loginsel : string ref
val projectssel : paddress ref
val teamssel : int list ref
val groupssel : int list ref
val notessel : float list ref
val datesel : Unix.tm ref
val etud_file : string ref
val save_file : string ref