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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 42 - (hide annotations) (download)
Fri Oct 14 01:50:00 2016 UTC (8 years, 1 month 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 dashley 25 /* $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