zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-20 09:02:13 +02:00
Code Issues Projects Releases Packages Wiki Activity

Added --with-perl-staticlib option to configure. If used, irssi's perl

Browse source 
libraries are compiled statically into irssi binary.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1914 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-10-24 23:17:27 +00:00 • committed by cras
commit ddf1b27c04
8 changed files with 62 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/perl/perl-core.c
View file

@ -31,6 +31,7 @@
#include "perl-signals.h"
#include "perl-sources.h"
#include "XSUB.h"
#include "irssi-core.pl.h"
/* For compatibility with perl 5.004 and older */
@ -84,6 +85,26 @@ static void perl_script_destroy(PERL_SCRIPT_REC *script)
g_free(script);
}
#if PERL_STATIC_LIBS == 1
extern void boot_Irssi(CV *cv);
XS(boot_Irssi_Core)
{
dXSARGS;
irssi_callXS(boot_Irssi, cv, mark);
irssi_boot(Irc);
irssi_boot(UI);
irssi_boot(TextUI);
}
static void static_xs_init(void)
{
newXS("Irssi::Core::boot_Irssi_Core", boot_Irssi_Core, __FILE__);
}
#endif
/* Initialize perl interpreter */
void perl_scripts_init(void)
{
@ -97,7 +118,12 @@ void perl_scripts_init(void)
my_perl = perl_alloc();
perl_construct(my_perl);
#if PERL_STATIC_LIBS == 1
perl_parse(my_perl, static_xs_init, 3, args, NULL);
perl_eval_pv("Irssi::Core::boot_Irssi_Core();", TRUE);
#else
perl_parse(my_perl, xs_init, 3, args, NULL);
#endif
perl_common_start();