mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
61d4891ef4
The new module ‘Std_utils’ contains only functions which are pure OCaml and depend only on the OCaml stdlib. Therefore these functions may be used by the generator. The new module is moved to ‘common/mlstdutils’. This also removes the "<stdlib>" hack, and the code which copied the library around. Also ‘Guestfs_config’, ‘Libdir’ and ‘StringMap’ modules are moved since these are essentially the same. The bulk of this change is just updating files which use ‘open Common_utils’ to add ‘open Std_utils’ where necessary.
59 lines
1.8 KiB
OCaml
59 lines
1.8 KiB
OCaml
(* virt-builder
|
|
* Copyright (C) 2013-2017 Red Hat Inc.
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License along
|
|
* with this program; if not, write to the Free Software Foundation, Inc.,
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*)
|
|
|
|
open Std_utils
|
|
open Common_utils
|
|
|
|
let split_locale loc =
|
|
let regex = Str.regexp "^\\([A-Za-z]+\\)\\(_\\([A-Za-z]+\\)\\)?\\(\\.\\([A-Za-z0-9-]+\\)\\)?\\(@\\([A-Za-z]+\\)\\)?$" in
|
|
let l = ref [] in
|
|
if Str.string_match regex loc 0 then (
|
|
let match_or_empty n =
|
|
try Str.matched_group n loc with
|
|
| Not_found -> ""
|
|
in
|
|
let lang = Str.matched_group 1 loc in
|
|
let territory = match_or_empty 3 in
|
|
(match territory with
|
|
| "" -> ()
|
|
| territory -> push_front (lang ^ "_" ^ territory) l);
|
|
push_front lang l;
|
|
);
|
|
push_front "" l;
|
|
List.rev !l
|
|
|
|
let languages () =
|
|
match Setlocale.setlocale Setlocale.LC_MESSAGES None with
|
|
| None -> [""]
|
|
| Some locale -> split_locale locale
|
|
|
|
let find_notes languages notes =
|
|
let notes = List.fold_left (
|
|
fun acc lang ->
|
|
let res = List.filter (
|
|
fun (langkey, _) ->
|
|
match langkey with
|
|
| "C" -> lang = ""
|
|
| langkey -> langkey = lang
|
|
) notes in
|
|
match res with
|
|
| (_, noteskey) :: _ -> noteskey :: acc
|
|
| [] -> acc
|
|
) [] languages in
|
|
List.rev notes
|