Posted to tcl by Stu at Wed Aug 06 04:26:24 GMT 2008view raw

  1. #! /bin/sh
  2. # \
  3. exec tclsh8.5 $0 ${1+"$@"}
  4. puts \n[regsub -line "(^| )([string trimleft [clock format [clock seconds] -format %e]])( |\$)" [string trimright [exec cal] \n] "\\1\x1b\[36m\\2\x1b\[0m\\3"]
  5. puts [string repeat - 20]
  6. puts [string repeat " " 5][clock format [clock seconds] -format %T]\n