/*
    SPDX-FileCopyrightText: 2003-2007 Craig Drummond <craig@kde.org>
    SPDX-License-Identifier: GPL-2.0-or-later
*/

#include "Fc.h"
#include <QHash>
#include <QTextStream>
#include <QUrlQuery>
//
// KDE font chooser always seems to use Italic - for both Oblique, and Italic. So I guess
// the fonts:/ should do too - so as to appear more unified.
//
// ditto with respect to Medium/Regular
#define KFI_HAVE_OBLIQUE // Do we differentiate between Italic and Oblique when comparing slants?
#define KFI_DISPLAY_OBLIQUE // Do we want to list "Oblique"? Or always use Italic?
#define KFI_HAVE_MEDIUM_WEIGHT // Do we differentiate between Medium and Regular weights when comparing weights?
#define KFI_DISPLAY_MEDIUM // Do we want to list "Medium"? Or always use Regular?

using namespace Qt::StringLiterals;

namespace KFI
{
namespace FC
{
inline constexpr QLatin1String FC_PROTOCOL("fontconfig");
inline constexpr QLatin1String FC_STYLE_QUERY("style");
inline constexpr QLatin1String FC_FILE_QUERY("file");
inline constexpr QLatin1String FC_INDEX_QUERY("index");

QUrl encode(const QString &name, quint32 style, const QString &file, int index)
{
    QUrl url(QUrl::fromLocalFile(name));
    QUrlQuery query;

    url.setScheme(FC_PROTOCOL);
    query.addQueryItem(FC_STYLE_QUERY, QString::number(style));
    if (!file.isEmpty()) {
        query.addQueryItem(FC_FILE_QUERY, file);
    }
    if (index > 0) {
        query.addQueryItem(FC_INDEX_QUERY, QString::number(index));
    }

    url.setQuery(query);
    return url;
}

Misc::TFont decode(const QUrl &url)
{
    QUrlQuery query(url);
    return FC_PROTOCOL == url.scheme() ? Misc::TFont(url.path(), query.queryItemValue(FC_STYLE_QUERY).toUInt()) : Misc::TFont(QString(), 0);
}

QString getFile(const QUrl &url)
{
    QUrlQuery query(url);
    return FC_PROTOCOL == url.scheme() ? query.queryItemValue(FC_FILE_QUERY) : QString();
}

int getIndex(const QUrl &url)
{
    QUrlQuery query(url);
    return FC_PROTOCOL == url.scheme() ? query.queryItemValue(FC_INDEX_QUERY).toInt() : 0;
}

int weight(int w)
{
    if (KFI_NULL_SETTING == w) {
#ifdef KFI_HAVE_MEDIUM_WEIGHT
        return FC_WEIGHT_MEDIUM;
    }
#else
        return FC_WEIGHT_REGULAR;
#endif

    if (w < FC_WEIGHT_EXTRALIGHT) {
        return FC_WEIGHT_THIN;
    }

    if (w < (FC_WEIGHT_EXTRALIGHT + FC_WEIGHT_LIGHT) / 2) {
        return FC_WEIGHT_EXTRALIGHT;
    }

    if (w < (FC_WEIGHT_LIGHT + FC_WEIGHT_REGULAR) / 2) {
        return FC_WEIGHT_LIGHT;
    }

#ifdef KFI_HAVE_MEDIUM_WEIGHT
    if (w < (FC_WEIGHT_REGULAR + FC_WEIGHT_MEDIUM) / 2) {
        return FC_WEIGHT_REGULAR;
    }

    if (w < (FC_WEIGHT_MEDIUM + FC_WEIGHT_DEMIBOLD) / 2) {
        return FC_WEIGHT_MEDIUM;
    }
#else
        if (w < (FC_WEIGHT_REGULAR + FC_WEIGHT_DEMIBOLD) / 2)
            return FC_WEIGHT_REGULAR;
#endif

    if (w < (FC_WEIGHT_DEMIBOLD + FC_WEIGHT_BOLD) / 2) {
        return FC_WEIGHT_DEMIBOLD;
    }

    if (w < (FC_WEIGHT_BOLD + FC_WEIGHT_EXTRABOLD) / 2) {
        return FC_WEIGHT_BOLD;
    }

    if (w < (FC_WEIGHT_EXTRABOLD + FC_WEIGHT_BLACK) / 2) {
        return FC_WEIGHT_EXTRABOLD;
    }

    return FC_WEIGHT_BLACK;
}

int width(int w)
{
    if (KFI_NULL_SETTING == w) {
        return KFI_FC_WIDTH_NORMAL;
    }

    if (w < KFI_FC_WIDTH_EXTRACONDENSED) {
        return KFI_FC_WIDTH_EXTRACONDENSED;
    }

    if (w < (KFI_FC_WIDTH_EXTRACONDENSED + KFI_FC_WIDTH_CONDENSED) / 2) {
        return KFI_FC_WIDTH_EXTRACONDENSED;
    }

    if (w < (KFI_FC_WIDTH_CONDENSED + KFI_FC_WIDTH_SEMICONDENSED) / 2) {
        return KFI_FC_WIDTH_CONDENSED;
    }

    if (w < (KFI_FC_WIDTH_SEMICONDENSED + KFI_FC_WIDTH_NORMAL) / 2) {
        return KFI_FC_WIDTH_SEMICONDENSED;
    }

    if (w < (KFI_FC_WIDTH_NORMAL + KFI_FC_WIDTH_SEMIEXPANDED) / 2) {
        return KFI_FC_WIDTH_NORMAL;
    }

    if (w < (KFI_FC_WIDTH_SEMIEXPANDED + KFI_FC_WIDTH_EXPANDED) / 2) {
        return KFI_FC_WIDTH_SEMIEXPANDED;
    }

    if (w < (KFI_FC_WIDTH_EXPANDED + KFI_FC_WIDTH_EXTRAEXPANDED) / 2) {
        return KFI_FC_WIDTH_EXPANDED;
    }

    if (w < (KFI_FC_WIDTH_EXTRAEXPANDED + KFI_FC_WIDTH_ULTRAEXPANDED) / 2) {
        return KFI_FC_WIDTH_EXTRAEXPANDED;
    }

    return KFI_FC_WIDTH_ULTRAEXPANDED;
}

int slant(int s)
{
    if (KFI_NULL_SETTING == s || s < FC_SLANT_ITALIC) {
        return FC_SLANT_ROMAN;
    }

#ifdef KFI_HAVE_OBLIQUE
    if (s < (FC_SLANT_ITALIC + FC_SLANT_OBLIQUE) / 2) {
        return FC_SLANT_ITALIC;
    }

    return FC_SLANT_OBLIQUE;
#else
        return FC_SLANT_ITALIC;
#endif
}

int spacing(int s)
{
    if (s < FC_MONO) {
        return FC_PROPORTIONAL;
    }

    if (s < (FC_MONO + FC_CHARCELL) / 2) {
        return FC_MONO;
    }

    return FC_CHARCELL;
}

int strToWeight(const QString &str, QString &newStr)
{
    if (0 == str.indexOf(KFI_WEIGHT_THIN.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_THIN.toString().length());
        return FC_WEIGHT_THIN;
    }
    if (0 == str.indexOf(KFI_WEIGHT_EXTRALIGHT.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_EXTRALIGHT.toString().length());
        return FC_WEIGHT_EXTRALIGHT;
    }
    // if(0==str.indexOf(i18n(KFI_WEIGHT_ULTRALIGHT), 0, Qt::CaseInsensitive))
    //{
    //    newStr=str.mid(i18n(KFI_WEIGHT_ULTRALIGHT).length());
    //    return FC_WEIGHT_ULTRALIGHT;
    //}
    if (0 == str.indexOf(KFI_WEIGHT_LIGHT.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_LIGHT.toString().length());
        return FC_WEIGHT_LIGHT;
    }
    if (0 == str.indexOf(KFI_WEIGHT_REGULAR.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_REGULAR.toString().length());
        return FC_WEIGHT_REGULAR;
    }
    // if(0==str.indexOf(i18n(KFI_WEIGHT_NORMAL), 0, Qt::CaseInsensitive))
    //{
    //    newStr=str.mid(i18n(KFI_WEIGHT_NORMAL).length());
    //    return FC_WEIGHT_NORMAL;
    //}
    if (0 == str.indexOf(KFI_WEIGHT_MEDIUM.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_MEDIUM.toString().length());
        return FC_WEIGHT_MEDIUM;
    }
    if (0 == str.indexOf(KFI_WEIGHT_DEMIBOLD.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_DEMIBOLD.toString().length());
        return FC_WEIGHT_DEMIBOLD;
    }
    // if(0==str.indexOf(i18n(KFI_WEIGHT_SEMIBOLD), 0, Qt::CaseInsensitive))
    //{
    //    newStr=str.mid(i18n(KFI_WEIGHT_SEMIBOLD).length());
    //    return FC_WEIGHT_SEMIBOLD;
    //}
    if (0 == str.indexOf(KFI_WEIGHT_BOLD.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_BOLD.toString().length());
        return FC_WEIGHT_BOLD;
    }
    if (0 == str.indexOf(KFI_WEIGHT_EXTRABOLD.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_EXTRABOLD.toString().length());
        return FC_WEIGHT_EXTRABOLD;
    }
    // if(0==str.indexOf(i18n(KFI_WEIGHT_ULTRABOLD), 0, Qt::CaseInsensitive))
    //{
    //    newStr=str.mid(i18n(KFI_WEIGHT_ULTRABOLD).length());
    //    return FC_WEIGHT_ULTRABOLD;
    //}
    if (0 == str.indexOf(KFI_WEIGHT_BLACK.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_BLACK.toString().length());
        return FC_WEIGHT_BLACK;
    }
    if (0 == str.indexOf(KFI_WEIGHT_BLACK.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WEIGHT_BLACK.toString().length());
        return FC_WEIGHT_BLACK;
    }

    newStr = str;
    return FC_WEIGHT_REGULAR;
}

int strToWidth(const QString &str, QString &newStr)
{
    if (0 == str.indexOf(KFI_WIDTH_ULTRACONDENSED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_ULTRACONDENSED.toString().length());
        return KFI_FC_WIDTH_ULTRACONDENSED;
    }
    if (0 == str.indexOf(KFI_WIDTH_EXTRACONDENSED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_EXTRACONDENSED.toString().length());
        return KFI_FC_WIDTH_EXTRACONDENSED;
    }
    if (0 == str.indexOf(KFI_WIDTH_CONDENSED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_CONDENSED.toString().length());
        return KFI_FC_WIDTH_CONDENSED;
    }
    if (0 == str.indexOf(KFI_WIDTH_SEMICONDENSED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_SEMICONDENSED.toString().length());
        return KFI_FC_WIDTH_SEMICONDENSED;
    }
    if (0 == str.indexOf(KFI_WIDTH_NORMAL.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_NORMAL.toString().length());
        return KFI_FC_WIDTH_NORMAL;
    }
    if (0 == str.indexOf(KFI_WIDTH_SEMIEXPANDED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_SEMIEXPANDED.toString().length());
        return KFI_FC_WIDTH_SEMIEXPANDED;
    }
    if (0 == str.indexOf(KFI_WIDTH_EXPANDED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_EXPANDED.toString().length());
        return KFI_FC_WIDTH_EXPANDED;
    }
    if (0 == str.indexOf(KFI_WIDTH_EXTRAEXPANDED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_EXTRAEXPANDED.toString().length());
        return KFI_FC_WIDTH_EXTRAEXPANDED;
    }
    if (0 == str.indexOf(KFI_WIDTH_ULTRAEXPANDED.toString(), 0, Qt::CaseInsensitive)) {
        newStr = str.mid(KFI_WIDTH_ULTRAEXPANDED.toString().length());
        return KFI_FC_WIDTH_ULTRAEXPANDED;
    }

    newStr = str;
    return KFI_FC_WIDTH_NORMAL;
}

int strToSlant(const QString &str)
{
    if (-1 != str.indexOf(KFI_SLANT_ITALIC.toString())) {
        return FC_SLANT_ITALIC;
    }
    if (-1 != str.indexOf(KFI_SLANT_OBLIQUE.toString())) {
        return FC_SLANT_OBLIQUE;
    }
    return FC_SLANT_ROMAN;
}

quint32 createStyleVal(const QString &name)
{
    int pos;

    if (-1 == (pos = name.indexOf(", "_L1))) { // No style information...
        return createStyleVal(FC_WEIGHT_REGULAR,
#ifdef KFI_FC_NO_WIDTHS
                              KFI_NULL_SETTING
#else
                                  KFI_FC_WIDTH_NORMAL
#endif
                              ,
                              FC_SLANT_ROMAN);
    } else {
        QString style(name.mid(pos + 2));

        return createStyleVal(strToWeight(style, style),
#ifdef KFI_FC_NO_WIDTHS
                              KFI_NULL_SETTING
#else
                                  strToWidth(style, style)
#endif
                              ,
                              strToSlant(style));
    }
}

QString styleValToStr(quint32 style)
{
    return QStringLiteral("0X%1\n").arg(style, 6, 16, QLatin1Char('0')).toUpper();
}

void decomposeStyleVal(quint32 styleInfo, int &weight, int &width, int &slant)
{
    weight = (styleInfo & 0xFF0000) >> 16;
    width = (styleInfo & 0x00FF00) >> 8;
    slant = (styleInfo & 0x0000FF);
}

quint32 styleValFromStr(const QString &style)
{
    if (style.isEmpty()) {
        return KFI_NO_STYLE_INFO;
    } else {
        quint32 val;

        QTextStream(const_cast<QString *>(&style), QIODevice::ReadOnly) >> val;
        return val;
    }
}

QString getFcString(FcPattern *pat, const char *val, int index)
{
    QString rv;
    FcChar8 *fcStr;

    if (FcResultMatch == FcPatternGetString(pat, val, index, &fcStr)) {
        rv = QString::fromUtf8((char *)fcStr);
    }

    return rv;
}

//
// TODO: How correct is this?
// Qt/Gtk seem to prefer font family names with FAMILY_LANG=="en"
// ...so if possible, use that. Else, use the first non "xx" lang.
QString getFcLangString(FcPattern *pat, const char *val, const char *valLang)
{
    int langIndex = -1;

    for (int i = 0; true; ++i) {
        QString lang = getFcString(pat, valLang, i);

        if (lang.isEmpty()) {
            break;
        } else if (QString::fromLatin1("en") == lang) {
            return getFcString(pat, val, i);
        } else if (QString::fromLatin1("xx") != lang && -1 == langIndex) {
            langIndex = i;
        }
    }

    return getFcString(pat, val, langIndex > 0 ? langIndex : 0);
}

int getFcInt(FcPattern *pat, const char *val, int index, int def)
{
    int rv;

    if (FcResultMatch == FcPatternGetInteger(pat, val, index, &rv)) {
        return rv;
    }
    return def;
}

QString getName(const QString &file)
{
    int count = 0;
    FcPattern *pat = FcFreeTypeQuery((const FcChar8 *)(QFile::encodeName(file).constData()), 0, nullptr, &count);
    QString name(i18n("Unknown"));

    if (pat) {
        name = FC::createName(pat);
        FcPatternDestroy(pat);
    }

    return name;
}

void getDetails(FcPattern *pat, QString &family, quint32 &styleVal, int &index, QString &foundry)
{
    int weight = getFcInt(pat, FC_WEIGHT, 0, KFI_NULL_SETTING),
        width =
#ifdef KFI_FC_NO_WIDTHS
            KFI_NULL_SETTING,
#else
                getFcInt(pat, FC_WIDTH, 0, KFI_NULL_SETTING),
#endif
        slant = getFcInt(pat, FC_SLANT, 0, KFI_NULL_SETTING);

    index = getFcInt(pat, FC_INDEX, 0, 0);
    // #ifdef KFI_USE_TRANSLATED_FAMILY_NAME
    family = getFcLangString(pat, FC_FAMILY, FC_FAMILYLANG);
    // #else
    //     family=getFcString(pat, FC_FAMILY, 0);
    // #endif
    styleVal = createStyleVal(weight, width, slant);
    foundry = getFcString(pat, FC_FOUNDRY, 0);
}

QString createName(FcPattern *pat)
{
    QString family, foundry;
    quint32 styleVal;
    int index;

    getDetails(pat, family, styleVal, index, foundry);
    return createName(family, styleVal);
}

QString createName(const QString &family, quint32 styleInfo)
{
    int weight, width, slant;

    decomposeStyleVal(styleInfo, weight, width, slant);
    return createName(family, weight, width, slant);
}

QString createName(const QString &family, int weight, int width, int slant)
{
    return family + QString::fromLatin1(", ") + createStyleName(weight, width, slant);
}

QString createStyleName(quint32 styleInfo)
{
    int weight, width, slant;

    decomposeStyleVal(styleInfo, weight, width, slant);
    return createStyleName(weight, width, slant);
}

QString createStyleName(int weight, int width, int slant)
{
    //
    // CPD: TODO: the names *need* to match up with kfontchooser's...
    //         : Removing KFI_DISPLAY_OBLIQUE and KFI_DISPLAY_MEDIUM help this.
    //           However, I have at least one bad font:
    //               Rockwell Extra Bold. Both fontconfig, and kcmshell fonts list family
    //               as "Rockwell Extra Bold" -- good (well at least they match). *But* fontconfig
    //               is returning the weight "Extra Bold", and kcmshell fonts is using "Bold" :-(
    //
    QString name, weightString, widthString, slantString;

#ifndef KFI_FC_NO_WIDTHS
    if (KFI_NULL_SETTING != width) {
        widthString = widthStr(width);
    }
#endif

    if (KFI_NULL_SETTING != slant) {
        slantString = slantStr(slant);
    }

    //
    // If weight is "Regular", we only want to display it if slant and width are empty.
    if (KFI_NULL_SETTING != weight) {
        weightString = weightStr(weight, !slantString.isEmpty() || !widthString.isEmpty());

        if (!weightString.isEmpty()) {
            name = weightString;
        }
    }

#ifndef KFI_FC_NO_WIDTHS
    if (!widthString.isEmpty()) {
        if (!name.isEmpty()) {
            name += QLatin1Char(' ');
        }
        name += widthString;
    }
#endif

    if (!slantString.isEmpty()) {
        if (!name.isEmpty()) {
            name += QLatin1Char(' ');
        }
        name += slantString;
    }
    return name;
}

QString weightStr(int w, bool emptyNormal)
{
    switch (weight(w)) {
    case FC_WEIGHT_THIN:
        return KFI_WEIGHT_THIN.toString();
    case FC_WEIGHT_EXTRALIGHT:
        return KFI_WEIGHT_EXTRALIGHT.toString();
    case FC_WEIGHT_LIGHT:
        return KFI_WEIGHT_LIGHT.toString();
    case FC_WEIGHT_MEDIUM:
#ifdef KFI_DISPLAY_MEDIUM
        return KFI_WEIGHT_MEDIUM.toString();
#endif
    case FC_WEIGHT_REGULAR:
        return emptyNormal ? QString() : KFI_WEIGHT_REGULAR.toString();
    case FC_WEIGHT_DEMIBOLD:
        return KFI_WEIGHT_DEMIBOLD.toString();
    case FC_WEIGHT_BOLD:
        return KFI_WEIGHT_BOLD.toString();
    case FC_WEIGHT_EXTRABOLD:
        return KFI_WEIGHT_EXTRABOLD.toString();
    default:
        return KFI_WEIGHT_BLACK.toString();
    }
}

QString widthStr(int w, bool emptyNormal)
{
    switch (width(w)) {
    case KFI_FC_WIDTH_ULTRACONDENSED:
        return KFI_WIDTH_ULTRACONDENSED.toString();
    case KFI_FC_WIDTH_EXTRACONDENSED:
        return KFI_WIDTH_EXTRACONDENSED.toString();
    case KFI_FC_WIDTH_CONDENSED:
        return KFI_WIDTH_CONDENSED.toString();
    case KFI_FC_WIDTH_SEMICONDENSED:
        return KFI_WIDTH_SEMICONDENSED.toString();
    case KFI_FC_WIDTH_NORMAL:
        return emptyNormal ? QString() : KFI_WIDTH_NORMAL.toString();
    case KFI_FC_WIDTH_SEMIEXPANDED:
        return KFI_WIDTH_SEMIEXPANDED.toString();
    case KFI_FC_WIDTH_EXPANDED:
        return KFI_WIDTH_EXPANDED.toString();
    case KFI_FC_WIDTH_EXTRAEXPANDED:
        return KFI_WIDTH_EXTRAEXPANDED.toString();
    default:
        return KFI_WIDTH_ULTRAEXPANDED.toString();
    }
}

QString slantStr(int s, bool emptyNormal)
{
    switch (slant(s)) {
    case FC_SLANT_OBLIQUE:
#ifdef KFI_DISPLAY_OBLIQUE
        return KFI_SLANT_OBLIQUE.toString();
#endif
    case FC_SLANT_ITALIC:
        return KFI_SLANT_ITALIC.toString();
    default:
        return emptyNormal ? QString() : KFI_SLANT_ROMAN.toString();
    }
}

QString spacingStr(int s)
{
    switch (spacing(s)) {
    case FC_MONO:
        return KFI_SPACING_MONO.toString();
    case FC_CHARCELL:
        return KFI_SPACING_CHARCELL.toString();
    default:
        return KFI_SPACING_PROPORTIONAL.toString();
    }
}

bool bitmapsEnabled()
{
    //
    // On some systems, such as KUbuntu, fontconfig is configured to ignore all bitmap fonts.
    // The following check tries to get a list of installed bitmaps, if it an empty list is returned
    // it is assumed that bitmaps are disabled.

    static bool enabled(false);
    static bool checked(false); // Do not keep on checking!

    if (!checked) {
        FcObjectSet *os = FcObjectSetBuild(FC_FAMILY, (void *)nullptr);
        FcPattern *pat = FcPatternBuild(nullptr, FC_SCALABLE, FcTypeBool, FcFalse, NULL);
        FcFontSet *set = FcFontList(nullptr, pat, os);

        FcPatternDestroy(pat);
        FcObjectSetDestroy(os);

        if (set) {
            if (set->nfont) {
                enabled = true;
            }

            FcFontSetDestroy(set);
        }
        checked = true;
    }

    return enabled;
}

}

}