mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
Add another escript script
This commit is contained in:
Ted Nyman
122
samples/Erlang/release.script!
Normal file
122
samples/Erlang/release.script!
Normal file
@@ -0,0 +1,122 @@
|
||||
#!/usr/bin/env escript
|
||||
%%!
|
||||
%-*-Mode:erlang;coding:utf-8;tab-width:4;c-basic-offset:4;indent-tabs-mode:()-*-
|
||||
% ex: set ft=erlang fenc=utf-8 sts=4 ts=4 sw=4 et:
|
||||
%%%
|
||||
%%%------------------------------------------------------------------------
|
||||
%%% BSD LICENSE
|
||||
%%%
|
||||
%%% Copyright (c) 2013, Michael Truog <mjtruog at gmail dot com>
|
||||
%%% All rights reserved.
|
||||
%%%
|
||||
%%% Redistribution and use in source and binary forms, with or without
|
||||
%%% modification, are permitted provided that the following conditions are met:
|
||||
%%%
|
||||
%%% * Redistributions of source code must retain the above copyright
|
||||
%%% notice, this list of conditions and the following disclaimer.
|
||||
%%% * Redistributions in binary form must reproduce the above copyright
|
||||
%%% notice, this list of conditions and the following disclaimer in
|
||||
%%% the documentation and/or other materials provided with the
|
||||
%%% distribution.
|
||||
%%% * All advertising materials mentioning features or use of this
|
||||
%%% software must display the following acknowledgment:
|
||||
%%% This product includes software developed by Michael Truog
|
||||
%%% * The name of the author may not be used to endorse or promote
|
||||
%%% products derived from this software without specific prior
|
||||
%%% written permission
|
||||
%%%
|
||||
%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
|
||||
%%% CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
||||
%%% INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||||
%%% OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
||||
%%% DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
|
||||
%%% CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
%%% SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
|
||||
%%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
||||
%%% SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
||||
%%% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
||||
%%% WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
|
||||
%%% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||
%%% OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
|
||||
%%% DAMAGE.
|
||||
%%%------------------------------------------------------------------------
|
||||
|
||||
-author('mjtruog [at] gmail (dot) com').
|
||||
|
||||
-mode(compile).
|
||||
|
||||
main(_) ->
|
||||
{ok,
|
||||
[{sys, _} = RelToolConfig,
|
||||
{target_dir, TargetDir},
|
||||
{overlay, OverlayConfig}]} = file:consult("reltool.config"),
|
||||
{ok, Spec} = reltool:get_target_spec([RelToolConfig]),
|
||||
case file:make_dir(TargetDir) of
|
||||
ok ->
|
||||
ok;
|
||||
{error, eexist} ->
|
||||
io:format("release already exists? (~p)~n", [TargetDir]),
|
||||
exit_code(1)
|
||||
end,
|
||||
ok = reltool:eval_target_spec(Spec, code:root_dir(), TargetDir),
|
||||
ok = process_overlay(RelToolConfig, TargetDir, OverlayConfig),
|
||||
exit_code(0).
|
||||
|
||||
shell(Command, Arguments) ->
|
||||
CommandSuffix = " && echo 0 || echo 1",
|
||||
case lists:reverse(os:cmd(lists:flatten(
|
||||
io_lib:format(Command ++ CommandSuffix, Arguments)))) of
|
||||
[_, $0 | _] ->
|
||||
ok;
|
||||
[_, $1 | _] ->
|
||||
io:format("\"~s\" failed!~n", [io_lib:format(Command, Arguments)]),
|
||||
error
|
||||
end.
|
||||
|
||||
boot_rel_vsn({sys, Config} = _RelToolConfig) ->
|
||||
{rel, _Name, Ver, _} = proplists:lookup(rel, Config),
|
||||
Ver.
|
||||
|
||||
%% minimal parsing for handling mustache syntax
|
||||
mustache(Body, Context) ->
|
||||
mustache(Body, "", Context).
|
||||
mustache([], Result, _Context) ->
|
||||
lists:reverse(Result);
|
||||
mustache([${, ${ | KeyStr], Result, Context) ->
|
||||
mustache_key(KeyStr, "", Result, Context);
|
||||
mustache([C | Rest], Result, Context) ->
|
||||
mustache(Rest, [C | Result], Context).
|
||||
mustache_key([$}, $} | Rest], KeyStr, Result, Context) ->
|
||||
Key = erlang:list_to_existing_atom(lists:reverse(KeyStr)),
|
||||
{ok, Value} = dict:find(Key, Context),
|
||||
mustache(Rest, lists:reverse(Value) ++ Result, Context);
|
||||
mustache_key([C | Rest], KeyStr, Result, Context) ->
|
||||
mustache_key(Rest, [C | KeyStr], Result, Context).
|
||||
|
||||
%% support minimal overlay based on rebar overlays
|
||||
process_overlay(RelToolConfig, TargetDir, OverlayConfig) ->
|
||||
BootRelVsn = boot_rel_vsn(RelToolConfig),
|
||||
OverlayVars =
|
||||
dict:from_list([{erts_vsn, "erts-" ++ erlang:system_info(version)},
|
||||
{rel_vsn, BootRelVsn},
|
||||
{target_dir, TargetDir},
|
||||
{hostname, net_adm:localhost()}]),
|
||||
{ok, BaseDir} = file:get_cwd(),
|
||||
execute_overlay(OverlayConfig, OverlayVars, BaseDir, TargetDir).
|
||||
|
||||
execute_overlay([], _Vars, _BaseDir, _TargetDir) ->
|
||||
ok;
|
||||
execute_overlay([{mkdir, Out} | Rest], Vars, BaseDir, TargetDir) ->
|
||||
OutDir = mustache(filename:join(TargetDir, Out), Vars),
|
||||
ok = shell("mkdir -p ~s", [OutDir]),
|
||||
execute_overlay(Rest, Vars, BaseDir, TargetDir);
|
||||
execute_overlay([{copy, In, Out} | Rest], Vars, BaseDir, TargetDir) ->
|
||||
InFile = mustache(filename:join(BaseDir, In), Vars),
|
||||
OutFile = mustache(filename:join(TargetDir, Out), Vars),
|
||||
true = filelib:is_file(InFile),
|
||||
ok = shell("cp -R ~s ~s", [InFile, OutFile]),
|
||||
execute_overlay(Rest, Vars, BaseDir, TargetDir).
|
||||
|
||||
exit_code(ExitCode) ->
|
||||
erlang:halt(ExitCode, [{flush, true}]).
|
||||
|
||||
Reference in New Issue
Block a user