apps/irssi/src/perl/common/Rawlog.xs

   1 #include "module.h"
   2
   3 MODULE = Irssi::Rawlog  PACKAGE = Irssi
   4 PROTOTYPES: ENABLE
   5
   6 void
   7 rawlog_set_size(lines)
   8         int lines
   9
  10 Irssi::Rawlog
  11 rawlog_create()
  12
  13 #*******************************
  14 MODULE = Irssi::Rawlog  PACKAGE = Irssi::Rawlog  PREFIX = rawlog_
  15 #*******************************
  16
  17 void
  18 rawlog_get_lines(rawlog)
  19         Irssi::Rawlog rawlog
  20 PREINIT:
  21         GSList *tmp;
  22 PPCODE:
  23         for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) {
  24                 XPUSHs(sv_2mortal(new_pv(tmp->data)));
  25         }
  26
  27 void
  28 rawlog_destroy(rawlog)
  29         Irssi::Rawlog rawlog
  30
  31 void
  32 rawlog_input(rawlog, str)
  33         Irssi::Rawlog rawlog
  34         char *str
  35
  36 void
  37 rawlog_output(rawlog, str)
  38         Irssi::Rawlog rawlog
  39         char *str
  40
  41 void
  42 rawlog_redirect(rawlog, str)
  43         Irssi::Rawlog rawlog
  44         char *str
  45
  46 void
  47 rawlog_open(rawlog, fname)
  48         Irssi::Rawlog rawlog
  49         char *fname
  50
  51 void
  52 rawlog_close(rawlog)
  53         Irssi::Rawlog rawlog
  54
  55 void
  56 rawlog_save(rawlog, fname)
  57         Irssi::Rawlog rawlog
  58         char *fname