Selaa lähdekoodia

ft: 测试代码

master
lijie 2 vuotta sitten
vanhempi
commit
a436d32d64
2 muutettua tiedostoa jossa 55 lisäystä ja 4 poistoa
  1. +50
    -0
      src/test.erl
  2. +5
    -4
      src/timerWork/gtWork.erl

+ 50
- 0
src/test.erl Näytä tiedosto

@ -0,0 +1,50 @@
-module(test).
-compile([export_all]).
timer(_, _) ->
% I = atomics:add_get(persistent_term:get(cnt), 1, 1),
%io:format("IMY******* ~p~n", [I]) ,
% case I of
% 1000000 ->
% io:format("end time ~p ~n", [erlang:system_time(millisecond)]);
% _ ->
% ignore
% end,
ok.
test(N, Time) ->
io:format("start time1 ~p ~n", [erlang:system_time(millisecond)]),
% persistent_term:put(cnt, atomics:new(1, [])),
gTimer:startWork(16),
doTest(N, Time).
doTest(0, Time) ->
io:format("start time2 ~p ~n", [erlang:system_time(millisecond)]),
gTimer:setTimer(rand:uniform(Time), {?MODULE, timer, []});
doTest(N, Time) ->
gTimer:setTimer(rand:uniform(Time), {?MODULE, timer, []}),
doTest(N - 1, Time).
timer(_) ->
%io:format("IMY******* ~p~n", [I]) ,
% case I of
% 1000000 ->
% io:format("end time ~p ~n", [erlang:system_time(millisecond)]);
% _ ->
% ignore
% end,
ok.
test2(N, Time) ->
io:format("start time1 ~p ~n", [erlang:system_time(millisecond)]),
doTest2(N, Time).
doTest2(0, Time) ->
io:format("start time2 ~p ~n", [erlang:system_time(millisecond)]),
zm_dtimer:set({game, 0}, {?MODULE, timer, []}, {time, rand:uniform(Time), 6000});
doTest2(N, Time) ->
zm_dtimer:set({game, N}, {?MODULE, timer, []}, {time, rand:uniform(Time), 6000}),
doTest2(N - 1, Time).

+ 5
- 4
src/timerWork/gtWork.erl Näytä tiedosto

@ -35,10 +35,11 @@ handleCast(_Msg, _State) ->
handleInfo({timeout, TimerRef, MFA}, _State) ->
%% Msg格式
{M, F, A} = MFA,
try M:F(A, TimerRef)
catch C:R ->
error_logger:error_msg("gTimer timeout error MFA:~p C:~p R:~p~n", [MFA, C, R])
end,
spawn(M, F, [A, TimerRef]),
% try M:F(A, TimerRef)
% catch C:R ->
% error_logger:error_msg("gTimer timeout error MFA:~p C:~p R:~p~n", [MFA, C, R])
% end,
kpS;
handleInfo(_Msg, _State) ->
kpS.

Ladataan…
Peruuta
Tallenna