從rvirding的建議,這裏是第一刺lfec
,做我想要的上面(和幾乎沒有別的)。我會從Makefile
與./lfec -o ebin src/*lfe
調用它。
#!/usr/bin/env escript
%% -*- erlang -*-
%%! -smp enable -sname lfec -mnesia debug verbose
main(Arguments) ->
try
{Opts, Args} = parse_opts(Arguments),
case get_opt("-o", Opts) of
false ->
lists:map(fun lfe_comp:file/1, Args);
Path ->
lists:map(fun (Arg) -> lfe_comp:file(Arg, [{outdir, Path}]) end,
Args)
end
catch
_:_ -> usage()
end;
main(_) -> usage().
get_opt(Target, Opts) ->
case lists:keyfind(Target, 1, Opts) of
false -> false;
{_} -> true;
{_, Setting} -> Setting
end.
parse_opts(Args) -> parse_opts(Args, []).
parse_opts(["-o", TargetDir | Rest], Opts) ->
parse_opts(Rest, [{"-o", TargetDir} | Opts]);
parse_opts(Args, Opts) -> {Opts, Args}.
usage() ->
io:format("usage:\n"),
io:format("-o [TargetDir] -- output files to specified directory\n"),
halt(1).
我可以借用這個。 :-) – rvirding
@rvirding - 隨意;這就是它的目的。 – Inaimathi
我已經借了它,並添加了一個簡單的lfec到開發分支。正如喬曾經說過的,「羅伯特不能對任何東西做出小小的改變」,這是真的,所以我重寫了它。現在我只需要確定哪些選項在LFE環境中很有用。 – rvirding