janet-profiling -- measure duration of execution

[saikyun]

I wanted to be able to measure execution time in a more structured way than test/timeit, so I made janet-profiling.

It's inspired by tufte. Main features include:

• measure expressions or functions
• nested measurements are kept separate from each other
  • makes it more clear what parts of an expression/function actually takes time
• shows average time and total time, with and without inner measurements

Example usage:

(use profiling/profile)
(p :measure (ev/sleep 0.1))
(p :inner (ev/sleep 0.5))
(p :measure
   (do (ev/sleep 0.1) 
       (p :inner (ev/sleep 0.5))))
(print-results)
# results
k              total    no inner    avg      no inner    total  no inner   nof calls
:all/inner     1.00129  <-          0.50065  0.50065     58.85% <-         2
:inner         0.50065  <-          0.50065  <-          29.43% <-         1
:measure       0.70010  0.19945     0.35005  0.09973     41.15% 11.72%     2
  :inner       0.50065  <-          0.50065  <-          29.43% <-         1
:all/measure   0.70010  0.19945     0.35005  0.09973     41.15% 11.72%     2
nil

The rows prefixed by :all is a summary of all measurements with that label, which means that if an inner measurement with the same label is in multiple places, it will show up in both the nested way (like :inner does in this case), and in :all/inner. This way you can see if a measurement is slower in a specific context, or just all around.

There's also defnp/varfnp which work like defn/varfn except that the body is wrapped with (p <function-name> (do body)).

<- means "same as the value to the left", in these cases because of no inner measurements having been done.

Hope you find use for it. :) Happy for any feedback.