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.
tdevelop/parts/regexptest/regexptestdlg.cpp

256 lines
7.9 KiB

/***************************************************************************
* Copyright (C) 2001 by Bernd Gehrmann *
* bernd@tdevelop.org *
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#include "regexptestdlg.h"
#include <sys/types.h>
#include <string.h>
#include <stdlib.h>
#include <regex.h>
#include <tqlabel.h>
#include <tqlistview.h>
#include <tqradiobutton.h>
#include <tqpushbutton.h>
#include <tqregexp.h>
#include <klineedit.h>
#include <tdeversion.h>
#include <kregexp.h>
#include <kdebug.h>
#include <kglobalsettings.h>
#include <klocale.h>
#include <kparts/part.h>
#include <ktexteditor/viewcursorinterface.h>
#include <ktexteditor/editinterface.h>
#include <kparts/componentfactory.h>
#include <kregexpeditorinterface.h>
#include "kdevplugin.h"
#include "kdevpartcontroller.h"
RegexpTestDialog::RegexpTestDialog(KDevPlugin *part)
: RegexpTestDialogBase(0, "regexp test dialog", false), _regexp_dialog(0)
{
pattern_edit->setFocus();
pattern_edit->setFont(TDEGlobalSettings::fixedFont());
teststring_edit->setFont(TDEGlobalSettings::fixedFont());
subgroups_listview->setSorting(0);
m_part = part;
}
RegexpTestDialog::~RegexpTestDialog()
{}
void RegexpTestDialog::showEvent(TQShowEvent *)
{
KParts::ReadWritePart *rwpart = dynamic_cast<KParts::ReadWritePart*>
(m_part->partController()->activePart());
insertbutton->setEnabled(rwpart);
}
void RegexpTestDialog::somethingChanged()
{
success_label->clear();
subgroups_listview->clear();
if ( qregexp_button->isChecked() || qregexp_min_button->isChecked() )
checkTQRegExp();
else if ( kregexp_button->isChecked() )
checkKRegExp();
else
checkPOSIX();
}
void RegexpTestDialog::checkTQRegExp()
{
TQRegExp rx( pattern_edit->text() );
rx.setMinimal( qregexp_min_button->isChecked() );
if ( !rx.isValid() ) {
success_label->setText( rx.errorString() );
return;
}
if ( rx.search( teststring_edit->text() ) < 0 ) {
success_label->setText( i18n( "No match" ) );
return;
}
success_label->setText( i18n("Successfully matched") );
int numCaptures = rx.numCaptures() + 1;
for ( int i = 0; i < numCaptures; ++i ) {
new TQListViewItem( subgroups_listview, TQString::number( i ), rx.cap( i ) );
}
}
void RegexpTestDialog::checkKRegExp()
{
KRegExp rx;
if ( !rx.compile( pattern_edit->text().latin1() ) ) {
success_label->setText( i18n( "Compile error, your regexp is invalid" ) );
return;
}
if ( !rx.match( teststring_edit->text().latin1() ) ) {
success_label->setText( i18n( "No match" ) );
return;
}
success_label->setText( i18n("Successfully matched") );
for ( int i = 0; i <= 9; ++i ) {
const char* grp = rx.group( i );
if ( grp )
new TQListViewItem( subgroups_listview, TQString::number( i ), TQString( grp ) );
}
}
void RegexpTestDialog::checkPOSIX()
{
regex_t compiledPattern;
regmatch_t matches[20];
int cflags = extendedposix_button->isChecked()? REG_EXTENDED : 0;
TQCString regexp = pattern_edit->text().local8Bit();
int res = regcomp(&compiledPattern, regexp, cflags);
if (res != 0) {
TQString regcompMessage;
switch (res)
{
case REG_BADRPT:
regcompMessage = i18n("Repetition operators must not appear as first character");
break;
case REG_BADBR:
regcompMessage = i18n("Invalid use of back reference operator");
break;
case REG_EBRACE:
regcompMessage = i18n("Unmatched brace interval operators");
break;
case REG_EBRACK:
regcompMessage = i18n("Unmatched bracket list operators");
break;
case REG_ERANGE:
regcompMessage = i18n("Invalid use of range operator");
break;
case REG_ECTYPE:
regcompMessage = i18n("Unknown character class");
break;
case REG_ECOLLATE:
regcompMessage = i18n("Invalid collating element");
break;
case REG_EPAREN:
regcompMessage = i18n("Unmatched parenthesis group operators");
break;
case REG_ESUBREG:
regcompMessage = i18n("Invalid back reference to subexpression");
break;
case REG_EESCAPE:
regcompMessage = i18n("Trailing backslash");
break;
case REG_BADPAT:
regcompMessage = i18n("Invalid use of pattern operators");
break;
#ifdef REG_ESIZE
case REG_ESIZE:
regcompMessage = i18n("Regular expression too large");
break;
#endif
default:
regcompMessage = i18n("Unknown error");
break;
}
success_label->setText(regcompMessage);
return;
}
for (int i = 0; i < 20; ++i) {
matches[i].rm_so = -1;
matches[i].rm_eo = -1;
}
TQCString testString = teststring_edit->text().local8Bit();
res = regexec(&compiledPattern, testString, 20, matches, 0);
if (res != 0) {
success_label->setText(i18n("No match"));
return;
}
success_label->setText(i18n("Successfully matched"));
int len = testString.length();
for (int i = 0; i < 20; ++i) {
if (matches[i].rm_so >= 0 && matches[i].rm_so <= len &&
matches[i].rm_eo >= 0 && matches[i].rm_eo <= len &&
matches[i].rm_so <= matches[i].rm_eo) {
TQCString subGroup = testString.mid(matches[i].rm_so, matches[i].rm_eo - matches[i].rm_so);
new TQListViewItem(subgroups_listview, TQString::number(i), subGroup);
}
}
regfree(&compiledPattern);
}
void RegexpTestDialog::insertQuoted()
{
TQString rawstr = pattern_edit->text();
TQString str;
int len = rawstr.length();
for (int i=0; i < len; ++i) {
TQChar ch = rawstr[i];
if (ch == '"')
str += "\\\"";
else if (ch == '\\')
str += "\\\\";
else
str += ch;
}
KParts::ReadWritePart *rwpart
= dynamic_cast<KParts::ReadWritePart*>(m_part->partController()->activePart());
TQWidget *view = m_part->partController()->activeWidget();
KTextEditor::EditInterface *editiface
= dynamic_cast<KTextEditor::EditInterface*>(rwpart);
if (!editiface) {
kdDebug() << "no edit" << endl;
return;
}
KTextEditor::ViewCursorInterface *cursoriface
= dynamic_cast<KTextEditor::ViewCursorInterface*>(view);
if (!cursoriface) {
kdDebug() << "no viewcursor" << endl;
return;
}
uint line, col;
cursoriface->cursorPositionReal(&line, &col);
editiface->insertText(line, col, str);
reject();
}
void RegexpTestDialog::showRegExpEditor( )
{
_regexp_dialog = KParts::ComponentFactory::createInstanceFromQuery<TQDialog>( "KRegExpEditor/KRegExpEditor" );
if ( _regexp_dialog )
{
KRegExpEditorInterface *editor =
static_cast<KRegExpEditorInterface *>( _regexp_dialog->tqt_cast( "KRegExpEditorInterface" ) );
editor->setRegExp( pattern_edit->text() );
if ( _regexp_dialog->exec() == TQDialog::Accepted )
{
pattern_edit->setText( editor->regExp() );
}
}
}
#include "regexptestdlg.moc"