/[dtapublic]/projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclplatdecls.h
ViewVC logotype

Contents of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclplatdecls.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 42 - (show annotations) (download)
Fri Oct 14 01:50:00 2016 UTC (7 years, 11 months ago) by dashley
Original Path: projs/trunk/shared_source/tcl_base/tclplatdecls.h
File MIME type: text/plain
File size: 5092 byte(s)
Move shared source code to commonize.
1 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/tclplatdecls.h,v 1.1.1.1 2001/06/13 04:45:05 dtashley Exp $ */
2
3 /*
4 * tclPlatDecls.h --
5 *
6 * Declarations of platform specific Tcl APIs.
7 *
8 * Copyright (c) 1998-1999 by Scriptics Corporation.
9 * All rights reserved.
10 *
11 * RCS: @(#) $Id: tclplatdecls.h,v 1.1.1.1 2001/06/13 04:45:05 dtashley Exp $
12 */
13
14 #ifndef _TCLPLATDECLS
15 #define _TCLPLATDECLS
16
17 /* !BEGIN!: Do not edit below this line. */
18
19 /*
20 * Exported function declarations:
21 */
22
23 #ifdef __WIN32__
24 /* 0 */
25 EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str,
26 int len, Tcl_DString * dsPtr));
27 /* 1 */
28 EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str,
29 int len, Tcl_DString * dsPtr));
30 #endif /* __WIN32__ */
31 #ifdef MAC_TCL
32 /* 0 */
33 EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_((
34 Tcl_MacConvertEventPtr procPtr));
35 /* 1 */
36 EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_((
37 Handle resource));
38 /* 2 */
39 EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp,
40 char * resourceName, int resourceNumber,
41 char * fileName));
42 /* 3 */
43 EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp,
44 long resourceType, char * resourceName,
45 int resourceNumber, char * resFileRef,
46 int * releaseIt));
47 /* 4 */
48 EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_((
49 Tcl_Interp * interp, Tcl_Obj * objPtr,
50 OSType * osTypePtr));
51 /* 5 */
52 EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr,
53 OSType osType));
54 /* 6 */
55 EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));
56 /* 7 */
57 EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1,
58 CONST char * s2, size_t n));
59 /* 8 */
60 EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1,
61 CONST char * s2));
62 #endif /* MAC_TCL */
63
64 typedef struct TclPlatStubs {
65 int magic;
66 struct TclPlatStubHooks *hooks;
67
68 #ifdef __WIN32__
69 TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tcl_DString * dsPtr)); /* 0 */
70 char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tcl_DString * dsPtr)); /* 1 */
71 #endif /* __WIN32__ */
72 #ifdef MAC_TCL
73 void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); /* 0 */
74 char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */
75 int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, char * resourceName, int resourceNumber, char * fileName)); /* 2 */
76 Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long resourceType, char * resourceName, int resourceNumber, char * resFileRef, int * releaseIt)); /* 3 */
77 int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */
78 void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)); /* 5 */
79 Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */
80 int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 7 */
81 int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */
82 #endif /* MAC_TCL */
83 } TclPlatStubs;
84
85 #ifdef __cplusplus
86 extern "C" {
87 #endif
88 extern TclPlatStubs *tclPlatStubsPtr;
89 #ifdef __cplusplus
90 }
91 #endif
92
93 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
94
95 /*
96 * Inline function declarations:
97 */
98
99 #ifdef __WIN32__
100 #ifndef Tcl_WinUtfToTChar
101 #define Tcl_WinUtfToTChar \
102 (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
103 #endif
104 #ifndef Tcl_WinTCharToUtf
105 #define Tcl_WinTCharToUtf \
106 (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
107 #endif
108 #endif /* __WIN32__ */
109 #ifdef MAC_TCL
110 #ifndef Tcl_MacSetEventProc
111 #define Tcl_MacSetEventProc \
112 (tclPlatStubsPtr->tcl_MacSetEventProc) /* 0 */
113 #endif
114 #ifndef Tcl_MacConvertTextResource
115 #define Tcl_MacConvertTextResource \
116 (tclPlatStubsPtr->tcl_MacConvertTextResource) /* 1 */
117 #endif
118 #ifndef Tcl_MacEvalResource
119 #define Tcl_MacEvalResource \
120 (tclPlatStubsPtr->tcl_MacEvalResource) /* 2 */
121 #endif
122 #ifndef Tcl_MacFindResource
123 #define Tcl_MacFindResource \
124 (tclPlatStubsPtr->tcl_MacFindResource) /* 3 */
125 #endif
126 #ifndef Tcl_GetOSTypeFromObj
127 #define Tcl_GetOSTypeFromObj \
128 (tclPlatStubsPtr->tcl_GetOSTypeFromObj) /* 4 */
129 #endif
130 #ifndef Tcl_SetOSTypeObj
131 #define Tcl_SetOSTypeObj \
132 (tclPlatStubsPtr->tcl_SetOSTypeObj) /* 5 */
133 #endif
134 #ifndef Tcl_NewOSTypeObj
135 #define Tcl_NewOSTypeObj \
136 (tclPlatStubsPtr->tcl_NewOSTypeObj) /* 6 */
137 #endif
138 #ifndef strncasecmp
139 #define strncasecmp \
140 (tclPlatStubsPtr->strncasecmp) /* 7 */
141 #endif
142 #ifndef strcasecmp
143 #define strcasecmp \
144 (tclPlatStubsPtr->strcasecmp) /* 8 */
145 #endif
146 #endif /* MAC_TCL */
147
148 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
149
150 /* !END!: Do not edit above this line. */
151
152 #endif /* _TCLPLATDECLS */
153
154
155 /* $History: tclplatdecls.h $
156 *
157 * ***************** Version 1 *****************
158 * User: Dtashley Date: 1/02/01 Time: 1:37a
159 * Created in $/IjuScripter, IjuConsole/Source/Tcl Base
160 * Initial check-in.
161 */
162
163 /* End of TCLPLATDECLS.H */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25