X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=util%2Fsrc%2FTclTk%2Fblt2.5%2Fgeneric%2FbltStubLib.c;fp=util%2Fsrc%2FTclTk%2Fblt2.5%2Fgeneric%2FbltStubLib.c;h=ed51e7867a13104e4aa061479569cb58f8e255b7;hb=a5fac4c3be12f7d1c3c220e0c26890b05f28d35f;hp=0000000000000000000000000000000000000000;hpb=c07e8e55373b9730110d8e425119f05a1cd93e52;p=eos%2Fbase.git

diff --git a/util/src/TclTk/blt2.5/generic/bltStubLib.c b/util/src/TclTk/blt2.5/generic/bltStubLib.c
new file mode 100644
index 0000000000..ed51e7867a
--- /dev/null
+++ b/util/src/TclTk/blt2.5/generic/bltStubLib.c
@@ -0,0 +1,54 @@
+#ifndef STATIC_BUILD
+#ifndef USE_BLT_STUBS
+#define USE_BLT_STUBS
+#endif
+#endif
+#undef USE_BLT_STUB_PROCS
+
+#include "tcl.h"
+#include "bltDecls.h"
+
+#undef TCL_STORAGE_CLASS
+#define TCL_STORAGE_CLASS DLLEXPORT
+
+#ifndef MODULE_SCOPE
+#   ifdef __cplusplus
+#       define MODULE_SCOPE extern "C"
+#   else
+#       define MODULE_SCOPE extern
+#   endif
+#endif
+
+
+MODULE_SCOPE BltStubs *bltStubsPtr;
+BltStubs *bltStubsPtr;
+
+#ifdef Blt_InitStubs
+#undef Blt_InitStubs
+#endif
+
+MODULE_SCOPE CONST char *
+Blt_InitStubs(interp, version, exact)
+    Tcl_Interp *interp;
+    char *version;
+    int exact;
+{
+    CONST char *actualVersion;
+
+    actualVersion = Tcl_PkgRequireEx(interp, "BLT", version, exact,
+        (ClientData *) &bltStubsPtr);
+    if (!actualVersion) {
+        return NULL;
+    }
+
+    if (!bltStubsPtr) {
+        Tcl_SetResult(interp,
+            "This implementation of Tk does not support stubs",
+            TCL_STATIC);
+            return NULL;
+    }
+    
+    return actualVersion;
+}
+
+