geneweb-13c850a0cc3973daf7ae3e0772a1621f84052041/src/mk_consang.ml

21    ("-nolock", Arg.Set Lock.no_lock_flag, ": do not lock database.")]
28 value rebuild_field_array db2 len pad bdir compress f = do {
29   if Mutil.verbose.val then do {
38   if Mutil.verbose.val then do {
52 value rebuild_any_field_array db2 fi pad compress (f2, get) = do {
59     (fun oc_acc output_item -> do {
62        for i = 0 to fi.fi_nb - 1 do {
75 value rebuild_option_field_array db2 fi pad (f2, get) = do {
83         for i = 0 to fi.fi_nb - 1 do {
93           | Some x -> do {
100 value rebuild_list_field_array db2 fi (f2, get) = do {
103     for i = 0 to fi.fi_nb - 1 do {
112       else do {
124   if Mutil.verbose.val then do {
134   if Mutil.verbose.val then do {
141 value rebuild_list2_field_array db2 fi (f2, get) = do {
144     for i = 0 to fi.fi_nb - 1 do {
161           | [x :: xl] -> do {
176   if Mutil.verbose.val then do {
186   if Mutil.verbose.val then do {
194 value rebuild_string_field db2 fi (f2, get) = do {
201     (fun oc_acc output_item -> do {
202        for i = 0 to fi.fi_nb - 1 do {
215 value rebuild_list_with_string_field_array g h db2 fi (f2, get) = do {
223     (fun oc_acc output_item -> do {
224        for i = 0 to fi.fi_nb - 1 do {
237          else do {
252   [ Not_found -> do {
260 value make_key_index db2 nb_per bdir = do {
261   if Mutil.verbose.val then do {
275   for i = 0 to nb_per - 1 do {
303   if Mutil.verbose.val then do {
310 value rebuild_fields2 db2 = do {
327     [("first_name", fun p -> p.Def.first_name);
328      ("surname", fun p -> p.Def.surname);
329      ("image", fun p -> p.Def.image);
330      ("public_name", fun p -> p.Def.public_name);
331      ("occupation", fun p -> p.Def.occupation);
332      ("birth_place", fun p -> p.Def.birth_place);
333      ("birth_src", fun p -> p.Def.birth_src);
334      ("baptism_place", fun p -> p.Def.baptism_place);
335      ("baptism_src", fun p -> p.Def.baptism_src);
336      ("death_place", fun p -> p.Def.death_place);
337      ("death_src", fun p -> p.Def.death_src);
338      ("burial_place", fun p -> p.Def.burial_place);
339      ("burial_src", fun p -> p.Def.burial_src);
340      ("notes", fun p -> p.Def.notes);
341      ("psources", fun p -> p.Def.psources)];
343     ("occ", fun p -> p.Def.occ);
347     [("qualifiers", fun p -> p.Def.qualifiers);
348      ("aliases", fun p -> p.Def.aliases);
349      ("first_names_aliases", fun p -> p.Def.first_names_aliases);
350      ("surnames_aliases", fun p -> p.Def.surnames_aliases)];
353     ("titles", fun p -> p.Def.titles);
354   rebuild_list_field_array db2 fi_per ("rparents", fun p -> p.Def.rparents);
355   rebuild_list2_field_array db2 fi_per ("related", fun p -> p.Def.related);
357     ("sex", fun p -> p.Def.sex);
359     ("access", fun p -> p.Def.access);
361     [("birth", fun p -> p.Def.birth);
362      ("baptism", fun p -> p.Def.baptism)];
364     ("death", fun p -> p.Def.death);
366     ("burial", fun p -> p.Def.burial);
368     ("parents", fun p -> p.Def.parents);
370     ("consang", fun p -> p.Def.consang);
372     ("family", fun p -> p.Def.family);
439         (fun db2 -> do {
457            if has_patches then do {
486 value designation base p =
487   let first_name = Gwdb.p_first_name base p in
488   let nom = Gwdb.p_surname base p in
490     (first_name ^ "." ^ string_of_int (Gwdb.get_occ p) ^ " " ^ nom)
493 value main () = do {
495   if fname.val = "" then do {
505     try do {
511     [ Consang.TopologicalSortError p -> do {
513           (designation base p);
520   | Refuse -> do {
524       [ Accept -> do { eprintf "Ok\n"; flush stderr; f () }
525       | Refuse -> do {