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.
158 lines
4.5 KiB
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
|
|
/* 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 tdespell 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;
|
|
}
|
|
|
|
/* */
|