X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Finttypes%2Fimaxdiv.c;fp=functions%2Finttypes%2Fimaxdiv.c;h=be93b99cfc0b453072d344e29cf934240b725221;hb=440307cefe82c48ef22e85ef351db43046a60df6;hp=0000000000000000000000000000000000000000;hpb=81af09721ed3ac131915e24ce9af5af447ed1553;p=pdclib.old

diff --git a/functions/inttypes/imaxdiv.c b/functions/inttypes/imaxdiv.c
new file mode 100755
index 0000000..be93b99
--- /dev/null
+++ b/functions/inttypes/imaxdiv.c
@@ -0,0 +1,41 @@
+/* $Id$ */
+
+/* lldiv( long long int, long long int )
+
+   This file is part of the Public Domain C Library (PDCLib).
+   Permission is granted to use, modify, and / or redistribute at will.
+*/
+
+#include <inttypes.h>
+
+#ifndef REGTEST
+
+imaxdiv_t imaxdiv( intmax_t numer, intmax_t denom )
+{
+    imaxdiv_t rc;
+    rc.quot = numer / denom;
+    rc.rem  = numer % denom;
+    /* TODO: pre-C99 compilers might require modulus corrections */
+    return rc;
+}
+
+#endif
+
+#ifdef TEST
+#include <_PDCLIB_test.h>
+
+int main( void )
+{
+    imaxdiv_t result;
+    result = imaxdiv( (intmax_t)5, (intmax_t)2 );
+    TESTCASE( result.quot == 2 && result.rem == 1 );
+    result = imaxdiv( (intmax_t)-5, (intmax_t)2 );
+    TESTCASE( result.quot == -2 && result.rem == -1 );
+    result = imaxdiv( (intmax_t)5, (intmax_t)-2 );
+    TESTCASE( result.quot == -2 && result.rem == 1 );
+    TESTCASE( sizeof( result.quot ) == sizeof( intmax_t ) );
+    TESTCASE( sizeof( result.rem )  == sizeof( intmax_t ) );
+    return TEST_RESULTS;
+}
+
+#endif