1 files changed, 73 insertions, 0 deletions
diff --git a/itcl/itk/generic/itkStubLib.c b/itcl/itk/generic/itkStubLib.c
new file mode 100644
index 00000000000..1732ef780b1
--- /dev/null
+++ b/itcl/itk/generic/itkStubLib.c
@@ -0,0 +1,73 @@
+/* 
+ * itkStubLib.c --
+ *
+ *	Stub object that will be statically linked into extensions that wish
+ *	to access Itk.
+ *
+ * Copyright (c) 1998-1999 by XXXX
+ * Copyright (c) 1998 Paul Duffin.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * RCS: $Id$
+ */
+
+/*
+ * We need to ensure that we use the stub macros so that this file contains
+ * no references to any of the stub functions.  This will make it possible
+ * to build an extension that references Tcl_InitStubs but doesn't end up
+ * including the rest of the stub functions.
+ */
+
+#ifndef USE_TCL_STUBS
+#define USE_TCL_STUBS
+#endif
+#undef USE_TCL_STUB_PROCS
+
+#ifndef USE_ITK_STUBS
+#define USE_ITK_STUBS
+#endif
+#undef USE_ITK_STUB_PROCS
+
+#include "itk.h"
+
+ItkStubs *itkStubsPtr;
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Itk_InitStubs --
+ *
+ *	Tries to initialise the stub table pointers and ensures that
+ *	the correct version of Itk is loaded.
+ *
+ * Results:
+ *	The actual version of Itk that satisfies the request, or
+ *	NULL to indicate that an error occurred.
+ *
+ * Side effects:
+ *	Sets the stub table pointers.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Itk_InitStubs (interp, version, exact)
+    Tcl_Interp *interp;
+    char *version;
+    int exact;
+{
+    char *actualVersion;
+    
+    actualVersion = Tcl_PkgRequireEx(interp, "Itk", version, exact,
+        (ClientData *) &itkStubsPtr);
+
+    if (actualVersion == NULL) {
+	itkStubsPtr = NULL;
+	return NULL;
+    }
+    
+    return actualVersion;
+}