Added KDE3 version of kvirc

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/kvirc@1095341 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 277 insertions, 0 deletions

diff --git a/src/modules/perlcore/xs.inc b/src/modules/perlcore/xs.inc
new file mode 100644
index 00000000..5c31cb19
--- /dev/null
+++ b/src/modules/perlcore/xs.inc
@@ -0,0 +1,277 @@
+/*
+ * This file was generated automatically by xsubpp version 1.9508 from the
+ * contents of KVIrc.xs. Do not edit this file, edit KVIrc.xs instead.
+ *
+ *	ANY CHANGES MADE HERE WILL BE LOST!
+ *
+ */
+
+#line 1 "KVIrc.xs"
+#line 11 "KVIrc.c"
+XS(XS_KVIrc_echo); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_echo)
+{
+    dXSARGS;
+    if (items < 1 || items > 3)
+	Perl_croak(aTHX_ "Usage: KVIrc::echo(text, colorset = 0, windowid = 0)");
+    {
+	char *	text = (char *)SvPV_nolen(ST(0));
+	int	colorset;
+	char *	windowid;
+
+	if (items < 2)
+	    colorset = 0;
+	else {
+	    colorset = (int)SvIV(ST(1));
+	}
+
+	if (items < 3)
+	    windowid = 0;
+	else {
+	    windowid = (char *)SvPV_nolen(ST(2));
+	}
+#line 8 "KVIrc.xs"
+		if(g_pCurrentKvsContext && text)
+		{
+			KviWindow * pWnd;
+			if(windowid)
+			{
+				pWnd = g_pApp->findWindow(windowid);
+				if(!pWnd)pWnd = g_pCurrentKvsContext->window();
+			} else {
+				pWnd = g_pCurrentKvsContext->window();
+			}
+			pWnd->outputNoFmt(colorset,QString::fromUtf8(text));
+		}
+#line 47 "KVIrc.c"
+    }
+    XSRETURN_EMPTY;
+}
+
+XS(XS_KVIrc_say); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_say)
+{
+    dXSARGS;
+    if (items < 1 || items > 2)
+	Perl_croak(aTHX_ "Usage: KVIrc::say(text, windowid = 0)");
+    {
+	char *	text = (char *)SvPV_nolen(ST(0));
+	char *	windowid;
+
+	if (items < 2)
+	    windowid = 0;
+	else {
+	    windowid = (char *)SvPV_nolen(ST(1));
+	}
+#line 25 "KVIrc.xs"
+		if(g_pCurrentKvsContext && text)
+		{
+			KviWindow * pWnd;
+			if(windowid)
+			{
+				pWnd = g_pApp->findWindow(windowid);
+				if(!pWnd)pWnd = g_pCurrentKvsContext->window();
+			} else {
+				pWnd = g_pCurrentKvsContext->window();
+			}
+			QString tmp = QString::fromUtf8(text);
+			KviUserInput::parse(tmp,pWnd);
+		}
+#line 81 "KVIrc.c"
+    }
+    XSRETURN_EMPTY;
+}
+
+XS(XS_KVIrc_warning); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_warning)
+{
+    dXSARGS;
+    if (items != 1)
+	Perl_croak(aTHX_ "Usage: KVIrc::warning(text)");
+    {
+	char *	text = (char *)SvPV_nolen(ST(0));
+#line 42 "KVIrc.xs"
+		if((!g_bExecuteQuiet) && g_pCurrentKvsContext)
+			g_pCurrentKvsContext->warning(text);
+#line 97 "KVIrc.c"
+    }
+    XSRETURN_EMPTY;
+}
+
+XS(XS_KVIrc_internalWarning); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_internalWarning)
+{
+    dXSARGS;
+    if (items != 1)
+	Perl_croak(aTHX_ "Usage: KVIrc::internalWarning(text)");
+    {
+	char *	text = (char *)SvPV_nolen(ST(0));
+#line 48 "KVIrc.xs"
+		if(!g_bExecuteQuiet)
+			g_lWarningList.append(QString(text));
+#line 113 "KVIrc.c"
+    }
+    XSRETURN_EMPTY;
+}
+
+XS(XS_KVIrc_getLocal); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_getLocal)
+{
+    dXSARGS;
+    if (items != 1)
+	Perl_croak(aTHX_ "Usage: KVIrc::getLocal(varname)");
+    {
+	char *	varname = (char *)SvPV_nolen(ST(0));
+	char *	RETVAL;
+	dXSTARG;
+#line 55 "KVIrc.xs"
+		QString tmp;
+		KviStr hack;
+		if(g_pCurrentKvsContext)
+		{
+			KviKvsVariant * pVar = g_pCurrentKvsContext->localVariables()->find(varname);
+			if(pVar)
+			{
+				pVar->asString(tmp);
+				hack = tmp;
+				RETVAL = hack.ptr();
+			} else RETVAL = "";
+		}
+#line 141 "KVIrc.c"
+	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
+    }
+    XSRETURN(1);
+}
+
+XS(XS_KVIrc_setLocal); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_setLocal)
+{
+    dXSARGS;
+    if (items != 2)
+	Perl_croak(aTHX_ "Usage: KVIrc::setLocal(varname, value)");
+    {
+	char *	varname = (char *)SvPV_nolen(ST(0));
+	char *	value = (char *)SvPV_nolen(ST(1));
+#line 74 "KVIrc.xs"
+		if(g_pCurrentKvsContext)
+		{
+			if(value && *value)
+			{
+				KviKvsVariant * pVar = g_pCurrentKvsContext->localVariables()->get(varname);
+				pVar->setString(value);
+			} else {
+				g_pCurrentKvsContext->localVariables()->unset(varname);
+			}
+		}
+#line 167 "KVIrc.c"
+    }
+    XSRETURN_EMPTY;
+}
+
+XS(XS_KVIrc_getGlobal); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_getGlobal)
+{
+    dXSARGS;
+    if (items != 1)
+	Perl_croak(aTHX_ "Usage: KVIrc::getGlobal(varname)");
+    {
+	char *	varname = (char *)SvPV_nolen(ST(0));
+	char *	RETVAL;
+	dXSTARG;
+#line 88 "KVIrc.xs"
+		QString tmp;
+		KviStr hack;
+		if(g_pCurrentKvsContext)
+		{
+			KviKvsVariant * pVar = g_pCurrentKvsContext->globalVariables()->find(varname);
+			if(pVar)
+			{
+				pVar->asString(tmp);
+				hack = tmp;
+				RETVAL = hack.ptr();
+			} else RETVAL = "";
+		}
+#line 195 "KVIrc.c"
+	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
+    }
+    XSRETURN(1);
+}
+
+XS(XS_KVIrc_setGlobal); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_setGlobal)
+{
+    dXSARGS;
+    if (items != 2)
+	Perl_croak(aTHX_ "Usage: KVIrc::setGlobal(varname, value)");
+    {
+	char *	varname = (char *)SvPV_nolen(ST(0));
+	char *	value = (char *)SvPV_nolen(ST(1));
+#line 107 "KVIrc.xs"
+		if(g_pCurrentKvsContext)
+		{
+			if(value && *value)
+			{
+				KviKvsVariant * pVar = g_pCurrentKvsContext->globalVariables()->get(varname);
+				pVar->setString(value);
+			} else {
+				g_pCurrentKvsContext->localVariables()->unset(varname);
+			}
+		}
+#line 221 "KVIrc.c"
+    }
+    XSRETURN_EMPTY;
+}
+
+XS(XS_KVIrc_eval); /* prototype to pass -Wmissing-prototypes */
+XS(XS_KVIrc_eval)
+{
+    dXSARGS;
+    if (items != 1)
+	Perl_croak(aTHX_ "Usage: KVIrc::eval(code)");
+    {
+	char *	code = (char *)SvPV_nolen(ST(0));
+	char *	RETVAL;
+	dXSTARG;
+#line 122 "KVIrc.xs"
+		if(g_pCurrentKvsContext && code)
+		{
+			KviKvsVariant ret;
+			if(KviKvsScript::run(QString::fromUtf8(code),g_pCurrentKvsContext->window(),0,&ret))
+			{
+				QString tmp;
+				ret.asString(tmp);
+				g_szLastReturnValue = tmp;
+			} else {
+				g_szLastReturnValue = "";
+			}
+			RETVAL = g_szLastReturnValue.ptr();
+		} else {
+			RETVAL = "";
+		}
+#line 252 "KVIrc.c"
+	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
+    }
+    XSRETURN(1);
+}
+
+#ifdef __cplusplus
+extern "C"
+#endif
+XS(boot_KVIrc); /* prototype to pass -Wmissing-prototypes */
+XS(boot_KVIrc)
+{
+    dXSARGS;
+    char* file = __FILE__;
+
+        newXS("KVIrc::echo", XS_KVIrc_echo, file);
+        newXS("KVIrc::say", XS_KVIrc_say, file);
+        newXS("KVIrc::warning", XS_KVIrc_warning, file);
+        newXS("KVIrc::internalWarning", XS_KVIrc_internalWarning, file);
+        newXS("KVIrc::getLocal", XS_KVIrc_getLocal, file);
+        newXS("KVIrc::setLocal", XS_KVIrc_setLocal, file);
+        newXS("KVIrc::getGlobal", XS_KVIrc_getGlobal, file);
+        newXS("KVIrc::setGlobal", XS_KVIrc_setGlobal, file);
+        newXS("KVIrc::eval", XS_KVIrc_eval, file);
+    XSRETURN_YES;
+}
+