lib/scripts/timestop.bash

add an Isar proof found with Sledgehammer that involves a Skolem constant (internally)

# -*- 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 [ -z "$TIMES_REPORT" ]; then
      TIMES_REPORT="$RESULT"
    else
      TIMES_REPORT="$TIMES_REPORT, $RESULT"
    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