/***************************************************************************
 AQApplication.cpp
 -------------------
 begin                : 29/03/2011
 copyright            : (C) 2003-2011 by InfoSiAL S.L.
 email                : mail@infosial.com
 ***************************************************************************/
/***************************************************************************
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; version 2 of the License.               *
 ***************************************************************************/
/***************************************************************************
 Este  programa es software libre. Puede redistribuirlo y/o modificarlo
 bajo  los  términos  de  la  Licencia  Pública General de GNU   en  su
 versión 2, publicada  por  la  Free  Software Foundation.
 ***************************************************************************/

#include <qdom.h>

#include <stdio.h>

#include "FLSqlDatabase.h"
#include "FLManager.h"
#include "FLManagerModules.h"
#include "FLDiskCache.h"
#include "FLSettings.h"
#include "FLAccessControlLists.h"

#include "AQApplication.h"
#include "AQApplication_p.h"
#include "AQSObjectFactory.h"
#include "AQSWrapperFactory.h"
#include "AQConfig.h"

FLApplication *aqApp = 0;

AQApplication::AQApplication(int &argc, char **argv)
  : FLApplication(argc, argv)
{
  d = new AQApplicationPrivate;
}

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

void AQApplication::init(const QString &n, const QString &callFunction,
                         const QString &arguments, bool quitAfterCall,
                         bool noMax)
{
  d->oldApi_ = FLSettings::readBoolEntry("application/oldApi", true);
  if (d->oldApi_ || !n.isEmpty() || (!callFunction.isEmpty() && quitAfterCall)) {
    FLApplication::init(n, callFunction, arguments, quitAfterCall, noMax);
    return;
  }
  
  QPixmap::setDefaultOptimization(QPixmap::BestOptim);
  qInitNetworkProtocols();
  FLDiskCache::init(this);
#if 0
  //#ifndef QSDEBUGGER
  AQ_DISKCACHE_CLR();
#endif

  //#ifdef QSDEBUGGER
  //  project_ = new QSProject(this, db()->database());
  //#else
  project_ = new QSProject(0, db()->database());
  //#endif

  initializing_ = true;
  AQ_SET_MNGLOADER

  db()->manager()->init();
  mngLoader_->init();
  db()->manager()->loadTables();
  mngLoader_->loadKeyFiles();
  mngLoader_->loadAllIdModules();
  mngLoader_->loadIdAreas();

  acl_ = new FLAccessControlLists();
  acl_->init();

  loadScripts();
  mngLoader_->setShaLocalFromGlobal();
  loadTranslations();

  QSInterpreter *i = project_->interpreter();
  if (i) {
    i->addObjectFactory(flFactory_);
    i->addObjectFactory(new AQSObjectFactory);
    i->addWrapperFactory(new AQSWrapperFactory);
    i->addObjectFactory(new QSInputDialogFactory);
    i->addObjectFactory(new QSUtilFactory);
#ifdef FL_DEBUGGER
    if (FLSettings::readBoolEntry("application/isDebuggerMode"))
    i->setErrorMode( QSInterpreter::AskForDebug );
else
    i->setErrorMode( QSInterpreter::Notify ); 
#else
    i->setErrorMode( QSInterpreter::Notify );
#endif
  }

//#ifdef QSDEBUGGER
//  project_->evaluate();
//  if (i && i->hadError()) {
//    i->stopExecution();
//    i->clear();
//    project_->clearObjects();
//    loadScriptsFromModule("sys");
//  }
//#endif

  d->aqAppScriptObject_ = new QObject(this, "aqAppScript");
  project_->addObject(d->aqAppScriptObject_);
  d->aqAppScript_ = project_->createScript(
                      d->aqAppScriptObject_,
                      mngLoader_->contentCode("aqapplication.qs")
                    );
  
  if (!callFunction.isEmpty()) {
  	QStringList list(QStringList::split(':', arguments, false));
  	QSArgumentList argList;
  	for (QStringList::Iterator it = list.begin(); it != list.end(); ++it)
    		argList.append(QSArgument(*it));
  	FLApplication::call(callFunction, argList, 0);
  				}
  FLApplication::call("aqAppScriptMain", QSArgumentList(), d->aqAppScriptObject_);
  QTimer::singleShot(0, this, SLOT(callInitScript()));

#if 0
  //#ifndef QSDEBUGGER
  checkForUpdate();
#endif

  AQ_UNSET_MNGLOADER
  initializing_ = false;

  connect(project_, SIGNAL(projectEvaluated()), this, SLOT(callReinitScriptDelayed()));
  connect(project_, SIGNAL(projectEvaluated()), this, SLOT(evaluatedProject()));
  startTimerIdle();
}

