diff options
author | Timo Sirainen <cras@irssi.org> | 2001-06-30 09:49:59 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-06-30 09:49:59 +0000 |
commit | f1ecfca8a7d4459b32ea3db19d44bbe4f71ff55c (patch) | |
tree | ee7164f66e451a57a906c294a0860b050feabb5c /src/perl/common | |
parent | bf0e9f163a12c8fb2e622ebae085f4e67b057174 (diff) | |
download | irssi-f1ecfca8a7d4459b32ea3db19d44bbe4f71ff55c.zip |
Updates to perl documentation. Moved Rawlog->{lines} to Rawlog::get_lines()
instead.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1601 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
-rw-r--r-- | src/perl/common/Rawlog.xs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/perl/common/Rawlog.xs b/src/perl/common/Rawlog.xs index 08827f62..753c9ee7 100644 --- a/src/perl/common/Rawlog.xs +++ b/src/perl/common/Rawlog.xs @@ -11,6 +11,15 @@ rawlog_create() MODULE = Irssi PACKAGE = Irssi::Rawlog PREFIX = rawlog_ #******************************* +void rawlog_get_lines(rawlog) + Irssi::Rawlog rawlog +PREINIT: + GSList *tmp; +PPCODE: + for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) { + XPUSHs(sv_2mortal(new_pv(tmp->data))); + } + void rawlog_destroy(rawlog) Irssi::Rawlog rawlog |