Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
bat	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
t	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
testnlm	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
CLIBsdio.h	5.53 KB	-r--r--r--	2014-12-27 11:48
CLIBstr.h	3.45 KB	-r--r--r--	2014-12-27 11:48
CLIBstuf.c	6.1 KB	-r--r--r--	2014-12-27 11:48
CLIBstuf.h	810 B	-r--r--r--	2014-12-27 11:48
MP.imp	141 B	-r--r--r--	2014-12-27 11:48
Main.c	6.79 KB	-r--r--r--	2014-12-27 11:48
Makefile	39.24 KB	-rw-r--r--	2015-01-28 21:08
NWTInfo.c	13.66 KB	-r--r--r--	2014-12-27 11:48
NWUtil.c	21.45 KB	-r--r--r--	2014-12-27 11:48
Nwmain.c	34.43 KB	-r--r--r--	2014-12-27 11:48
Nwpipe.c	15.59 KB	-r--r--r--	2014-12-27 11:48
config.wc	21.06 KB	-r--r--r--	2014-12-27 11:49
config_H.wc	104.08 KB	-rw-r--r--	2015-01-28 21:08
config_h.PL	2.35 KB	-r--r--r--	2014-12-27 11:48
config_sh.PL	2.04 KB	-r--r--r--	2014-12-27 11:48
deb.h	916 B	-r--r--r--	2014-12-27 11:48
dl_netware.xs	4.48 KB	-r--r--r--	2014-12-27 11:48
intdef.h	2.15 KB	-r--r--r--	2014-12-27 11:48
interface.c	4.01 KB	-r--r--r--	2014-12-27 11:48
interface.cpp	4.47 KB	-r--r--r--	2014-12-27 11:48
interface.h	957 B	-r--r--r--	2014-12-27 11:48
iperlhost.h	1.04 KB	-r--r--r--	2014-12-27 11:48
netware.h	2.32 KB	-r--r--r--	2014-12-27 11:48
nw5.c	18.5 KB	-r--r--r--	2014-12-27 11:48
nw5iop.h	4.54 KB	-r--r--r--	2014-12-27 11:48
nw5sck.c	5.02 KB	-r--r--r--	2014-12-27 11:48
nw5sck.h	4.29 KB	-r--r--r--	2014-12-27 11:48
nw5thread.c	1.45 KB	-r--r--r--	2014-12-27 11:48
nw5thread.h	4.88 KB	-r--r--r--	2014-12-27 11:48
nwhashcls.cpp	5.09 KB	-r--r--r--	2014-12-27 11:48
nwhashcls.h	1.35 KB	-r--r--r--	2014-12-27 11:48
nwperlhost.h	35.25 KB	-r--r--r--	2014-12-27 11:48
nwperlsys.c	4.87 KB	-r--r--r--	2014-12-27 11:48
nwperlsys.h	25.81 KB	-r--r--r--	2014-12-27 11:48
nwpipe.h	1.11 KB	-r--r--r--	2014-12-27 11:48
nwplglob.c	2.19 KB	-r--r--r--	2014-12-27 11:48
nwplglob.h	468 B	-r--r--r--	2014-12-27 11:48
nwstdio.h	4.22 KB	-r--r--r--	2014-12-27 11:48
nwtinfo.h	1.81 KB	-r--r--r--	2014-12-27 11:48
nwutil.h	2.06 KB	-r--r--r--	2014-12-27 11:48
nwvmem.h	6.71 KB	-r--r--r--	2014-12-27 11:48
perllib.cpp	6.2 KB	-r--r--r--	2014-12-27 11:48
splittree.pl	527 B	-r--r--r--	2014-12-27 11:48
sv_nw.c	572 B	-r--r--r--	2014-12-27 11:48
win32ish.h	666 B	-r--r--r--	2014-12-27 11:48

Rename

/*
 * Copyright © 2001 Novell, Inc. All Rights Reserved.
 *
 * You may distribute under the terms of either the GNU General Public
 * License or the Artistic License, as specified in the README file.
 *
 */

