← Back to branch summary

~rdoering/ubuntu/karmic/erlang/fix-535090

« back to all changes in this revision

Viewing changes to lib/mnesia/examples/mnesia_meter.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-02-15 16:42:52 UTC
  • mfrom: (3.1.2 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090215164252-q5x4rcf8a5pbesb1
Tags: 1:12.b.5-dfsg-2
Upload to unstable after lenny is released.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/mnesia/examples/mnesia_meter.erl
63
63
    Separator = #result{desc = "", list = SepList},
64
64
    display([Separator, Header, Separator | NewRes] ++ [Separator]).
65
65
 
66
 
go(ReplicaType, [], Config, FunOverhead, Acc) ->
 
66
go(_ReplicaType, [], _Config, _FunOverhead, Acc) ->
67
67
    Acc;
68
68
go(ReplicaType, [H | T], OldNodes, FunOverhead, Acc) ->
69
69
    Nodes = [H | OldNodes],
71
71
    Res = run(Nodes, Config, FunOverhead),
72
72
    go(ReplicaType, T, Nodes, FunOverhead, [{ReplicaType, Nodes, Res} | Acc]).
73
73
 
74
 
rearrange([{ReplicaType, Nodes, Meters} | Tail], Acc) ->
 
74
rearrange([{_ReplicaType, _Nodes, Meters} | Tail], Acc) ->
75
75
    Acc2 = [add_meter(M, Acc) || M <- Meters],
76
76
    rearrange(Tail, Acc2);
77
77
rearrange([], Acc) ->
103
103
display([], _Format, _MaxDesc) ->
104
104
    ok.
105
105
    
106
 
display_items([Item | Items], "") ->
 
106
display_items([_Item | Items], "") ->
107
107
    io:format(" ! ~s", [lists:duplicate(10, $-)]),
108
108
    display_items(Items, "");
109
109
display_items([Micros | Items], Desc) ->
433
433
    rpc:multicall(Nodes, mnesia, stop, []).
434
434
 
435
435
%% Generate some dummy persons    
436
 
init_records(Fun, 0) ->
 
436
init_records(_Fun, 0) ->
437
437
    {atomic, ok};
438
438
init_records(Fun, Times) ->
439
439
    {atomic, ok} = Fun(Times, 0 - Times),
443
443
    case catch timer:tc(?MODULE, repeat_meter, [Fun, Times]) of
444
444
        {Micros, ok} ->
445
445
            {ok, Micros div Times};
446
 
        {Micros, {error, Reason}} ->
 
446
        {_Micros, {error, Reason}} ->
447
447
            {error, Reason};
448
448
        {'EXIT', Reason} ->
449
449
            {error, Reason}
455
455
 
456
456
repeat_meter(_, {atomic, ok}, 0) ->
457
457
    ok;
458
 
repeat_meter(Meter, {atomic, Result}, Times) when Times > 0 ->
 
458
repeat_meter(Meter, {atomic, _Result}, Times) when Times > 0 ->
459
459
    repeat_meter(Meter, Meter(Times), Times - 1);
460
 
repeat_meter(Meter, Reason, Times) ->
 
460
repeat_meter(_Meter, Reason, _Times) ->
461
461
    {error, Reason}.
462
462