cc65/test/ref/switch.c

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

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

#ifdef NO_IMPLICIT_FUNC_PROTOTYPES
testbig();
testbackslash();
backslash(int c);
f();
g();
h();
limit();

big(
# ifdef ASSUME_32BIT_UNSIGNED
        unsigned
# else
        unsigned long
# endif
x);

#endif

main()
{
        testbackslash();
        f();
        g();
        h();
        testbig(); /* ! broken long int compare (?) */
        limit();   /* ! broken long int compare (?) */

        return 0;
}

testbig()
{
        #ifdef ASSUME_32BIT_INT
        int i;
        #else
                signed long i;
        #endif
               /*  2341234      2341234         2341234 */
        for (i = 0x1000000; i&0x7000000; i += 0x1000000) {
/*              printf("i = 0x%lx\n", i); */
                big(i);
        }
}

#ifdef NO_LOCAL_STRING_INIT
/*        static char _s[8]={"bfnrtvx"}; */
        static char _s[8]="bfnrtvx";
#endif

testbackslash()
{
        char *s;

#ifdef NO_STRINGS_IN_FOR
# ifndef NO_LOCAL_STRING_INIT
        char _s[8]={"bfnrtvx"};
# endif
        for (s=_s; *s; s++) {
#else
        for (s = "bfnrtvx"; *s; s++) {
#endif
                        printf("%c = %c\n", *s, backslash(*s));
        }
}

backslash(c)
{
        switch (c)
    {
        case 'b':
                return 'b';
        case 'f':
                return 'f';
        case 'n':
                return 'n';
        case 'r':
                return 'r';
        case 't':
                return 't';
        case 'v':
        return 'v';
        }

        return 'x';
}

f() {
        int i, x = 0, y;

        printf("f:\n");
        for (i = 0; i <= 20; i++) {
                y = i;
                switch (i) {
                case 1: x = i; break;
                case 2: x = i; break;
                case 7: x = i; break;
                case 8: x = i; break;
                case 9: x = i; break;
                case 16: x = i; break;
                case 17: x = i; break;
                case 18: x = i; break;
                case 19: x = i; break;
                case 20: x = i; break;
                }
                printf("x = %d\n", x);
        }
}

g() {
        int i;

        printf("g:\n");
        for (i = 1; i <= 10; i++)
                switch (i) {
                case 1: case 2: printf("1 %d\n", i); break;
                case 3: case 4: case 5: printf("2 %d\n", i); break;
                case 6: case 7: case 8: printf("3 %d\n", i);
                default:
                        printf("d %d\n", i); break;
                case 1001: case 1002: case 1003: case 1004:
                        printf("5 %d\n", i); break;
                case 3001: case 3002: case 3003: case 3004:
                        printf("6 %d\n", i); break;
        }
}

h()
{
        int i, n=0;

        printf("h:\n");
        for (i = 1; i <= 500; i++)
                switch (i) {
                default: n++; continue;
                case 128: printf("i = %d\n", i); break;
                case 16: printf("i = %d\n", i); break;
                case 8: printf("i = %d\n", i); break;
                case 120: printf("i = %d\n", i); break;
                case 280: printf("i = %d\n", i); break;
                case 264: printf("i = %d\n", i); break;
                case 248: printf("i = %d\n", i); break;
                case 272: printf("i = %d\n", i); break;
                case 304: printf("i = %d\n", i); break;
                case 296: printf("i = %d\n", i); break;
                case 288: printf("i = %d\n", i); break;
                case 312: printf("i = %d\n", i); break;
                }
        printf("%d defaults\n", n);
}

#ifdef NO_OLD_FUNC_DECL
        big(
#else
        big(x)
#endif

# ifdef ASSUME_32BIT_UNSIGNED
        unsigned
# else
        unsigned long
# endif

#ifdef NO_OLD_FUNC_DECL
        x) {
#else
        x; {
#endif

/*      printf("x = 0x%x\n", x); */

        switch(x&0x6000000){
        case -1:
        case -2:
        case 0x0000000:
                printf("x = 0x%lx\n", x); break;
        case 0x2000000:
                printf("x = 0x%lx\n", x); break;
        case 0x4000000:
                printf("x = 0x%lx\n", x); break;
        default:
                printf("x = 0x%lx (default)\n", x); break;
        }
}

limit() {
        int i;

        for (i = INT_MIN; i <= INT_MIN+5; i++)
/*      for (i = INT_MIN; i <  INT_MIN+6; i++) */
                switch (i) {
                        case INT_MIN:   printf("0\n"); break;
                        case INT_MIN+1: printf("1\n"); break;
                        case INT_MIN+2: printf("2\n"); break;
                        case INT_MIN+3: printf("3\n"); break;
                        case INT_MIN+4: printf("4\n"); break;
                        default:        printf("5\n"); break;
                }
        for (i = INT_MAX; i >= INT_MAX-5; i--)
                switch (i) {
                        case INT_MAX:   printf("0\n"); break;
                        case INT_MAX-1: printf("1\n"); break;
                        case INT_MAX-2: printf("2\n"); break;
                        case INT_MAX-3: printf("3\n"); break;
                        case INT_MAX-4: printf("4\n"); break;
                        default:            printf("5\n"); break;
                }
}