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.
tdevelop/languages/fortran/compiler/pgioptions/pgioptionsfactory.cpp

70 lines
2.2 KiB

/***************************************************************************
* Copyright (C) 2001 by Bernd Gehrmann *
* bernd@kdevelop.org *
* *
* 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; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#include <kdebug.h>
#include <kinstance.h>
#include "pgioptionsplugin.h"
#include "pgioptionsfactory.h"
extern "C" {
void *init_libkdevpgioptions()
{
return new PgiOptionsFactory;
}
}
PgiOptionsFactory::PgiOptionsFactory(TQObject *parent, const char *name)
: KLibFactory(parent, name)
{
instance();
}
PgiOptionsFactory::~PgiOptionsFactory()
{
delete s_instance;
s_instance = 0;
}
TQObject *PgiOptionsFactory::createObject(TQObject *parent, const char *name,
const char * /*classname*/, const TQStringList &args)
{
if (args.count() > 0 && qstrcmp(args[0].latin1(), "pghpf") == 0) {
kdDebug(9021) << "Building PgiOptions for PGHPF" << endl;
return new PgiOptionsPlugin(PgiOptionsPlugin::PGHPF, parent, name);
} else if (args.count() > 0 && qstrcmp(args[0].latin1(), "pgf77") == 0) {
kdDebug(9021) << "Building PgiOptions for PGF77" << endl;
return new PgiOptionsPlugin(PgiOptionsPlugin::PGF77, parent, name);
} else {
kdDebug(9021) << "Wrong args for kdevpgioptions library" << endl;
if (args.count() > 0)
kdDebug(9021) << args[0] << endl;
return 0;
}
}
TDEInstance *PgiOptionsFactory::s_instance = 0;
TDEInstance *PgiOptionsFactory::instance()
{
if (!s_instance)
s_instance = new TDEInstance("kdevpgioptions");
return s_instance;
}
#include "pgioptionsfactory.moc"