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

   1 #include "module.h"
   2
   3 MODULE = Irssi::Server  PACKAGE = Irssi
   4 PROTOTYPES: ENABLE
   5
   6 void
   7 servers()
   8 PREINIT:
   9         GSList *tmp;
  10 PPCODE:
  11         for (tmp = servers; tmp != NULL; tmp = tmp->next) {
  12                 XPUSHs(sv_2mortal(iobject_bless((SERVER_REC *) tmp->data)));
  13         }
  14
  15 void
  16 reconnects()
  17 PREINIT:
  18         GSList *tmp;
  19 PPCODE:
  20         for (tmp = reconnects; tmp != NULL; tmp = tmp->next) {
  21                 XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Reconnect")));
  22         }
  23
  24 void
  25 chatnets()
  26 PREINIT:
  27         GSList *tmp;
  28 PPCODE:
  29         for (tmp = chatnets; tmp != NULL; tmp = tmp->next) {
  30                 XPUSHs(sv_2mortal(iobject_bless((CHATNET_REC *) tmp->data)));
  31         }
  32
  33 Irssi::Connect
  34 server_create_conn(chat_type, dest, port, chatnet=NULL, password=NULL, nick=NULL)
  35         int chat_type
  36         char *dest
  37         int port
  38         char *chatnet
  39         char *password
  40         char *nick
  41
  42 Irssi::Server
  43 server_find_tag(tag)
  44         char *tag
  45
  46 Irssi::Server
  47 server_find_chatnet(chatnet)
  48         char *chatnet
  49
  50 Irssi::Chatnet
  51 chatnet_find(name)
  52         char *name
  53
  54 #*******************************
  55 MODULE = Irssi::Server  PACKAGE = Irssi::Server  PREFIX = server_
  56 #*******************************
  57
  58 void
  59 server_disconnect(server)
  60         Irssi::Server server
  61
  62 void
  63 server_ref(server)
  64         Irssi::Server server
  65
  66 void
  67 server_unref(server)
  68         Irssi::Server server
  69
  70 int
  71 isnickflag(server, flag)
  72         Irssi::Server server
  73         char flag
  74 CODE:
  75         RETVAL = server->isnickflag(server, flag);
  76 OUTPUT:
  77         RETVAL
  78
  79 int
  80 ischannel(server, data)
  81         Irssi::Server server
  82         char *data
  83 CODE:
  84         RETVAL = server->ischannel(server, data);
  85 OUTPUT:
  86         RETVAL
  87
  88 char *
  89 get_nick_flags(server)
  90         Irssi::Server server
  91 CODE:
  92         RETVAL = (char *) server->get_nick_flags(server);
  93 OUTPUT:
  94         RETVAL
  95
  96 void
  97 send_message(server, target, msg, target_type)
  98         Irssi::Server server
  99         char *target
 100         char *msg
 101         int target_type
 102 CODE:
 103         server->send_message(server, target, msg, target_type);
 104