//***************************************************************************
/*
 * TOra - An Oracle Toolkit for DBA's and developers
 * Copyright (C) 2000-2001,2001 Underscore AB
 * 
 * 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;  only version 2 of
 * the License is valid for this program.
 * 
 * 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 General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 *
 *      As a special exception, you have permission to link this program
 *      with the Oracle Client libraries and distribute executables, as long
 *      as you follow the requirements of the GNU GPL in regard to all of the
 *      software in the executable aside from Oracle client libraries.
 *
 *      Specifically you are not permitted to link this program with the
 *      Qt/UNIX, Qt/Windows or Qt Non Commercial products of TrollTech.
 *      And you are not permitted to distribute binaries compiled against
 *      these libraries without written consent from Underscore AB. Observe
 *      that this does not disallow linking to the Qt Free Edition.
 *
 * All trademarks belong to their respective owners.
 *
 ****************************************************************************/

#include "utils.h"

#include "toconnection.h"
#include "toresultcols.h"
#include "tosql.h"

#include <map>

#include <qlabel.h>

static toSQL SQLInfo("toResultCols:Info",
		     "SELECT Data_Default,\n"
		     "       Num_Distinct,\n"
		     "       Low_Value,\n"
		     "       High_Value,\n"
		     "       Density,\n"
		     "       Num_Nulls,\n"
		     "       Num_Buckets,\n"
		     "       Last_Analyzed,\n"
		     "       Sample_Size,\n"
		     "       Avg_Col_Len\n"
		     "  FROM sys.All_Tab_Columns\n"
		     " WHERE Owner = :f1<char[100]>\n"
		     "   AND Table_Name = :f2<char[100]>\n"
		     "   AND Column_Name = :f3<char[100]>",
		     "Display analyze statistics about a column",
		     "8.0");
static toSQL SQLInfo7("toResultCols:Info",
		      "SELECT Data_Default,\n"
		      "       Num_Distinct,\n"
		      "       Low_Value,\n"
		      "       High_Value,\n"
		      "       Density,\n"
		      "       NULL,\n"
		      "       NULL,\n"
		      "       NULL,\n"
		      "       NULL,\n"
		      "       NULL\n"
		      "  FROM sys.All_Tab_Columns\n"
		      " WHERE Owner = :f1<char[100]>\n"
		      "   AND Table_Name = :f2<char[100]>\n"
		      "   AND Column_Name = :f3<char[100]>",
		      QString::null,
		      "7.3");

