You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
koffice/lib/kross/main/manager.cpp

249 lines
8.0 KiB

/***************************************************************************
* manager.cpp
* This file is part of the KDE project
* copyright (C)2004-2005 by Sebastian Sauer (mail@dipe.org)
*
* This program 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 program 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 program; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
***************************************************************************/
#include "manager.h"
#include "../api/interpreter.h"
//#include "../api/tqtobject.h"
#include "../api/eventslot.h"
#include "../api/eventsignal.h"
//#include "../api/script.h"
#include "krossconfig.h"
#include "scriptcontainer.h"
#include <tqobject.h>
#include <tqfile.h>
#include <tqregexp.h>
#include <klibloader.h>
#include <klocale.h>
#include <kstaticdeleter.h>
extern "C"
{
typedef Kross::Api::Object* (*def_module_func)(Kross::Api::Manager*);
}
using namespace Kross::Api;
namespace Kross { namespace Api {
/// @internal
class ManagerPrivate
{
public:
/// List of \a InterpreterInfo instances.
TQMap<TQString, InterpreterInfo*> interpreterinfos;
/// Loaded modules.
TQMap<TQString, Module::Ptr> modules;
};
/**
* The Manager-singleton instance is NULL by default till the
* Manager::scriptManager() method got called first time.
*/
static KSharedPtr<Manager> m_manager = KSharedPtr<Manager>(0);
}}
Manager* Manager::scriptManager()
{
if(! m_manager.data()) {
// Create the Manager-singleton on demand.
m_manager = KSharedPtr<Manager>( new Manager() );
}
// and finally return the singleton.
return m_manager.data();
}
Manager::Manager()
: MainModule("Kross") // the manager has the name "Kross"
, d( new ManagerPrivate() )
{
#ifdef KROSS_PYTHON_LIBRARY
TQString pythonlib = TQFile::encodeName( KLibLoader::self()->findLibrary(KROSS_PYTHON_LIBRARY) );
if(! pythonlib.isEmpty()) { // If the Kross Python plugin exists we offer it as supported scripting language.
InterpreterInfo::Option::Map pythonoptions;
pythonoptions.replace("restricted",
new InterpreterInfo::Option("Restricted", "Restricted Python interpreter", TQVariant(false,0))
);
d->interpreterinfos.replace("python",
new InterpreterInfo("python",
pythonlib, // library
"*.py", // file filter-wildcard
TQStringList() << /* "text/x-python" << */ "application/x-python", // mimetypes
pythonoptions // options
)
);
}
#endif
#ifdef KROSS_RUBY_LIBRARY
TQString rubylib = TQFile::encodeName( KLibLoader::self()->findLibrary(KROSS_RUBY_LIBRARY) );
if(! rubylib.isEmpty()) { // If the Kross Ruby plugin exists we offer it as supported scripting language.
InterpreterInfo::Option::Map rubyoptions;
rubyoptions.replace("safelevel",
new InterpreterInfo::Option("safelevel", "Level of safety of the Ruby interpreter", TQVariant(0)) // 0 -> unsafe, 4 -> very safe
);
d->interpreterinfos.replace("ruby",
new InterpreterInfo("ruby",
rubylib, // library
"*.rb", // file filter-wildcard
TQStringList() << /* "text/x-ruby" << */ "application/x-ruby", // mimetypes
rubyoptions // options
)
);
} else {
krossdebug("Ruby interpreter for kross in unavailable");
}
#endif
}
Manager::~Manager()
{
for(TQMap<TQString, InterpreterInfo*>::Iterator it = d->interpreterinfos.begin(); it != d->interpreterinfos.end(); ++it)
delete it.data();
delete d;
}
TQMap<TQString, InterpreterInfo*> Manager::getInterpreterInfos()
{
return d->interpreterinfos;
}
bool Manager::hasInterpreterInfo(const TQString& interpretername) const
{
return d->interpreterinfos.contains(interpretername);
}
InterpreterInfo* Manager::getInterpreterInfo(const TQString& interpretername)
{
return d->interpreterinfos[interpretername];
}
const TQString Manager::getInterpreternameForFile(const TQString& file)
{
TQRegExp rx;
rx.setWildcard(true);
for(TQMap<TQString, InterpreterInfo*>::Iterator it = d->interpreterinfos.begin(); it != d->interpreterinfos.end(); ++it) {
rx.setPattern((*it)->getWildcard());
if( file.find(rx) >= 0 )
return (*it)->getInterpretername();
}
return TQString();
}
ScriptContainer::Ptr Manager::getScriptContainer(const TQString& scriptname)
{
//TODO at the moment we don't share ScriptContainer instances.
//if(d->m_scriptcontainers.contains(scriptname))
// return d->m_scriptcontainers[scriptname];
ScriptContainer* scriptcontainer = new ScriptContainer(scriptname);
//ScriptContainer script(this, scriptname);
//d->m_scriptcontainers.replace(scriptname, scriptcontainer);
return scriptcontainer;
}
Interpreter* Manager::getInterpreter(const TQString& interpretername)
{
setException(0); // clear previous exceptions
if(! d->interpreterinfos.contains(interpretername)) {
setException( new Exception(i18n("No such interpreter '%1'").arg(interpretername)) );
return 0;
}
return d->interpreterinfos[interpretername]->getInterpreter();
}
const TQStringList Manager::getInterpreters()
{
TQStringList list;
TQMap<TQString, InterpreterInfo*>::Iterator it( d->interpreterinfos.begin() );
for(; it != d->interpreterinfos.end(); ++it)
list << it.key();
//list << "TestCase";
return list;
}
bool Manager::addModule(Module::Ptr module)
{
TQString name = module->getName();
//if( d->modules.contains(name) ) return false;
d->modules.replace(name, module);
return true;
}
Module::Ptr Manager::loadModule(const TQString& modulename)
{
Module::Ptr module = 0;
if(d->modules.contains(modulename)) {
module = d->modules[modulename];
if(module)
return module;
else
krossdebug( TQString("Manager::loadModule(%1) =======> Modulename registered, but module is invalid!").arg(modulename) );
}
KLibLoader* loader = KLibLoader::self();
KLibrary* lib = loader->globalLibrary( modulename.latin1() );
if(! lib) {
krosswarning( TQString("Failed to load module '%1': %2").arg(modulename).arg(loader->lastErrorMessage()) );
return 0;
}
krossdebug( TQString("Successfully loaded module '%1'").arg(modulename) );
def_module_func func;
func = (def_module_func) lib->symbol("init_module");
if(! func) {
krosswarning( TQString("Failed to determinate init function in module '%1'").arg(modulename) );
return 0;
}
try {
module = (Kross::Api::Module*) (func)(this);
}
catch(Kross::Api::Exception::Ptr e) {
krosswarning( e->toString() );
module = 0;
}
lib->unload();
if(! module) {
krosswarning( TQString("Failed to load module '%1'").arg(modulename) );
return 0;
}
// Don't remember module cause we like to have freeing it handled by the caller.
//d->modules.replace(modulename, module);
//krossdebug( TQString("Kross::Api::Manager::loadModule modulename='%1' module='%2'").arg(modulename).arg(module->toString()) );
return module;
}