diff options
Diffstat (limited to 'src/perl/common/Log.xs')
| -rw-r--r-- | src/perl/common/Log.xs | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/src/perl/common/Log.xs b/src/perl/common/Log.xs new file mode 100644 index 0000000..532095f --- /dev/null +++ b/src/perl/common/Log.xs @@ -0,0 +1,69 @@ +#define PERL_NO_GET_CONTEXT +#include "module.h" + +MODULE = Irssi::Log PACKAGE = Irssi +PROTOTYPES: ENABLE + +void +logs() +PREINIT: + GSList *tmp; +PPCODE: + for (tmp = logs; tmp != NULL; tmp = tmp->next) { + XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Log"))); + } + +Irssi::Log +log_create_rec(fname, level) + char *fname + int level + +Irssi::Log +log_find(fname) + char *fname + +#******************************* +MODULE = Irssi::Log PACKAGE = Irssi::Log PREFIX = log_ +#******************************* + +void +log_item_add(log, type, name, servertag) + Irssi::Log log + int type + char *name + char *servertag + +void +log_item_destroy(log, item) + Irssi::Log log + Irssi::Logitem item + +Irssi::Logitem +log_item_find(log, type, item, servertag) + Irssi::Log log + int type + char *item + char *servertag + +void +log_update(log) + Irssi::Log log + +void +log_close(log) + Irssi::Log log + +void +log_write_rec(log, str, level, now = -1) + Irssi::Log log + char *str + int level + time_t now + +void +log_start_logging(log) + Irssi::Log log + +void +log_stop_logging(log) + Irssi::Log log |