#!/usr/bin/perl

use strict;

print <<EOF;
Welcome to tc.pl, the time calculator.
Expressions may contain hour:minute:second or minute:second literals.
Use socat (http://www.dest-unreach.org/socat/) to add readline capability:
socat READLINE EXEC:./tc.pl,pty
EOF

while( <> )
{
  s/\s+//g;
  next if /^$/;
  if( /([^0-9+\-*\/:.()])/ ) {
    print "Illegal character `$1'.\n";
    next;
  }
  s/([0-9]+):([0-9]+):([0-9]+)/(3600*$1+60*$2+$3)/g;
  s/([0-9]+):([0-9]+)/(60*$1+$2)/g;
  # prevent interpretation as octal:
  s/\b0+([1-9][0-9]*)\b/$1/g;
  my $secs= 1*sprintf("%.3f", eval);
  print $secs;
  my $mins= int($secs/60);
  $secs -= $mins*60;
  $secs= sprintf("%02d", $secs);
  print " = $mins:$secs" if $mins;
  my $hours= int($mins/60);
  $mins -= $hours*60;
  $mins= sprintf("%02d", $mins);
  print " = $hours:$mins:$secs" if $hours;
  print "\n";
}


