Merged silc_1_0_branch to trunk.

[silc.git] / apps / irssi / src / perl / silc / Silc.xs

diff --git a/apps/irssi/src/perl/silc/Silc.xs b/apps/irssi/src/perl/silc/Silc.xs
new file mode 100644 (file)
index 0000000..b80f651
--- /dev/null
+++ b/apps/irssi/src/perl/silc/Silc.xs
@@ -0,0 +1,37 @@
+#include "module.h"
+
+static void perl_silc_server_fill_hash(HV *hv, SILC_SERVER_REC *server)
+{
+       perl_server_fill_hash(hv, (SERVER_REC *) server);
+
+       hv_store(hv, "umode", 5, newSViv(server->umode), 0);
+}
+
+MODULE = Irssi::Silc   PACKAGE = Irssi::Silc
+
+PROTOTYPES: ENABLE
+
+void
+init()
+PREINIT:
+       static int initialized = FALSE;
+       int chat_type;
+CODE:
+       if (initialized) return;
+       perl_api_version_check("Irssi::Silc");
+       initialized = TRUE;
+
+       chat_type = chat_protocol_lookup("SILC");
+
+       irssi_add_object(module_get_uniq_id("SERVER", 0),
+                        chat_type, "Irssi::Silc::Server",
+                        (PERL_OBJECT_FUNC) perl_silc_server_fill_hash);
+
+void
+deinit()
+CODE:
+
+BOOT:
+       irssi_boot(Silc__Channel);
+       irssi_boot(Silc__Query);
+       irssi_boot(Silc__Server);