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을 추가했습니다. Joe가 "Robert는 아무것도 변경하지 못했습니다."라고 말하면 사실입니다. 그래서 다시 작성했습니다. 이제 LFE 컨텍스트에서 유용한 옵션을 찾아야합니다. – rvirding