src/perl/common/Irssi.xs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

#define PERL_NO_GET_CONTEXT
#include "module.h"

static int initialized = FALSE;

void perl_expando_init(void);
void perl_expando_deinit(void);

void perl_settings_init(void);
void perl_settings_deinit(void);

MODULE = Irssi  PACKAGE = Irssi

PROTOTYPES: ENABLE

void
init()
CODE:
	if (initialized) return;
	perl_api_version_check("Irssi");
	initialized = TRUE;

        perl_settings_init();
	perl_expando_init();

void
deinit()
CODE:
	if (!initialized) return;
	perl_expando_deinit();
        perl_settings_deinit();
	initialized = FALSE;

BOOT:
        irssi_boot(Channel);
	irssi_boot(Core);
	irssi_boot(Expando);
	irssi_boot(Ignore);
	irssi_boot(Log);
	irssi_boot(Masks);
	irssi_boot(Query);
	irssi_boot(Rawlog);
	irssi_boot(Server);
	irssi_boot(Settings);