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/kjssupport/subclassingdlg.cpp

462 lines
15 KiB

/***************************************************************************
* Copyright (C) 2002 by Jakob Simon-Gaarde *
* jsgaarde@tdcspace.dk *
* Copyright (C) 2003 by Alexander Dymo *
* cloudtemple@mksat.net *
* *
* 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 "subclassingdlg.h"
#include "kjssupport_part.h"
/*#include "backgroundparser.h"
#include "store_walker.h"
#include "cppsupportfactory.h"*/
#include <tdevelop/kdevsourceformatter.h>
#include <tdevelop/kdevproject.h>
#include <tdevelop/filetemplate.h>
#include <tdevelop/codemodel.h>
#include <tqradiobutton.h>
#include <tqstringlist.h>
#include <tqcheckbox.h>
#include <tqmessagebox.h>
#include <tdefiledialog.h>
#include <klineedit.h>
#include <tqpushbutton.h>
#include <domutil.h>
#include <tqdom.h>
#include <kstandarddirs.h>
#include <kdebug.h>
#include <tdelocale.h>
#include <tqfile.h>
#include <tqregexp.h>
#include <tdeconfig.h>
#define WIDGET_CAPTION_NAME "widget/property|name=caption/string"
#define WIDGET_CLASS_NAME "class"
#define WIDGET_SLOTS "slots"
#define WIDGET_FUNCTIONS "functions"
// All widgets
#define SLOT_ACCEPT SlotItem(m_slotView,"accept()","virtual","protected","void",false,true)
#define SLOT_REJECT SlotItem(m_slotView,"reject()","virtual","protected","void",false,true)
// Wizards
#define SLOT_BACK SlotItem(m_slotView,"back()","virtual","protected","void",false,true)
#define SLOT_NEXT SlotItem(m_slotView,"next()","virtual","protected","void",false,true)
#define SLOT_HELP SlotItem(m_slotView,"help()","virtual","protected","void",false,true)
SlotItem::SlotItem(TQListView *parent,const TQString &methodName,
const TQString &specifier,
const TQString &access, const TQString &returnType,
bool isFunc,bool callBaseClass)
: TQCheckListItem(parent,methodName,TQCheckListItem::CheckBox)
{
setOn(true);
m_methodName = methodName;
m_access = access.isEmpty() ? (const TQString) "public" : access;
m_specifier = specifier.isEmpty() ? (const TQString) "virtual" : specifier;
m_returnType = returnType.isEmpty() ? (const TQString) "void" : returnType;
m_isFunc = isFunc;
m_callBaseClass = callBaseClass;
setText(0,m_methodName);
setText(1,m_access);
setText(2,m_specifier);
setText(3,m_returnType);
setText(4,m_isFunc ? "Function" : "Slot");
if (m_access=="private" ||
m_specifier=="non virtual")
{
setOn(false);
setEnabled(false);
}
if (m_specifier=="pure virtual")
{
setOn(true);
setEnabled(false);
}
m_alreadyInSubclass = false;
}
void SlotItem::setAllreadyInSubclass()
{
setOn(true);
setEnabled(false);
m_alreadyInSubclass = true;
}
SubclassingDlg::SubclassingDlg(kjsSupportPart* kjsSupport, const TQString &formFile,TQStringList &newFileNames,
TQWidget* parent, const char* name,bool modal, WFlags fl)
: SubclassingDlgBase(parent,name,modal,fl),
m_newFileNames(newFileNames), m_kjsSupport( kjsSupport )
//=================================================
{
m_formFile = formFile;
readUiFile();
m_creatingNewSubclass = true;
/* TDEConfig *config = kjsSupportFactory::instance()->config();
if (config)
{
config->setGroup("Subclassing");
reformatDefault_box->setChecked(config->readBoolEntry("Reformat Source", 0));
if (reformatDefault_box->isChecked())
reformat_box->setChecked(true);
}*/
// m_btnOk->setEnabled(true);
}
/*SubclassingDlg::SubclassingDlg(kjsSupportPart* kjsSupport, const TQString &formFile,const TQString &filename,TQStringList &dummy,
TQWidget* parent, const char* name,bool modal, WFlags fl)
: SubclassingDlgBase(parent,name,modal,fl),
m_newFileNames(dummy), m_kjsSupport( kjsSupport )
//=================================================
{
m_formFile = formFile;
m_creatingNewSubclass = false;
m_filename = filename;
TDEConfig *config = kjsSupportFactory::instance()->config();
if (config)
{
config->setGroup("Subclassing");
reformatDefault_box->setChecked(config->readBoolEntry("Reformat Source", 0));
if (reformatDefault_box->isChecked())
reformat_box->setChecked(true);
}
TQStringList pathsplit(TQStringList::split('/',filename));
TQString baseClass = readBaseClassName();
if (!kjsSupport->codeModel()->hasFile(filename+TQString(".h")))
return;
ClassList myClasses = kjsSupport->codeModel()->fileByName(filename+TQString(".h"))->classList();
for (ClassList::const_iterator classIt = myClasses.begin(); classIt != myClasses.end(); ++classIt)
{
kdDebug() << "base class " << baseClass << " class " << (*classIt)->name()
<< " parents " << (*classIt)->baseClassList().join(",") << endl;
if ( (*classIt)->baseClassList().findIndex(baseClass) != -1 )
{
kdDebug() << "base class matched " << endl;
m_edClassName->setText((*classIt)->name());
m_edFileName->setText(pathsplit[pathsplit.count()-1]);
FunctionList functionList = (*classIt)->functionList();
for (FunctionList::const_iterator methodIt = functionList.begin();
methodIt != functionList.end(); ++methodIt)
{
m_parsedMethods << (*methodIt)->name() + "(";
}
}
}
readUiFile();
m_btnOk->setEnabled(true);
}
*/
bool SubclassingDlg::alreadyInSubclass(const TQString &method)
{
for (uint i=0;i<m_parsedMethods.count();i++)
if (method.find(m_parsedMethods[i])==0)
return true;
return false;
}
void SubclassingDlg::readUiFile()
{
TQStringList splitPath = TQStringList::split('/',m_formFile);
m_formName = TQStringList::split('.',splitPath[splitPath.count()-1])[0]; // "somedlg.ui" = "somedlg"
splitPath.pop_back();
m_formPath = "/" + splitPath.join("/"); // join path to ui-file
m_btnOk->setEnabled(false);
TQDomDocument doc;
DomUtil::openDOMFile(doc,m_formFile);
m_baseClassName = DomUtil::elementByPathExt(doc,WIDGET_CLASS_NAME).text();
m_baseCaption = DomUtil::elementByPathExt(doc,WIDGET_CAPTION_NAME).text();
setCaption(i18n("Create Subclass of ")+m_baseClassName);
// Special widget specific slots
SlotItem *newSlot;
m_qtBaseClassName = DomUtil::elementByPathExt(doc,"widget").attribute("class",TQDIALOG_OBJECT_NAME_STRING);
if ( (m_qtBaseClassName==TQMAINWINDOW_OBJECT_NAME_STRING) || (m_qtBaseClassName==TQWIDGET_OBJECT_NAME_STRING) )
m_canBeModal = false;
else
m_canBeModal = true;
if (m_qtBaseClassName != TQWIDGET_OBJECT_NAME_STRING)
{
newSlot = new SLOT_ACCEPT;
newSlot->setOn(false);
if (alreadyInSubclass("accept()"))
newSlot->setAllreadyInSubclass();
m_slotView->insertItem(newSlot);
m_slots << newSlot;
newSlot = new SLOT_REJECT;
newSlot->setOn(false);
if (alreadyInSubclass("reject()"))
newSlot->setAllreadyInSubclass();
m_slotView->insertItem(newSlot);
m_slots << newSlot;
}
if (m_qtBaseClassName == TQWIZARD_OBJECT_NAME_STRING)
{
newSlot = new SLOT_NEXT;
m_slotView->insertItem(newSlot);
if (alreadyInSubclass("next()"))
newSlot->setAllreadyInSubclass();
m_slots << newSlot;
newSlot = new SLOT_BACK;
m_slotView->insertItem(newSlot);
if (alreadyInSubclass("back()"))
newSlot->setAllreadyInSubclass();
m_slots << newSlot;
newSlot = new SLOT_HELP;
newSlot->setOn(false);
if (alreadyInSubclass("help()"))
newSlot->setAllreadyInSubclass();
m_slotView->insertItem(newSlot);
m_slots << newSlot;
}
TQDomElement slotsElem = DomUtil::elementByPathExt(doc,WIDGET_SLOTS);
TQDomNodeList slotnodes = slotsElem.childNodes();
for (unsigned int i=0; i<slotnodes.count();i++)
{
TQDomElement slotelem = slotnodes.item(i).toElement();
newSlot = new SlotItem(m_slotView,slotelem.text(),
slotelem.attributeNode("specifier").value(),
slotelem.attributeNode("access").value(),
slotelem.attributeNode("returnType").value(),false);
m_slotView->insertItem(newSlot);
if (alreadyInSubclass(slotelem.text()))
newSlot->setAllreadyInSubclass();
m_slots << newSlot;
}
TQDomElement funcsElem = DomUtil::elementByPathExt(doc,WIDGET_FUNCTIONS);
TQDomNodeList funcnodes = funcsElem.childNodes();
SlotItem *newFunc;
for (unsigned int i=0; i<funcnodes.count();i++)
{
TQDomElement funcelem = funcnodes.item(i).toElement();
newFunc = new SlotItem(m_slotView,funcelem.text(),
funcelem.attributeNode("specifier").value(),
funcelem.attributeNode("access").value(),
funcelem.attributeNode("returnType").value(),true);
m_slotView->insertItem(newFunc);
if (alreadyInSubclass(funcelem.text()))
newFunc->setAllreadyInSubclass();
m_slots << newFunc;
}
TQDomElement connElem = DomUtil::elementByPathExt(doc,"connections");
TQDomNodeList connnodes = connElem.childNodes();
for (unsigned int i=0; i<connnodes.count();i++)
{
TQDomElement connelem = connnodes.item(i).toElement();
connections += "$NEWCLASS$.connect(";
if (connelem.namedItem("sender").toElement().text() == m_baseClassName)
connections += "this";
else
connections += "$NEWCLASS$.child('" + connelem.namedItem("sender").toElement().text() + "')";
connections += ", '" + connelem.namedItem("signal").toElement().text() + "', ";
if (connelem.namedItem("receiver").toElement().text() == m_baseClassName)
connections += "this";
else
connections += "$NEWCLASS$.child('" + connelem.namedItem("receiver").toElement().text() + "')";
connections += ", '" + connelem.namedItem("slot").toElement().text().remove("()") + "');\n";
}
}
SubclassingDlg::~SubclassingDlg()
//===============================
{
}
void SubclassingDlg::updateDlg()
//==============================
{
}
void SubclassingDlg::replace(TQString &string, const TQString& search, const TQString& replace)
//==========================================================================================
{
int nextPos = string.find(search);
unsigned int searchLength = search.length();
while (nextPos>-1)
{
string = string.replace(nextPos,searchLength,replace);
nextPos = string.find(search,nextPos+replace.length());
}
}
bool SubclassingDlg::loadBuffer(TQString &buffer, const TQString& filename)
//======================================================================
{
// open file and buffer it
TQFile dataFile(filename);
if (!dataFile.open(IO_ReadOnly))
return false;
char *temp = new char[dataFile.size()+1];
dataFile.readBlock(temp,dataFile.size());
temp[dataFile.size()]='\0';
buffer = temp;
delete [] temp;
dataFile.close();
return true;
}
bool SubclassingDlg::replaceKeywords(TQString &buffer,bool canBeModal)
//===================================================================
{
replace(buffer,"$NEWFILENAMEUC$",m_edFileName->text().upper());
replace(buffer,"$BASEFILENAMELC$",m_formName.lower());
replace(buffer,"$BASEFILENAME$",m_formName);
replace(buffer,"$NEWCLASS$",m_edClassName->text());
replace(buffer,"$BASECLASS$",m_baseClassName);
replace(buffer,"$NEWFILENAMELC$",m_edFileName->text().lower());
if (canBeModal)
{
replace(buffer,"$CAN_BE_MODAL_H$",", bool modal = FALSE");
replace(buffer,"$CAN_BE_MODAL_CPP1$",", bool modal");
replace(buffer,"$CAN_BE_MODAL_CPP2$",", modal");
}
else
{
replace(buffer,"$CAN_BE_MODAL_H$","");
replace(buffer,"$CAN_BE_MODAL_CPP1$","");
replace(buffer,"$CAN_BE_MODAL_CPP2$","");
}
return true;
}
bool SubclassingDlg::saveBuffer(TQString &buffer, const TQString& filename)
//=======================================================================
{
// save buffer
TQFile dataFile(filename);
if (!dataFile.open(IO_WriteOnly | IO_Truncate))
return false;
dataFile.writeBlock((buffer+"\n").ascii(),(buffer+"\n").length());
dataFile.close();
return true;
}
void SubclassingDlg::accept()
//===========================
{
/* TDEConfig *config = kjsSupportFactory::instance()->config();
if (config)
{
config->setGroup("Subclassing");
config->writeEntry("Reformat Source", reformatDefault_box->isChecked());
}*/
unsigned int i;
// h - file
TQString public_slot =
"/*$PUBLIC_SLOTS$*/\n ";
TQString protected_slot =
"/*$PROTECTED_SLOTS$*/\n ";
TQString public_func =
"/*$PUBLIC_FUNCTIONS$*/\n ";
TQString protected_func =
"/*$PROTECTED_FUNCTIONS$*/\n ";
TQString buffer;
if (m_creatingNewSubclass)
{
loadBuffer(buffer,::locate("data", "kdevkjssupport/subclassing/subclass_template.js"));
kdDebug() << "buffer: " << buffer << endl;
buffer = "var $NEWCLASS$ = Factory.loadui(\"$BASEFILENAME$.ui\", this);\n\n" + buffer;
buffer = FileTemplate::read(m_kjsSupport, "js") + buffer + connections;
kdDebug() << "buffer: " << buffer << endl;
TQFileInfo fi(m_filename + ".js");
TQString module = fi.baseName();
TQString basefilename = fi.baseName(true);
buffer.replace(TQRegExp("\\$MODULE\\$"),module);
buffer.replace(TQRegExp("\\$FILENAME\\$"),basefilename);
}
else
loadBuffer(buffer,m_filename+".js");
// js - file
TQString implementation =
"/*$SPECIALIZATION$*/\n"
"function $METHOD$\n"
"{\n"
"}\n";
replaceKeywords(buffer,m_canBeModal);
for (i=0; i<m_slots.count(); i++)
{
SlotItem *slitem = m_slots[i];
if (!slitem->isOn() ||
slitem->m_alreadyInSubclass)
continue;
TQString impl = implementation;
replace(impl,"$RETURNTYPE$",slitem->m_returnType);
replace(impl,"$NEWCLASS$",m_edClassName->text());
replace(impl,"$METHOD$", slitem->m_methodName);
replace(impl,"$TQTBASECLASS$", m_qtBaseClassName);
replace(buffer,"/*$SPECIALIZATION$*/",impl);
}
kdDebug() << buffer << endl;
if (reformat_box->isChecked())
buffer = m_kjsSupport->sourceFormatter()->formatSource(buffer);
if (m_creatingNewSubclass)
saveBuffer(buffer,m_formPath + "/" + m_edFileName->text()+".js");
else
saveBuffer(buffer,m_filename+".js");
if (m_creatingNewSubclass)
{
m_newFileNames.append(m_formPath + "/" + m_edFileName->text()+".js");
}
SubclassingDlgBase::accept();
}
void SubclassingDlg::onChangedClassName()
//=======================================
{
m_edFileName->setText(m_edClassName->text().lower());
if (m_edFileName->text().isEmpty() ||
m_edClassName->text().isEmpty())
m_btnOk->setEnabled(false);
else
m_btnOk->setEnabled(true);
}
TQString SubclassingDlg::readBaseClassName( )
{
TQDomDocument doc;
DomUtil::openDOMFile(doc,m_formFile);
return DomUtil::elementByPathExt(doc,WIDGET_CLASS_NAME).text();
}