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.
300 lines
9.2 KiB
300 lines
9.2 KiB
/*
|
|
* Copyright (c) 2002-2004 Jesper K. Pedersen <blackie@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 version 2 as published by the Free Software Foundation.
|
|
*
|
|
* 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 "qtregexpconverter.h"
|
|
#include "qtregexphighlighter.h"
|
|
#include "regexp.h"
|
|
#include "textregexp.h"
|
|
#include "altnregexp.h"
|
|
#include "concregexp.h"
|
|
#include "lookaheadregexp.h"
|
|
#include "textrangeregexp.h"
|
|
#include "compoundregexp.h"
|
|
#include "dotregexp.h"
|
|
#include "positionregexp.h"
|
|
#include "repeatregexp.h"
|
|
|
|
extern RegExp* parseTQtRegExp( TQString str, bool *ok );
|
|
extern RegExp* parseDataTQtRegExp();
|
|
|
|
bool TQtRegExpConverter::canParse()
|
|
{
|
|
return true;
|
|
}
|
|
|
|
|
|
RegExp* TQtRegExpConverter::parse( const TQString& txt, bool* ok )
|
|
{
|
|
return parseTQtRegExp( txt, ok );
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( AltnRegExp* regexp, bool markSelection )
|
|
{
|
|
TQString res;
|
|
|
|
bool first = true;
|
|
RegExpList list = regexp->tqchildren();
|
|
for ( RegExpListIt it(list); *it; ++it ) {
|
|
if ( !first ) {
|
|
res += TQString::tqfromLatin1( "|" );
|
|
}
|
|
first = false;
|
|
if ( markSelection && !regexp->isSelected() && (*it)->isSelected() ) {
|
|
res += TQString::tqfromLatin1("(") + toStr( *it, markSelection ) + TQString::tqfromLatin1(")");
|
|
}
|
|
else {
|
|
res += toStr( *it, markSelection );
|
|
}
|
|
}
|
|
return res;
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( ConcRegExp* regexp, bool markSelection )
|
|
{
|
|
TQString res;
|
|
bool childSelected = false;
|
|
|
|
RegExpList list = regexp->tqchildren();
|
|
for ( RegExpListIt it(list); *it; ++it ) {
|
|
TQString startPar = TQString::fromLocal8Bit("");
|
|
TQString endPar = TQString::fromLocal8Bit("");
|
|
if ( (*it)->precedence() < regexp->precedence() ) {
|
|
if ( markSelection )
|
|
startPar = TQString::fromLocal8Bit("(?:");
|
|
else
|
|
startPar = TQString::tqfromLatin1( "(" );
|
|
endPar = TQString::tqfromLatin1( ")" );
|
|
}
|
|
|
|
// Note these two have different tests! They are activated in each their iteration of the loop.
|
|
if ( markSelection && !childSelected && !regexp->isSelected() && (*it)->isSelected() ) {
|
|
res += TQString::tqfromLatin1("(");
|
|
childSelected = true;
|
|
}
|
|
|
|
if ( markSelection && childSelected && !regexp->isSelected() && !(*it)->isSelected() ) {
|
|
res += TQString::tqfromLatin1(")");
|
|
childSelected= false;
|
|
}
|
|
|
|
res += startPar + toStr( *it, markSelection ) + endPar;
|
|
}
|
|
if ( markSelection && childSelected && !regexp->isSelected() ) {
|
|
res += TQString::tqfromLatin1(")");
|
|
}
|
|
return res;
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( LookAheadRegExp* regexp, bool markSelection )
|
|
{
|
|
if ( regexp->lookAheadType() == LookAheadRegExp::POSITIVE )
|
|
return TQString::tqfromLatin1( "(?=" ) + toStr( regexp->child(), markSelection ) + TQString::fromLocal8Bit( ")" );
|
|
else
|
|
return TQString::tqfromLatin1( "(?!" ) + toStr( regexp->child(), markSelection ) + TQString::fromLocal8Bit( ")" );
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( TextRangeRegExp* regexp, bool /*markSelection*/ )
|
|
{
|
|
TQString txt;
|
|
|
|
bool foundCarrot = false;
|
|
bool foundDash = false;
|
|
bool foundParenthesis = false;
|
|
|
|
// Now print the rest of the single characters, but keep "^" as the very
|
|
// last element of the characters.
|
|
TQStringList chars = regexp->chars();
|
|
for (unsigned int i = 0; i< chars.count(); i++) {
|
|
if ( *chars.at(i) == TQChar( ']' ) ) {
|
|
foundParenthesis = true;
|
|
}
|
|
else if ( *chars.at(i) == TQChar( '-' ) ) {
|
|
foundDash = true;
|
|
}
|
|
else if ( *chars.at(i) == TQChar( '^' ) ) {
|
|
foundCarrot = true;
|
|
}
|
|
else {
|
|
txt.append( *chars.at(i) );
|
|
}
|
|
}
|
|
|
|
// Now insert the ranges.
|
|
TQPtrList<StringPair> ranges = regexp->range();
|
|
for ( TQPtrListIterator<StringPair> it(ranges); *it; ++it ) {
|
|
txt.append((*it)->first()+ TQString::tqfromLatin1("-")+ (*it)->second());
|
|
}
|
|
|
|
// Ok, its time to build each part of the regexp, here comes the rule:
|
|
// if a ']' is one of the characters, then it must be the first one in the
|
|
// list (after then opening '[' and eventually negation '^')
|
|
// Next if a '-' is one of the characters, then it must come
|
|
// finally if '^' is one of the characters, then it must not be the first
|
|
// one!
|
|
|
|
TQString res = TQString::tqfromLatin1("[");
|
|
|
|
if ( regexp->negate() )
|
|
res.append(TQString::tqfromLatin1("^"));
|
|
|
|
|
|
// a ']' must be the first character in teh range.
|
|
if ( foundParenthesis ) {
|
|
res.append(TQString::tqfromLatin1("]"));
|
|
}
|
|
|
|
// a '-' must be the first character ( only coming after a ']')
|
|
if ( foundDash ) {
|
|
res.append(TQString::tqfromLatin1("-"));
|
|
}
|
|
|
|
res += txt;
|
|
|
|
// Insert \s,\S,\d,\D,\w, and \W
|
|
if ( regexp->digit() )
|
|
res += TQString::fromLocal8Bit("\\d");
|
|
if ( regexp->nonDigit() )
|
|
res += TQString::fromLocal8Bit("\\D");
|
|
if ( regexp->space() )
|
|
res += TQString::fromLocal8Bit("\\s");
|
|
if ( regexp->nonSpace() )
|
|
res += TQString::fromLocal8Bit("\\S");
|
|
if ( regexp->wordChar() )
|
|
res += TQString::fromLocal8Bit("\\w");
|
|
if ( regexp->nonWordChar() )
|
|
res += TQString::fromLocal8Bit("\\W");
|
|
|
|
|
|
if ( foundCarrot ) {
|
|
res.append( TQChar( '^' ) );
|
|
}
|
|
|
|
res.append(TQString::tqfromLatin1("]"));
|
|
|
|
return res;
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( CompoundRegExp* regexp, bool markSelection )
|
|
{
|
|
if ( markSelection && !regexp->isSelected() && regexp->child()->isSelected() )
|
|
return TQString::tqfromLatin1( "(" ) + toStr( regexp->child(), markSelection ) + TQString::tqfromLatin1( ")" );
|
|
else
|
|
return toStr( regexp->child(), markSelection );
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( DotRegExp* /*regexp*/, bool /*markSelection*/ )
|
|
{
|
|
return TQString::tqfromLatin1( "." );
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( PositionRegExp* regexp, bool /*markSelection*/ )
|
|
{
|
|
switch (regexp->position()) {
|
|
case PositionRegExp::BEGLINE:
|
|
return TQString::tqfromLatin1("^");
|
|
case PositionRegExp::ENDLINE:
|
|
return TQString::tqfromLatin1("$");
|
|
case PositionRegExp::WORDBOUNDARY:
|
|
return TQString::tqfromLatin1("\\b");
|
|
case PositionRegExp::NONWORDBOUNDARY:
|
|
return TQString::tqfromLatin1("\\B");
|
|
}
|
|
Q_ASSERT( false );
|
|
return TQString::tqfromLatin1("");
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( RepeatRegExp* regexp, bool markSelection )
|
|
{
|
|
RegExp* child = regexp->child();
|
|
TQString cText = toStr( child, markSelection );
|
|
TQString startPar;
|
|
TQString endPar;
|
|
|
|
if ( markSelection ) {
|
|
if ( !regexp->isSelected() && child->isSelected()) {
|
|
startPar = TQString::tqfromLatin1( "(" );
|
|
endPar = TQString::tqfromLatin1( ")" );
|
|
}
|
|
else if ( child->precedence() < regexp->precedence() ) {
|
|
startPar = TQString::tqfromLatin1( "(?:" );
|
|
endPar = TQString::tqfromLatin1( ")" );
|
|
}
|
|
}
|
|
else if ( child->precedence() < regexp->precedence() ) {
|
|
startPar = TQString::tqfromLatin1( "(" );
|
|
endPar = TQString::tqfromLatin1( ")" );
|
|
}
|
|
|
|
if ( regexp->min() == 0 && regexp->max() == -1) {
|
|
return startPar + cText +endPar + TQString::fromLocal8Bit("*");
|
|
}
|
|
else if ( regexp->min() == 0 && regexp->max() == 1 ) {
|
|
return startPar + cText + endPar + TQString::fromLocal8Bit("?");
|
|
}
|
|
else if ( regexp->min() == 1 && regexp->max() == -1 ) {
|
|
return startPar + cText + endPar + TQString::fromLocal8Bit("+");
|
|
}
|
|
else if ( regexp->max() == -1 ) {
|
|
return startPar + cText + endPar + TQString::fromLocal8Bit("{") +
|
|
TQString::number( regexp->min() ) + TQString::fromLocal8Bit(",") +
|
|
TQString::fromLocal8Bit("}");
|
|
}
|
|
else {
|
|
return startPar + cText + endPar + TQString::fromLocal8Bit("{") +
|
|
TQString::number( regexp->min() ) + TQString::fromLocal8Bit(",") +
|
|
TQString::number( regexp->max() ) + TQString::fromLocal8Bit("}");
|
|
}
|
|
}
|
|
|
|
TQString TQtRegExpConverter::toString( TextRegExp* regexp, bool /*markSelection*/ )
|
|
{
|
|
TQValueList<TQChar> list;
|
|
list << TQChar('$')
|
|
<< TQChar('^')
|
|
<< TQChar('.')
|
|
<< TQChar('*')
|
|
<< TQChar('+')
|
|
<< TQChar('?')
|
|
<< TQChar('[')
|
|
<< TQChar(']')
|
|
<< TQChar('\\')
|
|
<< TQChar('{')
|
|
<< TQChar('}')
|
|
<< TQChar('(')
|
|
<< TQChar(')')
|
|
<< TQChar('|');
|
|
|
|
TQString res = escape( regexp->text(), list, TQChar('\\') );
|
|
return res;
|
|
}
|
|
|
|
TQString TQtRegExpConverter::name()
|
|
{
|
|
return TQString::tqfromLatin1( "TQt" );
|
|
}
|
|
|
|
int TQtRegExpConverter::features()
|
|
{
|
|
return WordBoundary | NonWordBoundary | PosLookAhead | NegLookAhead | CharacterRangeNonItems | ExtRange;
|
|
}
|
|
|
|
RegexpHighlighter* TQtRegExpConverter::highlighter( TQTextEdit* edit )
|
|
{
|
|
return new QtRegexpHighlighter( edit );
|
|
}
|