]> pd.if.org Git - pdclib/blob - functions/_PDCLIB/stdarg.c
Cosmetic comment fixes.
[pdclib] / functions / _PDCLIB / stdarg.c
1 /* stdarg
2
3    This file is part of the Public Domain C Library (PDCLib).
4    Permission is granted to use, modify, and / or redistribute at will.
5 */
6
7 #include <stdarg.h>
8 #include <limits.h>
9 #include <float.h>
10 #ifdef TEST
11
12 #include "_PDCLIB_test.h"
13
14 typedef int (*intfunc_t)( void );
15
16 enum tag_t
17 {
18     TAG_END,
19     TAG_INT,
20     TAG_LONG,
21     TAG_LLONG,
22     TAG_DBL,
23     TAG_LDBL,
24     TAG_INTPTR,
25     TAG_LDBLPTR,
26     TAG_FUNCPTR
27 };
28
29 static int dummy( void )
30 {
31     return INT_MAX;
32 }
33
34 static int test( enum tag_t s, ... )
35 {
36     enum tag_t tag = s;
37     va_list ap;
38     va_start( ap, s );
39     for (;;)
40     {
41         switch ( tag )
42         {
43             case TAG_INT:
44             {
45                 TESTCASE( va_arg( ap, int ) == INT_MAX );
46                 tag = va_arg( ap, enum tag_t );
47                 break;
48             }
49             case TAG_LONG:
50             {
51                 TESTCASE( va_arg( ap, long ) == LONG_MAX );
52                 tag = va_arg( ap, enum tag_t );
53                 break;
54             }
55             case TAG_LLONG:
56             {
57                 TESTCASE( va_arg( ap, long long ) == LLONG_MAX );
58                 tag = va_arg( ap, enum tag_t );
59                 break;
60             }
61             case TAG_DBL:
62             {
63                 TESTCASE( va_arg( ap, double ) == DBL_MAX );
64                 tag = va_arg( ap, enum tag_t );
65                 break;
66             }
67             case TAG_LDBL:
68             {
69                 TESTCASE( va_arg( ap, long double ) == LDBL_MAX );
70                 tag = va_arg( ap, enum tag_t );
71                 break;
72             }
73             case TAG_INTPTR:
74             {
75                 TESTCASE( *( va_arg( ap, int * ) ) == INT_MAX );
76                 tag = va_arg( ap, enum tag_t );
77                 break;
78             }
79             case TAG_LDBLPTR:
80             {
81                 TESTCASE( *( va_arg( ap, long double * ) ) == LDBL_MAX );
82                 tag = va_arg( ap, enum tag_t );
83                 break;
84             }
85             case TAG_FUNCPTR:
86             {
87                 intfunc_t function;
88                 TESTCASE( ( function = va_arg( ap, intfunc_t ) ) == dummy );
89                 TESTCASE( function() == INT_MAX );
90                 tag = va_arg( ap, enum tag_t );
91                 break;
92             }
93             case TAG_END:
94             {
95                 va_end( ap );
96                 return 0;
97             }
98         }
99     }
100 }
101
102 int main( void )
103 {
104     int x = INT_MAX;
105     long double d = LDBL_MAX;
106     test( TAG_END );
107     test( TAG_INT, INT_MAX, TAG_END );
108     test( TAG_LONG, LONG_MAX, TAG_LLONG, LLONG_MAX, TAG_END );
109     test( TAG_DBL, DBL_MAX, TAG_LDBL, LDBL_MAX, TAG_END );
110     test( TAG_INTPTR, &x, TAG_LDBLPTR, &d, TAG_FUNCPTR, dummy, TAG_END );
111     return TEST_RESULTS;
112 }
113 #endif