diff options
Diffstat (limited to 'tkimg/libpng/pngtcl.c')
-rw-r--r-- | tkimg/libpng/pngtcl.c | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/tkimg/libpng/pngtcl.c b/tkimg/libpng/pngtcl.c deleted file mode 100644 index 17092a9..0000000 --- a/tkimg/libpng/pngtcl.c +++ /dev/null @@ -1,84 +0,0 @@ -/* - * pngtcl.c -- - * - * Generic interface to XML parsers. - * - * Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net> - * - * Zveno Pty Ltd makes this software and associated documentation - * available free of charge for any purpose. You may make copies - * of the software but you must include all of this notice on any copy. - * - * Zveno Pty Ltd does not warrant that this software is error free - * or fit for any purpose. Zveno Pty Ltd disclaims any liability for - * all claims, expenses, losses, damages and costs any user may incur - * as a result of using, copying or modifying the software. - * - * $Id: pngtcl.c,v 1.1.1.1 2016/01/25 21:20:46 joye Exp $ - * - */ - -#include "zlibtcl.h" -#include "pngtcl.h" - -/* - *---------------------------------------------------------------------------- - * - * Pngtcl_Init -- - * - * Initialisation routine for loadable module - * - * Results: - * None. - * - * Side effects: - * Creates commands in the interpreter, - * loads xml package. - * - *---------------------------------------------------------------------------- - */ - -int -Pngtcl_Init (interp) - Tcl_Interp *interp; /* Interpreter to initialise. */ -{ - extern const PngtclStubs pngtclStubs; - - if (Tcl_InitStubs(interp, "8.3", 0) == NULL) { - return TCL_ERROR; - } - if (Zlibtcl_InitStubs(interp, ZLIBTCL_VERSION, 1) == NULL) { - return TCL_ERROR; - } - - if (Tcl_PkgProvideEx(interp, PACKAGE_NAME, PACKAGE_VERSION, - (ClientData) &pngtclStubs) != TCL_OK) { - return TCL_ERROR; - } - - return TCL_OK; -} - -/* - *---------------------------------------------------------------------------- - * - * Pngtcl_SafeInit -- - * - * Initialisation routine for loadable module in a safe interpreter. - * - * Results: - * None. - * - * Side effects: - * Creates commands in the interpreter, - * loads xml package. - * - *---------------------------------------------------------------------------- - */ - -int -Pngtcl_SafeInit (interp) - Tcl_Interp *interp; /* Interpreter to initialise. */ -{ - return Pngtcl_Init(interp); -} |