1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-
+
|
/*
* tclPlatDecls.h --
*
* Declarations of platform specific Tcl APIs.
*
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
* RCS: @(#) $Id: tclPlatDecls.h,v 1.33.2.1 2008/12/12 20:28:46 davygrvy Exp $
* RCS: @(#) $Id: tclPlatDecls.h,v 1.33.2.2 2008/12/12 21:44:32 davygrvy Exp $
*/
#ifndef _TCLPLATDECLS
#define _TCLPLATDECLS
#undef TCL_STORAGE_CLASS
#ifdef BUILD_tcl
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
-
+
-
-
+
|
#define Tcl_WinErrId_TCL_DECLARED
/* 2 */
EXTERN const char * Tcl_WinErrId (unsigned int errorCode);
#endif
#ifndef Tcl_WinErrMsg_TCL_DECLARED
#define Tcl_WinErrMsg_TCL_DECLARED
/* 3 */
EXTERN const char * Tcl_WinErrMsg (unsigned int errorCode,
EXTERN const char * Tcl_WinErrMsg (unsigned int errorCode);
va_list * extra);
unsigned int errorCode, va_list * extra);
unsigned int errorCode);
#endif
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_MacOSXOpenBundleResources_TCL_DECLARED
#define Tcl_MacOSXOpenBundleResources_TCL_DECLARED
/* 0 */
EXTERN int Tcl_MacOSXOpenBundleResources (Tcl_Interp * interp,
|
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
-
-
+
+
|
int magic;
const struct TclPlatStubHooks *hooks;
#ifdef __WIN32__ /* WIN */
TCHAR * (*tcl_WinUtfToTChar) (const char * str, int len, Tcl_DString * dsPtr); /* 0 */
char * (*tcl_WinTCharToUtf) (const TCHAR * str, int len, Tcl_DString * dsPtr); /* 1 */
const char * (*tcl_WinErrId) (unsigned int errorCode); /* 2 */
const char * (*tcl_WinErrMsg) (unsigned int errorCode, va_list * extra); /* 3 */
const char * (*tcl_WinError) (Tcl_Interp * interp, unsigned int errorCode, va_list * extra); /* 4 */
const char * (*tcl_WinErrMsg) (unsigned int errorCode); /* 3 */
const char * (*tcl_WinError) (Tcl_Interp * interp, unsigned int errorCode); /* 4 */
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp * interp, const char * bundleName, int hasResourceFile, int maxPathLen, char * libraryPath); /* 0 */
int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp * interp, const char * bundleName, const char * bundleVersion, int hasResourceFile, int maxPathLen, char * libraryPath); /* 1 */
#endif /* MACOSX */
} TclPlatStubs;
|