Blame awklib/eg/lib/intdiv0.awk

Packit 575503
# intdiv0 --- do integer division
Packit 575503
Packit 575503
#
Packit 575503
# Arnold Robbins, arnold@skeeve.com, Public Domain
Packit 575503
# July, 2014
Packit 575503
#
Packit 575503
# Name changed from div() to intdiv()
Packit 575503
# April, 2015
Packit 575503
#
Packit 575503
# Changed to intdiv0()
Packit 575503
# April, 2016
Packit 575503
Packit 575503
function intdiv0(numerator, denominator, result)
Packit 575503
{
Packit 575503
    split("", result)
Packit 575503
Packit 575503
    numerator = int(numerator)
Packit 575503
    denominator = int(denominator)
Packit 575503
    result["quotient"] = int(numerator / denominator)
Packit 575503
    result["remainder"] = int(numerator % denominator)
Packit 575503
Packit 575503
    return 0.0
Packit 575503
}