Timing execution of function calls in Emacs lisp

Timing execution of function calls in Emacs lisp

[Nordlöw]

Is there a way to measure the execution time of function calls?

Compare with following Matlab-snippet:
  tic; do_something(with_some_arg); toc

In emacs lisp perhaps something like:
  (time FUNCTION ARGS...)

Thanks in advance,
Nordlöw

Re: Timing execution of function calls in Emacs lisp

[Lennart Borgman (gmail)]

Nordlöw wrote:
> Is there a way to measure the execution time of function calls?
> 
> Compare with following Matlab-snippet:
>   tic; do_something(with_some_arg); toc
> 
> In emacs lisp perhaps something like:
>   (time FUNCTION ARGS...)


Maybe the benchmark elisp library?

Re: Timing execution of function calls in Emacs lisp

[Evans Winner]

Nordlöw <per.nordlow@gmail.com> writes:

    Is there a way to measure the execution time of function calls?
 
    Compare with following Matlab-snippet:
      tic; do_something(with_some_arg); toc
 
I am curious what the serious Elispers would do, so as bait
I wrote my own (almost certainly bad) attempt.  I understand
using `eval is bad form.  Still not too sure why.  Also, do
you need to do anything with the whatever it is your
function returns?  And I don't imagine this could be very
accurate.  Would something like this really have to be
implemented in C?  Maybe it already is.

(defvar tic nil)
(defvar toc nil)

(defun tic ()
  (setq tic (current-time)))

(defun toc ()
  (setq toc (current-time)))

(defun time (form)
  (progn
    (tic)
    (eval form)
    (toc)
    (time-subtract toc tic)))

Re: Timing execution of function calls in Emacs lisp

[Nordlöw]

On 5 Juni, 18:25, Evans Winner <tho...@timbral.net> wrote:
> Nordlöw <per.nord...@gmail.com> writes:
>
>     Is there a way to measure the execution time of function calls?
>
>     Compare with following Matlab-snippet:
>       tic; do_something(with_some_arg); toc
>
> I am curious what the serious Elispers would do, so as bait
> I wrote my own (almost certainly bad) attempt.  I understand
> using `eval is bad form.  Still not too sure why.  Also, do
> you need to do anything with the whatever it is your
> function returns?  And I don't imagine this could be very
> accurate.  Would something like this really have to be
> implemented in C?  Maybe it already is.
>
> (defvar tic nil)
> (defvar toc nil)
>
> (defun tic ()
>   (setq tic (current-time)))
>
> (defun toc ()
>   (setq toc (current-time)))
>
> (defun time (form)
>   (progn
>     (tic)
>     (eval form)
>     (toc)
>     (time-subtract toc tic)))

benchmark-run() does the trick!

Many thanks,
Nordlöw

Re: Timing execution of function calls in Emacs lisp

[Nikolaj Schumacher]

Nordlöw <per.nordlow@gmail.com> wrote:

> Is there a way to measure the execution time of function calls?
>
> Compare with following Matlab-snippet:
>   tic; do_something(with_some_arg); toc
>
> In emacs lisp perhaps something like:
>   (time FUNCTION ARGS...)

Here's what I use.  It works well enough for my purposes.

(defmacro measure-time (&rest body)
  "Measure the time it takes to evaluate BODY."
  `(let ((time (current-time)))
     ,@body
     (message "%.06f" (float-time (time-since time)))))

It's used like this:

(measure-time
  (dotimes (i 100000)
    (1+ 1)))

regards,
Nikolaj Schumacher