Packages
kvs
0.12.1
13.5.22-aleph
13.4.16
13.4.15
13.4.14
13.4.13
13.3.1
13.2.28
11.9.1
10.8.3
10.8.2
10.3.0
9.9.2
9.9.1
9.9.0
9.8.0
9.7.0
9.4.8
9.4.7
9.4.6
9.4.5
9.4.4
9.4.3
9.4.2
9.4.1
9.4.0
8.12.0
8.11.2
8.11.1
8.10.4
8.10.3
8.10.2
8.10.1
8.10.0
8.5.2
8.5.1
8.5.0
8.4.1
8.4.0
8.3.1
8.3.0
7.11.5
7.9.1
7.7.0
7.1.3
7.1.2
7.1.1
6.12.11
6.12.10
6.12.9
6.12.8
6.12.7
6.12.6
6.12.5
6.12.4
6.12.3
6.12.2
6.12.1
6.12.0
6.11.2
6.11.1
6.11.0
6.10.2
6.10.1
6.10.0
6.9.2
6.9.1
6.9.0
6.7.7
6.7.6
6.7.5
6.7.4
6.7.3
6.7.2
6.7.1
6.7.0
6.6.0
2.1.0
0.12.1
retired
KVS Key-Value Store Abstraction Layer
Retired package: Release invalid - ERROR
Current section
Files
Jump to
Current section
Files
src/i18n/po_generator.erl
%% Author: dave
%% Created: Mar 1, 2010
%% Description: Generates po files from dets tables, based on erlang gettext impl
-module(po_generator).
-define(ENDCOL, 72).
%%
%% Include files
%%
%%
%% Exported Functions
%%
-export([generate_file/3]).
%%
%% API Functions
%%
generate_file(Lang,Items, Fuzzy) ->
Gettext_App_Name = "tmp",
GtxtDir = ".",
io:format("Opening po file"),
gettext_compile:open_po_file(Gettext_App_Name, GtxtDir, Lang),
gettext_compile:write_header(),
io:format("Writing entries~n"),
write_entries(Items),
io:format("Writing fuzzy entries~n"),
write_fuzzy_entries(Fuzzy),
gettext_compile:close_file().
%%
%% Local Functions
%%
write_entries(Items)->
Fd = get(fd),
F = fun({Id,Translation,Finfo}) ->
Fi = gettext_compile:fmt_fileinfo(Finfo),
io:format(Fd, "~n#: ~s~n", [Fi]),
ok = file:write(Fd, "msgid \"\"\n"),
gettext_compile:write_pretty(Id),
ok = file:write(Fd, "msgstr \"\"\n"),
gettext_compile:write_pretty(Translation)
end,
lists:foreach(F, Items).
write_fuzzy_entries(Items) ->
Fd = get(fd),
ok = file:write(Fd, "\n"),
F = fun({Id,Translation,_}) ->
ok = file:write(Fd, "#, fuzzy\n"),
ok = file:write(Fd, "msgid \"\"\n"),
gettext_compile:write_pretty(Id),
ok = file:write(Fd, "msgstr \"\"\n"),
gettext_compile:write_pretty(Translation),
ok = file:write(Fd, "\n")
end,
lists:foreach(F, Items).