apps/irssi/src/perl/textui/TextBuffer.xs

   1 #include "module.h"
   2
   3 MODULE = Irssi::TextUI::TextBuffer  PACKAGE = Irssi
   4 PROTOTYPES: ENABLE
   5
   6 #*******************************
   7 MODULE = Irssi::TextUI::TextBuffer  PACKAGE = Irssi::TextUI::Line  PREFIX = textbuffer_line_
   8 #*******************************
   9
  10 Irssi::TextUI::Line
  11 textbuffer_line_prev(line)
  12         Irssi::TextUI::Line line
  13 CODE:
  14         RETVAL = line->prev;
  15 OUTPUT:
  16         RETVAL
  17
  18 Irssi::TextUI::Line
  19 textbuffer_line_next(line)
  20         Irssi::TextUI::Line line
  21 CODE:
  22         RETVAL = line->next;
  23 OUTPUT:
  24         RETVAL
  25
  26 void
  27 textbuffer_line_get_text(line, coloring)
  28         Irssi::TextUI::Line line
  29         int coloring
  30 PREINIT:
  31         GString *str;
  32         SV *result;
  33 PPCODE:
  34         str = g_string_new(NULL);
  35         textbuffer_line2text(line, coloring, str);
  36         result = new_pv(str->str);
  37         XPUSHs(sv_2mortal(result));
  38         g_string_free(str, TRUE);
  39