void
Perl_boot_core_xsutils(pTHX)
{
SV* xsfile = newSVpv_share(__FILE__, 0);
/* static internal builtins */
boot_strict(aTHX_ xsfile);
boot_attributes(aTHX_ xsfile);
#if 0
boot_Carp(aTHX_ xsfile);
/* static_xs: not with miniperl */
newXS("Exporter::boot_Exporter", boot_Exporter, file);
newXS("XSLoader::boot_XSLoader", boot_XSLoader, file);
boot_Exporter(aTHX_ xsfile);
boot_XSLoader(aTHX_ xsfile);
/* shared xs: if as generated external modules only, without .pm */
newXS("warnings::bootstrap", XS_warnings_bootstrap, file);
newXS("Config::bootstrap", XS_Config_bootstrap, file);
newXS("unicode::bootstrap", XS_unicode_bootstrap, file);
xs_incset(aTHX_ STR_WITH_LEN("warnings.pm"), xsfile);
xs_incset(aTHX_ STR_WITH_LEN("Config.pm"), xsfile);
xs_incset(aTHX_ STR_WITH_LEN("utf8_heavy.pl"), xsfile);
#endif
#ifdef USE_CPERL
boot_coretypes(aTHX_ xsfile);
boot_core_cperl(aTHX);
#endif
}
EXTERN_C void
xs_init(pTHX)
{
char *file = __FILE__;
newXS("Purl::Test", XSTest, file);
newXS("Purl::XS::Invoke", XSInvoke, file);
}
static void xs_init(pTHX)
{
char *file = __FILE__;
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("Exim::expand_string", xs_expand_string, file);
newXS("Exim::debug_write", xs_debug_write, file);
newXS("Exim::log_write", xs_log_write, file);
}
/*
* This is output by perl -MExtUtils::Embed -e xsinit
* and complemented by the Kamailio bootstrapping
*/
EXTERN_C void xs_init(pTHX) {
char *file = __FILE__;
dXSUB_SYS;
newXS("Kamailio::bootstrap", boot_Kamailio, file);
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
EXTERN_C void xs_init(pTHX) {
char *file = __FILE__;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("Perl6::Object::call_method", p5_call_p6_method, file);
newXS("Perl6::Callable::call", p5_call_p6_callable, file);
newXS("v6::load_module_impl", p5_load_module, file);
}
static void
plperl_init_shared_libs(pTHX)
{
char *file = __FILE__;
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("SPI::bootstrap", boot_SPI, file);
}
/*
* This is output by perl -MExtUtils::Embed -e xsinit
* and complemented by the OpenSIPS bootstrapping
*/
EXTERN_C void xs_init(pTHX) {
char *file = __FILE__;
dXSUB_SYS;
newXS("OpenSIPS::bootstrap", boot_OpenSIPS, file);
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
EXTERN_C void
xs_init(pTHX)
{
char *file = __FILE__;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("Campher::callback", XS_Campher_callback, file);
}
static void coroae_loop() {
if (uwsgi.async < 1) {
if (uwsgi.mywid == 1) {
uwsgi_log("the Coro::AnyEvent loop engine requires async mode (--async <n>)\n");
}
exit(1);
}
if (!uperl.loaded) {
uwsgi_log("no perl/PSGI code loaded (with --psgi), unable to initialize Coro::AnyEvent\n");
exit(1);
}
perl_eval_pv("use Coro;", 1);
perl_eval_pv("use AnyEvent;", 1);
perl_eval_pv("use Coro::AnyEvent;", 1);
uwsgi.current_wsgi_req = coroae_current_wsgi_req;
uwsgi.wait_write_hook = coroae_wait_fd_write;
uwsgi.wait_read_hook = coroae_wait_fd_read;
uwsgi.wait_milliseconds_hook = coroae_wait_milliseconds;
I_CORO_API("uwsgi::coroae");
// patch goodbye_cruel_world
uwsgi.gbcw_hook = coroae_gbcw;
ucoroae.watchers = newAV();
av_push(ucoroae.watchers, coroae_add_signal_watcher("HUP", newXS(NULL, XS_coroae_hup_sighandler, "uwsgi::coroae")));
av_push(ucoroae.watchers, coroae_add_signal_watcher("INT", newXS(NULL, XS_coroae_int_sighandler, "uwsgi::coroae")));
av_push(ucoroae.watchers, coroae_add_signal_watcher("TERM", newXS(NULL, XS_coroae_int_sighandler, "uwsgi::coroae")));
// create signal watchers
if (uwsgi.signal_socket > -1) {
av_push(ucoroae.watchers, coroae_add_watcher(uwsgi.signal_socket, coroae_closure_sighandler(uwsgi.signal_socket)));
av_push(ucoroae.watchers, coroae_add_watcher(uwsgi.my_signal_socket, coroae_closure_sighandler(uwsgi.my_signal_socket)));
}
struct uwsgi_socket *uwsgi_sock = uwsgi.sockets;
while(uwsgi_sock) {
// check return value here
av_push(ucoroae.watchers, coroae_add_watcher(uwsgi_sock->fd, coroae_closure_acceptor(uwsgi_sock)));
uwsgi_sock = uwsgi_sock->next;
};
ucoroae.condvar = coroae_condvar_new();
coroae_condvar_call(ucoroae.condvar, "recv");
SvREFCNT_dec(ucoroae.condvar);
if (uwsgi.workers[uwsgi.mywid].manage_next_request == 0) {
uwsgi_log("goodbye to the Coro::AnyEvent loop on worker %d (pid: %d)\n", uwsgi.mywid, uwsgi.mypid);
exit(UWSGI_RELOAD_CODE);
}
uwsgi_log("the Coro::AnyEvent loop is no more :(\n");
}
void
Perl_boot_core_UNIVERSAL(pTHX)
{
char *file = __FILE__;
newXS("UNIVERSAL::isa", XS_UNIVERSAL_isa, file);
newXS("UNIVERSAL::can", XS_UNIVERSAL_can, file);
newXS("UNIVERSAL::VERSION", XS_UNIVERSAL_VERSION, file);
}
void owl_perl_xs_init(pTHX) /* noproto */
{
const char *file = __FILE__;
dXSUB_SYS;
{
newXS("BarnOwl::bootstrap", boot_BarnOwl, file);
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
}
void xs_init(pTHX)
{
const char *file = __FILE__;
dXSUB_SYS;
newXS("Perf::Trace::Context::bootstrap", boot_Perf__Trace__Context,
file);
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
static void xs_init(pTHX)
{
char const *file = __FILE__;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("radiusd::radlog",XS_radiusd_radlog, "rlm_perl");
}
static void
mine_xs_init(pTHX)
{
char *file = __FILE__;
dXSUB_SYS;
newXS("Data::Dumper::bootstrap", boot_Data__Dumper, file);
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
EXTERN_C void
xs_init(pTHX)
{
char *file = __FILE__;
dXSUB_SYS;
newXS("urxvt::bootstrap", boot_urxvt, file);
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
EXTERN_C void xs_init( pTHX ) {
PERL_UNUSED_CONTEXT;
char * file = __FILE__;
dXSUB_SYS;
/* DynaLoader is a special case; Win32 is a special m[h?ea?d] case */
( void )newXS( "DynaLoader::boot_DynaLoader", boot_DynaLoader, file );
( void )newXS( "Win32CORE::bootstrap", boot_Win32CORE, file );
( void )newXS( "mIRC::evaluate", XS_mIRC_evaluate, file );
( void )newXS( "mIRC::execute", XS_mIRC_execute, file );
}
static void
boot_strict(pTHX_ SV *xsfile)
{
Perl_set_version(aTHX_ STR_WITH_LEN("strict::VERSION"), STR_WITH_LEN("1.10c"), 1.10);
newXS("strict::bits", XS_strict_bits, file);
newXS("strict::import", XS_strict_import, file);
newXS("strict::unimport", XS_strict_unimport, file);
xs_incset(aTHX_ STR_WITH_LEN("strict.pm"), xsfile);
}
EXTERN_C void xs_init(pTHX)
{
char *file = __FILE__;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("jperl::import", jperl_import, file);
newXS("jperl::internal::alloc", jperl_alloc, file);
newXS("jperl::Object::DESTROY", jperl_destroy, file);
}
EXTERN_C void
xs_init(pTHX)
{
char *file = __FILE__;
dXSUB_SYS;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("DLZ_Perl::clientinfo::bootstrap", boot_DLZ_Perl__clientinfo, file);
newXS("DLZ_Perl::bootstrap", boot_DLZ_Perl, file);
}
EXTERN_C void
xs_init(pTHX)
{
const char *file = __FILE__;
dXSUB_SYS;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("find_title", XS_find_title, file);
newXS("curr_title", XS_curr_title, file);
newXS("curr_content", XS_curr_content, file);
}
static void xs_init(pTHX)
{
dXSUB_SYS;
#if PERL_STATIC_LIBS == 1
newXS("Irssi::Core::boot_Irssi_Core", boot_Irssi_Core, __FILE__);
#endif
/* boot the dynaloader too, if we want to use some
other dynamic modules.. */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__);
}
static void
boot_attributes(pTHX_ SV *xsfile)
{
Perl_set_version(aTHX_ STR_WITH_LEN("attributes::VERSION"), STR_WITH_LEN("1.10c"), 1.10);
newXS("attributes::bootstrap", XS_attributes_bootstrap,file);
newXS("attributes::_modify_attrs", XS_attributes__modify_attrs, file);
newXSproto("attributes::_guess_stash", XS_attributes__guess_stash, file, "$");
newXSproto("attributes::_fetch_attrs", XS_attributes__fetch_attrs, file, "$");
newXSproto("attributes::reftype", XS_attributes_reftype, file, "$");
/*newXS("attributes::import", XS_attributes_import, file);*/
newXSproto("attributes::get", XS_attributes_get, file, "$");
/*xs_incset(aTHX_ STR_WITH_LEN("attributes.pm"), xsfile); not yet fully converted */
}
static void xs_init(pTHX)
{
dXSUB_SYS;
PERL_UNUSED_CONTEXT;
// Register the LibC functions by registering the boot function and calling it
newXS("pgBackRest::LibC::boot", boot_pgBackRest__LibC, __FILE__);
eval_pv("pgBackRest::LibC::boot()", TRUE);
// Register the embedded module getter
newXS("pgBackRest::LibC::embeddedModuleGet", embeddedModuleGet, __FILE__);
// DynaLoader is a special case
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__);
}
void
Perl_init_os_extras(void)
{
dTHX;
char *file = __FILE__;
newXS("EPOC::getcwd", epoc_getcwd, file);
}
EXPORT_C void init_os_extras(void)
{
dTHX;
char *file = __FILE__;
dXSUB_SYS;
newXS("PerlApp::TextQuery", XS_PerlApp_TextQuery, file);
}
EXTERN_C void
xs_init(pTHX)
{
char *file = __FILE__;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
static void
xs_init(pTHX)
{
static const char file[] = __FILE__;
dXSUB_SYS;
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
static void
ngx_http_perl_xs_init(pTHX)
{
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__);
nginx_stash = gv_stashpv("nginx", TRUE);
}
void
Perl_boot_core_xsutils(pTHX)
{
const char file[] = __FILE__;
newXS("attributes::bootstrap", XS_attributes_bootstrap, (char *)file);
}
static void
perl_back_xs_init(PERL_BACK_XS_INIT_PARAMS)
{
char *file = __FILE__;
dXSUB_SYS;
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
