apps/irssi/src/perl/ui/Formats.xs

   1 #include "module.h"
   2
   3 MODULE = Irssi::UI::Formats  PACKAGE = Irssi::UI::Window
   4 PROTOTYPES: ENABLE
   5
   6 void
   7 format_get_text(window, module, server, target, formatnum, ...)
   8         Irssi::UI::Window window
   9         char *module
  10         Irssi::Server server
  11         char *target
  12         int formatnum
  13 PREINIT:
  14         char **charargs;
  15         char *ret;
  16         int n;
  17 PPCODE:
  18         charargs = g_new0(char *, items-5+1);
  19         charargs[items-5] = NULL;
  20         for (n = 5; n < items; n++) {
  21                 charargs[n-5] = (char *)SvPV(ST(n), PL_na);
  22         }
  23         ret = format_get_text(module, window, server, target, formatnum, charargs);
  24         g_free(charargs);
  25
  26         XPUSHs(sv_2mortal(new_pv(ret)));
  27         g_free_not_null(ret);