Mercurial > repos > rliterman > csp2

comparison CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/tclPlatDecls.h @ 69:33d812a61356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
author jpayne
date Tue, 18 Mar 2025 17:55:14 -0400
parents
children
comparison
equal deleted inserted replaced
67:0e9998148a16 69:33d812a61356
1 /*
2 * tclPlatDecls.h --
3 *
4 * Declarations of platform specific Tcl APIs.
5 *
6 * Copyright (c) 1998-1999 by Scriptics Corporation.
7 * All rights reserved.
8 */
9
10 #ifndef _TCLPLATDECLS
11 #define _TCLPLATDECLS
12
13 #undef TCL_STORAGE_CLASS
14 #ifdef BUILD_tcl
15 # define TCL_STORAGE_CLASS DLLEXPORT
16 #else
17 # ifdef USE_TCL_STUBS
18 # define TCL_STORAGE_CLASS
19 # else
20 # define TCL_STORAGE_CLASS DLLIMPORT
21 # endif
22 #endif
23
24 /*
25 * WARNING: This file is automatically generated by the tools/genStubs.tcl
26 * script. Any modifications to the function declarations below should be made
27 * in the generic/tcl.decls script.
28 */
29
30 /*
31 * TCHAR is needed here for win32, so if it is not defined yet do it here.
32 * This way, we don't need to include <tchar.h> just for one define.
33 */
34 #if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED)
35 # if defined(_UNICODE)
36 typedef wchar_t TCHAR;
37 # else
38 typedef char TCHAR;
39 # endif
40 # define _TCHAR_DEFINED
41 #endif
42
43 /* !BEGIN!: Do not edit below this line. */
44
45 #ifdef __cplusplus
46 extern "C" {
47 #endif
48
49 /*
50 * Exported function declarations:
51 */
52
53 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
54 /* 0 */
55 EXTERN TCHAR * Tcl_WinUtfToTChar(const char *str, int len,
56 Tcl_DString *dsPtr);
57 /* 1 */
58 EXTERN char * Tcl_WinTCharToUtf(const TCHAR *str, int len,
59 Tcl_DString *dsPtr);
60 /* Slot 2 is reserved */
61 /* 3 */
62 EXTERN void TclUnusedStubEntry(void);
63 #endif /* WIN */
64 #ifdef MAC_OSX_TCL /* MACOSX */
65 /* 0 */
66 EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp,
67 const char *bundleName, int hasResourceFile,
68 int maxPathLen, char *libraryPath);
69 /* 1 */
70 EXTERN int Tcl_MacOSXOpenVersionedBundleResources(
71 Tcl_Interp *interp, const char *bundleName,
72 const char *bundleVersion,
73 int hasResourceFile, int maxPathLen,
74 char *libraryPath);
75 /* 2 */
76 EXTERN void TclUnusedStubEntry(void);
77 #endif /* MACOSX */
78
79 typedef struct TclPlatStubs {
80 int magic;
81 void *hooks;
82
83 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
84 TCHAR * (*tcl_WinUtfToTChar) (const char *str, int len, Tcl_DString *dsPtr); /* 0 */
85 char * (*tcl_WinTCharToUtf) (const TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */
86 void (*reserved2)(void);
87 void (*tclUnusedStubEntry) (void); /* 3 */
88 #endif /* WIN */
89 #ifdef MAC_OSX_TCL /* MACOSX */
90 int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, const char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */
91 int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, const char *bundleName, const char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */
92 void (*tclUnusedStubEntry) (void); /* 2 */
93 #endif /* MACOSX */
94 } TclPlatStubs;
95
96 extern const TclPlatStubs *tclPlatStubsPtr;
97
98 #ifdef __cplusplus
99 }
100 #endif
101
102 #if defined(USE_TCL_STUBS)
103
104 /*
105 * Inline function declarations:
106 */
107
108 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
109 #define Tcl_WinUtfToTChar \
110 (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
111 #define Tcl_WinTCharToUtf \
112 (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
113 /* Slot 2 is reserved */
114 #define TclUnusedStubEntry \
115 (tclPlatStubsPtr->tclUnusedStubEntry) /* 3 */
116 #endif /* WIN */
117 #ifdef MAC_OSX_TCL /* MACOSX */
118 #define Tcl_MacOSXOpenBundleResources \
119 (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
120 #define Tcl_MacOSXOpenVersionedBundleResources \
121 (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
122 #define TclUnusedStubEntry \
123 (tclPlatStubsPtr->tclUnusedStubEntry) /* 2 */
124 #endif /* MACOSX */
125
126 #endif /* defined(USE_TCL_STUBS) */
127
128 /* !END!: Do not edit above this line. */
129
130 #undef TclUnusedStubEntry
131 #ifdef MAC_OSX_TCL /* MACOSX */
132 #undef Tcl_MacOSXOpenBundleResources
133 #define Tcl_MacOSXOpenBundleResources(a,b,c,d,e) Tcl_MacOSXOpenVersionedBundleResources(a,b,NULL,c,d,e)
134 #endif
135
136 #undef TCL_STORAGE_CLASS
137 #define TCL_STORAGE_CLASS DLLIMPORT
138
139 #endif /* _TCLPLATDECLS */
140
141