NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.

p4raw-id: //depot/perl@10643

1 files changed, 87 insertions, 0 deletions

diff --git a/NetWare/netware.h b/NetWare/netware.h
new file mode 100644
index 0000000000..bd1a4c2cd3
--- /dev/null
+++ b/NetWare/netware.h
@@ -0,0 +1,87 @@
+
+/*
+ * 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;
+};
+
+/*
+ * 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)
+
+EXTERN_C void	Perl_nw5_init(int *argcp, char ***argvp);
+
+/*
+ * 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 */
+