// copyright (c) 2010-2012 Polos Ruetz

#include "eql.h"

#include "ecl_fun.h"

#include "gen/_lobjects.h"

#include <QApplication>

#include <QTimer>

#include <QStringList>

const char EQL::version[] = "12.5.1"; // 2012-05-21

static void eval(const char* lisp_code) {

    CL_CATCH_ALL_BEGIN(ecl_process_env()) {

        si_safe_eval(2, ecl_read_from_cstring((char*)lisp_code), Cnil); }

    CL_CATCH_ALL_END; }

extern "C" void ini_EQL(cl_object);

EQL::EQL() : QObject() {

    if(!cl_booted) {

        cl_boot(1, QCoreApplication::argv()); }

    iniCLFunctions();

    LObjects::ini(this);

    read_VV(OBJNULL, ini_EQL); } // see src/make-eql-lib.lisp

EQL::~EQL() {

    LObjects::cleanUp();

    cl_shutdown(); }

void EQL::ini(char** argv) {

    cl_booted = true;

    cl_boot(1, argv); }

QString EQL::home() {

    static QString path;

    if(path.isEmpty()) {

        path = QApplication::applicationDirPath();

#ifdef Q_OS_DARWIN

        path.truncate(path.lastIndexOf('/', path.indexOf(".app")));

#endif

        path.append('/'); }

    return path; }

void EQL::exec(const QStringList& args) {

    QStringList arguments(args);

    si_select_package(make_simple_base_string((char*)"EQL"));

    eval(QString("(set-home \"%1\")").arg(home()).toAscii().constData());

    bool quit = false;

    QStringList forms;

    if(arguments.contains("-slime")) {

        arguments.removeAll("-slime");

        initialize_slime = true;

        forms << "(eql::set-slime-ini (in-home \"slime/\"))"; }

    if(arguments.count() == 1) {

        quit = true;

        forms << "(si:top-level)"; }

    if(arguments.contains("-qgui")) {

        arguments.removeAll("-qgui");

        forms << "(qgui)"; }

#ifndef Q_OS_WIN

    if(arguments.contains("-qtpl")) {

        arguments.removeAll("-qtpl");

        quit = true;

        forms << "(si::qtop-level)"; }

#endif

    if(arguments.contains("-quic")) {

        arguments.removeAll("-quic");

        if(arguments.size() == 2) {

            quit = true;

            QString uiFile(QDir::fromNativeSeparators(arguments.at(1)));

            int sep = uiFile.lastIndexOf('/') + 1;

            QProcess::execute("uic -o ui.h " + uiFile);

            forms << QString("(eql:quic \"ui.h\" \"%1ui-%2.lisp\")")

                    .arg(uiFile.left(sep))

                    .arg(uiFile.mid(sep, uiFile.length() - sep - 3))

                  << QString("(delete-file \"ui.h\")"); }

        else {

            qDebug() << "Please pass a file.ui (Qt Designer)";

            exit(-1); }}

    else if(arguments.count() > 1) {

        QString fileName(QDir::fromNativeSeparators(arguments.at(1)));

        forms.prepend(QString("(load \"%1\")").arg(fileName)); }

    QString code;

    if(forms.length() == 1) {

        code = forms.first(); }

    else {

        code = "(progn " + forms.join(" ") + ")"; }

    eval(code.toAscii().constData());

    if(quit) {

        qquit(); }}

void EQL::exec(lisp_ini ini, const QByteArray& expression, const QByteArray& package) {

    // see my_app example

    eval(QString("(eql::set-home \"%1\")").arg(home()).toAscii().constData());

    read_VV(OBJNULL, ini);

    si_select_package(make_simple_base_string((char*)package.toUpper().constData()));

    eval(expression.constData()); }

void EQL::exec(QWidget* widget, const QString& lispFile, const QString& slimeIniPath) {

    // see Qt_EQL example

    eval("(progn"

         "  (in-package :eql)"

         "  (defvar *slime-mode* nil)"

         "  (export '*slime-mode*))");

    QStringList forms;

    if(!slimeIniPath.isEmpty()) {

        initialize_slime = true;

        forms << QString("(eql::set-slime-ini \"%1\")").arg(slimeIniPath)

              << QString("(setf eql:*slime-mode* t)"); }

    forms << QString("(set-home \"%1\")").arg(home())

          << QString("(defvar *qt-main* (qt-object %1 0 (qid \"%2\")))")

                     .arg((ulong)widget)

                     .arg(QString(LObjects::vanillaQtSuperClassName(widget->metaObject())))

          << QString("(export '*qt-main*)")

          << QString("(load \"%1\")").arg(lispFile)

          << QString("(in-package :cl-user)");

    if(initialize_slime) {

        forms << "(si:top-level)"; }

    eval(QString("(progn " + forms.join(" ") + ")").toAscii().constData()); }

void EQL::iniSlime() {

    initialize_slime = false;

    eval("(load (eql::in-slime-ini \"ini\"))"); }

bool EQL::cl_booted = false;

bool EQL::is_arg_return_value = false;

bool EQL::initialize_slime = false;

QEventLoop* EQL::eventLoop = 0;