#!/bin/sh #cd (* exec ocaml camlp4r.cma $0 *) "."; (* $Id: mk_missing_i18n.sh,v 4.12 2004/01/29 16:34:17 ddr Exp $ *) open Printf; value languages = ["af"; "bg"; "br"; "ca"; "cs"; "da"; "de"; "en"; "eo"; "es"; "et"; "fi"; "fr"; "he"; "is"; "it"; "lv"; "nl"; "no"; "pl"; "pt"; "pt-br"; "ro"; "ru"; "sl"; "sv"; "zh"] ; value linenum = ref 0; value input_line_cnt ic = do { incr linenum; input_line ic }; value rec skip_to_same_line ic line_ref = let line = input_line_cnt ic in if line = line_ref then () else skip_to_same_line ic line_ref ; value rec get_all_versions first ic = let line = try input_line_cnt ic with [ End_of_file -> "" ] in if line = "" then [] else if first && String.length line < 3 then do { eprintf "small line %d: \"%s\"\n" linenum.val (String.escaped line); flush stderr; [] } else try let i = String.index line ':' in let lang = String.sub line 0 i in do { if first && String.length line > i + 1 && line.[i + 1] <> ' ' then do { eprintf "space missing after colon in line %d:\n%s\n" linenum.val line; flush stderr } else (); let transl = String.sub line (i + 1) (String.length line - i - 1) in [(lang, transl) :: get_all_versions first ic] } with [ Not_found -> [] ] ; value compare_assoc (l1, _) (l2, _) = l1 <= l2; value check first lang = let derived_lang = try String.sub lang 0 (String.index lang '-') with [ Not_found -> "" ] in do { linenum.val := 0; let ic_lex = open_in "hd/lang/lexicon.txt" in let ic_i18n = open_in "src/i18n" in printf "

%s

\n" lang lang; printf "
\n";
    let has_missing = ref False in
    try
      while True do {
        let line = input_line ic_i18n in
        skip_to_same_line ic_lex ("    " ^ line);
        let list = get_all_versions first ic_lex in
        if first && Sort.list compare_assoc list <> list then do {
          eprintf "Misordered for:\n   \"%s\"\n" line; flush stderr
        }
        else ();
        if not (List.mem_assoc lang list || List.mem_assoc derived_lang list)
        then do {
          let list =
            Sort.list compare_assoc
              [(lang, ""); ("en", List.assoc "en" list);
               ("fr", List.assoc "fr" list)]
          in
          printf "    %s\n" line;
          List.iter
            (fun (lang, transl) ->
               printf "%s:%s\n" lang (if transl = "" then " " else transl))
            list;
          printf "\n";
          has_missing.val := True
        }
        else if
          List.length (List.find_all (fun (l, _) -> l = lang) list) >= 2
        then do {
          eprintf "Several translations in %s for:\n   \"%s\"\n" lang line;
          flush stderr
        }
        else ()
      }
    with
    [ End_of_file -> () ];
    if not has_missing.val then printf "     - no missing phrases -\n"
    else ();
    printf "
\n"; close_in ic_lex; close_in ic_i18n; False } ; value header lang = printf "%s\n" lang lang; do { printf "\ Missing phrases

Missing phrases

Here are the list of all languages with the missing phrases in the lexicon of the current version of GeneWeb. The missing entries are displayed together with their English and French translations.

If you want to collaborate, you can send me the translations in the given language if you know it. Thanks.

"; List.iter header languages; printf "\n"; let _ = List.fold_left check True languages in (); printf "\n"; flush stdout };