lib/scripts/timestop.bash

clarified tool setup for GHC / OCaml: discontinued "isabelle ghc", "isabelle ocaml", "isabelle ocamlc" to avoid confusion with traditional settings variables for executables (these are still required in existing applications, notably in session options [condition = ISABELLE_GHC] etc. and codegen setup;

# -*- shell-script -*- :mode=shellscript:
#
# Author: Makarius
#
# timestop - report timing based on environment (cf. timestart.bash)
#

TIMES_REPORT=""

function show_times ()
{
  local TIMES_START="$TIMES_RESULT"
  get_times
  local TIMES_STOP="$TIMES_RESULT"
  local TIME1
  local TIME2
  local KIND
  for KIND in 1 2
  do
    local START=$(echo "$TIMES_START" | cut -d " " -f $KIND)
    local STOP=$(echo "$TIMES_STOP" | cut -d " " -f $KIND)

    local TIME=$(( $STOP - $START ))
    eval "TIME${KIND}=$TIME"

    local SECS=$(( $TIME % 60 ))
    [ $SECS -lt 10 ] && SECS="0$SECS"
    local MINUTES=$(( ($TIME / 60) % 60 ))
    [ $MINUTES -lt 10 ] && MINUTES="0$MINUTES"
    local HOURS=$(( $TIME / 3600 ))

    local KIND_NAME
    [ "$KIND" = 1 ] && KIND_NAME="elapsed time"
    [ "$KIND" = 2 ] && KIND_NAME="cpu time"
    local RESULT="${HOURS}:${MINUTES}:${SECS} ${KIND_NAME}"

    if [ ${KIND} -eq 1 -o ${TIME} -ge 5 ]; then
      if [ -z "$TIMES_REPORT" ]; then
        TIMES_REPORT="$RESULT"
      else
        TIMES_REPORT="$TIMES_REPORT, $RESULT"
      fi
    fi
  done
  if let "$TIME1 >= 5 && $TIME2 >= 5"
  then
    local FACTOR=$(( $TIME2 * 100 / $TIME1 ))
    local FACTOR1=$(( $FACTOR / 100 ))
    local FACTOR2=$(( $FACTOR % 100 ))
    if let "$FACTOR2 < 10"; then FACTOR2="0$FACTOR2"; fi
    TIMES_REPORT="$TIMES_REPORT, factor ${FACTOR1}.${FACTOR2}"
  fi
}

show_times  # sets TIMES_REPORT

unset TIMES_RESULT get_times show_times