diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
commit | a780057cc1b51dd3a557549c3cf2431f09136c0d (patch) | |
tree | 717f78052c55596449b27743171d7e170c4d39a0 /tkimg/zlib/zlibtclStubLib.c | |
parent | 7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff) | |
download | blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2 |
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/zlib/zlibtclStubLib.c')
-rw-r--r-- | tkimg/zlib/zlibtclStubLib.c | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/tkimg/zlib/zlibtclStubLib.c b/tkimg/zlib/zlibtclStubLib.c deleted file mode 100644 index e065240..0000000 --- a/tkimg/zlib/zlibtclStubLib.c +++ /dev/null @@ -1,62 +0,0 @@ -/* - * zlibtclStubLib.c -- - * - * Stub object that will be statically linked into extensions that wish - * to access the ZLIBTCL 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. - * - * RCS: @(#) $Id: zlibtclStubLib.c,v 1.1.1.1 2016/01/25 21:20:47 joye Exp $ - */ - -#ifndef USE_TCL_STUBS -#define USE_TCL_STUBS -#endif - -#include "zlibtcl.h" - -const ZlibtclStubs *zlibtclStubsPtr; - -/* - *---------------------------------------------------------------------- - * - * Zlibtcl_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 Zlibtcl_InitStubs -#undef Zlibtcl_InitStubs -#endif - -MODULE_SCOPE const char * -Zlibtcl_InitStubs( - Tcl_Interp *interp, - const char *version, - int exact -) { - const char *result; - void *data; - - result = Tcl_PkgRequireEx(interp, PACKAGE_NAME, (CONST84 char *) version, exact, &data); - if (!result || !data) { - return NULL; - } - - zlibtclStubsPtr = data; - return result; -} |