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.
92 lines
3.0 KiB
92 lines
3.0 KiB
/***************************************************************************
|
|
* Copyright (C) 2006 by Andreas Pakulat *
|
|
* apaku@gmx.de *
|
|
* *
|
|
* 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 "qmakedefaultopts.h"
|
|
|
|
#include <kdebug.h>
|
|
#include <ktempfile.h>
|
|
#include <tqregexp.h>
|
|
#include <kprocess.h>
|
|
|
|
#include <blockingkprocess.h>
|
|
|
|
TQMakeDefaultOpts::TQMakeDefaultOpts()
|
|
{
|
|
|
|
}
|
|
|
|
void TQMakeDefaultOpts::readVariables( const TQString& qmake, const TQString& projdir )
|
|
{
|
|
KTempFile makefile (projdir+"/", ".mf");
|
|
KTempFile qmakefile(projdir+"/", ".pro");
|
|
if ( makefile.status() == 0 && qmakefile.status() == 0 )
|
|
{
|
|
makefile.close();
|
|
qmakefile.close();
|
|
|
|
BlockingKProcess proc;
|
|
kdDebug(9024) << "KProc Working dir:" << projdir << endl;
|
|
proc.setWorkingDirectory( projdir );
|
|
proc << qmake;
|
|
proc << "-d";
|
|
proc << "-o";
|
|
proc << makefile.name();
|
|
proc << qmakefile.name();
|
|
kdDebug(9024) << "Executing:" << proc.args() << endl;
|
|
proc.start( KProcess::NotifyOnExit, KProcess::Stderr );
|
|
if( !proc.isRunning() && !proc.normalExit() )
|
|
{
|
|
kdDebug(9024) << "Couldn't execute qmake: " << proc.args() << endl;
|
|
makefile.unlink();
|
|
qmakefile.unlink();
|
|
m_variables.clear();
|
|
m_keys.clear();
|
|
}else
|
|
{
|
|
makefile.unlink();
|
|
qmakefile.unlink();
|
|
TQStringList lines = TQStringList::split( "\n", proc.stdErr() );
|
|
kdDebug(9024) << "Got " << lines.count() << " lines" << endl;
|
|
for ( TQStringList::const_iterator it = lines.begin(); it != lines.end(); ++it)
|
|
{
|
|
TQString line = *it;
|
|
TQRegExp re( "DEBUG 1: ([^ =:]+) === (.*)" );
|
|
if ( re.exactMatch( line ) )
|
|
{
|
|
TQString var = re.cap( 1 );
|
|
TQStringList values = TQStringList::split( " :: ", re.cap( 2 ) );
|
|
m_variables[var] = values;
|
|
m_keys.append( var );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
TQMakeDefaultOpts::~TQMakeDefaultOpts()
|
|
{
|
|
}
|
|
|
|
const TQStringList TQMakeDefaultOpts::variableValues( const TQString& var ) const
|
|
{
|
|
// TQStringList result;
|
|
if ( m_variables.contains(var) )
|
|
return m_variables[var];
|
|
return TQStringList();
|
|
}
|
|
|
|
const TQStringList& TQMakeDefaultOpts::variables() const
|
|
{
|
|
return m_keys;
|
|
}
|
|
|
|
// kate: space-indent on; indent-width 4; tab-width 4; replace-tabs on
|