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

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