aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/rlx_app_discovery.erl2
-rw-r--r--src/rlx_prv_app_discover.erl2
-rw-r--r--src/rlx_prv_assembler.erl30
-rw-r--r--src/rlx_prv_release.erl2
-rw-r--r--src/rlx_rel_discovery.erl2
-rw-r--r--src/rlx_string.erl23
6 files changed, 42 insertions, 19 deletions
diff --git a/src/rlx_app_discovery.erl b/src/rlx_app_discovery.erl
index 0414a0a..642b887 100644
--- a/src/rlx_app_discovery.erl
+++ b/src/rlx_app_discovery.erl
@@ -40,7 +40,7 @@ do(State, LibDirs) ->
ec_cmd_log:info(rlx_state:log(State),
fun() ->
["Resolving OTP Applications from directories:\n",
- string:join([[rlx_util:indent(2), LibDir] || LibDir <- LibDirs], "\n")]
+ rlx_string:join([[rlx_util:indent(2), LibDir] || LibDir <- LibDirs], "\n")]
end),
resolve_app_metadata(State, LibDirs).
diff --git a/src/rlx_prv_app_discover.erl b/src/rlx_prv_app_discover.erl
index a8a40ae..d58cf71 100644
--- a/src/rlx_prv_app_discover.erl
+++ b/src/rlx_prv_app_discover.erl
@@ -132,7 +132,7 @@ add_system_lib_dir(State) ->
add_environment_lib_dir(_State) ->
case os:getenv("ERL_LIBS") of
false -> [];
- Libs -> [erlang:iolist_to_binary(L) || L <- string:tokens(Libs, ":")]
+ Libs -> [erlang:iolist_to_binary(L) || L <- rlx_string:lexemes(Libs, ":")]
end.
%% Order matters so this slow dedup needs to be used
diff --git a/src/rlx_prv_assembler.erl b/src/rlx_prv_assembler.erl
index a6bf5f8..5efa8b5 100644
--- a/src/rlx_prv_assembler.erl
+++ b/src/rlx_prv_assembler.erl
@@ -416,13 +416,13 @@ write_bin_file(State, Release, OutputDir, RelDir) ->
_ ->
VsnRelStartFile = case OsFamily of
unix -> VsnRel;
- win32 -> string:concat(VsnRel, ".cmd")
+ win32 -> rlx_string:concat(VsnRel, ".cmd")
end,
ok = file:write_file(VsnRelStartFile, StartFile),
ok = file:change_mode(VsnRelStartFile, 8#777),
BareRelStartFile = case OsFamily of
unix -> BareRel;
- win32 -> string:concat(BareRel, ".cmd")
+ win32 -> rlx_string:concat(BareRel, ".cmd")
end,
ok = file:write_file(BareRelStartFile, StartFile),
ok = file:change_mode(BareRelStartFile, 8#777)
@@ -494,15 +494,15 @@ hook_filename(builtin_status) -> "hooks/builtin/status".
hook_invocation({custom, CustomScript}) -> CustomScript;
%% the pid builtin hook with no arguments writes to pid file
%% at /var/run/{{ rel_name }}.pid
-hook_invocation(pid) -> string:join(["hooks/builtin/pid",
+hook_invocation(pid) -> rlx_string:join(["hooks/builtin/pid",
"/var/run/$REL_NAME.pid"], "|");
-hook_invocation({pid, PidFile}) -> string:join(["hooks/builtin/pid",
+hook_invocation({pid, PidFile}) -> rlx_string:join(["hooks/builtin/pid",
PidFile], "|");
hook_invocation(wait_for_vm_start) -> "hooks/builtin/wait_for_vm_start";
hook_invocation({wait_for_process, Name}) ->
%% wait_for_process takes an atom as argument
%% which is the process name to wait for
- string:join(["hooks/builtin/wait_for_process",
+ rlx_string:join(["hooks/builtin/wait_for_process",
atom_to_list(Name)], "|");
hook_invocation(builtin_status) -> "hooks/builtin/status".
@@ -796,15 +796,15 @@ extended_bin_file_contents(OsFamily, RelName, RelVsn, ErtsVsn, ErlOpts, Hooks, E
win32 -> extended_bin_windows
end,
%% turn all the hook lists into space separated strings
- PreStartHooks = string:join(proplists:get_value(pre_start, Hooks, []), " "),
- PostStartHooks = string:join(proplists:get_value(post_start, Hooks, []), " "),
- PreStopHooks = string:join(proplists:get_value(pre_stop, Hooks, []), " "),
- PostStopHooks = string:join(proplists:get_value(post_stop, Hooks, []), " "),
- PreInstallUpgradeHooks = string:join(proplists:get_value(pre_install_upgrade,
+ PreStartHooks = rlx_string:join(proplists:get_value(pre_start, Hooks, []), " "),
+ PostStartHooks = rlx_string:join(proplists:get_value(post_start, Hooks, []), " "),
+ PreStopHooks = rlx_string:join(proplists:get_value(pre_stop, Hooks, []), " "),
+ PostStopHooks = rlx_string:join(proplists:get_value(post_stop, Hooks, []), " "),
+ PreInstallUpgradeHooks = rlx_string:join(proplists:get_value(pre_install_upgrade,
Hooks, []), " "),
- PostInstallUpgradeHooks = string:join(proplists:get_value(post_install_upgrade,
+ PostInstallUpgradeHooks = rlx_string:join(proplists:get_value(post_install_upgrade,
Hooks, []), " "),
- StatusHook = string:join(proplists:get_value(status, Hooks, []), " "),
+ StatusHook = rlx_string:join(proplists:get_value(status, Hooks, []), " "),
{ExtensionsList1, ExtensionDeclarations1} =
lists:foldl(fun({Name, Script},
{ExtensionsList0, ExtensionDeclarations0}) ->
@@ -816,10 +816,10 @@ extended_bin_file_contents(OsFamily, RelName, RelVsn, ErtsVsn, ErlOpts, Hooks, E
end, {[], []}, Extensions),
% pipe separated string of extensions, to show on the start script usage
% (eg. foo|bar)
- ExtensionsList = string:join(ExtensionsList1 ++ ["undefined"], "|"),
+ ExtensionsList = rlx_string:join(ExtensionsList1 ++ ["undefined"], "|"),
% command separated string of extension script declarations
% (eg. foo_extension="path/to/foo_script")
- ExtensionDeclarations = string:join(ExtensionDeclarations1, ";"),
+ ExtensionDeclarations = rlx_string:join(ExtensionDeclarations1, ";"),
render(Template, [{rel_name, RelName}, {rel_vsn, RelVsn},
{erts_vsn, ErtsVsn}, {erl_opts, ErlOpts},
{pre_start_hooks, PreStartHooks},
@@ -833,7 +833,7 @@ extended_bin_file_contents(OsFamily, RelName, RelVsn, ErtsVsn, ErlOpts, Hooks, E
{extension_declarations, ExtensionDeclarations}]).
erl_ini(OutputDir, ErtsVsn) ->
- ErtsDirName = string:concat("erts-", ErtsVsn),
+ ErtsDirName = rlx_string:concat("erts-", ErtsVsn),
BinDir = filename:join([OutputDir, ErtsDirName, bin]),
render(erl_ini, [{bin_dir, BinDir}, {output_dir, OutputDir}]).
diff --git a/src/rlx_prv_release.erl b/src/rlx_prv_release.erl
index 2af8acd..8de1a51 100644
--- a/src/rlx_prv_release.erl
+++ b/src/rlx_prv_release.erl
@@ -202,7 +202,7 @@ set_resolved(State, Release0, Pkgs) ->
ErtsDir ->
try
[Erts | _] = filelib:wildcard(filename:join(ErtsDir, "erts-*")),
- [_, ErtsVsn] = string:tokens(filename:basename(Erts), "-"),
+ [_, ErtsVsn] = rlx_string:lexemes(filename:basename(Erts), "-"),
{ok, rlx_state:add_realized_release(State, rlx_release:erts(Release1, ErtsVsn))}
catch
_:_ ->
diff --git a/src/rlx_rel_discovery.erl b/src/rlx_rel_discovery.erl
index fca416f..767ceac 100644
--- a/src/rlx_rel_discovery.erl
+++ b/src/rlx_rel_discovery.erl
@@ -42,7 +42,7 @@ do(State, LibDirs, AppMeta) ->
ec_cmd_log:info(rlx_state:log(State),
fun() ->
["Resolving available OTP Releases from directories:\n",
- string:join([[rlx_util:indent(2), LibDir] || LibDir <- LibDirs], "\n")]
+ rlx_string:join([[rlx_util:indent(2), LibDir] || LibDir <- LibDirs], "\n")]
end),
resolve_rel_metadata(State, LibDirs, AppMeta)
end.
diff --git a/src/rlx_string.erl b/src/rlx_string.erl
new file mode 100644
index 0000000..1f9cc0c
--- /dev/null
+++ b/src/rlx_string.erl
@@ -0,0 +1,23 @@
+%% Compatibility module for the string API changes between
+%% OTP-19 and OTP-21, where Unicode support means the deprecation
+%% of a lot of string functions.
+-module(rlx_string).
+-export([concat/2, lexemes/2, join/2]).
+
+-ifdef(unicode_str).
+concat(Str1, Str2) -> unicode:characters_to_list([Str1,Str2]).
+lexemes(Str, Separators) -> string:lexemes(Str, Separators).
+-else.
+concat(Str1, Str2) -> string:concat(Str1, Str2).
+lexemes(Str, Separators) -> string:tokens(Str, Separators).
+-endif.
+
+%% string:join/2 copy; string:join/2 is getting obsoleted
+%% and replaced by lists:join/2, but lists:join/2 is too new
+%% for version support (only appeared in 19.0) so it cannot be
+%% used. Instead we just adopt join/2 locally and hope it works
+%% for most unicode use cases anyway.
+join([], Sep) when is_list(Sep) ->
+ [];
+join([H|T], Sep) ->
+ H ++ lists:append([Sep ++ X || X <- T]).