irssi/src/perl/irc/Irc.xs

#define PERL_NO_GET_CONTEXT
#include "module.h"

static int initialized = FALSE;

static void perl_irc_chatnet_fill_hash(HV *hv, IRC_CHATNET_REC *chatnet)
{
	perl_chatnet_fill_hash(hv, (CHATNET_REC *) chatnet);
	(void) hv_store(hv, "usermode", 8, new_pv(chatnet->usermode), 0);
}

static void perl_irc_connect_fill_hash(HV *hv, IRC_SERVER_CONNECT_REC *conn)
{
	perl_connect_fill_hash(hv, (SERVER_CONNECT_REC *) conn);
	(void) hv_store(hv, "alternate_nick", 14, new_pv(conn->alternate_nick), 0);
}

static void perl_irc_server_fill_hash(HV *hv, IRC_SERVER_REC *server)
{
	AV *av;
	HV *hv_;
	GSList *tmp;
	GHashTableIter iter;
	gpointer key_, val_;

	perl_irc_connect_fill_hash(hv, server->connrec);
	perl_server_fill_hash(hv, (SERVER_REC *) server);

	(void) hv_store(hv, "real_address", 12, new_pv(server->real_address), 0);
	(void) hv_store(hv, "usermode", 8, new_pv(server->usermode), 0);
	(void) hv_store(hv, "userhost", 8, new_pv(server->userhost), 0);

	(void) hv_store(hv, "max_message_len", 15, newSViv(server->max_message_len), 0);

	(void) hv_store(hv, "max_cmds_at_once", 16, newSViv(server->max_cmds_at_once), 0);
	(void) hv_store(hv, "cmd_queue_speed", 15, newSViv(server->cmd_queue_speed), 0);
	(void) hv_store(hv, "max_query_chans", 15, newSViv(server->max_query_chans), 0);

	(void) hv_store(hv, "max_kicks_in_cmd", 16, newSViv(server->max_kicks_in_cmd), 0);
	(void) hv_store(hv, "max_msgs_in_cmd", 15, newSViv(server->max_msgs_in_cmd), 0);
	(void) hv_store(hv, "max_modes_in_cmd", 16, newSViv(server->max_modes_in_cmd), 0);
	(void) hv_store(hv, "max_whois_in_cmd", 16, newSViv(server->max_whois_in_cmd), 0);
	(void) hv_store(hv, "isupport_sent", 13, newSViv(server->isupport_sent), 0);

	(void) hv_store(hv, "cap_complete", 12, newSViv(server->cap_complete), 0);
	(void) hv_store(hv, "sasl_success", 12, newSViv(server->sasl_success), 0);

	if (server->cap_supported != NULL) {
		hv_ = newHV();
		g_hash_table_iter_init(&iter, server->cap_supported);
		while (g_hash_table_iter_next(&iter, &key_, &val_)) {
			char *key = (char *)key_;
			char *val = (char *)val_;
			hv_store(hv_, key, strlen(key), new_pv(val), 0);
		}
		(void) hv_store(hv, "cap_supported", 13, newRV_noinc((SV*)hv_), 0);
	}

	av = newAV();
	for (tmp = server->cap_active; tmp != NULL; tmp = tmp->next)
		av_push(av, new_pv(tmp->data));
	(void) hv_store(hv, "cap_active", 10, newRV_noinc((SV*)av), 0);
}

static void perl_ban_fill_hash(HV *hv, BAN_REC *ban)
{
	(void) hv_store(hv, "ban", 3, new_pv(ban->ban), 0);
	(void) hv_store(hv, "setby", 5, new_pv(ban->setby), 0);
	(void) hv_store(hv, "time", 4, newSViv(ban->time), 0);
}

static void perl_netsplit_fill_hash(HV *hv, NETSPLIT_REC *netsplit)
{
        AV *av;
        GSList *tmp;

	(void) hv_store(hv, "nick", 4, new_pv(netsplit->nick), 0);
	(void) hv_store(hv, "address", 7, new_pv(netsplit->address), 0);
	(void) hv_store(hv, "destroy", 7, newSViv(netsplit->destroy), 0);

	(void) hv_store(hv, "server", 6,
		 plain_bless(netsplit->server,
			     "Irssi::Irc::Netsplitserver"), 0);

	av = newAV();
	for (tmp = netsplit->channels; tmp != NULL; tmp = tmp->next) {
		av_push(av, plain_bless(tmp->data,
					"Irssi::Irc::Netsplitchannel"));
	}
	(void) hv_store(hv, "channels", 8, newRV_noinc((SV*)av), 0);
}

static void perl_netsplit_server_fill_hash(HV *hv, NETSPLIT_SERVER_REC *rec)
{
	(void) hv_store(hv, "server", 6, new_pv(rec->server), 0);
	(void) hv_store(hv, "destserver", 10, new_pv(rec->destserver), 0);
	(void) hv_store(hv, "count", 5, newSViv(rec->count), 0);
}

