ciabatta/src/wctype.c

int iswctype(wint_t wc, wctype_t desc) {
    return desc(wc);
}

wctype_t wctype(const char *property) {
    if(!strcmp(property, "alnum"))  return iswalnum;
    if(!strcmp(property, "alpha"))  return iswalpha;
    if(!strcmp(property, "blank"))  return iswblank;
    if(!strcmp(property, "cntrl"))  return iswcntrl;
    if(!strcmp(property, "digit"))  return iswdigit;
    if(!strcmp(property, "graph"))  return iswgraph;
    if(!strcmp(property, "lower"))  return iswlower;
    if(!strcmp(property, "print"))  return iswprint;
    if(!strcmp(property, "punct"))  return iswpunct;
    if(!strcmp(property, "space"))  return iswspace;
    if(!strcmp(property, "upper"))  return iswupper;
    if(!strcmp(property, "xdigit")) return iswxdigit;
    return NULL;
}

wint_t towctrans(wint_t wc, wctrans_t desc) {
    return desc(wc);
}

wctrans_t wctrans(const char *property) {
    if(!strcmp(property, "tolower"))  return towlower;
    if(!strcmp(property, "toupper"))  return towupper;
    return NULL;
}

int iswalnum(wint_t wc) {
    return iswalpha(wc) || iswdigit(wc);
}

int iswalpha(wint_t wc) {
    return iswupper(wc) || iswlower(wc);
}

int iswblank(wint_t wc) {
    return wc == ' ' || wc == '\t';
}

int iswcntrl(wint_t wc) {
    return 0;
    //return uni_classify(wc) == UCHAR_Cc;
}

int iswdigit(wint_t wc) {
    return '0' <= wc && wc <= '9';
}

int iswgraph(wint_t wc) {
    return iswprint(wc) && !iswspace(wc);
}

int iswlower(wint_t wc) {
    return 0;
    // return uni_classify(wc) == UCHAR_Ll;
}

int iswprint(wint_t wc) {
    // switch(uni_classify(wc)) {
    //     case UCHAR_Cc:
    //     case UCHAR_Cf:
    //     case UCHAR_Co:
    //     case UCHAR_Cs:
    //         return 0;
    // }
    return 1;
}

int iswpunct(wint_t wc) {
    // switch(uni_classify(wc)) {
    //     case UCHAR_Pc:
    //     case UCHAR_Pd:
    //     case UCHAR_Pe:
    //     case UCHAR_Pf:
    //     case UCHAR_Pi:
    //     case UCHAR_Po:
    //     case UCHAR_Ps:
    //     case UCHAR_Sk:
    //     case UCHAR_Sc:
    //     case UCHAR_Sm:
    //     case UCHAR_So:
    //         return 1;
    // }
    return 0;
}

int iswspace(wint_t wc) {
    switch(wc) {
        case ' ':
        case '\t':
        case '\v':
        case '\r':
        case '\n':
        case '\f':
            return 1;
    }
    return 0;
}

int iswupper(wint_t wc) {
    // return uni_classify(wc) == UCHAR_Lu;
    return 0;
}

int iswxdigit(wint_t wc) {
    return iswdigit(wc) || ('a'<=wc && wc<='f') || ('A'<= wc && wc<='F');
}

wint_t towlower(wint_t wc) {
    // return uni_tolower(wc);
    return wc;
}

wint_t towupper(wint_t wc) {
    return wc;
    // return uni_toupper(wc);
}