src/rebar_templater.erl - couchdb-rebar - Git at Google

 %% -*- 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
     rebar_config:set_global(template, "simpleapp"),
     create(Config, File).

 'create-node'(Config, File) ->
     %% Alias for create w/ template=simplenode
     rebar_config:set_global(template, "simplenode"),
     create(Config, File).

 'list-templates'(_Config, _File) ->
     %% Load a list of all the files in the escript -- cache it in the pdict
     %% since we'll potentially need to walk it several times over the course
     %% of a run.
     cache_escript_files(),

     %% Build a list of available templates
     AvailTemplates = find_disk_templates() ++ find_escript_templates(),
     ?CONSOLE("Available templates:\n", []),
     _ = [begin
              BaseName = filename:basename(F, ".template"),
              ?CONSOLE("\t* ~s: ~s (~p)\n", [BaseName, F, Type])
          end || {Type, F} <- AvailTemplates],
     ok.


 create(_Config, _) ->
     %% Load a list of all the files in the escript -- cache it in the pdict
     %% since we'll potentially need to walk it several times over the course
     %% of a run.
     cache_escript_files(),

     %% Build a list of available templates
     AvailTemplates = find_disk_templates() ++ find_escript_templates(),
     ?DEBUG("Available templates: ~p\n", [AvailTemplates]),

     TemplateId = template_id(),

     %% 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(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(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(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(Type, Template), Context)),
     ?DEBUG("Final template def ~p: ~p\n", [TemplateId, FinalTemplate]),

     %% Execute the instructions in the finalized template
     Force = rebar_config:get_global(force, "0"),
     execute_template(FinalTemplate, Type, Template, Context, Force, []).


 %%
 %% 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
 %% ===================================================================

 %%
 %% Scan the current escript for available files and cache in pdict.
 %%
 cache_escript_files() ->
     {ok, Files} = rebar_utils:escript_foldl(
                     fun(Name, _, GetBin, Acc) ->
                             [{Name, GetBin()} | Acc]
                     end,
                     [], rebar_config:get_global(escript, undefined)),
     erlang:put(escript_files, Files).


 template_id() ->
     case rebar_config:get_global(template, undefined) of
         undefined ->
             ?ABORT("No template specified.\n", []);
         TemplateId ->
             TemplateId
     end.

 find_escript_templates() ->
     [{escript, Name} || {Name, _Bin} <- erlang:get(escript_files),
                         re:run(Name, ?TEMPLATE_RE, [{capture, none}]) == match].

 find_disk_templates() ->
     OtherTemplates = find_other_templates(),
     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() ->
     case rebar_config:get_global(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(escript, Name) ->
     {Name, Bin} = lists:keyfind(Name, 1, erlang:get(escript_files)),
     Bin;
 load_file(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([], Dict) ->
     Dict;
 update_vars([Key | Rest], Dict) ->
     Value = rebar_config:get_global(Key, dict:fetch(Key, Dict)),
     update_vars(Rest, dict:store(Key, Value, Dict)).


 %%
 %% Given a string or binary, parse it into a list of terms, ala file:consult/0
 %%
 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([], _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 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([{template, Input, Output} | Rest], TemplateType,
                  TemplateName, Context, Force, ExistingFiles) ->
     InputName = filename:join(filename:dirname(TemplateName), Input),
     case write_file(Output, render(load_file(TemplateType, InputName), Context),
                     Force) of
         ok ->
             execute_template(Rest, TemplateType, TemplateName, Context,
                              Force, ExistingFiles);
         {error, exists} ->
             execute_template(Rest, TemplateType, TemplateName, Context,
                              Force, [Output|ExistingFiles])
     end;
 execute_template([{file, Input, Output} | Rest], TemplateType, TemplateName,
                  Context, Force, ExistingFiles) ->
     InputName = filename:join(filename:dirname(TemplateName), Input),
     case write_file(Output, load_file(TemplateType, InputName), Force) of
         ok ->
             execute_template(Rest, TemplateType, TemplateName,
                              Context, Force, ExistingFiles);
         {error, exists} ->
             execute_template(Rest, TemplateType, TemplateName,
                              Context, Force, [Output|ExistingFiles])
     end;
 execute_template([{dir, Name} | Rest], TemplateType, TemplateName, Context,
                  Force, ExistingFiles) ->
     case filelib:ensure_dir(filename:join(Name, "dummy")) of
         ok ->
             execute_template(Rest, TemplateType, TemplateName,
                              Context, Force, ExistingFiles);
         {error, Reason} ->
             ?ABORT("Failed while processing template instruction "
                    "{dir, ~s}: ~p\n", [Name, Reason])
     end;
 execute_template([{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(Rest, TemplateType, TemplateName,
                              Context, Force, ExistingFiles)
     catch _:_ ->
             ?ABORT("Failed while processing template instruction "
                    "{copy, ~s, ~s}~n", [Input, Output])
     end;
 execute_template([{chmod, Mod, File} | Rest], TemplateType, TemplateName,
                  Context, Force, ExistingFiles) when is_integer(Mod) ->
     case file:change_mode(File, Mod) of
         ok ->
             execute_template(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([{symlink, Existing, New} | Rest], TemplateType, TemplateName,
                  Context, Force, ExistingFiles) ->
     case file:make_symlink(Existing, New) of
         ok ->
             execute_template(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([{variables, _} | Rest], TemplateType, TemplateName, Context,
                  Force, ExistingFiles) ->
     execute_template(Rest, TemplateType, TemplateName,
                      Context, Force, ExistingFiles);
 execute_template([Other | Rest], TemplateType, TemplateName, Context,
                  Force, ExistingFiles) ->
     ?WARN("Skipping unknown template instruction: ~p\n", [Other]),
     execute_template(Rest, TemplateType, TemplateName, Context,
                      Force, ExistingFiles).
	%% -- 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
	rebar_config:set_global(template, "simpleapp"),
	create(Config, File).

	'create-node'(Config, File) ->
	%% Alias for create w/ template=simplenode
	rebar_config:set_global(template, "simplenode"),
	create(Config, File).

	'list-templates'(_Config, _File) ->
	%% Load a list of all the files in the escript -- cache it in the pdict
	%% since we'll potentially need to walk it several times over the course
	%% of a run.
	cache_escript_files(),

	%% Build a list of available templates
	AvailTemplates = find_disk_templates() ++ find_escript_templates(),
	?CONSOLE("Available templates:\n", []),
	_ = [begin
	BaseName = filename:basename(F, ".template"),
	?CONSOLE("\t* ~s: ~s (~p)\n", [BaseName, F, Type])
	end \|\| {Type, F} <- AvailTemplates],
	ok.


	create(_Config, _) ->
	%% Load a list of all the files in the escript -- cache it in the pdict
	%% since we'll potentially need to walk it several times over the course
	%% of a run.
	cache_escript_files(),

	%% Build a list of available templates
	AvailTemplates = find_disk_templates() ++ find_escript_templates(),
	?DEBUG("Available templates: ~p\n", [AvailTemplates]),

	TemplateId = template_id(),

	%% 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(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(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(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(Type, Template), Context)),
	?DEBUG("Final template def ~p: ~p\n", [TemplateId, FinalTemplate]),

	%% Execute the instructions in the finalized template
	Force = rebar_config:get_global(force, "0"),
	execute_template(FinalTemplate, Type, Template, Context, Force, []).


	%%
	%% 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
	%% ===================================================================

	%%
	%% Scan the current escript for available files and cache in pdict.
	%%
	cache_escript_files() ->
	{ok, Files} = rebar_utils:escript_foldl(
	fun(Name, _, GetBin, Acc) ->
	[{Name, GetBin()} \| Acc]
	end,
	[], rebar_config:get_global(escript, undefined)),
	erlang:put(escript_files, Files).


	template_id() ->
	case rebar_config:get_global(template, undefined) of
	undefined ->
	?ABORT("No template specified.\n", []);
	TemplateId ->
	TemplateId
	end.

	find_escript_templates() ->
	[{escript, Name} \|\| {Name, _Bin} <- erlang:get(escript_files),
	re:run(Name, ?TEMPLATE_RE, [{capture, none}]) == match].

	find_disk_templates() ->
	OtherTemplates = find_other_templates(),
	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() ->
	case rebar_config:get_global(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(escript, Name) ->
	{Name, Bin} = lists:keyfind(Name, 1, erlang:get(escript_files)),
	Bin;
	load_file(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([], Dict) ->
	Dict;
	update_vars([Key \| Rest], Dict) ->
	Value = rebar_config:get_global(Key, dict:fetch(Key, Dict)),
	update_vars(Rest, dict:store(Key, Value, Dict)).


	%%
	%% Given a string or binary, parse it into a list of terms, ala file:consult/0
	%%
	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([], _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 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([{template, Input, Output} \| Rest], TemplateType,
	TemplateName, Context, Force, ExistingFiles) ->
	InputName = filename:join(filename:dirname(TemplateName), Input),
	case write_file(Output, render(load_file(TemplateType, InputName), Context),
	Force) of
	ok ->
	execute_template(Rest, TemplateType, TemplateName, Context,
	Force, ExistingFiles);
	{error, exists} ->
	execute_template(Rest, TemplateType, TemplateName, Context,
	Force, [Output\|ExistingFiles])
	end;
	execute_template([{file, Input, Output} \| Rest], TemplateType, TemplateName,
	Context, Force, ExistingFiles) ->
	InputName = filename:join(filename:dirname(TemplateName), Input),
	case write_file(Output, load_file(TemplateType, InputName), Force) of
	ok ->
	execute_template(Rest, TemplateType, TemplateName,
	Context, Force, ExistingFiles);
	{error, exists} ->
	execute_template(Rest, TemplateType, TemplateName,
	Context, Force, [Output\|ExistingFiles])
	end;
	execute_template([{dir, Name} \| Rest], TemplateType, TemplateName, Context,
	Force, ExistingFiles) ->
	case filelib:ensure_dir(filename:join(Name, "dummy")) of
	ok ->
	execute_template(Rest, TemplateType, TemplateName,
	Context, Force, ExistingFiles);
	{error, Reason} ->
	?ABORT("Failed while processing template instruction "
	"{dir, ~s}: ~p\n", [Name, Reason])
	end;
	execute_template([{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(Rest, TemplateType, TemplateName,
	Context, Force, ExistingFiles)
	catch _:_ ->
	?ABORT("Failed while processing template instruction "
	"{copy, ~s, ~s}~n", [Input, Output])
	end;
	execute_template([{chmod, Mod, File} \| Rest], TemplateType, TemplateName,
	Context, Force, ExistingFiles) when is_integer(Mod) ->
	case file:change_mode(File, Mod) of
	ok ->
	execute_template(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([{symlink, Existing, New} \| Rest], TemplateType, TemplateName,
	Context, Force, ExistingFiles) ->
	case file:make_symlink(Existing, New) of
	ok ->
	execute_template(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([{variables, _} \| Rest], TemplateType, TemplateName, Context,
	Force, ExistingFiles) ->
	execute_template(Rest, TemplateType, TemplateName,
	Context, Force, ExistingFiles);
	execute_template([Other \| Rest], TemplateType, TemplateName, Context,
	Force, ExistingFiles) ->
	?WARN("Skipping unknown template instruction: ~p\n", [Other]),
	execute_template(Rest, TemplateType, TemplateName, Context,
	Force, ExistingFiles).