|
|
|
/**********************************************************************
|
|
|
|
** Copyright (C) 2000 Trolltech AS. All rights reserved.
|
|
|
|
**
|
|
|
|
** This file is part of Qt Designer.
|
|
|
|
**
|
|
|
|
** This file may be distributed and/or modified under the terms of the
|
|
|
|
** GNU General Public License version 2 as published by the Free Software
|
|
|
|
** Foundation and appearing in the file LICENSE.GPL included in the
|
|
|
|
** packaging of this file.
|
|
|
|
**
|
|
|
|
** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
|
|
|
|
** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**
|
|
|
|
** See http://www.trolltech.com/gpl/ for GPL licensing information.
|
|
|
|
**
|
|
|
|
** Contact info@trolltech.com if any conditions of this licensing are
|
|
|
|
** not clear to you.
|
|
|
|
**
|
|
|
|
** 08/2003 : Initial release of rbuic, the QtRuby User Interface Compiler,
|
|
|
|
** a work derived from the PerlQt puic.
|
|
|
|
**
|
|
|
|
** Richard Dale
|
|
|
|
**
|
|
|
|
**********************************************************************/
|
|
|
|
|
|
|
|
#include "parser.h"
|
|
|
|
#include <tqobject.h>
|
|
|
|
#include <tqstringlist.h>
|
|
|
|
|
|
|
|
class NormalizeObject : public TQObject
|
|
|
|
{
|
|
|
|
public:
|
|
|
|
NormalizeObject() : TTQObject() {}
|
|
|
|
static TTQCString normalizeSignalSlot( const char *signalSlot ) { return TTQObject::normalizeSignalSlot( signalSlot ); }
|
|
|
|
};
|
|
|
|
|
|
|
|
TTQString Parser::cleanArgs( const TTQString &func )
|
|
|
|
{
|
|
|
|
TTQString slot( func );
|
|
|
|
int begin = slot.find( "(" ) + 1;
|
|
|
|
TTQString args = slot.mid( begin );
|
|
|
|
args = args.left( args.find( ")" ) );
|
|
|
|
TTQStringList lst = TTQStringList::split( ',', args );
|
|
|
|
TTQString res = slot.left( begin );
|
|
|
|
for ( TTQStringList::Iterator it = lst.begin(); it != lst.end(); ++it ) {
|
|
|
|
if ( it != lst.begin() )
|
|
|
|
res += ",";
|
|
|
|
TTQString arg = *it;
|
|
|
|
int pos = 0;
|
|
|
|
if ( ( pos = arg.find( "&" ) ) != -1 ) {
|
|
|
|
arg = arg.left( pos + 1 );
|
|
|
|
} else if ( ( pos = arg.find( "*" ) ) != -1 ) {
|
|
|
|
arg = arg.left( pos + 1 );
|
|
|
|
} else {
|
|
|
|
arg = arg.simplifyWhiteSpace();
|
|
|
|
if ( ( pos = arg.find( ':' ) ) != -1 )
|
|
|
|
arg = arg.left( pos ).simplifyWhiteSpace() + ":" + arg.mid( pos + 1 ).simplifyWhiteSpace();
|
|
|
|
TTQStringList l = TTQStringList::split( ' ', arg );
|
|
|
|
if ( l.count() == 2 ) {
|
|
|
|
if ( l[ 0 ] != "const" && l[ 0 ] != "unsigned" && l[ 0 ] != "var" )
|
|
|
|
arg = l[ 0 ];
|
|
|
|
} else if ( l.count() == 3 ) {
|
|
|
|
arg = l[ 0 ] + " " + l[ 1 ];
|
|
|
|
}
|
|
|
|
}
|
|
|
|
res += arg;
|
|
|
|
}
|
|
|
|
res += ")";
|
|
|
|
|
|
|
|
return TTQString::fromLatin1( NormalizeObject::normalizeSignalSlot( res.latin1() ) );
|
|
|
|
}
|