X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fsrc%2Fperl%2Fcommon%2FExpando.xs;fp=apps%2Firssi%2Fsrc%2Fperl%2Fcommon%2FExpando.xs;h=0000000000000000000000000000000000000000;hb=72c2de619079457f7a68100eb13385275a424a23;hp=08f5c202214e537f9b2c14a4c4d4f8c590b41863;hpb=e7b6c157b80152bf9fb9266e6bdd93f9fb0db776;p=runtime.git

diff --git a/apps/irssi/src/perl/common/Expando.xs b/apps/irssi/src/perl/common/Expando.xs
deleted file mode 100644
index 08f5c202..00000000
--- a/apps/irssi/src/perl/common/Expando.xs
+++ /dev/null
@@ -1,170 +0,0 @@
-#include "module.h"
-#include "expandos.h"
-
-typedef struct {
-	PERL_SCRIPT_REC *script;
-	SV *func;
-} PerlExpando;
-
-static GHashTable *perl_expando_defs;
-
-static char *sig_perl_expando(SERVER_REC *server, void *item, int *free_ret);
-
-static int check_expando_destroy(char *key, PerlExpando *rec,
-				 PERL_SCRIPT_REC *script)
-{
-	if (rec->script == script) {
-                expando_destroy(key, sig_perl_expando);
-		SvREFCNT_dec(rec->func);
-		g_free(key);
-		g_free(rec);
-		return TRUE;
-	}
-
-        return FALSE;
-}
-
-static void script_unregister_expandos(PERL_SCRIPT_REC *script)
-{
-	g_hash_table_foreach_remove(perl_expando_defs,
-				    (GHRFunc) check_expando_destroy, script);
-}
-
-void perl_expando_init(void)
-{
-	perl_expando_defs = g_hash_table_new((GHashFunc) g_str_hash,
-					     (GCompareFunc) g_str_equal);
-	signal_add("script destroyed", (SIGNAL_FUNC) script_unregister_expandos);
-}
-
-static void expando_def_destroy(char *key, PerlExpando *rec)
-{
-	SvREFCNT_dec(rec->func);
-	g_free(key);
-	g_free(rec);
-}
-
-void perl_expando_deinit(void)
-{
-	signal_remove("script destroyed", (SIGNAL_FUNC) script_unregister_expandos);
-
-	g_hash_table_foreach(perl_expando_defs,
-			     (GHFunc) expando_def_destroy, NULL);
-	g_hash_table_destroy(perl_expando_defs);
-}
-
-static char *perl_expando_event(PerlExpando *rec, SERVER_REC *server,
-				WI_ITEM_REC *item, int *free_ret)
-{
-	dSP;
-	char *ret;
-	int retcount;
-
-	ENTER;
-	SAVETMPS;
-
-	PUSHMARK(SP);
-	XPUSHs(sv_2mortal(iobject_bless(server)));
-	XPUSHs(sv_2mortal(iobject_bless(item)));
-	PUTBACK;
-
-	retcount = perl_call_sv(rec->func, G_EVAL|G_SCALAR);
-	SPAGAIN;
-
-	ret = NULL;
-	if (SvTRUE(ERRSV)) {
-		/* make sure we don't get back here */
-		if (rec->script != NULL)
-			script_unregister_expandos(rec->script);
-
-		signal_emit("script error", 2, rec->script, SvPV(ERRSV, PL_na));
-	} else if (retcount > 0) {
-		ret = g_strdup(POPp);
-		*free_ret = TRUE;
-	}
-
-	PUTBACK;
-	FREETMPS;
-	LEAVE;
-
-	return ret;
-}
-
-static char *sig_perl_expando(SERVER_REC *server, void *item, int *free_ret)
-{
-        PerlExpando *rec;
-
-	rec = g_hash_table_lookup(perl_expando_defs, current_expando);
-	if (rec != NULL)
-		return perl_expando_event(rec, server, item, free_ret);
-	return NULL;
-}
-
-void expando_signals_add_hash(const char *key, SV *signals)
-{
-	HV *hv;
-        HE *he;
-	I32 len;
-	const char *argstr;
-	ExpandoArg arg;
-
-	if (!is_hvref(signals)) {
-		croak("Usage: Irssi::expando_create(key, func, hash)");
-		return;
-	}
-
-        hv = hvref(signals);
-	hv_iterinit(hv);
-	while ((he = hv_iternext(hv)) != NULL) {
-		SV *argsv = HeVAL(he);
-		argstr = SvPV(argsv, PL_na);
-
-		if (strcasecmp(argstr, "none") == 0)
-			arg = EXPANDO_ARG_NONE;
-		else if (strcasecmp(argstr, "server") == 0)
-			arg = EXPANDO_ARG_SERVER;
-		else if (strcasecmp(argstr, "window") == 0)
-			arg = EXPANDO_ARG_WINDOW;
-		else if (strcasecmp(argstr, "windowitem") == 0)
-			arg = EXPANDO_ARG_WINDOW_ITEM;
-		else if (strcasecmp(argstr, "never") == 0)
-			arg = EXPANDO_NEVER;
-		else {
-			croak("Unknown signal type: %s", argstr);
-			break;
-		}
-		expando_add_signal(key, hv_iterkey(he, &len), arg);
-	}
-}
-
-MODULE = Irssi::Expando  PACKAGE = Irssi
-PROTOTYPES: ENABLE
-
-void
-expando_create(key, func, signals)
-	char *key
-	SV *func
-	SV *signals
-PREINIT:
-        PerlExpando *rec;
-CODE:
-	rec = g_new0(PerlExpando, 1);
-	rec->script = perl_script_find_package(perl_get_package());
-        rec->func = perl_func_sv_inc(func, perl_get_package());
-
-	expando_create(key, sig_perl_expando, NULL);
-	g_hash_table_insert(perl_expando_defs, g_strdup(key), rec);
-        expando_signals_add_hash(key, signals);
-
-void
-expando_destroy(name)
-	char *name
-PREINIT:
-        gpointer key, value;
-CODE:
-	if (g_hash_table_lookup_extended(perl_expando_defs, name, &key, &value)) {
-                g_hash_table_remove(perl_expando_defs, name);
-		g_free(key);
-		SvREFCNT_dec((SV *) value);
-	}
-	expando_destroy(name, sig_perl_expando);