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.
tdesdk/kbabel/datatools/regexp/main.cpp

182 lines
4.8 KiB

/* Copyright (C) 2005 Albert Cervera i Areny <albertca at hotpop dot com>
Based on Copyright (C) 1998, 1999 Torben Weis <weis@kde.org>
2002 Stanislav Visnovsky <visnovsky@kde.org>
2003 Dwayne Bailey <dwayne@translate.org.za>
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.
*/
#include <resources.h>
#include "catalog.h"
#include "catalogitem.h"
#include "catalogsettings.h"
#include "main.h"
#include <math.h>
#include <tqdir.h>
#include <tqfile.h>
#include <tqdom.h>
#include <tqstringlist.h>
#include <tqregexp.h>
#include <tdeconfig.h>
#include <kdebug.h>
#include <kgenericfactory.h>
#include <klibloader.h>
#include <tdelocale.h>
#include <tdemessagebox.h>
/***************************************************
*
* Factory
*
***************************************************/
K_EXPORT_COMPONENT_FACTORY( kbabel_regexptool, KGenericFactory<RegExpTool> ( "kbabeldatatool" ) )
using namespace KBabel;
RegExpTool::RegExpTool( TQObject* parent, const char* name, const TQStringList & )
: KDataTool( parent, name )
{
i18n("which check found errors","translation has inconsistent length");
loadExpressions();
if ( ! _error.isNull() )
KMessageBox::error( (TQWidget*)parent, i18n( "Error loading data (%1)" ).arg( _error ) );
}
bool RegExpTool::run( const TQString& command, void* data, const TQString& datatype, const TQString& mimetype )
{
if ( command != "validate" )
{
kdDebug(KBABEL) << "RegExpTool only accepts the 'validate' command" << endl;
kdDebug(KBABEL) << " The command " << command << " is not accepted" << endl;
return false;
}
// Check wether we can accept the data
if ( datatype != "CatalogItem" )
{
kdDebug(KBABEL) << "RegExpTool only accepts the CatalogItem datatype" << endl;
return false;
}
if ( mimetype != "application/x-kbabel-catalogitem" )
{
kdDebug(KBABEL) << "RegExpTool only accepts the 'application/x-kbabel-catalogitem' mimetype" << endl;
return false;
}
bool hasError = false;
if( command == "validate" )
{
CatalogItem* item = (CatalogItem*)(data);
if(!item->isUntranslated()) {
ExpressionList::Iterator it( _list.begin() );
ExpressionList::Iterator end( _list.end() );
TQStringList msgs = item->msgstr();
TQStringList results;
for ( ; it != end; ++it ) {
results.clear();
results = msgs.grep( (*it).regExp() );
if ( results.size() > 0 ) {
hasError = true;
break;
}
}
}
if(hasError) {
item->appendError( "regexp" );
} else {
item->removeError( "regexp" );
}
}
return !hasError;
}
void RegExpTool::loadExpressions()
{
// TODO: Change file path
TQFile file( TQDir::homeDirPath() + "/.trinity/share/apps/kbabel/regexplist.xml" );
TQDomDocument doc;
if ( ! file.open( IO_ReadOnly ) ) {
kdDebug() << "File not found" << endl;
_error = i18n( "File not found" );
return;
}
if ( ! doc.setContent( &file ) ) {
kdDebug() << "Could not set content of xml file" << endl;
_error = i18n( "The file is not a XML" );
return;
}
file.close();
TQDomElement docElem = doc.documentElement();
TQDomNode n = docElem.firstChild();
while( !n.isNull() ) {
TQDomElement e = n.toElement();
if( !e.isNull() )
elementToExpression( e );
if ( ! _error.isNull() )
break;
n = n.nextSibling();
}
}
void RegExpTool::elementToExpression( const TQDomElement& e )
{
TQString name;
TQString exp;
bool cs = false; //Expressions are case insensitive by default
if ( e.tagName().compare( "item" ) != 0 ) {
_error = i18n( "Expected tag 'item'" );
return;
}
TQDomNode n = e.firstChild();
if ( n.isNull() ) {
_error = i18n( "First child of 'item' is not a node" );
return;
}
TQDomElement el = n.toElement();
if ( el.isNull() || el.tagName().compare( "name" ) != 0 ) {
_error = i18n( "Expected tag 'name'" );
return;
}
name = el.text();
n = n.nextSibling();
el = n.toElement();
if ( el.isNull() || el.tagName().compare( "exp" ) != 0 ) {
_error = i18n( "Expected tag 'exp'" );
return;
}
exp = el.text();
n = n.nextSibling();
el = n.toElement();
if ( ! el.isNull() )
cs = true;
kdDebug(KBABEL) << "RegExpTool: Adding expression: " << name << endl;
_list.append( Expression( name, TQRegExp( exp, cs ) ) );
}
#include "main.moc"