diff options
| author | Loïc Hoguin <[email protected]> | 2017-10-19 18:18:21 +0100 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2017-10-19 18:18:39 +0100 |
| commit | c0f3338fa3afd0b8c9ae8033a4e8c71dfdb9bdbd (patch) | |
| tree | 9ddc14666d59d3ad9f7b3470c68a1067d11379d6 /core/deps.mk | |
| parent | 1e2ab259cf6642718db9d1a6ffbe1b10fe935172 (diff) | |
| download | erlang.mk-c0f3338fa3afd0b8c9ae8033a4e8c71dfdb9bdbd.tar.gz erlang.mk-c0f3338fa3afd0b8c9ae8033a4e8c71dfdb9bdbd.tar.bz2 erlang.mk-c0f3338fa3afd0b8c9ae8033a4e8c71dfdb9bdbd.zip | |
Handle lists in -D compiler switches in autopatch
Diffstat (limited to 'core/deps.mk')
| -rw-r--r-- | core/deps.mk | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/core/deps.mk b/core/deps.mk index ac0ba99..9cec5a1 100644 --- a/core/deps.mk +++ b/core/deps.mk @@ -241,6 +241,10 @@ define dep_autopatch_rebar.erl Write("C_SRC_TYPE = rebar\n"), Write("DRV_CFLAGS = -fPIC\nexport DRV_CFLAGS\n"), Write(["ERLANG_ARCH = ", rebar_utils:wordsize(), "\nexport ERLANG_ARCH\n"]), + ToList = fun + (V) when is_atom(V) -> atom_to_list(V); + (V) when is_list(V) -> "'\\"" ++ V ++ "\\"'" + end, fun() -> Write("ERLC_OPTS = +debug_info\nexport ERLC_OPTS\n"), case lists:keyfind(erl_opts, 1, Conf) of @@ -248,18 +252,18 @@ define dep_autopatch_rebar.erl {_, ErlOpts} -> lists:foreach(fun ({d, D}) -> - Write("ERLC_OPTS += -D" ++ atom_to_list(D) ++ "=1\n"); + Write("ERLC_OPTS += -D" ++ ToList(D) ++ "=1\n"); ({d, DKey, DVal}) -> - Write("ERLC_OPTS += -D" ++ atom_to_list(DKey) ++ "=" ++ atom_to_list(DVal) ++ "\n"); + Write("ERLC_OPTS += -D" ++ ToList(DKey) ++ "=" ++ ToList(DVal) ++ "\n"); ({i, I}) -> Write(["ERLC_OPTS += -I ", I, "\n"]); ({platform_define, Regex, D}) -> case rebar_utils:is_arch(Regex) of - true -> Write("ERLC_OPTS += -D" ++ atom_to_list(D) ++ "=1\n"); + true -> Write("ERLC_OPTS += -D" ++ ToList(D) ++ "=1\n"); false -> ok end; ({parse_transform, PT}) -> - Write("ERLC_OPTS += +'{parse_transform, " ++ atom_to_list(PT) ++ "}'\n"); + Write("ERLC_OPTS += +'{parse_transform, " ++ ToList(PT) ++ "}'\n"); (_) -> ok end, ErlOpts) end, |