101 |
for (i = 0; i < items; i++) |
for (i = 0; i < items; i++) |
102 |
{ |
{ |
103 |
message = SvPV (ST (i), integer); |
message = SvPV (ST (i), integer); |
104 |
gui_printf (NULL, "%s\n", message); |
gui_printf (gui_current_window, "%s%s", |
105 |
|
message, |
106 |
|
(message[strlen (message) - 1] == '\n') ? "" : "\n"); |
107 |
} |
} |
108 |
|
|
109 |
XSRETURN_EMPTY; |
XSRETURN_EMPTY; |
146 |
wee_perl_init () |
wee_perl_init () |
147 |
{ |
{ |
148 |
char *perl_args[] = { "", "-e", "0" }; |
char *perl_args[] = { "", "-e", "0" }; |
149 |
/* This Perl code is extracted/modified from X-Chat IRC client */ |
/* Following Perl code is extracted/modified from X-Chat IRC client */ |
150 |
/* X-Chat is (c) 1998-2002 Peter Zelezny */ |
/* X-Chat is (c) 1998-2002 Peter Zelezny */ |
151 |
char *weechat_perl_func = |
char *weechat_perl_func = |
152 |
{ |
{ |