|
|
|
/* 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
|
|
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
|
Boston, MA 02110-1301, USA.
|
|
|
|
|
|
|
|
In addition, as a special exception, the copyright holders give
|
|
|
|
permission to link the code of this program with any edition of
|
|
|
|
the TQt library by Trolltech AS, Norway (or with modified versions
|
|
|
|
of TQt that use the same license as TQt), and distribute linked
|
|
|
|
combinations including the two. You must obey the GNU General
|
|
|
|
Public License in all respects for all of the code used other than
|
|
|
|
TQt. If you modify this file, you may extend this exception to
|
|
|
|
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"
|
|
|
|
|
|
|
|
#include <kconfig.h>
|
|
|
|
#include <kdebug.h>
|
|
|
|
#include <kgenericfactory.h>
|
|
|
|
#include <klibloader.h>
|
|
|
|
#include <klocale.h>
|
|
|
|
|
|
|
|
/***************************************************
|
|
|
|
*
|
|
|
|
* Factory
|
|
|
|
*
|
|
|
|
***************************************************/
|
|
|
|
|
|
|
|
K_EXPORT_COMPONENT_FACTORY( kbabel_punctuationtool, KGenericFactory<PunctuationTool> ( "kbabeldatatool" ) )
|
|
|
|
|
|
|
|
using namespace KBabel;
|
|
|
|
|
|
|
|
PunctuationTool::PunctuationTool( TQObject* tqparent, const char* name, const TQStringList & )
|
|
|
|
: KDataTool( tqparent, name )
|
|
|
|
{
|
|
|
|
// bogus translation just for allowing the translation
|
|
|
|
i18n("what check found errors","punctuation");
|
|
|
|
}
|
|
|
|
|
|
|
|
bool PunctuationTool::run( const TQString& command, void* data, const TQString& datatype, const TQString& mimetype )
|
|
|
|
{
|
|
|
|
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())
|
|
|
|
{
|
|
|
|
TQString lineid=item->msgid().first();
|
|
|
|
|
|
|
|
// lookup punctuation in original text
|
|
|
|
TQRegExp punc("[\\.!\\?:]+$");
|
|
|
|
int i = lineid.tqfind(punc);
|
|
|
|
|
|
|
|
TQString t("");
|
|
|
|
|
|
|
|
if( i != -1 ) t = lineid.right(lineid.length()-i);
|
|
|
|
|
|
|
|
if( item->pluralForm() != NoPluralForm )
|
|
|
|
{
|
|
|
|
// check, that both plural forms contain the same punctuation
|
|
|
|
TQString pl = *(item->msgid().at(1));
|
|
|
|
int j = pl.tqfind(punc);
|
|
|
|
|
|
|
|
TQString tp("");
|
|
|
|
if( j != -1 ) tp = pl.right(pl.length()-j);
|
|
|
|
|
|
|
|
if( tp != t )
|
|
|
|
{
|
|
|
|
kdWarning() << "Singular and plural form do not have the same punctuation" << endl;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
TQStringList forms = item->msgstr(true);
|
|
|
|
if( item->pluralForm() == KDESpecific ) {
|
|
|
|
forms = TQStringList::split("\\n",*item->msgstr(true).at(0));
|
|
|
|
}
|
|
|
|
|
|
|
|
for( TQStringList::Iterator form = forms.begin() ; form != forms.end(); form++ )
|
|
|
|
{
|
|
|
|
TQString linestr=(*form);
|
|
|
|
|
|
|
|
int j = linestr.tqfind(punc);
|
|
|
|
|
|
|
|
// 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"
|