/*
 * Copyright 2022, Trung Nguyen, trungnt282910@gmail.com
 * All rights reserved. Distributed under the terms of the MIT License.
 */


#include <ctype.h>
#include <errno.h>
#include <locale.h>
#include <string.h>
#include <wctype.h>

#include <errno_private.h>

#include "LocaleBackend.h"


using BPrivate::Libroot::GetCurrentLocaleBackend;
using BPrivate::Libroot::LocaleBackend;
using BPrivate::Libroot::LocaleBackendData;


int
iswctype_l(wint_t wc, wctype_t charClass, locale_t l)
{
        LocaleBackendData* locale = (LocaleBackendData*)l;
        LocaleBackend* backend = locale->backend;

        if (backend == NULL) {
                if (wc < 0 || wc > 127)
                        return 0;
                return __isctype(wc, charClass);
        }

        return backend->IsWCType(wc, charClass);
}


int
iswalnum_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISalnum, locale);
}


int
iswalpha_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISalpha, locale);
}


int
iswblank_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISblank, locale);
}


int
iswcntrl_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _IScntrl, locale);
}


int
iswdigit_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISdigit, locale);
}


int
iswgraph_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISgraph, locale);
}


int
iswlower_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISlower, locale);
}


int
iswprint_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISprint, locale);
}


int
iswpunct_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISpunct, locale);
}


int
iswspace_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISspace, locale);
}


int
iswupper_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISupper, locale);
}


int
iswxdigit_l(wint_t wc, locale_t locale)
{
        return iswctype_l(wc, _ISxdigit, locale);
}


wint_t
towlower_l(wint_t wc, locale_t l)
{
        LocaleBackendData* locale = (LocaleBackendData*)l;
        LocaleBackend* backend = locale->backend;

        if (backend == NULL) {
                if (wc < 0 || wc > 127)
                        return wc;
                return tolower(wc);
        }

        wint_t result = wc;
        backend->ToWCTrans(wc, _ISlower, result);

        return result;
}


wint_t
towupper_l(wint_t wc, locale_t l)
{
        LocaleBackendData* locale = (LocaleBackendData*)l;
        LocaleBackend* backend = locale->backend;

        if (backend == NULL) {
                if (wc < 0 || wc > 127)
                        return wc;
                return toupper(wc);
        }

        wint_t result = wc;
        backend->ToWCTrans(wc, _ISupper, result);

        return result;
}


wint_t
towctrans_l(wint_t wc, wctrans_t transition, locale_t l)
{
        LocaleBackendData* locale = (LocaleBackendData*)l;
        LocaleBackend* backend = locale->backend;

        if (backend == NULL) {
                if (transition == _ISlower)
                        return tolower(wc);
                if (transition == _ISupper)
                        return toupper(wc);

                __set_errno(EINVAL);
                return wc;
        }

        wint_t result = wc;
        status_t status = backend->ToWCTrans(wc, transition, result);
        if (status != B_OK)
                __set_errno(EINVAL);

        return result;
}


wctrans_t
wctrans_l(const char *charClass, locale_t locale)
{
        (void)locale;

        if (charClass != NULL) {
                // we do not know any locale-specific character classes
                if (strcmp(charClass, "tolower") == 0)
                        return _ISlower;
                if (strcmp(charClass, "toupper") == 0)
                        return _ISupper;
        }

        __set_errno(EINVAL);
        return 0;
}


wctype_t
wctype_l(const char *property, locale_t locale)
{
        (void)locale;

        // currently, we do not support any locale-specific properties
        if (strcmp(property, "alnum") == 0)
                return _ISalnum;
        if (strcmp(property, "alpha") == 0)
                return _ISalpha;
        if (strcmp(property, "blank") == 0)
                return _ISblank;
        if (strcmp(property, "cntrl") == 0)
                return _IScntrl;
        if (strcmp(property, "digit") == 0)
                return _ISdigit;
        if (strcmp(property, "graph") == 0)
                return _ISgraph;
        if (strcmp(property, "lower") == 0)
                return _ISlower;
        if (strcmp(property, "print") == 0)
                return _ISprint;
        if (strcmp(property, "punct") == 0)
                return _ISpunct;
        if (strcmp(property, "space") == 0)
                return _ISspace;
        if (strcmp(property, "upper") == 0)
                return _ISupper;
        if (strcmp(property, "xdigit") == 0)
                return _ISxdigit;

        return 0;
}