diff options
Diffstat (limited to 'src/perl/common/Masks.xs')
| -rw-r--r-- | src/perl/common/Masks.xs | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/src/perl/common/Masks.xs b/src/perl/common/Masks.xs new file mode 100644 index 0000000..9612911 --- /dev/null +++ b/src/perl/common/Masks.xs @@ -0,0 +1,62 @@ +#define PERL_NO_GET_CONTEXT +#include "module.h" + +MODULE = Irssi::Masks PACKAGE = Irssi +PROTOTYPES: ENABLE + +int +mask_match(mask, nick, user, host) + char *mask + char *nick + char *user + char *host +CODE: + RETVAL = mask_match(NULL, mask, nick, user, host); +OUTPUT: + RETVAL + +int +mask_match_address(mask, nick, address) + char *mask + char *nick + char *address +CODE: + RETVAL = mask_match_address(NULL, mask, nick, address); +OUTPUT: + RETVAL + +int +masks_match(masks, nick, address) + char *masks + char *nick + char *address +CODE: + RETVAL = masks_match(NULL, masks, nick, address); +OUTPUT: + RETVAL + +#******************************* +MODULE = Irssi::Masks PACKAGE = Irssi::Server +#******************************* + +int +mask_match(server, mask, nick, user, host) + Irssi::Server server + char *mask + char *nick + char *user + char *host + +int +mask_match_address(server, mask, nick, address) + Irssi::Server server + char *mask + char *nick + char *address + +int +masks_match(server, masks, nick, address) + Irssi::Server server + char *masks + char *nick + char *address |