summaryrefslogtreecommitdiffstats
path: root/src/modules/perl/libkviperl.cpp
diff options
context:
space:
mode:
authortpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2011-06-28 18:31:12 +0000
committertpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2011-06-28 18:31:12 +0000
commit0a80cfd57d271dd44221467efb426675fa470356 (patch)
tree6f503a31aa078eaf8fa015cf1749808529d49fc9 /src/modules/perl/libkviperl.cpp
parent3329e5a804e28ef3f5eb51d1e7affdd5a508e8f2 (diff)
downloadkvirc-0a80cfd57d271dd44221467efb426675fa470356.tar.gz
kvirc-0a80cfd57d271dd44221467efb426675fa470356.zip
TQt4 port kvirc
This enables compilation under both Qt3 and Qt4 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/kvirc@1238719 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'src/modules/perl/libkviperl.cpp')
-rw-r--r--src/modules/perl/libkviperl.cpp24
1 files changed, 12 insertions, 12 deletions
diff --git a/src/modules/perl/libkviperl.cpp b/src/modules/perl/libkviperl.cpp
index a898e43a..3362586c 100644
--- a/src/modules/perl/libkviperl.cpp
+++ b/src/modules/perl/libkviperl.cpp
@@ -43,7 +43,7 @@
g_pPerlCoreModule = g_pModuleManager->getModule("perlcore"); \
if(!g_pPerlCoreModule) \
{ \
- if(!_c->switches()->find('q',"quiet")) \
+ if(!_c->switches()->tqfind('q',"quiet")) \
{ \
_c->warning(__tr2qs_ctx("The perlcore module can't be loaded: perl support not available","perl")); \
_c->warning(__tr2qs_ctx("To see more details about loading failure try /perlcore.load","perl")); \
@@ -58,7 +58,7 @@
#define KVS_CHECK_MODULE_STATE(_m,_c) KVS_CHECK_PERLCORE(_m,_c)
#else // !COMPILE_PERL_SUPPORT
#define KVS_CHECK_MODULE_STATE(_m,_c) \
- if(!_c->switches()->find('q',"quiet")) \
+ if(!_c->switches()->tqfind('q',"quiet")) \
_c->warning(__tr2qs_ctx("This KVIrc executable has been compiled without perl scripting support","perl")); \
return true;
#endif // !COMPILE_PERL_SUPPORT
@@ -431,7 +431,7 @@ static bool perl_kvs_cmd_begin(KviKvsModuleCommandCall * c)
// The parser sets the perl code as the first parameter of our call,
// the remaining params are the context name and the arguments
- QString szCode,szContext;
+ TQString szCode,szContext;
KviKvsVariantList vList;
KVSM_PARAMETERS_BEGIN(c)
KVSM_PARAMETER("code",KVS_PT_STRING,0,szCode)
@@ -450,31 +450,31 @@ static bool perl_kvs_cmd_begin(KviKvsModuleCommandCall * c)
ex.szCode = szCode;
for(KviKvsVariant * v = vList.first();v;v = vList.next())
{
- QString tmp;
+ TQString tmp;
v->asString(tmp);
ex.lArgs.append(tmp);
}
- ex.bQuiet = c->switches()->find('q',"quiet");
+ ex.bQuiet = c->switches()->tqfind('q',"quiet");
if(!g_pPerlCoreModule->ctrl(KVI_PERLCORECTRLCOMMAND_EXECUTE,&ex))
{
- if(!c->switches()->find('q',"quiet"))
+ if(!c->switches()->tqfind('q',"quiet"))
c->warning(__tr2qs_ctx("The perlcore module failed to execute the code: something is wrong with the perl support","perl"));
return true;
}
if(!ex.lWarnings.isEmpty())
{
- for(QStringList::Iterator it = ex.lWarnings.begin();it != ex.lWarnings.end();++it)
+ for(TQStringList::Iterator it = ex.lWarnings.begin();it != ex.lWarnings.end();++it)
c->warning(*it);
}
if(!ex.bExitOk)
{
- if(!c->switches()->find('q',"quiet"))
+ if(!c->switches()->tqfind('q',"quiet"))
{
- if(c->switches()->find('f',"fail-on-error"))
+ if(c->switches()->tqfind('f',"fail-on-error"))
{
c->warning(__tr2qs_ctx("Perl execution error:","perl"));
c->warning(ex.szError);
@@ -486,7 +486,7 @@ static bool perl_kvs_cmd_begin(KviKvsModuleCommandCall * c)
}
}
- if(!c->switches()->find('n',"no-return"))
+ if(!c->switches()->tqfind('n',"no-return"))
c->context()->returnValue()->setString(ex.szRetVal);
#endif //COMPILE_PERL_SUPPORT
@@ -518,7 +518,7 @@ static bool perl_kvs_cmd_begin(KviKvsModuleCommandCall * c)
static bool perl_kvs_cmd_destroy(KviKvsModuleCommandCall * c)
{
- QString szContext;
+ TQString szContext;
KVSM_PARAMETERS_BEGIN(c)
KVSM_PARAMETER("context",KVS_PT_NONEMPTYSTRING,0,szContext)
KVSM_PARAMETERS_END(c)
@@ -532,7 +532,7 @@ static bool perl_kvs_cmd_destroy(KviKvsModuleCommandCall * c)
if(!g_pPerlCoreModule->ctrl(KVI_PERLCORECTRLCOMMAND_DESTROY,&ex))
{
- if(!c->switches()->find('q',"quiet"))
+ if(!c->switches()->tqfind('q',"quiet"))
c->warning(__tr2qs_ctx("The perlcore module failed to execute the code: something is wrong with the perl support","perl"));
}
#endif //COMPILE_PERL_SUPPORT