Erlang Progress Bar 1

Erlang Progress Bar is ann Erlang progress bar module. You should be able to have multiple processes notifying the progress bar of the completion of their task. The progress bar should notify those waiting for completion, etc. So - time for an update!

Now you can start a progress bar server and easily run tasks in parallel. To see a sample use:

progress_bar:example_processes( 1000, 10 ).

That’s just starting a progress server and calling increment server:

example_processes(N, P) ->
    start_server(”Example“, N),
    for(1, P, fun() -> spawn_link( fun() -> example_work_process(N div P) end ) end ),
    receive
        finished -> finished
    end.

example_work_process(0) -> void;
example_work_process(N) ->
    timer:sleep(100),
    increment_server(),
    example_work_process(N-1).

for(N, N, F) -> [F()];
for(I, N, F) -> [F()|for(I 1, N, F)]

Dan Bravender was kind enough to point out that if we change the record name to the same as the module name we can use it in a more object oriented fashion… so PBar:finish instead of progress_bar:finish(PBar).