umgeher/qdate_localtime
0
Fork 0
Code Issues Pull requests Releases Activity Actions

Reimplement the hacked version of Etc/UTC ignoring DST

Browse source
This commit is contained in:
Jesse Gumm 2021-07-01 08:38:18 -05:00
parent bfafac0d48
commit ef91711e12
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
priv/ibuild.escript
View file

@ -34,12 +34,22 @@ build_index() ->
build_function_clauses(List) -> build_function_clauses(List) ->
Clauses = lists:map(fun({K, V}) -> Clauses = lists:map(fun({K0, V0}) ->
{K, V} = hack_fix_utc({K0, V0}),
io_lib:format("lookup(~p) -> ~p", [K, V]) io_lib:format("lookup(~p) -> ~p", [K, V])
end, List), end, List),
[lists:join(";\n", Clauses), ";\n", [lists:join(";\n", Clauses), ";\n",
"lookup(_) -> error."]. "lookup(_) -> error."].
hack_fix_utc({"UTC", TZs}) ->
MainTZ = "Etc/UTC",
NoMainTZ = TZs -- [MainTZ],
NewTZs = [MainTZ | NoMainTZ],
{"UTC", NewTZs};
hack_fix_utc({K, V}) ->
{K, V}.
build_all_function(List) -> build_all_function(List) ->
Keys = [K || {K, _} <- List], Keys = [K || {K, _} <- List],
io_lib:format("all() -> ~p.",[Keys]). io_lib:format("all() -> ~p.",[Keys]).