*/
/*
- * FILENAME : interface.c
- * DESCRIPTION : Perl parsing and running functions.
- * Author : SGP
- * Date : January 2001.
- *
+ * FILENAME : interface.c
+ * DESCRIPTION : Calling Perl APIs.
+ * Author : SGP
+ * Date Created : January 2001.
+ * Date Modified: July 2nd 2001.
*/
#include "interface.h"
-
+#include "nwtinfo.h"
static void xs_init(pTHX);
EXTERN_C int RunPerl(int argc, char **argv, char **env);
EXTERN_C void Perl_nw5_init(int *argcp, char ***argvp);
-EXTERN_C void boot_DynaLoader (pTHXo_ CV* cv);
+EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
ClsPerlHost::ClsPerlHost()
return 0;
}
+bool
+ClsPerlHost::RegisterWithThreadTable()
+{
+ return(fnRegisterWithThreadTable());
+}
+
+bool
+ClsPerlHost::UnregisterWithThreadTable()
+{
+ return(fnUnregisterWithThreadTable());
+}
+
int
ClsPerlHost::PerlCreate(PerlInterpreter *my_perl)
{
if(exitstatus == 0)
{
#if defined(TOP_CLONE) && defined(USE_ITHREADS) // XXXXXX testing
- # ifdef PERL_OBJECT
- CPerlHost *h = new CPerlHost();
- new_perl = perl_clone_using(my_perl, 1,
- h->m_pHostperlMem,
- h->m_pHostperlMemShared,
- h->m_pHostperlMemParse,
- h->m_pHostperlEnv,
- h->m_pHostperlStdIO,
- h->m_pHostperlLIO,
- h->m_pHostperlDir,
- h->m_pHostperlSock,
- h->m_pHostperlProc
- );
- CPerlObj *pPerl = (CPerlObj*)new_perl;
- # else
- new_perl = perl_clone(my_perl, 1);
- # endif
+ new_perl = perl_clone(my_perl, 1);
exitstatus = perl_run(new_perl); // Run Perl.
PERL_SET_THX(my_perl);