diff options
Diffstat (limited to 'src/perl/common/Rawlog.xs')
| -rw-r--r-- | src/perl/common/Rawlog.xs | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/src/perl/common/Rawlog.xs b/src/perl/common/Rawlog.xs new file mode 100644 index 0000000..3c946c7 --- /dev/null +++ b/src/perl/common/Rawlog.xs @@ -0,0 +1,59 @@ +#define PERL_NO_GET_CONTEXT +#include "module.h" + +MODULE = Irssi::Rawlog PACKAGE = Irssi +PROTOTYPES: ENABLE + +void +rawlog_set_size(lines) + int lines + +Irssi::Rawlog +rawlog_create() + +#******************************* +MODULE = Irssi::Rawlog PACKAGE = Irssi::Rawlog PREFIX = rawlog_ +#******************************* + +void +rawlog_get_lines(rawlog) + Irssi::Rawlog rawlog +PREINIT: + GList *tmp; +PPCODE: + for (tmp = rawlog->lines->head; tmp != NULL; tmp = tmp->next) { + XPUSHs(sv_2mortal(new_pv(tmp->data))); + } + +void +rawlog_destroy(rawlog) + Irssi::Rawlog rawlog + +void +rawlog_input(rawlog, str) + Irssi::Rawlog rawlog + char *str + +void +rawlog_output(rawlog, str) + Irssi::Rawlog rawlog + char *str + +void +rawlog_redirect(rawlog, str) + Irssi::Rawlog rawlog + char *str + +void +rawlog_open(rawlog, fname) + Irssi::Rawlog rawlog + char *fname + +void +rawlog_close(rawlog) + Irssi::Rawlog rawlog + +void +rawlog_save(rawlog, fname) + Irssi::Rawlog rawlog + char *fname |