#include <stdio.h>

#include "SDL.h"

static size_t

widelen(char *data)

{

    size_t len = 0;

    Uint32 *p = (Uint32 *) data;

    while (*p++) {

        ++len;

    }

    return len;

}

int

main(int argc, char *argv[])

{

    const char *formats[] = {

        "UTF8",

        "UTF-8",

        "UTF16BE",

        "UTF-16BE",

        "UTF16LE",

        "UTF-16LE",

        "UTF32BE",

        "UTF-32BE",

        "UTF32LE",

        "UTF-32LE",

        "UCS4",

        "UCS-4",

    };

    char buffer[BUFSIZ];

    char *ucs4;

    char *test[2];

    int i, index = 0;

    FILE *file;

    int errors = 0;

    if (!argv[1]) {

        argv[1] = "utf8.txt";

    }

    file = fopen(argv[1], "rb");

    if (!file) {

        fprintf(stderr, "Unable to open %s\n", argv[1]);

        return (1);

    }

    while (fgets(buffer, sizeof(buffer), file)) {

        /* Convert to UCS-4 */

        size_t len;

        ucs4 =

            SDL_iconv_string("UCS-4", "UTF-8", buffer,

                             SDL_strlen(buffer) + 1);

        len = (widelen(ucs4) + 1) * 4;

        for (i = 0; i < SDL_arraysize(formats); ++i) {

            test[0] = SDL_iconv_string(formats[i], "UCS-4", ucs4, len);

            test[1] = SDL_iconv_string("UCS-4", formats[i], test[0], len);

            if (!test[1] || SDL_memcmp(test[1], ucs4, len) != 0) {

                fprintf(stderr, "FAIL: %s\n", formats[i]);

                ++errors;

            }

            if (test[0]) {

                SDL_free(test[0]);

            }

            if (test[1]) {

                SDL_free(test[1]);

            }

        }

        test[0] = SDL_iconv_string("UTF-8", "UCS-4", ucs4, len);

        SDL_free(ucs4);

        fputs(test[0], stdout);

        SDL_free(test[0]);

    }

    return (errors ? errors + 1 : 0);

}