#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.replace(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 == "QPL")
    {
      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.findRev('.');
  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.replace(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;
}