28 lines
778 B
OCaml
28 lines
778 B
OCaml
val default_source : string ref
|
|
(** Default source field for persons and families without source data *)
|
|
|
|
val do_check : bool ref
|
|
(** Base consistency check *)
|
|
|
|
val do_consang : bool ref
|
|
(** Compute consanguinity *)
|
|
|
|
val pr_stats : bool ref
|
|
(** Print base's statistics *)
|
|
|
|
val particules_file : string ref
|
|
(** File containing the particles to use *)
|
|
|
|
type file_info = {
|
|
mutable f_curr_src_file : string;
|
|
mutable f_curr_gwo_file : string;
|
|
mutable f_separate : bool;
|
|
mutable f_bnotes : [ `drop | `erase | `first | `merge ];
|
|
mutable f_shift : int;
|
|
mutable f_local_names : (int * int, int) Hashtbl.t;
|
|
}
|
|
(** Information about current .gwo file. *)
|
|
|
|
val link : (file_info -> unit -> Gwcomp.gw_syntax option) -> string -> bool
|
|
(** Link .gwo files and create a database. *)
|