static void perl_netsplit_channel_fill_hash(HV *hv, NETSPLIT_CHAN_REC *rec)
{
	(void) hv_store(hv, "name", 4, new_pv(rec->name), 0);
	(void) hv_store(hv, "op", 2, newSViv(rec->op), 0);
	(void) hv_store(hv, "halfop", 6, newSViv(rec->halfop), 0);
	(void) hv_store(hv, "voice", 5, newSViv(rec->voice), 0);
}

static void perl_notifylist_fill_hash(HV *hv, NOTIFYLIST_REC *notify)
{
	AV *av;
	char **tmp;

	(void) hv_store(hv, "mask", 4, new_pv(notify->mask), 0);
	(void) hv_store(hv, "away_check", 10, newSViv(notify->away_check), 0);

	av = newAV();
	if (notify->ircnets != NULL) {
		for (tmp = notify->ircnets; *tmp != NULL; tmp++) {
			av_push(av, new_pv(*tmp));
		}
	}
	(void) hv_store(hv, "ircnets", 7, newRV_noinc((SV*)av), 0);
}

static void perl_client_fill_hash(HV *hv, CLIENT_REC *client)
{
	(void) hv_store(hv, "nick", 4, new_pv(client->nick), 0);
	(void) hv_store(hv, "addr", 4, new_pv(client->addr), 0);
	(void) hv_store(hv, "proxy_address", 13, new_pv(client->proxy_address), 0);
	(void) hv_store(hv, "server", 6, iobject_bless(client->server), 0);
	(void) hv_store(hv, "pass_sent", 9, newSViv(client->pass_sent), 0);
	(void) hv_store(hv, "user_sent", 9, newSViv(client->user_sent), 0);
	(void) hv_store(hv, "connected", 9, newSViv(client->connected), 0);
	(void) hv_store(hv, "want_ctcp", 9, newSViv(client->want_ctcp), 0);
	(void) hv_store(hv, "multiplex", 9, newSViv(client->multiplex), 0);
	(void) hv_store(hv, "ircnet", 6, new_pv(client->listen->ircnet), 0);
}

static PLAIN_OBJECT_INIT_REC irc_plains[] = {
	{ "Irssi::Irc::Ban", (PERL_OBJECT_FUNC) perl_ban_fill_hash },
	{ "Irssi::Irc::Netsplit", (PERL_OBJECT_FUNC) perl_netsplit_fill_hash },
	{ "Irssi::Irc::Netsplitserver", (PERL_OBJECT_FUNC) perl_netsplit_server_fill_hash },
	{ "Irssi::Irc::Netsplitchannel", (PERL_OBJECT_FUNC) perl_netsplit_channel_fill_hash },
	{ "Irssi::Irc::Notifylist", (PERL_OBJECT_FUNC) perl_notifylist_fill_hash },
	{ "Irssi::Irc::Client", (PERL_OBJECT_FUNC) perl_client_fill_hash },

	{ NULL, NULL }
};

MODULE = Irssi::Irc  PACKAGE = Irssi::Irc  PREFIX = irc_

PROTOTYPES: ENABLE

void
irc_parse_message_tags(tags)
	char *tags
PREINIT:
	HV *hv;
	GHashTable *hash;
	GHashTableIter iter;
	char *key;
	char *val;
PPCODE:
	hv = newHV();
	hash = irc_parse_message_tags(tags);
	g_hash_table_iter_init(&iter, hash);
	while (g_hash_table_iter_next(&iter, (gpointer *) &key, (gpointer *) &val)) {
		(void) hv_store(hv, key, strlen(key), new_pv(val), 0);
	}
	g_hash_table_destroy(hash);
	XPUSHs(sv_2mortal(newRV_noinc((SV *) hv)));

void
init()
PREINIT:
	int chat_type;
CODE:
	if (initialized) return;
	perl_api_version_check("Irssi::Irc");
	initialized = TRUE;

	chat_type = chat_protocol_lookup("IRC");

	irssi_add_object(module_get_uniq_id("CHATNET", 0), chat_type, "Irssi::Irc::Chatnet",
	                 (PERL_OBJECT_FUNC) perl_irc_chatnet_fill_hash);
	irssi_add_object(module_get_uniq_id("SERVER CONNECT", 0),
			 chat_type, "Irssi::Irc::Connect",
			 (PERL_OBJECT_FUNC) perl_irc_connect_fill_hash);
	irssi_add_object(module_get_uniq_id("SERVER", 0), chat_type, "Irssi::Irc::Server",
	                 (PERL_OBJECT_FUNC) perl_irc_server_fill_hash);
	irssi_add_plains(irc_plains);

void
deinit()
CODE:
	initialized = FALSE;

BOOT:
	irssi_boot(Irc__Channel);
	irssi_boot(Irc__Ctcp);
	irssi_boot(Irc__Modes);
	irssi_boot(Irc__Netsplit);
	irssi_boot(Irc__Notifylist);
	irssi_boot(Irc__Query);
	irssi_boot(Irc__Server);
	irssi_boot(Irc__Client);