aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-06-20 00:15:31 +00:00
Code

Let Perl scripts dynamically load libraries.

Browse Source 
XML::LibXML::SAX appears to require this.
This commit is contained in:
Kalle Olavi Niemitalo 2008-09-27 21:58:08 +03:00 committed by Kalle Olavi Niemitalo
parent 58ebb4447b
commit b0ce4adcbe
2 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
NEWS
View File

@ -5,6 +5,14 @@ You can see the complete list of recent changes, bugfixes and new features
in the http://repo.or.cz/w/elinks.git[gitweb interface]. See the ChangeLog
file for details.
ELinks 0.12pre2.GIT now:
------------------------
To be released as 0.12pre3, 0.12rc1, or even 0.12.0.
* Perl scripts can use modules that dynamically load C libraries, like
XML::LibXML::SAX does.
ELinks 0.12pre2:
----------------

20
src/scripting/perl/core.c
View File

@ -15,6 +15,12 @@
#include "scripting/perl/core.h"
#include "util/file.h"
/* The configure script runs "perl -MExtUtils::Embed -e ccopts -e ldopts",
* which should output the location of the DynaLoader.a where this function
* is defined. This prototype does not appear to be in any public header
* file of Perl. */
EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
#define PERL_HOOKS_FILENAME "hooks.pl"
@ -65,6 +71,16 @@ cleanup_perl(struct module *module)
#endif
}
/** Tell Perl about XSUBs that were linked into ELinks. */
static void
xs_init(pTHX)
{
/* DynaLoader is the only Perl module whose library is
* statically linked into ELinks. DynaLoader::bootstrap will
* then load other libraries and register their XSUBs as
* needed. */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__);
}
void
init_perl(struct module *module)
@ -97,9 +113,9 @@ init_perl(struct module *module)
perl_construct(my_perl);
if (hook_local)
err = perl_parse(my_perl, NULL, 2, local_argv, NULL);
err = perl_parse(my_perl, xs_init, 2, local_argv, NULL);
else if (hook_global)
err = perl_parse(my_perl, NULL, 2, global_argv, NULL);
err = perl_parse(my_perl, xs_init, 2, global_argv, NULL);
#ifdef PERL_EXIT_DESTRUCT_END
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
#endif