apps/irssi/src/perl/common/Irssi.xs

   1 #include "module.h"
   2
   3 static int initialized = FALSE;
   4
   5 void perl_expando_init(void);
   6 void perl_expando_deinit(void);
   7
   8 void perl_settings_init(void);
   9 void perl_settings_deinit(void);
  10
  11 MODULE = Irssi  PACKAGE = Irssi
  12
  13 PROTOTYPES: ENABLE
  14
  15 void
  16 init()
  17 CODE:
  18         if (initialized) return;
  19         perl_api_version_check("Irssi");
  20         initialized = TRUE;
  21
  22         perl_settings_init();
  23         perl_expando_init();
  24
  25 void
  26 deinit()
  27 CODE:
  28         if (!initialized) return;
  29         perl_expando_deinit();
  30         perl_settings_deinit();
  31         initialized = FALSE;
  32
  33 BOOT:
  34         irssi_boot(Channel);
  35         irssi_boot(Core);
  36         irssi_boot(Expando);
  37         irssi_boot(Ignore);
  38         irssi_boot(Log);
  39         irssi_boot(Masks);
  40         irssi_boot(Query);
  41         irssi_boot(Rawlog);
  42         irssi_boot(Server);
  43         irssi_boot(Settings);