source: tests/vector_math/vec4_int.cfa@ d0bdb18

#include <vec/vec4.hfa>
#include <fstream.hfa>
#include <limits.hfa>

int main(void) {
    vec4(int) v1 = {1,2,3,4};
    sout | "ctor(x,y):" | v1;

    vec4(int) v2 = v1;
    sout | "copy ctor:" | v2;

    {
        vec4(int) u = {11, -5, 7, 11};
        vec4(int) v = {2, 3, 7, 2};
        sout | "?/?(vec)" | (u / v);
        sout | "?/=?(vec)" | (u /= v);
    }

    {
        vec4(int) u = {1, -3, 100, 1};
        sout | "++?" | ++u;
    }

    {
        vec4(int) u = {1, -3, 100, 3};
        sout | "--?" | --u;
    }
    {
        vec4(int) u = {1, -3, 100, 1};
        sout | "?++(part 1)" | u++;
        sout | "?++(part 2)" | u;
    }
    {
        vec4(int) u = {1, -3, 100, 3};
        sout | "?--(part 1)" | u--;
        sout | "?--(part 2)" | u;
    }

    // %
    {
        vec4(int) u = {-12, 123, 100, 5};
        sout | "?%?(int)" | (u % 2);
        sout | "?%=?(int)" | (u %= 2);
    }
    {
        vec4(int) u = {-12, 27, 100, 14};
        vec4(int) v = {5, 4, 13, 5};
        sout | "?%?(vec)" | (u % v);
        sout | "?%=?(vec)" | (u %= v);
    }


    // &
    {
        vec4(int) u = {5, 1, 8, 15};
        sout | "?&?(int)" | (u & (1 << 3));
        sout | "?&=?(int)" | (u &= (1 << 3));
    }
    {
        vec4(int) u = {5, 6, 5, 13};
        vec4(int) v = {3, 7, 3, 7};
        sout | "?&?(vec)" | (u & v);
        sout | "?&=?(vec)" | (u &= v);
    }

    // |
    {
        vec4(int) u = {5, 1, 5, 8};
        sout | "?|?(int)" | (u | 2);
        sout | "?|=?(int)" | (u |= 2);
    }
    {
        vec4(int) u = {5, 1, 5, 2};
        vec4(int) v = {2, 1, 2, 8};
        sout | "?|?(vec)" | (u | v);
        sout | "?|=?(vec)" | (u |= v);
    }

    // ^
    {
        vec4(int) u = {9, 5, 8, 13};
        sout | "?^?(int)" | (u ^ 5);
        sout | "?^=?(int)" | (u ^= 5);
    }
    {
        vec4(int) u = {9, 5, 8, 13};
        vec4(int) v = {5, 0, 1, 7};
        sout | "?^?(vec)" | (u ^ v);
        sout | "?^=?(vec)" | (u ^= v);
    }

    // <<
    {
        vec4(int) u = {2, 1, 4, 6};
        sout | "?<<?(int)" | (u << 1);
        sout | "?<<=?(int)" | (u <<= 1);
    }
    {
        vec4(int) u = {1, 1, 1, 4};
        vec4(int) v = {5, 2, 1, 1};
        sout | "?<<?(vec)" | (u << v);
        sout | "?<<=?(vec)" | (u <<= v);
    }

    // >>
    {
        vec4(int) u = {2, 1, 4, 6};
        sout | "?>>?(int)" | (u >> 1);
        sout | "?>>=?(int)" | (u >>= 1);
    }
    {
        vec4(int) u = {5, 7, 8, 32};
        vec4(int) v = {1, 2, 2, 3};
        sout | "?>>?(vec)" | (u >> v);
        sout | "?>>=?(vec)" | (u >>= v);
    }

    // ~
    {
        vec4(int) u = {5, 2, 1, -1};
        sout | "~?" | (~u);
    }

    v1 = (vec4(int)){2, 3, 4, 5};
    v2 = (vec4(int)){13, 2, -7, -3};
    sout | "dot:" | dot(v1, v2);

    v1 = (vec4(int)){2,3,4,5};
    sout | "length_squared:" | length_squared(v1);
}