class toResultColsItem : public toResultViewMLine {
public:
  toResultColsItem(QListView *parent,QListViewItem *after)
    : toResultViewMLine(parent,after)
  { }
  virtual QString key (int column,bool ascending)
  {
    if (column==0) {
      QString ret;
      ret.sprintf("%04d",text(0).toInt());
      return ret;
    }
    return toResultViewMLine::key(column,ascending);
  }
  virtual QString tooltip(int col) const
  {
    toResultCols::resultCols *view=dynamic_cast<toResultCols::resultCols *>(listView());
    try {
      toConnection &conn=toCurrentConnection(view);
      if (conn.provider()!="Oracle")
	return QString::null;
      toQList resLst=toQuery::readQueryNull(conn,SQLInfo,
					    text(10),text(11),text(1));
      QString result("<B>");
      result+=(text(1));
      result+=("</B><BR><BR>");

      int any=0;
      QString cur=toShift(resLst);
      if (!cur.isEmpty()) {
	result+=("Default value: <B>");
	result+=(cur);
	result+=("</B><BR><BR>");
	any++;
      }

      QString analyze;
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Distinct values: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Low value: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("High value: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Density: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Number of nulls: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Number of histogram buckets: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Last analyzed: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Sample size: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      cur=toShift(resLst);
      if (!cur.isEmpty()) {
	analyze+=("Average column size: <B>");
	analyze+=(cur);
	analyze+=("</B><BR>");
	any++;
      }
      if (!analyze.isEmpty()) {	
	result+=("<B>Analyze statistics:</B><BR>");
	result+=(analyze);
      }
      if (!any)
	return text(col);
      return result;
    } catch (const QString  &exc) {
      toStatusMessage(exc);
      return text(col);
    }
  }
};

static toSQL SQLTableComment("toResultCols:TableComment",
			     "SELECT Comments FROM sys.All_Tab_Comments\n"
			     " WHERE Owner = :f1<char[100]>\n"
			     "   AND Table_Name = :f2<char[100]>",
			     "Display table comments");

toResultCols::toResultCols(QWidget *parent,const char *name)
  : QVBox(parent,name)
{
  Title=new QLabel(this);
  Columns=new resultCols(this);
  NoCache=false;
}

void toResultCols::query(const QString &,const toQList &param)
{
  toQList subp;

  toConnection &conn=connection();

  QString Owner;
  QString Name;
  QString object;
  
  toQList::iterator cp=((toQList &)param).begin();
  if (cp!=((toQList &)param).end()) {
    object=conn.quote(*cp);
    Owner=*cp;
  }
  cp++;
  if (cp!=((toQList &)param).end()) {
    object+=".";
    object+=conn.quote(*cp);
    Name=*cp;
  } else {
    Name=Owner;
    Owner=connection().user().upper();
  }

  QString synonym;
  try {
    Columns->clear();
    const toConnection::objectName &name=conn.realName(object,synonym,false);

    QString label="<B>";
    if (!synonym.isEmpty()) {
      label+=conn.quote(synonym);
      label+="</B> synonym for <B>";
    }
    label+=conn.quote(name.Owner);
    if (label!="<B>")
      label+=".";
    label+=conn.quote(name.Name);
    
    label+="</B>";
    if (name.Comment) {
      label+=" - ";
      label+=name.Comment;
    }

    Columns->query(name,NoCache);
    NoCache=false;
    Title->setText(label);
  } catch(const QString &) {
    try {
      QString label="<B>";
      label+=object;
      label+="</B> -";
      if (connection().provider()=="Oracle") {
	toQuery query(connection(),SQLTableComment,Owner,Name);
	while(!query.eof()) {
	  label+=" ";
	  label+=query.readValueNull();
	}
      }
      label+=" (Object cache not ready)";
      Columns->query(object,Owner,Name);
      Title->setText(label);
    } catch(const QString &str) {
      Title->setText(str);
      toStatusMessage(str);
    }
  }
}

toResultCols::resultCols::resultCols(QWidget *parent,const char *name)
  : toListView(parent,name)
{
  addColumn("#");
  setColumnAlignment(0,AlignRight);
  addColumn("Column Name");
  addColumn("Data Type");
  addColumn("NULL");
  addColumn("Comments");
  setSorting(0);
}

void toResultCols::resultCols::describe(toQDescList &desc)
{
  int col=1;
  for (toQDescList::iterator i=desc.begin();i!=desc.end();i++) {
    QListViewItem *item=new toResultColsItem(this,NULL);
    
    item->setText(0,QString::number(col++));
    item->setText(1,(*i).Name);
    item->setText(2,(*i).Datatype);
    if ((*i).Null)
      item->setText(3,"NULL");
    else
      item->setText(3,"NOT NULL");
    item->setText(4,(*i).Comment);
    
    item->setText(10,Owner);
    item->setText(11,Name);
  }
}

static toSQL SQLComment("toResultCols:Comments",
			"SELECT Column_name,Comments FROM sys.All_Col_Comments\n"
			" WHERE Owner = :f1<char[100]>\n"
			"   AND Table_Name = :f2<char[100]>",
			"Display column comments");

void toResultCols::resultCols::query(const QString &object,
				     const QString &owner,const QString &name)
{
  try {
    toConnection &conn=toCurrentConnection(this);

    QString sql="SELECT * FROM ";
    if(conn.provider() == "PostgreSQL")
      sql+=name;
    else
      sql+=object;
    sql+=" WHERE NULL=NULL";

    setSQLName(QString("Description of %1").
	       arg(object));

    toQuery query(conn,sql);
    toQDescList desc=query.describe();

    if (conn.provider()=="Oracle") {
      try {
	toQuery query(conn,SQLComment,owner,name);
	while(!query.eof()) {
	  QString col=query.readValueNull();
	  QString com=query.readValueNull();
	  for(toQDescList::iterator i=desc.begin();i!=desc.end();i++) {
	    if ((*i).Name==col) {
	      (*i).Comment=com;
	      break;
	    }
	  }
	}
      } TOCATCH
    }

    Owner=owner;
    Name=name;

    describe(desc);
  } catch(...) {
    toStatusMessage("Failed to describe "+object);
  }
}

void toResultCols::resultCols::query(const toConnection::objectName &name,bool nocache)
{
  try {
    clear();
    toConnection &conn=toCurrentConnection(this);

    setSQLName(QString("Description of %1.%2").
	       arg(conn.quote(name.Owner)).
	       arg(conn.quote(name.Name)));

    toQDescList desc=conn.columns(name,nocache);

    Owner=name.Owner;
    Name=name.Name;

    describe(desc);
  } catch(...) {
    toStatusMessage("Failed to describe "+name.Owner+"."+name.Name);
  }
}