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
15 years ago
|
/* This file is part of KBabel
|
||
|
based Copyright (C) 1998, 1999 Torben Weis <weis@kde.org>
|
||
|
2003 Stanislav Visnovsky <visnovsky@kde.org>
|
||
|
|
||
|
This library is free software; you can redistribute it and/or
|
||
|
modify it under the terms of the GNU Library General Public
|
||
|
License as published by the Free Software Foundation; either
|
||
|
version 2 of the License, or (at your option) any later version.
|
||
|
|
||
|
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
|
||
15 years ago
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||
|
Boston, MA 02110-1301, USA.
|
||
15 years ago
|
|
||
|
In addition, as a special exception, the copyright holders give
|
||
|
permission to link the code of this program with any edition of
|
||
14 years ago
|
the TQt library by Trolltech AS, Norway (or with modified versions
|
||
|
of TQt that use the same license as TQt), and distribute linked
|
||
15 years ago
|
combinations including the two. You must obey the GNU General
|
||
|
Public License in all respects for all of the code used other than
|
||
14 years ago
|
TQt. If you modify this file, you may extend this exception to
|
||
15 years ago
|
your version of the file, but you are not obligated to do so. If
|
||
|
you do not wish to do so, delete this exception statement from
|
||
|
your version.
|
||
|
|
||
|
*/
|
||
|
|
||
|
#include <resources.h>
|
||
|
#include "catalogitem.h"
|
||
|
#include "catalogsettings.h"
|
||
|
#include "main.h"
|
||
|
|
||
12 years ago
|
#include <tdeconfig.h>
|
||
15 years ago
|
#include <kdebug.h>
|
||
|
#include <kgenericfactory.h>
|
||
|
#include <klibloader.h>
|
||
12 years ago
|
#include <tdelocale.h>
|
||
15 years ago
|
|
||
|
/***************************************************
|
||
|
*
|
||
|
* Factory
|
||
|
*
|
||
|
***************************************************/
|
||
|
|
||
|
K_EXPORT_COMPONENT_FACTORY( kbabel_punctuationtool, KGenericFactory<PunctuationTool> ( "kbabeldatatool" ) )
|
||
|
|
||
|
using namespace KBabel;
|
||
|
|
||
13 years ago
|
PunctuationTool::PunctuationTool( TQObject* parent, const char* name, const TQStringList & )
|
||
|
: KDataTool( parent, name )
|
||
15 years ago
|
{
|
||
|
// bogus translation just for allowing the translation
|
||
|
i18n("what check found errors","punctuation");
|
||
|
}
|
||
|
|
||
15 years ago
|
bool PunctuationTool::run( const TQString& command, void* data, const TQString& datatype, const TQString& mimetype )
|
||
15 years ago
|
{
|
||
|
if ( command != "validate" )
|
||
|
{
|
||
|
kdDebug(KBABEL) << "Punctuation Tool does only accept the command 'validate'" << endl;
|
||
|
kdDebug(KBABEL) << " The commands " << command << " is not accepted" << endl;
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
// Check wether we can accept the data
|
||
|
if ( datatype != "CatalogItem" )
|
||
|
{
|
||
|
kdDebug(KBABEL) << "Punctuation Tool only accepts datatype CatalogItem" << endl;
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
if ( mimetype != "application/x-kbabel-catalogitem" )
|
||
|
{
|
||
|
kdDebug(KBABEL) << "Punctuation Tool only accepts mimetype application/x-kbabel-catalogitem" << endl;
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
if( command == "validate" )
|
||
|
{
|
||
|
CatalogItem* item = (CatalogItem*)(data);
|
||
|
|
||
|
bool hasError = false;
|
||
|
|
||
|
if(!item->isUntranslated())
|
||
|
{
|
||
15 years ago
|
TQString lineid=item->msgid().first();
|
||
15 years ago
|
|
||
|
// lookup punctuation in original text
|
||
15 years ago
|
TQRegExp punc("[\\.!\\?:]+$");
|
||
13 years ago
|
int i = lineid.find(punc);
|
||
15 years ago
|
|
||
15 years ago
|
TQString t("");
|
||
15 years ago
|
|
||
|
if( i != -1 ) t = lineid.right(lineid.length()-i);
|
||
|
|
||
|
if( item->pluralForm() != NoPluralForm )
|
||
|
{
|
||
|
// check, that both plural forms contain the same punctuation
|
||
15 years ago
|
TQString pl = *(item->msgid().at(1));
|
||
13 years ago
|
int j = pl.find(punc);
|
||
15 years ago
|
|
||
15 years ago
|
TQString tp("");
|
||
15 years ago
|
if( j != -1 ) tp = pl.right(pl.length()-j);
|
||
|
|
||
|
if( tp != t )
|
||
|
{
|
||
|
kdWarning() << "Singular and plural form do not have the same punctuation" << endl;
|
||
|
}
|
||
|
}
|
||
|
|
||
15 years ago
|
TQStringList forms = item->msgstr(true);
|
||
15 years ago
|
if( item->pluralForm() == KDESpecific ) {
|
||
15 years ago
|
forms = TQStringList::split("\\n",*item->msgstr(true).at(0));
|
||
15 years ago
|
}
|
||
|
|
||
15 years ago
|
for( TQStringList::Iterator form = forms.begin() ; form != forms.end(); form++ )
|
||
15 years ago
|
{
|
||
15 years ago
|
TQString linestr=(*form);
|
||
15 years ago
|
|
||
13 years ago
|
int j = linestr.find(punc);
|
||
15 years ago
|
|
||
|
// there is no punctuation in original, but one in the translation
|
||
|
if( i == -1 && j != i )
|
||
|
{
|
||
|
hasError = true;
|
||
|
break;
|
||
|
}
|
||
|
|
||
|
// there is punctuation in original, but not same as in the translation
|
||
|
if( i != -1 && linestr.right(linestr.length()-j) != t )
|
||
|
{
|
||
|
hasError = true;
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if(hasError)
|
||
|
{
|
||
|
item->appendError( "punctuation" );
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
item->removeError( "punctuation" );
|
||
|
}
|
||
|
|
||
|
return !hasError;
|
||
|
}
|
||
|
return FALSE;
|
||
|
}
|
||
|
|
||
|
#include "main.moc"
|