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     :   nwperlsys.c
 * DESCRIPTION  :   Contains calls to Perl APIs and
 *                  utility functions calls
 *                  
 * Author       :   SGP
 * Date Created :   June 12th 2001.
 * Date Modified:   June 26th 2001.
 */

#include "EXTERN.h"
#include "perl.h"

//CHKSGP
//Including this is giving premature end-of-file error during compilation
//#include "XSUB.h"

#ifdef PERL_IMPLICIT_SYS

//Includes iperlsys.h and function definitions
#include "nwperlsys.h"

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

Function		:	fnFreeMemEntry

Description	:	Called for each outstanding memory allocation at the end of a script run.
					Frees the outstanding allocations

Parameters 	:	ptr	(IN).
					context (IN)

Returns		:	Nothing.

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

void fnFreeMemEntry(void* ptr, void* context)
{
	if(ptr)
	{
		PerlMemFree(NULL, ptr);
	}
}
/*============================================================================================

Function		:	fnAllocListHash

Description	:	Hashing function for hash table of memory allocations.

Parameters 	:	invalue	(IN).

Returns		:	unsigned.

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

unsigned fnAllocListHash(void* const& invalue)
{
    return (((unsigned) invalue & 0x0000ff00) >> 8);
}

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

Function		:	perl_alloc

Description	:	creates a Perl interpreter variable and initializes

Parameters 	:	none

Returns		:	Pointer to Perl interpreter

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

EXTERN_C PerlInterpreter*
perl_alloc(void)
{
    PerlInterpreter* my_perl = NULL;

WCValHashTable<void*>*	m_allocList;
	m_allocList = new WCValHashTable<void*> (fnAllocListHash, 256);
	fnInsertHashListAddrs(m_allocList, FALSE);
 	my_perl = perl_alloc_using(&perlMem,
				   &perlMem,
				   NULL,
				   &perlEnv,
				   &perlStdIO,
				   &perlLIO,
				   &perlDir,
				   &perlSock,
				   &perlProc);
	if (my_perl) {
		//nw5_internal_host = m_allocList;
	}
    return my_perl;
}

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

Function		:	perl_alloc_override

Description	:	creates a Perl interpreter variable and initializes

Parameters 	:	Pointer to structure containing function pointers

Returns		:	Pointer to Perl interpreter

==============================================================================================*/
EXTERN_C PerlInterpreter*
perl_alloc_override(struct IPerlMem** ppMem, struct IPerlMem** ppMemShared,
		 struct IPerlMem** ppMemParse, struct IPerlEnv** ppEnv,
		 struct IPerlStdIO** ppStdIO, struct IPerlLIO** ppLIO,
		 struct IPerlDir** ppDir, struct IPerlSock** ppSock,
		 struct IPerlProc** ppProc)
{
    PerlInterpreter *my_perl = NULL;

struct IPerlMem*	lpMem;
	struct IPerlEnv*	lpEnv;
	struct IPerlStdIO*	lpStdio;
	struct IPerlLIO*	lpLIO;
	struct IPerlDir*	lpDir;
	struct IPerlSock*	lpSock;
	struct IPerlProc*	lpProc;

WCValHashTable<void*>*	m_allocList;
	m_allocList = new WCValHashTable<void*> (fnAllocListHash, 256);
	fnInsertHashListAddrs(m_allocList, FALSE);

if (!ppMem)
		lpMem=&perlMem;
	else
		lpMem=*ppMem;

if (!ppEnv)
		lpEnv=&perlEnv;
	else
		lpEnv=*ppEnv;
	
	if (!ppStdIO)
		lpStdio=&perlStdIO;
	else
		lpStdio=*ppStdIO;

if (!ppLIO)
		lpLIO=&perlLIO;
	else
		lpLIO=*ppLIO;
	
	if (!ppDir)
		lpDir=&perlDir;
	else
		lpDir=*ppDir;

if (!ppSock)
		lpSock=&perlSock;
	else
		lpSock=*ppSock;

if (!ppProc)
		lpProc=&perlProc;
	else
		lpProc=*ppProc;
	my_perl = perl_alloc_using(lpMem,
				   lpMem,
				   NULL,
				   lpEnv,
				   lpStdio,
				   lpLIO,
				   lpDir,
				   lpSock,
				   lpProc);
	
	if (my_perl) {
	    //nw5_internal_host = pHost;
	}
    return my_perl;
}
/*============================================================================================

Function		:	nw5_delete_internal_host

Description	:	Deletes the alloc_list pointer

Parameters 	:	alloc_list pointer

Returns		:	none

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

EXTERN_C void
nw5_delete_internal_host(void *h)
{
	WCValHashTable<void*>*	m_allocList;
	void **listptr;
	BOOL m_dontTouchHashLists;
	if (fnGetHashListAddrs(&listptr,&m_dontTouchHashLists)) {
		m_allocList = (WCValHashTable<void*>*)listptr;
		fnInsertHashListAddrs(m_allocList, TRUE);
		if (m_allocList)
		{
			m_allocList->forAll(fnFreeMemEntry, NULL);
			fnInsertHashListAddrs(NULL, FALSE);
			delete m_allocList;
		}
	}
}

#endif /* PERL_IMPLICIT_SYS */