1 files changed, 221 insertions, 0 deletions
diff --git a/kate/part/katespell.cpp b/kate/part/katespell.cpp
new file mode 100644
index 000000000..1afd8d53f
--- /dev/null
+++ b/kate/part/katespell.cpp
@@ -0,0 +1,221 @@
+/* This file is part of the KDE libraries
+   Copyright (C) 2004-2005 Anders Lund <anders@alweb.dk>
+   Copyright (C) 2003 Clarence Dang <dang@kde.org>
+   Copyright (C) 2002 John Firebaugh <jfirebaugh@kde.org>
+   Copyright (C) 2001-2004 Christoph Cullmann <cullmann@kde.org>
+   Copyright (C) 2001 Joseph Wenninger <jowenn@kde.org>
+   Copyright (C) 1999 Jochen Wilhelmy <digisnap@cs.tu-berlin.de>
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public
+   License version 2 as published by the Free Software Foundation.
+
+   This library 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
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public License
+   along with this library; see the file COPYING.LIB.  If not, write to
+   the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+   Boston, MA 02110-1301, USA.
+*/
+
+#include "katespell.h"
+#include "katespell.moc"
+
+#include "kateview.h"
+
+#include <kaction.h>
+#include <kstdaction.h>
+#include <kspell.h>
+#include <ksconfig.h>
+#include <kdebug.h>
+#include <kmessagebox.h>
+
+KateSpell::KateSpell( KateView* view )
+  : QObject( view )
+  , m_view (view)
+  , m_kspell (0)
+{
+}
+
+KateSpell::~KateSpell()
+{
+  // kspell stuff
+  if( m_kspell )
+  {
+    m_kspell->setAutoDelete(true);
+    m_kspell->cleanUp(); // need a way to wait for this to complete
+    delete m_kspell;
+  }
+}
+
+void KateSpell::createActions( KActionCollection* ac )
+{
+   KStdAction::spelling( this, SLOT(spellcheck()), ac );
+   KAction *a = new KAction( i18n("Spelling (from cursor)..."), "spellcheck", 0, this, SLOT(spellcheckFromCursor()), ac, "tools_spelling_from_cursor" );
+   a->setWhatsThis(i18n("Check the document's spelling from the cursor and forward"));
+
+   m_spellcheckSelection = new KAction( i18n("Spellcheck Selection..."), "spellcheck", 0, this, SLOT(spellcheckSelection()), ac, "tools_spelling_selection" );
+   m_spellcheckSelection->setWhatsThis(i18n("Check spelling of the selected text"));
+}
+
+void KateSpell::updateActions ()
+{
+  m_spellcheckSelection->setEnabled (m_view->hasSelection ());
+}
+
+void KateSpell::spellcheckFromCursor()
+{
+  spellcheck( KateTextCursor(m_view->cursorLine(), m_view->cursorColumnReal()) );
+}
+
+void KateSpell::spellcheckSelection()
+{
+  KateTextCursor from( m_view->selStartLine(), m_view->selStartCol() );
+  KateTextCursor to( m_view->selEndLine(), m_view->selEndCol() );
+  spellcheck( from, to );
+}
+
+void KateSpell::spellcheck()
+{
+  spellcheck( KateTextCursor( 0, 0 ) );
+}
+
+void KateSpell::spellcheck( const KateTextCursor &from, const KateTextCursor &to )
+{
+  m_spellStart = from;
+  m_spellEnd = to;
+
+  if ( to.line() == 0 && to.col() == 0 )
+  {
+    int lln = m_view->doc()->lastLine();
+    m_spellEnd.setLine( lln );
+    m_spellEnd.setCol( m_view->doc()->lineLength( lln ) );
+  }
+
+  m_spellPosCursor = from;
+  m_spellLastPos = 0;
+
+  QString mt = m_view->doc()->mimeType()/*->name()*/;
+
+  KSpell::SpellerType type = KSpell::Text;
+  if ( mt == "text/x-tex" || mt == "text/x-latex" )
+    type = KSpell::TeX;
+  else if ( mt == "text/html" || mt == "text/xml" || mt == "text/docbook" || mt == "application/x-php")
+    type = KSpell::HTML;
+
+  KSpellConfig *ksc = new KSpellConfig;
+  QStringList ksEncodings;
+  ksEncodings << "US-ASCII" << "ISO 8859-1" << "ISO 8859-2" << "ISO 8859-3"
+      << "ISO 8859-4" << "ISO 8859-5" << "ISO 8859-7" << "ISO 8859-8"
+      << "ISO 8859-9" << "ISO 8859-13" << "ISO 8859-15" << "UTF-8"
+      << "KOI8-R" << "KOI8-U" << "CP1251" << "CP1255";
+
+  int enc = ksEncodings.findIndex( m_view->doc()->encoding() );
+  if ( enc > -1 )
+  {
+    ksc->setEncoding( enc );
+    kdDebug(13020)<<"KateSpell::spellCheck(): using encoding: "<<enc<<" ("<<ksEncodings[enc]<<") and KSpell::Type "<<type<<" (for '"<<mt<<"')"<<endl;
+  }
+  else
+    kdDebug(13020)<<"KateSpell::spellCheck(): using encoding: "<<enc<<" and KSpell::Type "<<type<<" (for '"<<mt<<"')"<<endl;
+
+  m_kspell = new KSpell( m_view, i18n("Spellcheck"),
+                         this, SLOT(ready(KSpell *)), ksc, true, true, type );
+
+  connect( m_kspell, SIGNAL(death()),
+           this, SLOT(spellCleanDone()) );
+
+  connect( m_kspell, SIGNAL(misspelling(const QString&, const QStringList&, unsigned int)),
+           this, SLOT(misspelling(const QString&, const QStringList&, unsigned int)) );
+  connect( m_kspell, SIGNAL(corrected(const QString&, const QString&, unsigned int)),
+           this, SLOT(corrected(const QString&, const QString&, unsigned int)) );
+  connect( m_kspell, SIGNAL(done(const QString&)),
+           this, SLOT(spellResult(const QString&)) );
+}
+
+void KateSpell::ready(KSpell *)
+{
+  m_kspell->setProgressResolution( 1 );
+
+  m_kspell->check( m_view->doc()->text( m_spellStart.line(), m_spellStart.col(), m_spellEnd.line(), m_spellEnd.col() ) );
+
+  kdDebug (13020) << "SPELLING READY STATUS: " << m_kspell->status () << endl;
+}
+
+void KateSpell::locatePosition( uint pos, uint& line, uint& col )
+{
+  uint remains;
+
+  while ( m_spellLastPos < pos )
+  {
+    remains = pos - m_spellLastPos;
+    uint l = m_view->doc()->lineLength( m_spellPosCursor.line() ) - m_spellPosCursor.col();
+    if ( l > remains )
+    {
+      m_spellPosCursor.setCol( m_spellPosCursor.col() + remains );
+      m_spellLastPos = pos;
+    }
+    else
+    {
+      m_spellPosCursor.setLine( m_spellPosCursor.line() + 1 );
+      m_spellPosCursor.setCol(0);
+      m_spellLastPos += l + 1;
+    }
+  }
+
+  line = m_spellPosCursor.line();
+  col = m_spellPosCursor.col();
+}
+
+void KateSpell::misspelling( const QString& origword, const QStringList&, unsigned int pos )
+{
+  uint line, col;
+
+  locatePosition( pos, line, col );
+
+  m_view->setCursorPositionInternal (line, col, 1);
+  m_view->setSelection( line, col, line, col + origword.length() );
+}
+
+void KateSpell::corrected( const QString& originalword, const QString& newword, unsigned int pos )
+{
+  uint line, col;
+
+  locatePosition( pos, line, col );
+
+  m_view->doc()->removeText( line, col, line, col + originalword.length() );
+  m_view->doc()->insertText( line, col, newword );
+}
+
+void KateSpell::spellResult( const QString& )
+{
+  m_view->clearSelection();
+  m_kspell->cleanUp();
+}
+
+void KateSpell::spellCleanDone()
+{
+  KSpell::spellStatus status = m_kspell->status();
+
+  if( status == KSpell::Error ) {
+    KMessageBox::sorry( 0,
+      i18n("The spelling program could not be started. "
+           "Please make sure you have set the correct spelling program "
+           "and that it is properly configured and in your PATH."));
+  } else if( status == KSpell::Crashed ) {
+    KMessageBox::sorry( 0,
+      i18n("The spelling program seems to have crashed."));
+  }
+
+  delete m_kspell;
+  m_kspell = 0;
+
+  kdDebug (13020) << "SPELLING END" << endl;
+}
+//END
+
+
+// kate: space-indent on; indent-width 2; replace-tabs on;