apps/irssi/src/perl/silc/Server.xs

   1 #include "module.h"
   2
   3 MODULE = Irssi::Silc::Server    PACKAGE = Irssi::Silc::Server   PREFIX = silc_server_
   4 PROTOTYPES: ENABLE
   5
   6 void
   7 silc_server_get_channels(server)
   8         Irssi::Silc::Server server
   9 PREINIT:
  10         char *ret;
  11 PPCODE:
  12         ret = silc_server_get_channels(server);
  13         XPUSHs(sv_2mortal(new_pv(ret)));
  14         g_free(ret);