// 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;