diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-04-28 08:07:42 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-04-28 08:07:42 +0000 |
| commit | a5a66264de2f56c5b1ba00e0228eae61f70d5689 (patch) | |
| tree | 981b0663ff753f754cd0204b742ea12bff0d5e56 /src/perl/xs/Irssi-rawlog.xs | |
| parent | 9cbf26d5199bdd1f3bd29fb27f181af4b94de02e (diff) | |
| download | irssi-a5a66264de2f56c5b1ba00e0228eae61f70d5689.zip | |
Perl working again, better than ever (unless there's bugs :)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@191 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/xs/Irssi-rawlog.xs')
| -rw-r--r-- | src/perl/xs/Irssi-rawlog.xs | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/src/perl/xs/Irssi-rawlog.xs b/src/perl/xs/Irssi-rawlog.xs new file mode 100644 index 00000000..c7422bac --- /dev/null +++ b/src/perl/xs/Irssi-rawlog.xs @@ -0,0 +1,84 @@ +MODULE = Irssi PACKAGE = Irssi + +void +rawlog_set_size(lines) + int lines + +Irssi::Rawlog +rawlog_create() + +#******************************* +MODULE = Irssi PACKAGE = Irssi::Server +#******************************* + +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 + + +#******************************* +MODULE = Irssi PACKAGE = Irssi::Rawlog PREFIX = rawlog_ +#******************************* + +void +values(rawlog) + Irssi::Rawlog rawlog +PREINIT: + HV *hv; + AV *av; + GSList *tmp; +PPCODE: + hv = newHV(); + hv_store(hv, "logging", 7, newSViv(rawlog->logging), 0); + hv_store(hv, "nlines", 6, newSViv(rawlog->nlines), 0); + + av = newAV(); + for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) { + av_push(av, new_pv(tmp->data)); + } + hv_store(hv, "lines", 5, newRV_noinc((SV*)av), 0); + XPUSHs(sv_2mortal(newRV_noinc((SV*)hv))); + +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 |