diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:52:18 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:52:18 (GMT) |
commit | 4302a869f0212a3e4878e66a7260b434f6584476 (patch) | |
tree | e6976e66edf648406e32b092395121e045301692 /tkimg/libtiff/tifftcl.c | |
parent | a780057cc1b51dd3a557549c3cf2431f09136c0d (diff) | |
parent | 60d692811c12788ed4468d5ff680633304e8f641 (diff) | |
download | blt-4302a869f0212a3e4878e66a7260b434f6584476.zip blt-4302a869f0212a3e4878e66a7260b434f6584476.tar.gz blt-4302a869f0212a3e4878e66a7260b434f6584476.tar.bz2 |
Merge commit '60d692811c12788ed4468d5ff680633304e8f641' as 'tkimg'
Diffstat (limited to 'tkimg/libtiff/tifftcl.c')
-rwxr-xr-x | tkimg/libtiff/tifftcl.c | 112 |
1 files changed, 112 insertions, 0 deletions
diff --git a/tkimg/libtiff/tifftcl.c b/tkimg/libtiff/tifftcl.c new file mode 100755 index 0000000..e17bc5b --- /dev/null +++ b/tkimg/libtiff/tifftcl.c @@ -0,0 +1,112 @@ +/*
+ * tifftcl.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: tifftcl.c 393 2015-07-13 13:17:12Z nijtmans $
+ *
+ */
+
+#include "tifftcl.h"
+
+/*
+ * Declarations for externally visible functions.
+ */
+
+extern DLLEXPORT int Tifftcl_Init(Tcl_Interp *interp);
+extern DLLEXPORT int Tifftcl_SafeInit(Tcl_Interp *interp);
+
+/*
+ * Prototypes for procedures defined later in this file:
+ */
+
+/*
+ *----------------------------------------------------------------------------
+ *
+ * Tifftcl_Init --
+ *
+ * Initialisation routine for loadable module
+ *
+ * Results:
+ * None.
+ *
+ * Side effects:
+ * Creates commands in the interpreter,
+ * loads xml package.
+ *
+ *----------------------------------------------------------------------------
+ */
+
+int
+Tifftcl_Init (interp)
+ Tcl_Interp *interp; /* Interpreter to initialise. */
+{
+ extern const TifftclStubs tifftclStubs;
+
+ if (Tcl_InitStubs(interp, "8.3", 0) == NULL) {
+ return TCL_ERROR;
+ }
+ if (Tcl_PkgProvideEx(interp, PACKAGE_NAME, PACKAGE_VERSION,
+ (ClientData) &tifftclStubs) != TCL_OK) {
+ return TCL_ERROR;
+ }
+
+ return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------------
+ *
+ * Tifftcl_SafeInit --
+ *
+ * Initialisation routine for loadable module in a safe interpreter.
+ *
+ * Results:
+ * None.
+ *
+ * Side effects:
+ * Creates commands in the interpreter,
+ * loads xml package.
+ *
+ *----------------------------------------------------------------------------
+ */
+
+int
+Tifftcl_SafeInit (interp)
+ Tcl_Interp *interp; /* Interpreter to initialise. */
+{
+ return Tifftcl_Init(interp);
+}
+
+/*
+ *----------------------------------------------------------------------------
+ *
+ * Tifftcl_XXX --
+ *
+ * Wrappers around the zlib functionality.
+ *
+ * Results:
+ * Depends on function.
+ *
+ * Side effects:
+ * Depends on function.
+ *
+ *----------------------------------------------------------------------------
+ */
+
+/*
+ * No wrappers are required. Due to intelligent definition of the stub
+ * table using the function names of the libz sources the stub table
+ * contains jumps to the actual functionality.
+ */
|