/* Copyright (C) 2000 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.

 The GNU C Library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation; either
 version 2.1 of the License, or (at your option) any later version.

 The GNU C Library is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 Lesser General Public License for more details.

 You should have received a copy of the GNU Lesser General Public
 License along with the GNU C Library; if not, write to the Free
 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 02111-1307 USA.  */

#include <locale.h>
#include <stdio.h>
#include <wchar.h>

/* Currently selected locale.  */
static const char *current_locale;


/* Test which should succeed.  */
static int
ok_test(int c, wint_t expwc)
{
        wint_t wc = btowc(c);

        if (wc != expwc) {
                printf(
                        "%s: btowc('%c') failed, returned L'\\x%x' instead of L'\\x%x'\n",
                        current_locale, c, wc, expwc);
                return 1;
        }

        return 0;
}


/* Test which should fail.  */
static int
fail_test(int c)
{
        wint_t wc = btowc(c);

        if (wc != WEOF) {
                printf("%s: btowc('%c') succeded, returned L'\\x%x' instead of WEOF\n",
                        current_locale, c, wc);
                return 1;
        }

        return 0;
}


/* Test EOF handling.  */
static int
eof_test(void)
{
        wint_t wc = btowc(EOF);
        if (wc != WEOF) {
                printf("%s: btowc(EOF) returned L'\\x%x', not WEOF\n", current_locale,
                        wc);
        }

        return 0;
}


/* Test the btowc() function for a few locales with known character sets.  */
int
main(void)
{
        int totalResult = 0;

        printf("WEOF=0x%08x\n", WEOF);
        printf("WCHAR_MIN=0x%08lx\n", WCHAR_MIN);
        printf("WCHAR_MAX=0x%08lx\n", WCHAR_MAX);

        current_locale = setlocale(LC_ALL, "C");
        if (current_locale == NULL) {
                puts("cannot set locale \"C\"");
                totalResult = 1;
        } else {
                int c;
                int result = 0;

                for (c = 0; c < 128; ++c)
                        result |= ok_test(c, c);

                for (c = 128; c < 256; ++c)
                        result |= fail_test(c);

                result |= eof_test();
                totalResult |= result;

                if (result == 0)
                        printf("locale '%s' ok\n", current_locale);
        }

        current_locale = setlocale(LC_ALL, "en_US.ANSI_X3.4-1968");
        if (current_locale == NULL) {
                puts("cannot set locale \"en_US.ANSI_X3.4-1968\"");
                totalResult = 1;
        } else {
                int c;
                int result = 0;

                for (c = 0; c < 128; ++c)
                        result |= ok_test(c, c);

                for (c = 128; c < 256; ++c)
                        result |= fail_test(c);

                result |= eof_test();
                totalResult |= result;

                if (result == 0)
                        printf("locale '%s' ok\n", current_locale);
        }

        current_locale = setlocale(LC_ALL, "de_DE.ISO-8859-1");
        if (current_locale == NULL) {
                puts("cannot set locale \"de_DE.ISO-8859-1\"");
                totalResult = 1;
        } else {
                int c;
                int result = 0;

                for (c = 0; c < 256; ++c)
                        result |= ok_test(c, c);

                result |= eof_test();
                totalResult |= result;

                if (result == 0)
                        printf("locale '%s' ok\n", current_locale);
        }

        current_locale = setlocale(LC_ALL, "de_DE.UTF-8");
        if (current_locale == NULL) {
                puts("cannot set locale \"de_DE.UTF-8\"");
                totalResult = 1;
        } else {
                int c;
                int result = 0;

                for (c = 0; c < 128; ++c)
                        result |= ok_test(c, c);

                for (c = 128; c < 256; ++c)
                        result |= fail_test(c);

                result |= eof_test();
                totalResult |= result;

                if (result == 0)
                        printf("locale '%s' ok\n", current_locale);
        }

        current_locale = setlocale(LC_ALL, "hr_HR.ISO-8859-2");
        if (current_locale == NULL) {
                puts("cannot set locale \"hr_HR.ISO-8859-2\"");
                totalResult = 1;
        } else {
                static const wint_t upper_half[] = { 0x0104, 0x02D8, 0x0141, 0x00A4,
                        0x013D, 0x015A, 0x00A7, 0x00A8, 0x0160, 0x015E, 0x0164, 0x0179,
                        0x00AD, 0x017D, 0x017B, 0x00B0, 0x0105, 0x02DB, 0x0142, 0x00B4,
                        0x013E, 0x015B, 0x02C7, 0x00B8, 0x0161, 0x015F, 0x0165, 0x017A,
                        0x02DD, 0x017E, 0x017C, 0x0154, 0x00C1, 0x00C2, 0x0102, 0x00C4,
                        0x0139, 0x0106, 0x00C7, 0x010C, 0x00C9, 0x0118, 0x00CB, 0x011A,
                        0x00CD, 0x00CE, 0x010E, 0x0110, 0x0143, 0x0147, 0x00D3, 0x00D4,
                        0x0150, 0x00D6, 0x00D7, 0x0158, 0x016E, 0x00DA, 0x0170, 0x00DC,
                        0x00DD, 0x0162, 0x00DF, 0x0155, 0x00E1, 0x00E2, 0x0103, 0x00E4,
                        0x013A, 0x0107, 0x00E7, 0x010D, 0x00E9, 0x0119, 0x00EB, 0x011B,
                        0x00ED, 0x00EE, 0x010F, 0x0111, 0x0144, 0x0148, 0x00F3, 0x00F4,
                        0x0151, 0x00F6, 0x00F7, 0x0159, 0x016F, 0x00FA, 0x0171, 0x00FC,
                        0x00FD, 0x0163, 0x02D9 };
                int c;
                int result = 0;

                for (c = 0; c < 161; ++c)
                        result |= ok_test(c, c);

                for (c = 161; c < 256; ++c)
                        result |= ok_test(c, upper_half[c - 161]);

                result |= eof_test();
                totalResult |= result;

                if (result == 0)
                        printf("locale '%s' ok\n", current_locale);
        }

        if (totalResult == 0)
                puts("all OK");

        return totalResult;
}