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.
tdegraphics/kooka/ocrword.cpp

158 lines
4.5 KiB

/***************************************************************************
ocrword.cpp - ocr-result word and wordlist
-------------------
begin : Fri Jan 10 2003
copyright : (C) 2003 by Klaas Freitag
email : freitag@suse.de
***************************************************************************/
/***************************************************************************
* *
* This file may be distributed and/or modified under the terms of the *
* GNU General Public License version 2 as published by the Free Software *
* Foundation and appearing in the file COPYING included in the *
* packaging of this file. *
*
* As a special exception, permission is given to link this program *
* with any version of the KADMOS ocr/icr engine of reRecognition GmbH, *
* Kreuzlingen and distribute the resulting executable without *
* including the source code for KADMOS in the source distribution. *
*
* As a special exception, permission is given to link this program *
* with any edition of TQt, and distribute the resulting executable, *
* without including the source code for TQt in the source distribution. *
* *
***************************************************************************/
#include <tqstring.h>
#include "ocrword.h"
#include <tqrect.h>
#include <tqptrlist.h>
#include <kdebug.h>
#include <tqregexp.h>
/* -------------------- ocrWord -------------------- */
ocrWord::ocrWord( const TQString& s )
: TQString(s)
{
}
ocrWord::ocrWord() : TQString()
{
}
#if 0
TQRect ocrWord::boundingRect()
{
TQRect r;
return r;
}
#endif
/* -------------------- CocrWordList ------------------ */
ocrWordList::ocrWordList()
:TQValueList<ocrWord>(),
m_block(0)
{
// setAutoDelete( true );
}
TQStringList ocrWordList::stringList()
{
TQStringList res;
TQRegExp rx("[,\\.-]");
ocrWordList::iterator it;
for ( it = begin(); it != end(); ++it )
{
#if 0
13 years ago
/* Uncommented this to prevent an error that occurs if the length of the
* spellchecked stringlist and the ocr_page wordlist are not the same length.
* For the ocrpage words connected with a dash are one word while the code
* below parts them into two. That confuses the replacement code if the user
* decided. Solution: KSpell should treat dash-linked words correctly.
* We live with the problem here that dashes bring confusion ;-)
*/
if( (*it).contains( rx ) )
res += TQStringList::split( rx, (*it) );
else
#endif
res << *it;
}
return res;
}
bool ocrWordList::updateOCRWord( const TQString& from, const TQString& to )
{
ocrWordList::iterator it;
bool res = false;
for( it = begin(); it != end(); ++it )
{
TQString word = (*it);
kdDebug(28000) << "updateOCRWord in list: Comparing word " << word << endl;
if( word.contains( from, true ) ) // case sensitive search
{
word.replace( from, to );
*it = ocrWord( word );
res = true;
break;
}
}
return res;
}
TQRect ocrWordList::wordListRect()
{
TQRect rect;
ocrWordList::iterator it;
for( it = begin(); it != end(); ++it )
{
rect = rect.unite( (*it).rect() );
}
return rect;
}
/*
* since kspell removes , - | / etc. from words while they remain in the words
* in the ocr wordlist.
* This search goes through the wordlist and tries to find the words without caring
* for special chars. It simply removes all chars from the words that are not alphanumeric.
*/
bool ocrWordList::findFuzzyIndex( const TQString& word, ocrWord& resWord )
{
ocrWordList::iterator it;
bool res = false;
for( it = begin(); it != end() && !res; ++it )
{
TQString fuzzyword = (*it);
fuzzyword.remove( TQRegExp( "\\W" )); // Remove all non-word characters.
fuzzyword.remove( '_' );
// kdDebug(28000) << "findFuzzy: Comparing word " << fuzzyword << " which was "
// << (*it) << " with " << word << endl;
if( fuzzyword == word )
{
resWord = *it;
res = true;
}
}
return res;
}
void ocrWordList::setBlock( int b )
{
m_block = b;
}
/* */