Diff
Not logged in

Differences From Artifact [6bb2376e83]:

To Artifact [a2317f4865]:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/*
 * tclWinPort.h --
 *
 *	This header file handles porting issues that occur because of
 *	differences between Windows and Unix. It should be the only
 *	file that contains #ifdefs to handle different flavors of OS.
 *
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclWinPort.h,v 1.36.4.19 2010/06/29 12:12:35 dgp Exp $
 */

#ifndef _TCLWINPORT
#define _TCLWINPORT

#define WIN32_LEAN_AND_MEAN
#include <windows.h>












|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/*
 * tclWinPort.h --
 *
 *	This header file handles porting issues that occur because of
 *	differences between Windows and Unix. It should be the only
 *	file that contains #ifdefs to handle different flavors of OS.
 *
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclWinPort.h,v 1.36.4.20 2010/09/10 13:27:53 dgp Exp $
 */

#ifndef _TCLWINPORT
#define _TCLWINPORT

#define WIN32_LEAN_AND_MEAN
#include <windows.h>
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#   define _TCHAR_DEFINED
    typedef float *TCHAR;
#endif /* CHECK_UNICODE_CALLS */

/*
 *  Pull in the typedef of TCHAR for windows.
 */
#if !defined(_TCHAR_DEFINED)
#   include <tchar.h>
#   ifndef _TCHAR_DEFINED
	/* Borland seems to forget to set this. */
	typedef _TCHAR TCHAR;
#	define _TCHAR_DEFINED
#   endif
#endif

/*
 *---------------------------------------------------------------------------
 * The following sets of #includes and #ifdefs are required to get Tcl to
 * compile under the windows compilers.
 *---------------------------------------------------------------------------







<
|
|
|
|
|
<







34
35
36
37
38
39
40

41
42
43
44
45

46
47
48
49
50
51
52
#   define _TCHAR_DEFINED
    typedef float *TCHAR;
#endif /* CHECK_UNICODE_CALLS */

/*
 *  Pull in the typedef of TCHAR for windows.
 */

#include <tchar.h>
#ifndef _TCHAR_DEFINED
    /* Borland seems to forget to set this. */
    typedef _TCHAR TCHAR;
#   define _TCHAR_DEFINED

#endif

/*
 *---------------------------------------------------------------------------
 * The following sets of #includes and #ifdefs are required to get Tcl to
 * compile under the windows compilers.
 *---------------------------------------------------------------------------
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
#   define ETXTBSY	139	/* Text file or pseudo-device busy */
#endif
#ifndef EWOULDBLOCK
#   define EWOULDBLOCK	140	/* Operation would block */
#endif


#ifndef ESOCKTNOSUPPORT
#   define ESOCKTNOSUPPORT WSAESOCKTNOSUPPORT	/* Socket type not supported */
#endif
#ifndef ESHUTDOWN
#   define ESHUTDOWN	WSAESHUTDOWN	/* Can't send after socket shutdown */
#endif
#ifndef ETOOMANYREFS
#   define ETOOMANYREFS	WSAETOOMANYREFS	/* Too many references: can't splice */
#endif
#ifndef EHOSTDOWN
#   define EHOSTDOWN	WSAEHOSTDOWN	/* Host is down */
#endif
#ifndef EUSERS
#   define EUSERS	WSAEUSERS	/* Too many users (for UFS) */
#endif
#ifndef EDQUOT
#   define EDQUOT	WSAEDQUOT	/* Disc quota exceeded */
#endif
#ifndef ESTALE
#   define ESTALE	WSAESTALE	/* Stale NFS file handle */
#endif

/*
 * Signals not known to the standard ANSI signal.h.  These are used
 * by Tcl_WaitPid() and generic/tclPosixStr.c
 */

#ifndef SIGTRAP







|
|
<
|
|
<
|
|
<
|
|
<
|
|
<
|
|
<
|
|
<







228
229
230
231
232
233
234
235
236

237
238

239
240

241
242

243
244

245
246

247
248

249
250
251
252
253
254
255
#   define ETXTBSY	139	/* Text file or pseudo-device busy */
#endif
#ifndef EWOULDBLOCK
#   define EWOULDBLOCK	140	/* Operation would block */
#endif


#undef ESOCKTNOSUPPORT
#define ESOCKTNOSUPPORT WSAESOCKTNOSUPPORT	/* Socket type not supported */

#undef ESHUTDOWN
#define ESHUTDOWN	WSAESHUTDOWN	/* Can't send after socket shutdown */

#undef ETOOMANYREFS
#define ETOOMANYREFS	WSAETOOMANYREFS	/* Too many references: can't splice */

#undef EHOSTDOWN
#define EHOSTDOWN	WSAEHOSTDOWN	/* Host is down */

#undef EUSERS
#define EUSERS	WSAEUSERS	/* Too many users (for UFS) */

#undef EDQUOT
#define EDQUOT	WSAEDQUOT	/* Disc quota exceeded */

#undef ESTALE
#define ESTALE	WSAESTALE	/* Stale NFS file handle */


/*
 * Signals not known to the standard ANSI signal.h.  These are used
 * by Tcl_WaitPid() and generic/tclPosixStr.c
 */

#ifndef SIGTRAP