#!/usr/bin/awk

# Convert seconds to H:MM:SS where "seconds" is less than the number
# of seconds in a day.

# SYNTAX:
# $ clear; awk -f ~cymbala/bin/s_to_hms.awk

function s_to_hms (s,     n, x, parts) {
    n = split(s, parts, /:/);
    x = int(parts[1] / 60);
    x = x ":" sprintf("%02d", parts[1] - (x * 60));
    sub(/[0-9]+/, x, s);
    n = split(s, parts, /:/);
    if (parts[1] > 60) {
	sub(/[0-9]+/, "", s);
	s = s_to_hms(parts[1]) "" s;
    }
    return s;
}

BEGIN {

    # EXAMPLE:
    s = 242000;
    print "INPUT: " s;
    print "FUNCTION RESULTS: " s_to_hms(s);

    # RESULTS:
    # INPUT: 242000
    # FUNCTION RESULTS: 1:07:13:20

    exit;
}

###
#