#! /bin/zsh

source ${0:h}/be-paths # ./be-paths

now-ns () { echo $((`date +%s`*10**9 + `date +%N`)) }

clean-elisp () { make -C $LISP_PATH clean > /dev/null }

time-elisp () {
    (($#)) || set ./process_lisp_time

    clean-elisp

    local start=`now-ns`
    /usr/bin/make -C $LISP_PATH > /dev/null
    local done=`now-ns`

    local nanos=$(($done - $start))
    echo "\t" $nanos "\n" >> $1
}