#!/usr/bin/env expect-lite
# make this puppy run

;;;
Demo to show time functions
;;;

#include tcl functions
~tcl_functions.inc

# initialize variables before using them with time functions
$mytime1=0
$mytime2=0


!mark_time mytime1
>pwd
!mark_time mytime2
>pwd
!show_time mytime1 mydate
# calculate elapsed time
=$mytime2 - $mytime1
>
; == my date is:$mydate and time was:$mytime1
; == elapsed time is: $mytime2 ms
>