/*
 * 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 (pTHX_ CV* cv);

EXTERN_C BOOL Remove_Thread_Ctx(void);

ClsPerlHost::ClsPerlHost()
{

}

ClsPerlHost::~ClsPerlHost()
{

}

ClsPerlHost::VersionNumber()
{
	return 0;
}

bool
ClsPerlHost::RegisterWithThreadTable()
{
	return(fnRegisterWithThreadTable());
}

bool
ClsPerlHost::UnregisterWithThreadTable()
{
	return(fnUnregisterWithThreadTable());
}

int
ClsPerlHost::PerlCreate(PerlInterpreter *my_perl)
{
/*	if (!(my_perl = perl_alloc()))		// Allocate memory for Perl.
		return (1);*/
    perl_construct(my_perl);

return 1;
}

int
ClsPerlHost::PerlParse(PerlInterpreter *my_perl, int argc, char** argv, char** env)
{
	return(perl_parse(my_perl, xs_init, argc, argv, env));		// Parse the command line.
}

int
ClsPerlHost::PerlRun(PerlInterpreter *my_perl)
{
	return(perl_run(my_perl));	// Run Perl.
}

void
ClsPerlHost::PerlDestroy(PerlInterpreter *my_perl)
{
	perl_destruct(my_perl);		// Destructor for Perl.
}

void
ClsPerlHost::PerlFree(PerlInterpreter *my_perl)
{
	perl_free(my_perl);			// Free the memory allocated for Perl.

// Remove the thread context set during Perl_set_context
	// This is added here since for web script there is no other place this gets executed
	// and it cannot be included into cgi2perl.xs unless this symbol is exported.
	Remove_Thread_Ctx();
}

/*============================================================================================

Function		:	xs_init

Description	:

Parameters 	:	pTHX	(IN)	-

Returns		:	Nothing.

==============================================================================================*/

static void xs_init(pTHX)
{
	char *file = __FILE__;

dXSUB_SYS;
	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}

EXTERN_C
int RunPerl(int argc, char **argv, char **env)
{
	int exitstatus = 0;
	ClsPerlHost nlm;

PerlInterpreter *my_perl = NULL;		// defined in Perl.h
	PerlInterpreter *new_perl = NULL;		// defined in Perl.h

#ifdef PERL_GLOBAL_STRUCT
		#define PERLVAR(prefix,var,type)
		#define PERLVARA(prefix,var,type)
		#define PERLVARI(prefix,var,type,init) PL_Vars.prefix##var = init;
		#define PERLVARIC(prefix,var,type,init) PL_Vars.prefix##var = init;

#include "perlvars.h"

#undef PERLVAR
		#undef PERLVARA
		#undef PERLVARI
		#undef PERLVARIC
	#endif

PERL_SYS_INIT(&argc, &argv);

if (!(my_perl = perl_alloc()))		// Allocate memory for Perl.
		return (1);

if(nlm.PerlCreate(my_perl))
	{
		PL_perl_destruct_level = 0;

exitstatus = nlm.PerlParse(my_perl, argc, argv, env);
		if(exitstatus == 0)
		{
			#if defined(TOP_CLONE) && defined(USE_ITHREADS)		// XXXXXX testing
				new_perl = perl_clone(my_perl, 1);

exitstatus = perl_run(new_perl);	// Run Perl.
				PERL_SET_THX(my_perl);
			#else
				exitstatus = nlm.PerlRun(my_perl);
			#endif
		}
		nlm.PerlDestroy(my_perl);
	}
	if(my_perl)
		nlm.PerlFree(my_perl);

#ifdef USE_ITHREADS
		if (new_perl)
		{
			PERL_SET_THX(new_perl);
			nlm.PerlDestroy(new_perl);
			nlm.PerlFree(my_perl);
		}
	#endif

PERL_SYS_TERM();
	return exitstatus;
}

// FUNCTION: AllocStdPerl
//
// DESCRIPTION:
//	Allocates a standard perl handler that other perl handlers
//	may delegate to. You should call FreeStdPerl to free this
//	instance when you are done with it.
//
IPerlHost* AllocStdPerl()
{
	return (IPerlHost*) new ClsPerlHost();
}

// FUNCTION: FreeStdPerl
//
// DESCRIPTION:
//	Frees an instance of a standard perl handler allocated by
//	AllocStdPerl.
//
void FreeStdPerl(IPerlHost* pPerlHost)
{
	if (pPerlHost)
		delete (ClsPerlHost*) pPerlHost;
}