summaryrefslogtreecommitdiffstats
path: root/tkimg/libjpeg/jpegtcl.c
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-01-03 21:51:01 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-01-03 21:51:01 (GMT)
commita780057cc1b51dd3a557549c3cf2431f09136c0d (patch)
tree717f78052c55596449b27743171d7e170c4d39a0 /tkimg/libjpeg/jpegtcl.c
parent7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff)
downloadblt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip
blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz
blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/libjpeg/jpegtcl.c')
-rw-r--r--tkimg/libjpeg/jpegtcl.c79
1 files changed, 0 insertions, 79 deletions
diff --git a/tkimg/libjpeg/jpegtcl.c b/tkimg/libjpeg/jpegtcl.c
deleted file mode 100644
index cfd4633..0000000
--- a/tkimg/libjpeg/jpegtcl.c
+++ /dev/null
@@ -1,79 +0,0 @@
-/*
- * jpegtcl.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: jpegtcl.c,v 1.1.1.1 2016/01/25 21:20:46 joye Exp $
- *
- */
-
-#include "jpegtcl.h"
-
-/*
- *----------------------------------------------------------------------------
- *
- * Jpegtcl_Init --
- *
- * Initialisation routine for loadable module
- *
- * Results:
- * None.
- *
- * Side effects:
- * Creates commands in the interpreter,
- * loads xml package.
- *
- *----------------------------------------------------------------------------
- */
-
-int
-Jpegtcl_Init (interp)
- Tcl_Interp *interp; /* Interpreter to initialise. */
-{
- extern const JpegtclStubs jpegtclStubs;
-
- if (Tcl_InitStubs(interp, "8.3", 0) == NULL) {
- return TCL_ERROR;
- }
- if (Tcl_PkgProvideEx(interp, PACKAGE_NAME, PACKAGE_VERSION,
- (ClientData) &jpegtclStubs) != TCL_OK) {
- return TCL_ERROR;
- }
-
- return TCL_OK;
-}
-
-/*
- *----------------------------------------------------------------------------
- *
- * Jpegtcl_SafeInit --
- *
- * Initialisation routine for loadable module in a safe interpreter.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Creates commands in the interpreter,
- * loads xml package.
- *
- *----------------------------------------------------------------------------
- */
-
-int
-Jpegtcl_SafeInit (interp)
- Tcl_Interp *interp; /* Interpreter to initialise. */
-{
- return Jpegtcl_Init(interp);
-}