irssi/src/perl/common/Rawlog.xs
2018-11-09 11:32:00 +01:00

59 lines
939 B
Text

#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