/[dtapublic]/projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkstublib.c
ViewVC logotype

Contents of /projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkstublib.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 69 - (show annotations) (download)
Sat Nov 5 10:54:17 2016 UTC (6 years, 3 months ago) by dashley
File MIME type: text/plain
File size: 3073 byte(s)
License and property (keyword) changes.
1 /* $Header$ */
2
3 /*
4 * tkStubLib.c --
5 *
6 * Stub object that will be statically linked into extensions that wish
7 * to access Tk.
8 *
9 * Copyright (c) 1998 Paul Duffin.
10 * Copyright (c) 1998-1999 by Scriptics Corporation.
11 *
12 * See the file "license.terms" for information on usage and redistribution
13 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14 *
15 * RCS: @(#) $Id: tkstublib.c,v 1.1.1.1 2001/06/13 05:08:19 dtashley Exp $
16 */
17
18 /*
19 * Because of problems with pre-compiled headers on the Mac, we need to
20 * do these includes before we add the stubs defines. This a hack.
21 */
22
23 #ifdef MAC_TCL
24 #include "tkMacInt.h"
25 #include "tkInt.h"
26 #include "tkPort.h"
27 #endif /* MAC_TCL */
28
29 /*
30 * We need to ensure that we use the stub macros so that this file contains
31 * no references to any of the stub functions. This will make it possible
32 * to build an extension that references Tk_InitStubs but doesn't end up
33 * including the rest of the stub functions.
34 */
35
36 #ifndef USE_TCL_STUBS
37 #define USE_TCL_STUBS
38 #endif
39 #undef USE_TCL_STUB_PROCS
40
41 #ifndef USE_TK_STUBS
42 #define USE_TK_STUBS
43 #endif
44 #undef USE_TK_STUB_PROCS
45
46 #ifndef MAC_TCL
47
48 #include "tkPort.h"
49 #include "tkInt.h"
50
51 #ifdef __WIN32__
52 #include "tkWinInt.h"
53 #endif
54
55 #endif /* !MAC_TCL */
56
57 #include "tkDecls.h"
58 #include "tkIntDecls.h"
59 #include "tkPlatDecls.h"
60 #include "tkIntPlatDecls.h"
61 #include "tkIntXlibDecls.h"
62
63 /*
64 * Ensure that Tk_InitStubs is built as an exported symbol. The other stub
65 * functions should be built as non-exported symbols.
66 */
67
68 #undef TCL_STORAGE_CLASS
69 #define TCL_STORAGE_CLASS DLLEXPORT
70
71 TkStubs *tkStubsPtr;
72 TkPlatStubs *tkPlatStubsPtr;
73 TkIntStubs *tkIntStubsPtr;
74 TkIntPlatStubs *tkIntPlatStubsPtr;
75 TkIntXlibStubs *tkIntXlibStubsPtr;
76
77
78 /*
79 *----------------------------------------------------------------------
80 *
81 * Tk_InitStubs --
82 *
83 * Checks that the correct version of Tk is loaded and that it
84 * supports stubs. It then initialises the stub table pointers.
85 *
86 * Results:
87 * The actual version of Tk that satisfies the request, or
88 * NULL to indicate that an error occurred.
89 *
90 * Side effects:
91 * Sets the stub table pointers.
92 *
93 *----------------------------------------------------------------------
94 */
95
96 #ifdef Tk_InitStubs
97 #undef Tk_InitStubs
98 #endif
99
100 char *
101 Tk_InitStubs(interp, version, exact)
102 Tcl_Interp *interp;
103 char *version;
104 int exact;
105 {
106 char *actualVersion;
107
108 actualVersion = Tcl_PkgRequireEx(interp, "Tk", version, exact,
109 (ClientData *) &tkStubsPtr);
110 if (!actualVersion) {
111 return NULL;
112 }
113
114 if (!tkStubsPtr) {
115 Tcl_SetResult(interp,
116 "This implementation of Tk does not support stubs",
117 TCL_STATIC);
118 return NULL;
119 }
120
121 tkPlatStubsPtr = tkStubsPtr->hooks->tkPlatStubs;
122 tkIntStubsPtr = tkStubsPtr->hooks->tkIntStubs;
123 tkIntPlatStubsPtr = tkStubsPtr->hooks->tkIntPlatStubs;
124 tkIntXlibStubsPtr = tkStubsPtr->hooks->tkIntXlibStubs;
125
126 return actualVersion;
127 }
128
129 /* End of tkstublib.c */

Properties

Name Value
svn:keywords Header

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25