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
  18 void
  19 deinit()
  20 CODE:
  21         if (!initialized) return;
  22         perl_settings_deinit();
  23
  24 BOOT:
  25         irssi_boot(Channel);
  26         irssi_boot(Core);
  27         irssi_boot(Ignore);
  28         irssi_boot(Log);
  29         irssi_boot(Masks);
  30         irssi_boot(Query);
  31         irssi_boot(Rawlog);
  32         irssi_boot(Server);
  33         irssi_boot(Settings);