/*
 * This file is part of the KDE Libraries
 * Copyright (C) 2000 Espen Sand (espen@kde.org)
 * Copyright (C) 2006 Nicolas GOUTTE <goutte@kde.org>
 * Copyright (C) 2008 Friedrich W. H. Kossebau <kossebau@kde.org>
 * Copyright (C) 2010 Teo Mrnjavac <teo@kde.org>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public License
 * along with this library; see the file COPYING.LIB.  If not, write to
 * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 * Boston, MA 02110-1301, USA.
 *
 */

#include "kaboutdata.h"

#include "kstandarddirs.h"
#include "klocalizedstring.h"

#include <QtCore/QFile>
#include <QtCore/QTextStream>
#include <QtCore/QSharedData>
#include <QtCore/QList>
#include <QHash>

// -----------------------------------------------------------------------------
// Design notes:
//
// These classes deal with a lot of text, some of which needs to be
// marked for translation. Since at the time when these object and calls are
// made the translation catalogs are usually still not initialized, the
// translation has to be delayed. This is achieved by using KLocalizedString
// for translatable strings. KLocalizedStrings are produced by ki18n* calls,
// instead of the more usuall i18n* calls which produce QString by trying to
// translate immediately.
//
// All the non-translatable string arguments to methods are taken QByteArray,
// all the translatable are KLocalizedString. The getter methods always return
// proper QString: the non-translatable strings supplied by the code are
// treated with QString::fromUtf8(), those coming from the outside with
// QTextCodec::toUnicode(), and translatable strings are finalized to QStrings
// at the point of getter calls (i.e. delayed translation).
// -----------------------------------------------------------------------------

class KAboutPerson::Private
{
public:
    KLocalizedString _name;
    KLocalizedString _task;
    QString _emailAddress;
    QString _webAddress;
    QString _nameNoop;
};

KAboutPerson::KAboutPerson(const KLocalizedString &_name,
                           const KLocalizedString &_task,
                           const QByteArray &_emailAddress,
                           const QByteArray &_webAddress)
    : d(new Private)
{
    d->_name = _name;
    d->_task = _task;
    d->_emailAddress = QString::fromUtf8(_emailAddress);
    d->_webAddress = QString::fromUtf8(_webAddress);
}

KAboutPerson::KAboutPerson(const QString &_name, const QString &_email)
    : d(new Private())
{
    d->_nameNoop = _name;
    d->_emailAddress = _email;
}

KAboutPerson::KAboutPerson(const KAboutPerson &other)
    : d(new Private())
{
    *d = *other.d;
}

KAboutPerson::~KAboutPerson()
{
    delete d;
}

QString KAboutPerson::name() const
{
    if (!d->_nameNoop.isEmpty()) {
        return d->_nameNoop;
    }
    return d->_name.toString();
}

QString KAboutPerson::task() const
{
    if (!d->_task.isEmpty()) {
        return d->_task.toString();
    }
    return QString();
}

QString KAboutPerson::emailAddress() const
{
   return d->_emailAddress;
}

QString KAboutPerson::webAddress() const
{
    return d->_webAddress;
}

KAboutPerson &KAboutPerson::operator=(const KAboutPerson &other)
{
    *d = *other.d;
    return *this;
}


class KAboutLicense::Private : public QSharedData
{
public:
    Private(enum KAboutData::LicenseKey licenseType, const KAboutData *aboutData);
    Private(const Private &other);
public:
    enum KAboutData::LicenseKey  _licenseKey;
    // needed for access to the possibly changing copyrightStatement()
    const KAboutData *           _aboutData;
};

KAboutLicense::Private::Private(enum KAboutData::LicenseKey licenseType, const KAboutData *aboutData)
    : QSharedData(),
    _licenseKey(licenseType),
    _aboutData(aboutData)
{
}

KAboutLicense::Private::Private(const KAboutLicense::Private &other)
    : QSharedData(other),
    _licenseKey(other._licenseKey),
    _aboutData(other._aboutData)
{
}

