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/ada/addclass.cpp

352 lines
7.4 KiB

#include <sys/stat.h>
#include <sys/types.h>
#include <tqcheckbox.h>
#include <tqradiobutton.h>
#include <tqtextedit.h>
#include <tqtextstream.h>
#include <tqregexp.h>
#include <tqfile.h>
#include <tqfileinfo.h>
#include <klineedit.h>
#include <kcombobox.h>
#include <keditlistbox.h>
#include <kdebug.h>
#include "addclassdlg.h"
#include "addclass.h"
AddClassInfo::AddClassInfo()
: interfaceOpt(false), abstractOpt(false), finalOpt(false),
createConstructor(true), createMain(false)
{
}
TQString AddClassInfo::adaFileName() const
{
TQString dest = className;
dest.tqreplace(TQRegExp("\\."), "/");
return sourceDir + "/" + dest + ".ada";
}
AddClass::AddClass()
{
}
void AddClass::setInfo(const AddClassInfo &info)
{
m_info = info;
}
AddClassInfo &AddClass::info()
{
return m_info;
}
void AddClass::setBaseClasses(const TQStringList &classes)
{
m_baseClasses = classes;
}
bool AddClass::showDialog()
{
AddClassDlg dlg;
TQString dir = m_info.projectDir;
if (m_info.sourceDir.isEmpty())
m_info.sourceDir = "src";
if (dir.isEmpty())
dir = m_info.sourceDir;
else
dir = dir + "/" + m_info.sourceDir;
dlg.SourcePath->setText(dir);
dlg.ClassName->setText(m_info.className);
dlg.Extends->insertStringList(m_baseClasses);
dlg.Extends->setEditText(m_info.extends);
dlg.Interface->setChecked(m_info.interfaceOpt);
dlg.Abstract->setChecked(m_info.abstractOpt);
dlg.Final->setChecked(m_info.finalOpt);
switch (m_info.visibility)
{
case AddClassInfo::ProtectedClass:
dlg.Protected->setChecked(true);
break;
case AddClassInfo::PrivateClass:
dlg.Private->setChecked(true);
break;
default:
dlg.Public->setChecked(true);
break;
}
dlg.Implements->insertStringList(m_info.implements);
dlg.Constructor->setChecked(m_info.createConstructor);
dlg.Main->setChecked(m_info.createMain);
dlg.Documentation->setText(m_info.documentation);
dlg.License->setEditText(m_info.license);
if (dlg.exec() == TQDialog::Accepted)
{
m_info.projectDir = "";
m_info.sourceDir = dlg.SourcePath->text();
m_info.className = dlg.ClassName->text();
m_info.extends = dlg.Extends->currentText();
m_info.interfaceOpt = dlg.Interface->isChecked();
m_info.abstractOpt = dlg.Abstract->isChecked();
m_info.finalOpt = dlg.Final->isChecked();
if (dlg.Protected->isChecked())
m_info.visibility = AddClassInfo::ProtectedClass;
else if (dlg.Private->isChecked())
m_info.visibility = AddClassInfo::PrivateClass;
else
m_info.visibility = AddClassInfo::PublicClass;
m_info.implements = dlg.Implements->items();
m_info.createConstructor = dlg.Constructor->isChecked();
m_info.createMain = dlg.Main->isChecked();
m_info.documentation = dlg.Documentation->text();
m_info.license = dlg.License->currentText();
return true;
}
return false;
}
static bool makeDirs(const TQString &dest)
{
TQStringList dirs = TQStringList::split("/", dest);
TQString d = "";
for (TQStringList::Iterator it=dirs.begin(); it != dirs.end(); ++it)
{
d = d + "/" + *it;
TQFileInfo fi(d);
if (fi.exists() && !fi.isDir())
{
/// @todo message to user!
return false;
}
if (!fi.exists())
if (::mkdir(TQFile::encodeName(d), 0755) != 0)
return false;
}
return true;
}
bool AddClass::generate()
{
TQString code;
// license
if (!m_info.license.isEmpty())
{
code += "/*\n";
if (m_info.license == "GPL")
{
code +=
" * This program is free software; you can redistribute it and/or modify\n"
" * it under the terms of the GNU General Public License as published by\n"
" * the Free Software Foundation; either version 2 of the License, or\n"
" * (at your option) any later version.\n";
}
else if (m_info.license == "LGPL")
{
code +=
" * This program is free software; you can redistribute it and/or modify\n"
" * it under the terms of the GNU Library General Public License as\n"
" * published by the Free Software Foundation; either version 2 of the\n"
" * License, or (at your option) any later version.\n";
}
else if (m_info.license == "TQPL")
{
code +=
" * This program may be distributed under the terms of the Q Public\n"
" * License as defined by Trolltech AS of Norway and appearing in the\n"
" * file LICENSE.TQPL included in the packaging of this file.\n"
" *\n"
" * This program is distributed in the hope that it will be useful,\n"
" * but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
" * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n";
}
else
{
code += " * This program is licensed under the " + m_info.license + ".\n";
code += " * Please see the documentation for details.\n";
}
code += " */\n\n\n";
}
// find class and package name
TQString className, packageName;
int i = m_info.className.tqfindRev('.');
if (i == -1)
{
packageName = "";
className = m_info.className;
}
else
{
packageName = m_info.className.left(i);
className = m_info.className.mid(i+1);
}
// package
if (!packageName.isEmpty())
code += "package " + packageName + ";\n\n\n";
// documentation
if (!m_info.documentation.isEmpty())
{
code += "/**\n";
TQTextStream ts(&m_info.documentation, IO_ReadOnly);
while (!ts.eof())
code += " * " + ts.readLine() + "\n";
code += " */\n\n";
}
// visibility
switch (m_info.visibility)
{
case AddClassInfo::PrivateClass:
code += "private";
break;
case AddClassInfo::ProtectedClass:
code += "protected";
break;
default:
code += "public";
break;
}
// abstract, final
if (!m_info.interfaceOpt)
{
if (m_info.abstractOpt)
code += " abstract";
if (m_info.finalOpt)
code += " final";
}
// generate class/interface declaration
if (m_info.interfaceOpt)
code += " interface ";
else
code += " class ";
// classname
code += className;
// extends
if (!m_info.extends.isEmpty())
code += " extends " + m_info.extends;
// implements
if ((m_info.implements.count() > 0) && !m_info.interfaceOpt)
{
code += " implements ";
unsigned int c=0;
for (TQStringList::Iterator it = m_info.implements.begin(); it != m_info.implements.end(); ++it, c++)
{
code += *it;
if (c+1 < m_info.implements.count())
code += ", ";
}
}
// body start
code += "\n{\n\n";
// default constructor
if (m_info.createConstructor && !m_info.interfaceOpt)
{
code += " " + className + "()\n";
code += " {\n";
if (!m_info.extends.isEmpty())
code += " super();\n";
code += " }\n\n";
}
// main method
if (m_info.createMain && !m_info.interfaceOpt)
{
code += " public static void main(String[] args)\n";
code += " {\n";
code += " }\n\n";
}
// body end
code += "};\n";
// create directories
TQString dest = packageName;
dest.tqreplace(TQRegExp("\\."), "/");
dest = m_info.sourceDir + "/" + dest;
if (!makeDirs(dest))
return false;
// write out the file
if (TQFile::exists(m_info.adaFileName()))
{
/// @todo ask before overwriting!
}
TQFile of(m_info.adaFileName());
if (!of.open(IO_WriteOnly))
{
/// @todo message to user
return false;
}
TQTextStream os(&of);
os << code;
of.close();
return true;
}