diff options
author | Stephen Davies <sdavies@sdc.com.au> | 2014-08-24 10:26:36 +0930 |
---|---|---|
committer | Stephen Davies <sdavies@sdc.com.au> | 2014-08-24 10:26:36 +0930 |
commit | 8006ef4ca16fa8264dcc1e849783e1f4ce4978a1 (patch) | |
tree | e67f3ace9563ebb83d15a438b2124298486d39c0 /awklib/eg/lib/div.awk | |
parent | 9a7e5828f29d3f5daba5dc5ef1f6b9cd87f596b8 (diff) | |
parent | 8f2c2755573b81c1e2c9ef1c42c529d13396d4d2 (diff) | |
download | egawk-8006ef4ca16fa8264dcc1e849783e1f4ce4978a1.tar.gz egawk-8006ef4ca16fa8264dcc1e849783e1f4ce4978a1.tar.bz2 egawk-8006ef4ca16fa8264dcc1e849783e1f4ce4978a1.zip |
Merge branch 'comment' of ssh://git.sv.gnu.org/srv/git/gawk into comment
Remote changes?
Diffstat (limited to 'awklib/eg/lib/div.awk')
-rw-r--r-- | awklib/eg/lib/div.awk | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/awklib/eg/lib/div.awk b/awklib/eg/lib/div.awk new file mode 100644 index 00000000..9d919288 --- /dev/null +++ b/awklib/eg/lib/div.awk @@ -0,0 +1,17 @@ +# div --- do integer division + +# +# Arnold Robbins, arnold@skeeve.com, Public Domain +# July, 2014 + +function div(numerator, denominator, result, i) +{ + split("", result) + + numerator = int(numerator) + denominator = int(denominator) + result["quotient"] = int(numerator / denominator) + result["remainder"] = int(numerator % denominator) + + return 0.0 +} |