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/libpng/pngtclStubLib.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/libpng/pngtclStubLib.c')
-rw-r--r-- | tkimg/libpng/pngtclStubLib.c | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/tkimg/libpng/pngtclStubLib.c b/tkimg/libpng/pngtclStubLib.c deleted file mode 100644 index b48de33..0000000 --- a/tkimg/libpng/pngtclStubLib.c +++ /dev/null @@ -1,62 +0,0 @@ -/* - * pngtclStubLib.c -- - * - * Stub object that will be statically linked into extensions that wish - * to access the PNGTCL 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: pngtclStubLib.c,v 1.1.1.1 2016/01/25 21:20:46 joye Exp $ - */ - -#ifndef USE_TCL_STUBS -#define USE_TCL_STUBS -#endif - -#include "pngtcl.h" - -const PngtclStubs *pngtclStubsPtr; - -/* - *---------------------------------------------------------------------- - * - * Pngtcl_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 Pngtcl_InitStubs -#undef Pngtcl_InitStubs -#endif - -MODULE_SCOPE const char * -Pngtcl_InitStubs(interp, version, exact) - Tcl_Interp *interp; - const char *version; - int exact; -{ - const char *result; - ClientData data; - - result = Tcl_PkgRequireEx(interp, PACKAGE_NAME, (CONST84 char *) version, exact, &data); - if (!result || !data) { - return NULL; - } - - pngtclStubsPtr = (const PngtclStubs *) data; - return result; -} |