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

   1 #include "module.h"
   2
   3 MODULE = Irssi::Query  PACKAGE = Irssi
   4 PROTOTYPES: ENABLE
   5
   6 void
   7 queries()
   8 PREINIT:
   9         GSList *tmp;
  10 PPCODE:
  11         for (tmp = queries; tmp != NULL; tmp = tmp->next) {
  12                 QUERY_REC *rec = tmp->data;
  13
  14                 XPUSHs(sv_2mortal(iobject_bless(rec)));
  15         }
  16
  17 Irssi::Query
  18 query_find(nick)
  19         char *nick
  20 CODE:
  21         RETVAL = query_find(NULL, nick);
  22 OUTPUT:
  23         RETVAL
  24
  25 #*******************************
  26 MODULE = Irssi::Query  PACKAGE = Irssi::Server
  27 #*******************************
  28
  29 void
  30 queries(server)
  31         Irssi::Server server
  32 PREINIT:
  33         GSList *tmp;
  34 PPCODE:
  35         for (tmp = server->queries; tmp != NULL; tmp = tmp->next) {
  36                 QUERY_REC *rec = tmp->data;
  37
  38                 XPUSHs(sv_2mortal(iobject_bless(rec)));
  39         }
  40
  41 Irssi::Query
  42 query_find(server, nick)
  43         Irssi::Server server
  44         char *nick
  45
  46 #*******************************
  47 MODULE = Irssi::Query  PACKAGE = Irssi::Query  PREFIX = query_
  48 #*******************************
  49
  50 void
  51 query_destroy(query)
  52         Irssi::Query query
  53
  54 void
  55 query_change_server(query, server)
  56         Irssi::Query query
  57         Irssi::Server server