1 files changed, 60 insertions, 0 deletions
diff --git a/tkimg/libjpeg/jpegtclStubLib.c b/tkimg/libjpeg/jpegtclStubLib.c
new file mode 100755
index 0000000..d6b4745
--- /dev/null
+++ b/tkimg/libjpeg/jpegtclStubLib.c
@@ -0,0 +1,60 @@
+/*
+ * jpegtclStubLib.c --
+ *
+ *	Stub object that will be statically linked into extensions that wish
+ *	to access the JPEGTCL API.
+ *
+ * Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net>
+ * Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net>
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef USE_TCL_STUBS
+#define USE_TCL_STUBS
+#endif
+
+#include "jpegtcl.h"
+
+const JpegtclStubs *jpegtclStubsPtr;
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Jpegtcl_InitStubs --
+ *
+ *	Checks that the correct version of Blt is loaded and that it
+ *	supports stubs. It then initialises the stub table pointers.
+ *
+ * Results:
+ *	The actual version of BLT that satisfies the request, or
+ *	NULL to indicate that an error occurred.
+ *
+ * Side effects:
+ *	Sets the stub table pointers.
+ *
+ *----------------------------------------------------------------------
+ */
+
+#ifdef Jpegtcl_InitStubs
+#undef Jpegtcl_InitStubs
+#endif
+
+MODULE_SCOPE const char *
+Jpegtcl_InitStubs(interp, version, exact)
+    Tcl_Interp *interp;
+    const char *version;
+    int exact;
+{
+    const char *result;
+    ClientData data;
+
+    result = Tcl_PkgRequireEx(interp, PACKAGE_NAME, (const char *) version, exact, &data);
+    if (!result || !data) {
+        return NULL;
+    }
+
+    jpegtclStubsPtr = (const JpegtclStubs *) data;
+    return result;
+}