aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/src/timer.erl
diff options
context:
space:
mode:
authorRaimo Niskanen <[email protected]>2010-07-07 10:46:48 +0200
committerRaimo Niskanen <[email protected]>2010-07-07 10:46:48 +0200
commita1a9aff12c1365dc155328410c5253d7495f757f (patch)
treeb7b12d6f7cd38f94702bbc946d9671b9583d2738 /lib/stdlib/src/timer.erl
parent0aa94b3b70ae9bd99e23f99e51f08d694403fd21 (diff)
parent2cca6506bafedc5ebb720510151a98602133d8e5 (diff)
downloadotp-a1a9aff12c1365dc155328410c5253d7495f757f.tar.gz
otp-a1a9aff12c1365dc155328410c5253d7495f757f.tar.bz2
otp-a1a9aff12c1365dc155328410c5253d7495f757f.zip
Merge branch 'cf/timer_tc' into dev
* cf/timer_tc: Add timer:tc/2 to measure the elapsed time of anonymous functions Conflicts: lib/stdlib/doc/src/timer.xml
Diffstat (limited to 'lib/stdlib/src/timer.erl')
-rw-r--r--lib/stdlib/src/timer.erl13
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/stdlib/src/timer.erl b/lib/stdlib/src/timer.erl
index 6ee837c3e6..24e14caa69 100644
--- a/lib/stdlib/src/timer.erl
+++ b/lib/stdlib/src/timer.erl
@@ -22,7 +22,7 @@
send_after/3, send_after/2,
exit_after/3, exit_after/2, kill_after/2, kill_after/1,
apply_interval/4, send_interval/3, send_interval/2,
- cancel/1, sleep/1, tc/3, now_diff/2,
+ cancel/1, sleep/1, tc/2, tc/3, now_diff/2,
seconds/1, minutes/1, hours/1, hms/3]).
-export([start_link/0, start/0,
@@ -98,6 +98,17 @@ sleep(T) ->
after T -> ok
end.
+
+%%
+%% Measure the execution time (in microseconds) for Fun(Args).
+%%
+-spec tc(function(), [_]) -> {time(), term()}.
+tc(F, A) ->
+ Before = erlang:now(),
+ Val = (catch apply(F, A)),
+ After = erlang:now(),
+ {now_diff(After, Before), Val}.
+
%%
%% Measure the execution time (in microseconds) for an MFA.
%%