KAboutLicense::KAboutLicense(enum KAboutData::LicenseKey licenseType, const KAboutData *aboutData)
    : d(new Private(licenseType, aboutData))
{
}

KAboutLicense::KAboutLicense(const KAboutLicense &other)
    : d(other.d)
{
}

KAboutLicense::~KAboutLicense()
{
}

QString KAboutLicense::text() const
{
    QString result;

    const QString lineFeed = QString::fromLatin1("\n\n");

    if (d->_aboutData && !d->_aboutData->copyrightStatement().isEmpty()) {
        result = d->_aboutData->copyrightStatement() + lineFeed;
    }

    bool knownLicense = false;
    QString pathToFile;
    switch (d->_licenseKey) {
        case KAboutData::License_GPL_V2: {
            knownLicense = true;
            pathToFile = KStandardDirs::locate("data", QString::fromLatin1("LICENSES/GPL_V2"));
            break;
        }
        case KAboutData::License_LGPL_V2: {
            knownLicense = true;
            pathToFile = KStandardDirs::locate("data", QString::fromLatin1("LICENSES/LGPL_V2"));
            break;
        }
        case KAboutData::License_BSD: {
            knownLicense = true;
            pathToFile = KStandardDirs::locate("data", QString::fromLatin1("LICENSES/BSD"));
            break;
        }
        case KAboutData::License_Artistic: {
            knownLicense = true;
            pathToFile = KStandardDirs::locate("data", QString::fromLatin1("LICENSES/ARTISTIC"));
            break;
        }
        case KAboutData::License_GPL_V3: {
            knownLicense = true;
            pathToFile = KStandardDirs::locate("data", QString::fromLatin1("LICENSES/GPL_V3"));
            break;
        }
        case KAboutData::License_LGPL_V3: {
            knownLicense = true;
            pathToFile = KStandardDirs::locate("data", QString::fromLatin1("LICENSES/LGPL_V3"));
            break;
        }
        default: {
            result += i18n(
                "No licensing terms for this program have been specified.\n"
                "Please check the documentation or the source for any\n"
                "licensing terms.\n"
            );
            break;
        }
    }

    if (knownLicense) {
        result += i18n("This program is distributed under the terms of the %1.", name(KAboutData::ShortName));
        if (!pathToFile.isEmpty()) {
            result += lineFeed;
        }
    }

    if (!pathToFile.isEmpty()) {
        QFile file(pathToFile);
        if (file.open(QIODevice::ReadOnly)) {
            QTextStream str(&file);
            result += str.readAll();
        }
    }

    return result;
}


QString KAboutLicense::name(KAboutData::NameFormat formatName) const
{
    QString licenseShort;
    QString licenseFull;

    switch (d->_licenseKey) {
        case KAboutData::License_GPL_V2: {
            licenseShort = i18nc("@item license (short name)","GPL v2");
            licenseFull = i18nc("@item license", "GNU General Public License Version 2");
            break;
        }
        case KAboutData::License_LGPL_V2: {
            licenseShort = i18nc("@item license (short name)","LGPL v2");
            licenseFull = i18nc("@item license", "GNU Lesser General Public License Version 2");
            break;
        }
        case KAboutData::License_BSD: {
            licenseShort = i18nc("@item license (short name)","BSD License");
            licenseFull = i18nc("@item license", "BSD License");
            break;
        }
        case KAboutData::License_Artistic: {
            licenseShort = i18nc("@item license (short name)","Artistic License");
            licenseFull = i18nc("@item license", "Artistic License");
            break;
        }
        case KAboutData::License_GPL_V3: {
            licenseShort = i18nc("@item license (short name)","GPL v3");
            licenseFull = i18nc("@item license", "GNU General Public License Version 3");
            break;
        }
        case KAboutData::License_LGPL_V3: {
            licenseShort = i18nc("@item license (short name)","LGPL v3");
            licenseFull = i18nc("@item license","GNU Lesser General Public License Version 3");
            break;
        }
        default: {
            licenseShort = licenseFull = i18nc("@item license", "Not specified");
            break;
        }
    }

    if (formatName == KAboutData::ShortName) {
        return licenseShort;
    } else if (formatName == KAboutData::FullName) {
        return licenseFull;
    }
    return QString();
}


