extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.git] / NetWare / netware.h
1
2 /*
3  * Copyright © 2001 Novell, Inc. All Rights Reserved.
4  *
5  * You may distribute under the terms of either the GNU General Public
6  * License or the Artistic License, as specified in the README file.
7  *
8  */
9
10 /*
11  * FILENAME             :       netware.h
12  * DESCRIPTION  :       Include for NetWare stuff.
13  *                  This is based on the win32.h file of Win32 port.
14  * Author               :       SGP
15  * Date                 :       January 2001.
16  *
17  */
18
19
20
21 #ifndef  _INC_NW_PERL5
22 #define  _INC_NW_PERL5
23
24 #include <dirent.h>
25 #include "stdio.h"
26
27 // to get the internal debugger break for functions that are not yet handled
28 #include "deb.h"
29
30 #ifndef EXT
31 #include "EXTERN.h"
32 #endif
33
34 //structure that will be used by times routine.
35 struct tms {
36         long    tms_utime;
37         long    tms_stime;
38         long    tms_cutime;
39         long    tms_cstime;
40 };
41
42 #define PERL_GET_CONTEXT_DEFINED
43 #define ENV_IS_CASELESS
44
45 #undef   init_os_extras
46 #define  init_os_extras Perl_init_os_extras
47
48 #define HAVE_INTERP_INTERN
49 struct interp_intern {
50     void *      internal_host;
51     long        perlshell_items;        // For system() ;  Ananth, 3 Sept 2001
52
53     char *      perlshell_tokens;       // For system() ; From Win32 of Perl 5.8 on 24 June 2002
54     char **     perlshell_vec;  // For system() ; From Win32 of Perl 5.8 on 24 June 2002
55 };
56
57 /*
58  * handle socket stuff, assuming socket is always available
59  */
60 #include <sys/socket.h>
61 #include <sys/types.h>
62 #include <netdb.h>
63
64 //This is clashing with a definition in perly.h, hence
65 //undefine, may have to redefine if need be - CHKSGP
66 #undef WORD
67
68 #ifndef SOCKET
69 typedef u_int           SOCKET;
70 #endif
71
72 #define nw_internal_host                (PL_sys_intern.internal_host)
73 #define nw_perlshell_items      (PL_sys_intern.perlshell_items)         // For system() ;  Ananth, 3 Sept 2001
74
75 #define nw_perlshell_tokens     (PL_sys_intern.perlshell_tokens)        // For system() ; From Win32 of Perl 5.8 on 24 June 2002
76 #define nw_perlshell_vec        (PL_sys_intern.perlshell_vec)   // For system() ; From Win32 of Perl 5.8 on 24 June 2002
77
78 EXTERN_C void   Perl_nw5_init(int *argcp, char ***argvp);
79
80 #define PTHREAD_ATFORK(prepare,parent,child)    NOOP
81
82 /*
83  * This provides a layer of functions and macros to ensure extensions will
84  * get to use the same RTL functions as the core.
85  */
86 #include "nw5iop.h"
87
88 // Below is called in Run.c file when a perl script executes/runs.
89 #ifdef MPK_ON
90         #define PERL_ASYNC_CHECK() kYieldThread();
91 #else
92         #define PERL_ASYNC_CHECK() ThreadSwitch();
93 #endif
94
95
96 #endif /* _INC_NW_PERL5 */
97