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		:	netware.h
 * DESCRIPTION	:	Include for NetWare stuff.
 *                  This is based on the win32.h file of Win32 port.
 * Author		:	SGP
 * Date			:	January 2001.
 *
 */

#ifndef  _INC_NW_PERL5
#define  _INC_NW_PERL5

#include <dirent.h>
#include "stdio.h"

// to get the internal debugger break for functions that are not yet handled
#include "deb.h"

#ifndef EXT
#include "EXTERN.h"
#endif

//structure that will be used by times routine.
struct tms {
	long	tms_utime;
	long	tms_stime;
	long	tms_cutime;
	long	tms_cstime;
};

#define PERL_GET_CONTEXT_DEFINED
#define ENV_IS_CASELESS

#undef   init_os_extras
#define  init_os_extras Perl_init_os_extras

#define HAVE_INTERP_INTERN
struct interp_intern {
    void *	internal_host;
    long	perlshell_items;	// For system() ;  Ananth, 3 Sept 2001

char *	perlshell_tokens;	// For system() ; From Win32 of Perl 5.8 on 24 June 2002
    char **	perlshell_vec;	// For system() ; From Win32 of Perl 5.8 on 24 June 2002
};

/*
 * handle socket stuff, assuming socket is always available
 */
#include <sys/socket.h>
#include <sys/types.h>
#include <netdb.h>

//This is clashing with a definition in perly.h, hence
//undefine, may have to redefine if need be - CHKSGP
#undef WORD

#ifndef SOCKET
typedef u_int           SOCKET;
#endif

#define nw_internal_host		(PL_sys_intern.internal_host)
#define nw_perlshell_items	(PL_sys_intern.perlshell_items)		// For system() ;  Ananth, 3 Sept 2001

#define nw_perlshell_tokens	(PL_sys_intern.perlshell_tokens)	// For system() ; From Win32 of Perl 5.8 on 24 June 2002
#define nw_perlshell_vec	(PL_sys_intern.perlshell_vec)	// For system() ; From Win32 of Perl 5.8 on 24 June 2002

EXTERN_C void	Perl_nw5_init(int *argcp, char ***argvp);

#define PTHREAD_ATFORK(prepare,parent,child)	NOOP

/*
 * This provides a layer of functions and macros to ensure extensions will
 * get to use the same RTL functions as the core.
 */
#include "nw5iop.h"

// Below is called in Run.c file when a perl script executes/runs.
#ifdef MPK_ON
	#define PERL_ASYNC_CHECK() kYieldThread();
#else
	#define PERL_ASYNC_CHECK() ThreadSwitch();
#endif

#endif /* _INC_NW_PERL5 */