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

   1 #include "module.h"
   2
   3 MODULE = Irssi::Ignore  PACKAGE = Irssi
   4 PROTOTYPES: ENABLE
   5
   6 void
   7 ignores()
   8 PREINIT:
   9         GSList *tmp;
  10 PPCODE:
  11         for (tmp = ignores; tmp != NULL; tmp = tmp->next) {
  12                 XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Ignore")));
  13         }
  14
  15 int
  16 ignore_check(nick, host, channel, text, level)
  17         char *nick
  18         char *host
  19         char *channel
  20         char *text
  21         int level
  22 CODE:
  23         RETVAL = ignore_check(NULL, nick, host, channel, text, level);
  24 OUTPUT:
  25         RETVAL
  26
  27 #*******************************
  28 MODULE = Irssi::Ignore  PACKAGE = Irssi::Server
  29 #*******************************
  30
  31 int
  32 ignore_check(server, nick, host, channel, text, level)
  33         Irssi::Server server
  34         char *nick
  35         char *host
  36         char *channel
  37         char *text
  38         int level
  39
  40 #*******************************
  41 MODULE = Irssi::Ignore  PACKAGE = Irssi::Ignore  PREFIX = ignore_
  42 #*******************************
  43
  44 void
  45 ignore_add_rec(rec)
  46         Irssi::Ignore rec
  47
  48 void
  49 ignore_update_rec(rec)
  50         Irssi::Ignore rec