mirror of
https://github.com/correl/rebar.git
synced 2024-12-18 11:06:20 +00:00
407 lines
16 KiB
Erlang
407 lines
16 KiB
Erlang
%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
|
|
%% ex: ts=4 sw=4 et
|
|
%% -------------------------------------------------------------------
|
|
%%
|
|
%% rebar: Erlang Build Tools
|
|
%%
|
|
%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
|
|
%%
|
|
%% Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
%% of this software and associated documentation files (the "Software"), to deal
|
|
%% in the Software without restriction, including without limitation the rights
|
|
%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
%% copies of the Software, and to permit persons to whom the Software is
|
|
%% furnished to do so, subject to the following conditions:
|
|
%%
|
|
%% The above copyright notice and this permission notice shall be included in
|
|
%% all copies or substantial portions of the Software.
|
|
%%
|
|
%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
%% THE SOFTWARE.
|
|
%% -------------------------------------------------------------------
|
|
-module(rebar_templater).
|
|
|
|
-export(['create-app'/2,
|
|
'create-node'/2,
|
|
'list-templates'/2,
|
|
create/2]).
|
|
|
|
%% API for other utilities that need templating functionality
|
|
-export([resolve_variables/2,
|
|
render/2]).
|
|
|
|
-include("rebar.hrl").
|
|
|
|
-define(TEMPLATE_RE, ".*\\.template\$").
|
|
|
|
%% ===================================================================
|
|
%% Public API
|
|
%% ===================================================================
|
|
|
|
'create-app'(Config, _File) ->
|
|
%% Alias for create w/ template=simpleapp
|
|
create1(Config, "simpleapp").
|
|
|
|
'create-node'(Config, _File) ->
|
|
%% Alias for create w/ template=simplenode
|
|
create1(Config, "simplenode").
|
|
|
|
'list-templates'(Config, _File) ->
|
|
{AvailTemplates, Files} = find_templates(Config),
|
|
?DEBUG("Available templates: ~p\n", [AvailTemplates]),
|
|
|
|
lists:foreach(
|
|
fun({Type, F}) ->
|
|
BaseName = filename:basename(F, ".template"),
|
|
TemplateTerms = consult(load_file(Files, Type, F)),
|
|
{_, VarList} = lists:keyfind(variables, 1, TemplateTerms),
|
|
Vars = lists:foldl(fun({V,_}, Acc) ->
|
|
[atom_to_list(V) | Acc]
|
|
end, [], VarList),
|
|
?CONSOLE(" * ~s: ~s (~p) (variables: ~p)\n",
|
|
[BaseName, F, Type, string:join(Vars, ", ")])
|
|
end, AvailTemplates),
|
|
ok.
|
|
|
|
create(Config, _) ->
|
|
TemplateId = template_id(Config),
|
|
create1(Config, TemplateId).
|
|
|
|
%%
|
|
%% Given a list of key value pairs, for each string value attempt to
|
|
%% render it using Dict as the context. Storing the result in Dict as Key.
|
|
%%
|
|
resolve_variables([], Dict) ->
|
|
Dict;
|
|
resolve_variables([{Key, Value0} | Rest], Dict) when is_list(Value0) ->
|
|
Value = render(list_to_binary(Value0), Dict),
|
|
resolve_variables(Rest, dict:store(Key, Value, Dict));
|
|
resolve_variables([_Pair | Rest], Dict) ->
|
|
resolve_variables(Rest, Dict).
|
|
|
|
%%
|
|
%% Render a binary to a string, using mustache and the specified context
|
|
%%
|
|
render(Bin, Context) ->
|
|
%% Be sure to escape any double-quotes before rendering...
|
|
ReOpts = [global, {return, list}],
|
|
Str0 = re:replace(Bin, "\\\\", "\\\\\\", ReOpts),
|
|
Str1 = re:replace(Str0, "\"", "\\\\\"", ReOpts),
|
|
mustache:render(Str1, Context).
|
|
|
|
%% ===================================================================
|
|
%% Internal functions
|
|
%% ===================================================================
|
|
|
|
create1(Config, TemplateId) ->
|
|
{AvailTemplates, Files} = find_templates(Config),
|
|
?DEBUG("Available templates: ~p\n", [AvailTemplates]),
|
|
|
|
%% Using the specified template id, find the matching template file/type.
|
|
%% Note that if you define the same template in both ~/.rebar/templates
|
|
%% that is also present in the escript, the one on the file system will
|
|
%% be preferred.
|
|
{Type, Template} = select_template(AvailTemplates, TemplateId),
|
|
|
|
%% Load the template definition as is and get the list of variables the
|
|
%% template requires.
|
|
TemplateTerms = consult(load_file(Files, Type, Template)),
|
|
case lists:keyfind(variables, 1, TemplateTerms) of
|
|
{variables, Vars} ->
|
|
case parse_vars(Vars, dict:new()) of
|
|
{error, Entry} ->
|
|
Context0 = undefined,
|
|
?ABORT("Failed while processing variables from template ~p."
|
|
"Variable definitions must follow form of "
|
|
"[{atom(), term()}]. Failed at: ~p\n",
|
|
[TemplateId, Entry]);
|
|
Context0 ->
|
|
ok
|
|
end;
|
|
false ->
|
|
?WARN("No variables section found in template ~p; "
|
|
"using empty context.\n", [TemplateId]),
|
|
Context0 = dict:new()
|
|
end,
|
|
|
|
%% Load variables from disk file, if provided
|
|
Context1 = case rebar_config:get_global(Config, template_vars, undefined) of
|
|
undefined ->
|
|
Context0;
|
|
File ->
|
|
case file:consult(File) of
|
|
{ok, Terms} ->
|
|
%% TODO: Cleanup/merge with similar code in rebar_reltool
|
|
M = fun(_Key, _Base, Override) -> Override end,
|
|
dict:merge(M, Context0, dict:from_list(Terms));
|
|
{error, Reason} ->
|
|
?ABORT("Unable to load template_vars from ~s: ~p\n",
|
|
[File, Reason])
|
|
end
|
|
end,
|
|
|
|
%% For each variable, see if it's defined in global vars -- if it is,
|
|
%% prefer that value over the defaults
|
|
Context2 = update_vars(Config, dict:fetch_keys(Context1), Context1),
|
|
?DEBUG("Template ~p context: ~p\n", [TemplateId, dict:to_list(Context1)]),
|
|
|
|
%% Handle variables that possibly include other variables in their
|
|
%% definition
|
|
Context = resolve_variables(dict:to_list(Context2), Context2),
|
|
|
|
?DEBUG("Resolved Template ~p context: ~p\n",
|
|
[TemplateId, dict:to_list(Context)]),
|
|
|
|
%% Now, use our context to process the template definition -- this
|
|
%% permits us to use variables within the definition for filenames.
|
|
FinalTemplate = consult(render(load_file(Files, Type, Template), Context)),
|
|
?DEBUG("Final template def ~p: ~p\n", [TemplateId, FinalTemplate]),
|
|
|
|
%% Execute the instructions in the finalized template
|
|
Force = rebar_config:get_global(Config, force, "0"),
|
|
execute_template(Files, FinalTemplate, Type, Template, Context, Force, []).
|
|
|
|
find_templates(Config) ->
|
|
%% Load a list of all the files in the escript -- cache them since
|
|
%% we'll potentially need to walk it several times over the course of
|
|
%% a run.
|
|
Files = cache_escript_files(Config),
|
|
|
|
%% Build a list of available templates
|
|
AvailTemplates = find_disk_templates(Config)
|
|
++ find_escript_templates(Files),
|
|
|
|
{AvailTemplates, Files}.
|
|
|
|
%%
|
|
%% Scan the current escript for available files
|
|
%%
|
|
cache_escript_files(Config) ->
|
|
{ok, Files} = rebar_utils:escript_foldl(
|
|
fun(Name, _, GetBin, Acc) ->
|
|
[{Name, GetBin()} | Acc]
|
|
end,
|
|
[], rebar_config:get_xconf(Config, escript)),
|
|
Files.
|
|
|
|
template_id(Config) ->
|
|
case rebar_config:get_global(Config, template, undefined) of
|
|
undefined ->
|
|
?ABORT("No template specified.\n", []);
|
|
TemplateId ->
|
|
TemplateId
|
|
end.
|
|
|
|
find_escript_templates(Files) ->
|
|
[{escript, Name}
|
|
|| {Name, _Bin} <- Files,
|
|
re:run(Name, ?TEMPLATE_RE, [{capture, none}]) == match].
|
|
|
|
find_disk_templates(Config) ->
|
|
OtherTemplates = find_other_templates(Config),
|
|
HomeFiles = rebar_utils:find_files(filename:join([os:getenv("HOME"),
|
|
".rebar", "templates"]),
|
|
?TEMPLATE_RE),
|
|
LocalFiles = rebar_utils:find_files(".", ?TEMPLATE_RE),
|
|
[{file, F} || F <- OtherTemplates ++ HomeFiles ++ LocalFiles].
|
|
|
|
find_other_templates(Config) ->
|
|
case rebar_config:get_global(Config, template_dir, undefined) of
|
|
undefined ->
|
|
[];
|
|
TemplateDir ->
|
|
rebar_utils:find_files(TemplateDir, ?TEMPLATE_RE)
|
|
end.
|
|
|
|
select_template([], Template) ->
|
|
?ABORT("Template ~s not found.\n", [Template]);
|
|
select_template([{Type, Avail} | Rest], Template) ->
|
|
case filename:basename(Avail, ".template") == Template of
|
|
true ->
|
|
{Type, Avail};
|
|
false ->
|
|
select_template(Rest, Template)
|
|
end.
|
|
|
|
%%
|
|
%% Read the contents of a file from the appropriate source
|
|
%%
|
|
load_file(Files, escript, Name) ->
|
|
{Name, Bin} = lists:keyfind(Name, 1, Files),
|
|
Bin;
|
|
load_file(_Files, file, Name) ->
|
|
{ok, Bin} = file:read_file(Name),
|
|
Bin.
|
|
|
|
%%
|
|
%% Parse/validate variables out from the template definition
|
|
%%
|
|
parse_vars([], Dict) ->
|
|
Dict;
|
|
parse_vars([{Key, Value} | Rest], Dict) when is_atom(Key) ->
|
|
parse_vars(Rest, dict:store(Key, Value, Dict));
|
|
parse_vars([Other | _Rest], _Dict) ->
|
|
{error, Other};
|
|
parse_vars(Other, _Dict) ->
|
|
{error, Other}.
|
|
|
|
%%
|
|
%% Given a list of keys in Dict, see if there is a corresponding value defined
|
|
%% in the global config; if there is, update the key in Dict with it
|
|
%%
|
|
update_vars(_Config, [], Dict) ->
|
|
Dict;
|
|
update_vars(Config, [Key | Rest], Dict) ->
|
|
Value = rebar_config:get_global(Config, Key, dict:fetch(Key, Dict)),
|
|
update_vars(Config, Rest, dict:store(Key, Value, Dict)).
|
|
|
|
|
|
%%
|
|
%% Given a string or binary, parse it into a list of terms, ala file:consult/1
|
|
%%
|
|
consult(Str) when is_list(Str) ->
|
|
consult([], Str, []);
|
|
consult(Bin) when is_binary(Bin)->
|
|
consult([], binary_to_list(Bin), []).
|
|
|
|
consult(Cont, Str, Acc) ->
|
|
case erl_scan:tokens(Cont, Str, 0) of
|
|
{done, Result, Remaining} ->
|
|
case Result of
|
|
{ok, Tokens, _} ->
|
|
{ok, Term} = erl_parse:parse_term(Tokens),
|
|
consult([], Remaining, [Term | Acc]);
|
|
{eof, _Other} ->
|
|
lists:reverse(Acc);
|
|
{error, Info, _} ->
|
|
{error, Info}
|
|
end;
|
|
{more, Cont1} ->
|
|
consult(Cont1, eof, Acc)
|
|
end.
|
|
|
|
|
|
write_file(Output, Data, Force) ->
|
|
%% determine if the target file already exists
|
|
FileExists = filelib:is_regular(Output),
|
|
|
|
%% perform the function if we're allowed,
|
|
%% otherwise just process the next template
|
|
case Force =:= "1" orelse FileExists =:= false of
|
|
true ->
|
|
ok = filelib:ensure_dir(Output),
|
|
case {Force, FileExists} of
|
|
{"1", true} ->
|
|
?CONSOLE("Writing ~s (forcibly overwriting)~n",
|
|
[Output]);
|
|
_ ->
|
|
?CONSOLE("Writing ~s~n", [Output])
|
|
end,
|
|
case file:write_file(Output, Data) of
|
|
ok ->
|
|
ok;
|
|
{error, Reason} ->
|
|
?ABORT("Failed to write output file ~p: ~p\n",
|
|
[Output, Reason])
|
|
end;
|
|
false ->
|
|
{error, exists}
|
|
end.
|
|
|
|
|
|
%%
|
|
%% Execute each instruction in a template definition file.
|
|
%%
|
|
execute_template(_Files, [], _TemplateType, _TemplateName,
|
|
_Context, _Force, ExistingFiles) ->
|
|
case ExistingFiles of
|
|
[] ->
|
|
ok;
|
|
_ ->
|
|
Msg = lists:flatten([io_lib:format("\t* ~p~n", [F]) ||
|
|
F <- lists:reverse(ExistingFiles)]),
|
|
Help = "To force overwriting, specify -f/--force/force=1"
|
|
" on the command line.\n",
|
|
?ERROR("One or more files already exist on disk and "
|
|
"were not generated:~n~s~s", [Msg , Help])
|
|
end;
|
|
execute_template(Files, [{template, Input, Output} | Rest], TemplateType,
|
|
TemplateName, Context, Force, ExistingFiles) ->
|
|
InputName = filename:join(filename:dirname(TemplateName), Input),
|
|
File = load_file(Files, TemplateType, InputName),
|
|
case write_file(Output, render(File, Context), Force) of
|
|
ok ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles);
|
|
{error, exists} ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, [Output|ExistingFiles])
|
|
end;
|
|
execute_template(Files, [{file, Input, Output} | Rest], TemplateType,
|
|
TemplateName, Context, Force, ExistingFiles) ->
|
|
InputName = filename:join(filename:dirname(TemplateName), Input),
|
|
File = load_file(Files, TemplateType, InputName),
|
|
case write_file(Output, File, Force) of
|
|
ok ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles);
|
|
{error, exists} ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, [Output|ExistingFiles])
|
|
end;
|
|
execute_template(Files, [{dir, Name} | Rest], TemplateType,
|
|
TemplateName, Context, Force, ExistingFiles) ->
|
|
case filelib:ensure_dir(filename:join(Name, "dummy")) of
|
|
ok ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles);
|
|
{error, Reason} ->
|
|
?ABORT("Failed while processing template instruction "
|
|
"{dir, ~s}: ~p\n", [Name, Reason])
|
|
end;
|
|
execute_template(Files, [{copy, Input, Output} | Rest], TemplateType,
|
|
TemplateName, Context, Force, ExistingFiles) ->
|
|
InputName = filename:join(filename:dirname(TemplateName), Input),
|
|
try rebar_file_utils:cp_r([InputName ++ "/*"], Output) of
|
|
ok ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles)
|
|
catch _:_ ->
|
|
?ABORT("Failed while processing template instruction "
|
|
"{copy, ~s, ~s}~n", [Input, Output])
|
|
end;
|
|
execute_template(Files, [{chmod, Mod, File} | Rest], TemplateType,
|
|
TemplateName, Context, Force, ExistingFiles)
|
|
when is_integer(Mod) ->
|
|
case file:change_mode(File, Mod) of
|
|
ok ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles);
|
|
{error, Reason} ->
|
|
?ABORT("Failed while processing template instruction "
|
|
"{chmod, ~b, ~s}: ~p~n", [Mod, File, Reason])
|
|
end;
|
|
execute_template(Files, [{symlink, Existing, New} | Rest], TemplateType,
|
|
TemplateName, Context, Force, ExistingFiles) ->
|
|
case file:make_symlink(Existing, New) of
|
|
ok ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles);
|
|
{error, Reason} ->
|
|
?ABORT("Failed while processing template instruction "
|
|
"{symlink, ~s, ~s}: ~p~n", [Existing, New, Reason])
|
|
end;
|
|
execute_template(Files, [{variables, _} | Rest], TemplateType,
|
|
TemplateName, Context, Force, ExistingFiles) ->
|
|
execute_template(Files, Rest, TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles);
|
|
execute_template(Files, [Other | Rest], TemplateType, TemplateName,
|
|
Context, Force, ExistingFiles) ->
|
|
?WARN("Skipping unknown template instruction: ~p\n", [Other]),
|
|
execute_template(Files, Rest, TemplateType, TemplateName, Context,
|
|
Force, ExistingFiles).
|