KAboutLicense &KAboutLicense::operator=(const KAboutLicense &other)
{
    d = other.d;
    return *this;
}

KAboutData::LicenseKey KAboutLicense::key() const
{
    return d->_licenseKey;
}

KAboutLicense KAboutLicense::byKeyword(const QString &rawKeyword)
{
    // Setup keyword->enum dictionary on first call.
    // Use normalized keywords, by the algorithm below.
    static QHash<QByteArray, KAboutData::LicenseKey> ldict;
    if (ldict.isEmpty()) {
        ldict.insert("gpl", KAboutData::License_GPL);
        ldict.insert("gplv2", KAboutData::License_GPL_V2);
        ldict.insert("gplv2+", KAboutData::License_GPL_V2);
        ldict.insert("lgpl", KAboutData::License_LGPL);
        ldict.insert("lgplv2", KAboutData::License_LGPL_V2);
        ldict.insert("lgplv2+", KAboutData::License_LGPL_V2);
        ldict.insert("bsd", KAboutData::License_BSD);
        ldict.insert("artistic", KAboutData::License_Artistic);
        ldict.insert("gplv3", KAboutData::License_GPL_V3);
        ldict.insert("gplv3+", KAboutData::License_GPL_V3);
        ldict.insert("lgplv3", KAboutData::License_LGPL_V3);
        ldict.insert("lgplv3+", KAboutData::License_LGPL_V3);
    }

    // Normalize keyword.
    QByteArray keyword = rawKeyword.toLatin1();
    keyword = keyword.toLower();
    int indexofchar = keyword.indexOf(' ');
    while (indexofchar >= 0) {
        keyword.remove(indexofchar, 1);
        indexofchar = keyword.indexOf(' ');
    }
    indexofchar = keyword.indexOf('.');
    while (indexofchar >= 0) {
        keyword.remove(indexofchar, 1);
        indexofchar = keyword.indexOf('.');
    }

    KAboutData::LicenseKey license = ldict.value(keyword, KAboutData::License_Unknown);
    return KAboutLicense(license, nullptr);
}


class KAboutData::Private
{
public:
    QByteArray _appName;
    KLocalizedString _programName;
    KLocalizedString _shortDescription;
    QByteArray _catalogName;
    KLocalizedString _copyrightStatement;
    QString _homepageAddress;
    QList<KAboutPerson> _authorList;
    QList<KAboutPerson> _creditList;
    QList<KAboutLicense> _licenseList;
    KLocalizedString translatorName;
    KLocalizedString translatorEmail;
    QString programIconName;
    QString organizationDomain;
    QByteArray _version;
    QByteArray _bugEmailAddress;
};


KAboutData::KAboutData(const QByteArray &_appName,
                       const QByteArray &_catalogName,
                       const KLocalizedString &_programName,
                       const QByteArray &_version,
                       const KLocalizedString &_shortDescription,
                       enum LicenseKey licenseType,
                       const KLocalizedString &_copyrightStatement)
  : d(new Private())
{
    d->_appName = _appName;
    int p = d->_appName.indexOf('/');
    if (p >= 0) {
        d->_appName = d->_appName.mid(p + 1);
    }

    d->_catalogName = _catalogName;
    d->_programName = _programName;
    d->_version = _version;
    d->_shortDescription = _shortDescription;
    d->_licenseList.append(KAboutLicense(licenseType, this));
    d->_copyrightStatement = _copyrightStatement;
    d->_homepageAddress = QString::fromLatin1(KDE_HOME_URL);
    d->_bugEmailAddress = QByteArray(KDE_BUG_REPORT_EMAIL);
    d->organizationDomain = QString::fromLatin1("kde.org");
}

KAboutData::~KAboutData()
{
    delete d;
}

