Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 99420eb47b
Fetching contributors…

Cannot retrieve contributors at this time

executable file 24 lines (20 sloc) 0.508 kb
#!/usr/bin/env escript
%% -*- erlang -*-
%%! -pa ./ebin -sasl -boot start_sasl -noshell
main([Command|_Args]) ->
try
Git = git:open("test_git"), %% TODO: look for real git repo from cwd
case Command of
"log" ->
RevList = git:rev_list(Git, ["25daa907ccb6feb267bfec70a130d5fe13e48a79"]), %% blob
io:fwrite("RevList: ~p~n", [RevList]);
_Else ->
usage()
end
catch
_:_ ->
usage()
end.
usage() ->
io:format("usage: egit command\n"),
halt(1).
Jump to Line
Something went wrong with that request. Please try again.