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/base/tkimgStubLib.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/base/tkimgStubLib.c')
-rw-r--r-- | tkimg/base/tkimgStubLib.c | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/tkimg/base/tkimgStubLib.c b/tkimg/base/tkimgStubLib.c deleted file mode 100644 index b708349..0000000 --- a/tkimg/base/tkimgStubLib.c +++ /dev/null @@ -1,58 +0,0 @@ -/* - * tkimgStubLib.c -- - * - * Stub object that will be statically linked into extensions that wish - * to access the TKIMG 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: tkimgStubLib.c,v 1.1.1.1 2016/01/25 21:20:46 joye Exp $ - */ - -#ifndef USE_TCL_STUBS -# define USE_TCL_STUBS -#endif - -#include "tkimg.h" - -const TkimgStubs *tkimgStubsPtr; - -/* - *---------------------------------------------------------------------- - * - * Tkimg_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. - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE const char * -Tkimg_InitStubs( - Tcl_Interp *interp, - const char *version, - int exact -) { - const char *result; - void *data; - - result = Tcl_PkgRequireEx(interp, PACKAGE_TCLNAME, (CONST84 char *) version, exact, &data); - if (!result || !data) { - return NULL; - } - - tkimgStubsPtr = (const TkimgStubs *) data; - return result; -} |