void AQApplication::reinit()
{
  if (d->oldApi_) {
    FLApplication::reinit();
    return;
  }

  if (initializing_)
    return;
  stopTimerIdle();
  initializing_ = true;
  writeState();
  AQ_SET_MNGLOADER

  mngLoader_->finish();
  db()->manager()->finish();

  notifyBeginTransaction_ = false;
  notifyEndTransaction_ = false;
  notifyRollbackTransaction_ = false;

  db()->manager()->init();
  mngLoader_->init();
  db()->manager()->cleanupMetaData();

  if (acl_)
    acl_->init();

  loadScripts();
  mngLoader_->setShaLocalFromGlobal();

  if (d->aqAppScript_ && d->aqAppScript_->code().isEmpty())
    d->aqAppScript_->setCode(mngLoader_->contentCode("aqapplication.qs"));

#ifdef QSDEBUGGER
  QSInterpreter *i = project_->interpreter();
  project_->evaluate();
  if (i && i->hadError()) {
    i->stopExecution();
    i->clear();
    project_->clearObjects();
    loadScriptsFromModule("sys");

    d->aqAppScriptObject_ = new QObject(this, "aqAppScript");
    project_->addObject(d->aqAppScriptObject_);
    d->aqAppScript_ = project_->createScript(
                        d->aqAppScriptObject_,
                        mngLoader_->contentCode("aqapplication.qs")
                      );
  }
#endif

  QTimer::singleShot(0, this, SLOT(callReinitScript()));
  QTimer::singleShot(0, this, SLOT(callScriptEntryFunction()));

  AQ_UNSET_MNGLOADER
  initializing_ = false;
  startTimerIdle();
}

void AQApplication::callInitScript()
{
  FLApplication::call("initScript", QSArgumentList(), d->aqAppScriptObject_);
}

void AQApplication::callReinitScript()
{
  FLApplication::call("reinitScript", QSArgumentList(), d->aqAppScriptObject_);
}

void AQApplication::callReinitScriptDelayed()
{
  QTimer::singleShot(0, this, SLOT(callReinitScript()));
}

void AQApplication::setMainWidget(QWidget *mainWidget)
{
  if (!d->oldApi_) {
    if (acl_ && mainWidget)
      acl_->process(mainWidget);
    QApplication::setMainWidget(mainWidget);
  } else
    FLApplication::setMainWidget(mainWidget);
}

QSArgument AQApplication::call(const QString &function,
                               const QString &nameObjectContext) const
{
  return FLApplication::call(function, QSArgumentList(), nameObjectContext);
}

AQApplication *AQApplication::self()
{
  return this;
}

void AQApplication::setProxyDesktop(QWidget *w)
{
  if (d->proxyDesktop_)
    disconnect(desktop(), SIGNAL(resized(int)), this, SLOT(resizeProxyDesktop(int)));
  if (w)
    connect(desktop(), SIGNAL(resized(int)), this, SLOT(resizeProxyDesktop(int)));
  d->proxyDesktop_ = w;
}

void AQApplication::resizeProxyDesktop(int s)
{
  if (!d->proxyDesktop_)
    return;
  d->proxyDesktop_->resize(desktop()->availableGeometry(s).size());
}