X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2F_PDCLIB%2Fstdarg.c;fp=functions%2F_PDCLIB%2Fstdarg.c;h=defd5fef31d8f7d9129c4cf6b2aac5d3ecc6c724;hb=c7a9c2e3a08068d6b10656c0d3ba683f6ec74fa9;hp=0000000000000000000000000000000000000000;hpb=e25ac2ecee6251afcec84e08165e454fb6bc256c;p=pdclib

diff --git a/functions/_PDCLIB/stdarg.c b/functions/_PDCLIB/stdarg.c
new file mode 100644
index 0000000..defd5fe
--- /dev/null
+++ b/functions/_PDCLIB/stdarg.c
@@ -0,0 +1,118 @@
+/* $Id$ */
+
+/* Release $Name$ */
+
+/* stdarg
+
+   This file is part of the Public Domain C Library (PDCLib).
+   Permission is granted to use, modify, and / or redistribute at will.
+*/
+
+#ifdef TEST
+
+#include <_PDCLIB_test.h>
+#include <stdarg.h>
+#include <limits.h>
+#include <float.h>
+
+unsigned int rc = 0;
+
+typedef int (*intfunc_t)( void );
+
+enum tag_t
+{
+    TAG_END,
+    TAG_INT,
+    TAG_LONG,
+    TAG_LLONG,
+    TAG_DBL,
+    TAG_LDBL,
+    TAG_INTPTR,
+    TAG_LDBLPTR,
+    TAG_FUNCPTR
+};
+
+static int test( enum tag_t s, ... )
+{
+    enum tag_t tag = s;
+    va_list ap;
+    va_start( ap, s );
+    for (;;)
+    {
+        switch ( tag )
+        {
+            case TAG_INT:
+            {
+                TESTCASE( va_arg( ap, int ) == INT_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_LONG:
+            {
+                TESTCASE( va_arg( ap, long ) == LONG_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_LLONG:
+            {
+                TESTCASE( va_arg( ap, long long ) == LLONG_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_DBL:
+            {
+                TESTCASE( va_arg( ap, double ) == DBL_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_LDBL:
+            {
+                TESTCASE( va_arg( ap, long double ) == LDBL_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_INTPTR:
+            {
+                TESTCASE( *( va_arg( ap, int * ) ) == INT_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_LDBLPTR:
+            {
+                TESTCASE( *( va_arg( ap, long double * ) ) == LDBL_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_FUNCPTR:
+            {
+                TESTCASE( (va_arg( ap, intfunc_t ))() == INT_MAX );
+                tag = va_arg( ap, enum tag_t );
+                break;
+            }
+            case TAG_END:
+            {
+                va_end( ap );
+                return 0;
+            }
+        }
+    }
+}
+
+int dummy()
+{
+    return INT_MAX;
+}
+
+int main()
+{
+    int x = INT_MAX;
+    long double d = LDBL_MAX;
+    test( TAG_END );
+    test( TAG_INT, INT_MAX, TAG_END );
+    test( TAG_LONG, LONG_MAX, TAG_LLONG, LLONG_MAX, TAG_END );
+    test( TAG_DBL, DBL_MAX, TAG_LDBL, LDBL_MAX, TAG_END );
+    test( TAG_INTPTR, &x, TAG_LDBLPTR, &d, TAG_FUNCPTR, dummy, TAG_END );
+    return TEST_RESULTS;
+}
+
+#endif