KAboutData::KAboutData(const KAboutData& other)
    : d(new Private())
{
    *d = *other.d;
    QList<KAboutLicense>::iterator it = d->_licenseList.begin(), itEnd = d->_licenseList.end();
    for ( ; it != itEnd; ++it) {
        KAboutLicense& al = *it;
        al.d.detach();
        al.d->_aboutData = this;
    }
}

KAboutData& KAboutData::operator=(const KAboutData& other)
{
    if (this != &other) {
        *d = *other.d;
        QList<KAboutLicense>::iterator it = d->_licenseList.begin(), itEnd = d->_licenseList.end();
        for ( ; it != itEnd; ++it) {
            KAboutLicense& al = *it;
            al.d.detach();
            al.d->_aboutData = this;
        }
    }
    return *this;
}

KAboutData& KAboutData::addAuthor(const KLocalizedString &name,
                                  const KLocalizedString &task,
                                  const QByteArray &emailAddress,
                                  const QByteArray &webAddress)
{
    d->_authorList.append(KAboutPerson(name, task, emailAddress, webAddress));
    return *this;
}

KAboutData& KAboutData::addCredit(const KLocalizedString &name,
                                  const KLocalizedString &task,
                                  const QByteArray &emailAddress,
                                  const QByteArray &webAddress)
{
    d->_creditList.append(KAboutPerson(name, task, emailAddress, webAddress));
    return *this;
}

KAboutData& KAboutData::setTranslator(const KLocalizedString &name,
                                      const KLocalizedString &emailAddress)
{
    d->translatorName = name;
    d->translatorEmail = emailAddress;
    return *this;
}

KAboutData& KAboutData::setAppName(const QByteArray &_appName)
{
    d->_appName = _appName;
    return *this;
}

KAboutData &KAboutData::setProgramName(const KLocalizedString &_programName)
{
    d->_programName = _programName;
    return *this;
}

KAboutData& KAboutData::setVersion(const QByteArray &_version)
{
    d->_version = _version;
    return *this;
}

KAboutData& KAboutData::setShortDescription(const KLocalizedString &_shortDescription)
{
    d->_shortDescription = _shortDescription;
    return *this;
}

KAboutData& KAboutData::setCatalogName(const QByteArray &_catalogName)
{
    d->_catalogName = _catalogName;
    return *this;
}

KAboutData& KAboutData::setLicense(LicenseKey licenseKey)
{
    d->_licenseList[0] = KAboutLicense(licenseKey, this);
    return *this;
}

KAboutData& KAboutData::addLicense(LicenseKey licenseKey)
{
    // if the default license is unknown, overwrite instead of append
    KAboutLicense &firstLicense = d->_licenseList[0];
    if (d->_licenseList.count() == 1 && firstLicense.d->_licenseKey == License_Unknown) {
        firstLicense = KAboutLicense(licenseKey,this);
    } else {
        d->_licenseList.append(KAboutLicense(licenseKey, this));
    }
    return *this;
}

KAboutData& KAboutData::setCopyrightStatement(const KLocalizedString &_copyrightStatement)
{
    d->_copyrightStatement = _copyrightStatement;
    return *this;
}

KAboutData& KAboutData::setHomepage(const QByteArray &_homepage)
{
    d->_homepageAddress = QString::fromLatin1(_homepage);
    return *this;
}

KAboutData& KAboutData::setBugAddress(const QByteArray &_bugAddress)
{
    d->_bugEmailAddress = _bugAddress;
    return *this;
}

KAboutData& KAboutData::setOrganizationDomain(const QByteArray &domain)
{
    d->organizationDomain = QString::fromLatin1(domain);
    return *this;
}

QString KAboutData::appName() const
{
    return QString::fromUtf8(d->_appName);
}

QString KAboutData::programName() const
{
    if (!d->_programName.isEmpty()) {
        return d->_programName.toString();
    }
    return QString();
}

QString KAboutData::programIconName() const
{
    return d->programIconName.isEmpty() ? appName() : d->programIconName;
}

