diff options
Diffstat (limited to 'src/perl/ui')
| -rw-r--r-- | src/perl/ui/UI.xs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/perl/ui/UI.xs b/src/perl/ui/UI.xs index 04fce9fe..c3b69900 100644 --- a/src/perl/ui/UI.xs +++ b/src/perl/ui/UI.xs @@ -71,6 +71,16 @@ MODULE = Irssi::UI PACKAGE = Irssi::UI PROTOTYPES: ENABLE void +processes() +PREINIT: + GSList *tmp; +PPCODE: + for (tmp = processes; tmp != NULL; tmp = tmp->next) { + XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::UI::Process"))); + } + + +void init() CODE: if (initialized) return; |