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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 70 by dashley, Mon Oct 31 00:57:34 2016 UTC revision 71 by dashley, Sat Nov 5 11:07:06 2016 UTC
# Line 1  Line 1 
1  /* $Header$ */  /* $Header$ */
2  /*  /*
3   * tclPlatDecls.h --   * tclPlatDecls.h --
4   *   *
5   *      Declarations of platform specific Tcl APIs.   *      Declarations of platform specific Tcl APIs.
6   *   *
7   * Copyright (c) 1998-1999 by Scriptics Corporation.   * Copyright (c) 1998-1999 by Scriptics Corporation.
8   * All rights reserved.   * All rights reserved.
9   *   *
10   * RCS: @(#) $Id: tclplatdecls.h,v 1.1.1.1 2001/06/13 04:45:05 dtashley Exp $   * RCS: @(#) $Id: tclplatdecls.h,v 1.1.1.1 2001/06/13 04:45:05 dtashley Exp $
11   */   */
12    
13  #ifndef _TCLPLATDECLS  #ifndef _TCLPLATDECLS
14  #define _TCLPLATDECLS  #define _TCLPLATDECLS
15    
16  /* !BEGIN!: Do not edit below this line. */  /* !BEGIN!: Do not edit below this line. */
17    
18  /*  /*
19   * Exported function declarations:   * Exported function declarations:
20   */   */
21    
22  #ifdef __WIN32__  #ifdef __WIN32__
23  /* 0 */  /* 0 */
24  EXTERN TCHAR *          Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str,  EXTERN TCHAR *          Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str,
25                                  int len, Tcl_DString * dsPtr));                                  int len, Tcl_DString * dsPtr));
26  /* 1 */  /* 1 */
27  EXTERN char *           Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str,  EXTERN char *           Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str,
28                                  int len, Tcl_DString * dsPtr));                                  int len, Tcl_DString * dsPtr));
29  #endif /* __WIN32__ */  #endif /* __WIN32__ */
30  #ifdef MAC_TCL  #ifdef MAC_TCL
31  /* 0 */  /* 0 */
32  EXTERN void             Tcl_MacSetEventProc _ANSI_ARGS_((  EXTERN void             Tcl_MacSetEventProc _ANSI_ARGS_((
33                                  Tcl_MacConvertEventPtr procPtr));                                  Tcl_MacConvertEventPtr procPtr));
34  /* 1 */  /* 1 */
35  EXTERN char *           Tcl_MacConvertTextResource _ANSI_ARGS_((  EXTERN char *           Tcl_MacConvertTextResource _ANSI_ARGS_((
36                                  Handle resource));                                  Handle resource));
37  /* 2 */  /* 2 */
38  EXTERN int              Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp,  EXTERN int              Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp,
39                                  char * resourceName, int resourceNumber,                                  char * resourceName, int resourceNumber,
40                                  char * fileName));                                  char * fileName));
41  /* 3 */  /* 3 */
42  EXTERN Handle           Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp,  EXTERN Handle           Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp,
43                                  long resourceType, char * resourceName,                                  long resourceType, char * resourceName,
44                                  int resourceNumber, char * resFileRef,                                  int resourceNumber, char * resFileRef,
45                                  int * releaseIt));                                  int * releaseIt));
46  /* 4 */  /* 4 */
47  EXTERN int              Tcl_GetOSTypeFromObj _ANSI_ARGS_((  EXTERN int              Tcl_GetOSTypeFromObj _ANSI_ARGS_((
48                                  Tcl_Interp * interp, Tcl_Obj * objPtr,                                  Tcl_Interp * interp, Tcl_Obj * objPtr,
49                                  OSType * osTypePtr));                                  OSType * osTypePtr));
50  /* 5 */  /* 5 */
51  EXTERN void             Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr,  EXTERN void             Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr,
52                                  OSType osType));                                  OSType osType));
53  /* 6 */  /* 6 */
54  EXTERN Tcl_Obj *        Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));  EXTERN Tcl_Obj *        Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));
55  /* 7 */  /* 7 */
56  EXTERN int              strncasecmp _ANSI_ARGS_((CONST char * s1,  EXTERN int              strncasecmp _ANSI_ARGS_((CONST char * s1,
57                                  CONST char * s2, size_t n));                                  CONST char * s2, size_t n));
58  /* 8 */  /* 8 */
59  EXTERN int              strcasecmp _ANSI_ARGS_((CONST char * s1,  EXTERN int              strcasecmp _ANSI_ARGS_((CONST char * s1,
60                                  CONST char * s2));                                  CONST char * s2));
61  #endif /* MAC_TCL */  #endif /* MAC_TCL */
62    
63  typedef struct TclPlatStubs {  typedef struct TclPlatStubs {
64      int magic;      int magic;
65      struct TclPlatStubHooks *hooks;      struct TclPlatStubHooks *hooks;
66    
67  #ifdef __WIN32__  #ifdef __WIN32__
68      TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tcl_DString * dsPtr)); /* 0 */      TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tcl_DString * dsPtr)); /* 0 */
69      char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tcl_DString * dsPtr)); /* 1 */      char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tcl_DString * dsPtr)); /* 1 */
70  #endif /* __WIN32__ */  #endif /* __WIN32__ */
71  #ifdef MAC_TCL  #ifdef MAC_TCL
72      void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); /* 0 */      void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); /* 0 */
73      char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */      char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */
74      int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, char * resourceName, int resourceNumber, char * fileName)); /* 2 */      int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, char * resourceName, int resourceNumber, char * fileName)); /* 2 */
75      Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long resourceType, char * resourceName, int resourceNumber, char * resFileRef, int * releaseIt)); /* 3 */      Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long resourceType, char * resourceName, int resourceNumber, char * resFileRef, int * releaseIt)); /* 3 */
76      int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */      int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */
77      void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)); /* 5 */      void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)); /* 5 */
78      Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */      Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */
79      int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 7 */      int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 7 */
80      int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */      int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */
81  #endif /* MAC_TCL */  #endif /* MAC_TCL */
82  } TclPlatStubs;  } TclPlatStubs;
83    
84  #ifdef __cplusplus  #ifdef __cplusplus
85  extern "C" {  extern "C" {
86  #endif  #endif
87  extern TclPlatStubs *tclPlatStubsPtr;  extern TclPlatStubs *tclPlatStubsPtr;
88  #ifdef __cplusplus  #ifdef __cplusplus
89  }  }
90  #endif  #endif
91    
92  #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)  #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
93    
94  /*  /*
95   * Inline function declarations:   * Inline function declarations:
96   */   */
97    
98  #ifdef __WIN32__  #ifdef __WIN32__
99  #ifndef Tcl_WinUtfToTChar  #ifndef Tcl_WinUtfToTChar
100  #define Tcl_WinUtfToTChar \  #define Tcl_WinUtfToTChar \
101          (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */          (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
102  #endif  #endif
103  #ifndef Tcl_WinTCharToUtf  #ifndef Tcl_WinTCharToUtf
104  #define Tcl_WinTCharToUtf \  #define Tcl_WinTCharToUtf \
105          (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */          (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
106  #endif  #endif
107  #endif /* __WIN32__ */  #endif /* __WIN32__ */
108  #ifdef MAC_TCL  #ifdef MAC_TCL
109  #ifndef Tcl_MacSetEventProc  #ifndef Tcl_MacSetEventProc
110  #define Tcl_MacSetEventProc \  #define Tcl_MacSetEventProc \
111          (tclPlatStubsPtr->tcl_MacSetEventProc) /* 0 */          (tclPlatStubsPtr->tcl_MacSetEventProc) /* 0 */
112  #endif  #endif
113  #ifndef Tcl_MacConvertTextResource  #ifndef Tcl_MacConvertTextResource
114  #define Tcl_MacConvertTextResource \  #define Tcl_MacConvertTextResource \
115          (tclPlatStubsPtr->tcl_MacConvertTextResource) /* 1 */          (tclPlatStubsPtr->tcl_MacConvertTextResource) /* 1 */
116  #endif  #endif
117  #ifndef Tcl_MacEvalResource  #ifndef Tcl_MacEvalResource
118  #define Tcl_MacEvalResource \  #define Tcl_MacEvalResource \
119          (tclPlatStubsPtr->tcl_MacEvalResource) /* 2 */          (tclPlatStubsPtr->tcl_MacEvalResource) /* 2 */
120  #endif  #endif
121  #ifndef Tcl_MacFindResource  #ifndef Tcl_MacFindResource
122  #define Tcl_MacFindResource \  #define Tcl_MacFindResource \
123          (tclPlatStubsPtr->tcl_MacFindResource) /* 3 */          (tclPlatStubsPtr->tcl_MacFindResource) /* 3 */
124  #endif  #endif
125  #ifndef Tcl_GetOSTypeFromObj  #ifndef Tcl_GetOSTypeFromObj
126  #define Tcl_GetOSTypeFromObj \  #define Tcl_GetOSTypeFromObj \
127          (tclPlatStubsPtr->tcl_GetOSTypeFromObj) /* 4 */          (tclPlatStubsPtr->tcl_GetOSTypeFromObj) /* 4 */
128  #endif  #endif
129  #ifndef Tcl_SetOSTypeObj  #ifndef Tcl_SetOSTypeObj
130  #define Tcl_SetOSTypeObj \  #define Tcl_SetOSTypeObj \
131          (tclPlatStubsPtr->tcl_SetOSTypeObj) /* 5 */          (tclPlatStubsPtr->tcl_SetOSTypeObj) /* 5 */
132  #endif  #endif
133  #ifndef Tcl_NewOSTypeObj  #ifndef Tcl_NewOSTypeObj
134  #define Tcl_NewOSTypeObj \  #define Tcl_NewOSTypeObj \
135          (tclPlatStubsPtr->tcl_NewOSTypeObj) /* 6 */          (tclPlatStubsPtr->tcl_NewOSTypeObj) /* 6 */
136  #endif  #endif
137  #ifndef strncasecmp  #ifndef strncasecmp
138  #define strncasecmp \  #define strncasecmp \
139          (tclPlatStubsPtr->strncasecmp) /* 7 */          (tclPlatStubsPtr->strncasecmp) /* 7 */
140  #endif  #endif
141  #ifndef strcasecmp  #ifndef strcasecmp
142  #define strcasecmp \  #define strcasecmp \
143          (tclPlatStubsPtr->strcasecmp) /* 8 */          (tclPlatStubsPtr->strcasecmp) /* 8 */
144  #endif  #endif
145  #endif /* MAC_TCL */  #endif /* MAC_TCL */
146    
147  #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */  #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
148    
149  /* !END!: Do not edit above this line. */  /* !END!: Do not edit above this line. */
150    
151  #endif /* _TCLPLATDECLS */  #endif /* _TCLPLATDECLS */
152    
153  /* End of tclplatdecls.h */  /* End of tclplatdecls.h */
Legend:
Removed from v.70  
changed lines
  Added in v.71
dashley@gmail.com
 ViewVC Help
Powered by ViewVC 1.1.25