KAboutData& KAboutData::setProgramIconName(const QString &iconName)
{
    d->programIconName = iconName;
    return *this;
}

QString KAboutData::version() const
{
    return QString::fromUtf8(d->_version);
}

QString KAboutData::shortDescription() const
{
    if (!d->_shortDescription.isEmpty()) {
        return d->_shortDescription.toString();
    }
    return QString();
}

QString KAboutData::catalogName() const
{
    if (!d->_catalogName.isEmpty()) {
        return QString::fromUtf8(d->_catalogName);
    }
    // Fallback to appname for catalog name if empty.
    return QString::fromUtf8(d->_appName);
}

QString KAboutData::homepage() const
{
    return d->_homepageAddress;
}

QString KAboutData::bugAddress() const
{
    return QString::fromUtf8(d->_bugEmailAddress);
}

QString KAboutData::organizationDomain() const
{
    return d->organizationDomain;
}

QList<KAboutPerson> KAboutData::authors() const
{
    return d->_authorList;
}

QList<KAboutPerson> KAboutData::credits() const
{
    return d->_creditList;
}

#define NAME_OF_TRANSLATORS "Your names"
#define EMAIL_OF_TRANSLATORS "Your emails"
QList<KAboutPerson> KAboutData::translators() const
{
    QList<KAboutPerson> personList;

    KLocale *tmpLocale = NULL;
    if (KGlobal::locale()) {
        // There could be many catalogs loaded into the global locale,
        // e.g. in systemsettings. The tmp locale is needed to make sure we
        // use the translators name from this aboutdata's catalog, rather than
        // from any other loaded catalog.
        tmpLocale = new KLocale(*KGlobal::locale());
        tmpLocale->setActiveCatalog(catalogName());
    }

    QString translatorName;
    if (!d->translatorName.isEmpty()) {
        translatorName = d->translatorName.toString();
    } else {
        translatorName = ki18nc("NAME OF TRANSLATORS", NAME_OF_TRANSLATORS).toString(tmpLocale);
    }

    QString translatorEmail;
    if (!d->translatorEmail.isEmpty()) {
        translatorEmail = d->translatorEmail.toString();
    } else {
        translatorEmail = ki18nc("EMAIL OF TRANSLATORS", EMAIL_OF_TRANSLATORS).toString(tmpLocale);
    }

    delete tmpLocale;

    if (translatorName.isEmpty() || translatorName == QString::fromUtf8(NAME_OF_TRANSLATORS)) {
        return personList;
    }

    const QStringList nameList(translatorName.split(QString(QLatin1Char(','))));

    QStringList emailList;
    if (!translatorEmail.isEmpty() && translatorEmail != QString::fromUtf8(EMAIL_OF_TRANSLATORS)) {
        emailList = translatorEmail.split(QString(QLatin1Char(',')), QString::KeepEmptyParts);
    }

    foreach (const QString &nit, nameList) {
        // overkill?
        QString email;
        foreach (const QString &eit, emailList) {
            email = eit;
        }
        personList.append(KAboutPerson(nit.trimmed(), email.trimmed()));
    }

    return personList;
}

QString KAboutData::aboutTranslationTeam()
{
    return i18nc(
        "replace this with information about your translation team",
        "<p>KDE is translated into many languages thanks to the work "
        "of the translation teams all over the world.</p>"
        "<p>For more information on KDE internationalization "
        "visit <a href=\"%1\">%1</a></p>", QLatin1String(KDE_HOME_URL)
    );
}

QString KAboutData::license() const
{
    return d->_licenseList.at(0).text();
}

QString KAboutData::licenseName(NameFormat formatName) const
{
    return d->_licenseList.at(0).name(formatName);
}

QList<KAboutLicense> KAboutData::licenses() const
{
    return d->_licenseList;
}

QString KAboutData::copyrightStatement() const
{
    if (!d->_copyrightStatement.isEmpty()) {
        return d->_copyrightStatement.toString();
    }
    return QString();
}