cc65/test/ref/stdarg.c

/*
  !!DESCRIPTION!! variable argument lists
  !!ORIGIN!!      LCC 4.1 Testsuite
  !!LICENCE!!     own, freely distributeable for non-profit. read CPYRIGHT.LCC
*/

#include "common.h"
#include <stdarg.h>

#ifndef NO_FUNCS_TAKE_STRUCTS
struct node
{
        int a[4];
} x =
{
#ifdef NO_SLOPPY_STRUCT_INIT
        {
#endif
                1,2,3,4
#ifdef NO_SLOPPY_STRUCT_INIT
        }
#endif
};
#endif

print(char *fmt, ...);

main()
{
        print("test 1\n");
        print("test %s\n", "2");
        print("test %d%c", 3, '\n');
        print("%s%s %w%c", "te", "st", 4, '\n');
    #ifdef NO_FLOATS
                print("%s%s %f%c", "te", "st", (signed long) 5, '\n');
        #else
                print("%s%s %f%c", "te", "st", 5.0, '\n');
    #endif
        #ifndef NO_FUNCS_TAKE_STRUCTS
        print("%b %b %b %b %b %b\n", x, x, x, x, x, x);
        #endif
        return 0;
}

print(char *fmt, ...) {
        va_list ap;
        va_start(ap, fmt);
        for (; *fmt; fmt++)
        {
                if (*fmt == '%')
                        switch (*++fmt) {
            case 'b': {
                                        #ifdef NO_FUNCS_TAKE_STRUCTS
                        printf("(1 2 3 4)");
                                        #else
                        struct node x =
                                                        va_arg(
                                                                ap,
                                                                struct node
                                                                );
                        printf("(%d %d %d %d)", x.a[0], x.a[1], x.a[2], x.a[3]);
                                        #endif
                    break;
                    }
                        case 'c':
                                /* printf("%c", va_arg(ap, char)); */
                                printf("%c", va_arg(ap, int));
                                break;
                        case 'd':
                                printf("%d", va_arg(ap, int));
                                break;
                        case 'w':
                                /* printf("%x", va_arg(ap, short)); */
                                printf("%x", va_arg(ap, int));
                                break;
                        case 's':
                                printf("%s", va_arg(ap, char *));
                                break;
                        case 'f':
                #ifdef NO_FLOATS
                                        printf("%ld.000000", va_arg(ap, signed long));
                                #else
                                        printf("%f", va_arg(ap, double));
                #endif
                                break;
                        default:
                                printf("%c", *fmt);
                                break;
                        }
                 else
                        printf("%c", *fmt);
        }
        va_end(ap);
}