diff options
Diffstat (limited to 'tkimg/init.c')
-rw-r--r-- | tkimg/init.c | 186 |
1 files changed, 0 insertions, 186 deletions
diff --git a/tkimg/init.c b/tkimg/init.c deleted file mode 100644 index c4d873a..0000000 --- a/tkimg/init.c +++ /dev/null @@ -1,186 +0,0 @@ -/* - * init.c -- - * - * Generic photo image type initialization, Tcl/Tk package - * - * Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net> - * - * $Id: init.c,v 1.1.1.1 2016/01/25 21:20:46 joye Exp $ - * - */ - -#include "tkimg.h" - -#ifndef MORE_INITIALIZATION -#define MORE_INITIALIZATION /* Nothing */ -#endif - -/* - * Functions exported for package management. - */ - - -extern DLLEXPORT int @CPACKAGE@_Init(Tcl_Interp *interp); -extern DLLEXPORT int @CPACKAGE@_SafeInit(Tcl_Interp *interp); - -/* - * Declarations of internal functions. - */ - -static int ChnMatch(Tcl_Channel chan, const char *fileName, - Tcl_Obj *format, int *widthPtr, int *heightPtr, Tcl_Interp *interp); - -static int ObjMatch(Tcl_Obj *dataObj, Tcl_Obj *format, - int *widthPtr, int *heightPtr, Tcl_Interp *interp); - -static int ChnRead(Tcl_Interp *interp, Tcl_Channel chan, - const char *fileName, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); - -static int ObjRead(Tcl_Interp *interp, Tcl_Obj *dataObj, - Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); - -static int ChnWrite(Tcl_Interp *interp, const char *filename, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr); - -static int StringWrite(Tcl_Interp *interp, Tcl_Obj *format, - Tk_PhotoImageBlock *blockPtr); - -static Tk_PhotoImageFormat format = { - (char *) "%PHIMGTYPE%", /* name */ - ChnMatch, /* fileMatchProc */ - ObjMatch, /* stringMatchProc */ - ChnRead, /* fileReadProc */ - ObjRead, /* stringReadProc */ - ChnWrite, /* fileWriteProc */ - StringWrite /* stringWriteProc */ -}; - -#ifdef SECOND_FORMAT -/* - * Declare procedures of the second format as needed. The macro we - * check for allow us to share code between first and second - * format. Current user of this feature: The PS/PDF combo handler - */ - -#ifndef SECOND_CHNMATCH -#define SECOND_CHNMATCH ChnMatchBeta -static int ChnMatchBeta(Tcl_Channel chan, const char *fileName, - Tcl_Obj *format, int *widthPtr, int *heightPtr, Tcl_Interp *interp); -#endif -#ifndef SECOND_OBJMATCH -#define SECOND_OBJMATCH ObjMatchBeta -static int ObjMatchBeta(Tcl_Obj *dataObj, Tcl_Obj *format, - int *widthPtr, int *heightPtr, Tcl_Interp *interp); -#endif -#ifndef SECOND_CHNREAD -#define SECOND_CHNREAD ChnReadBeta -static int ChnReadBeta(Tcl_Interp *interp, Tcl_Channel chan, - const char *fileName, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); -#endif -#ifndef SECOND_OBJREAD -#define SECOND_OBJREAD ChnObjReadBeta -static int ObjReadBeta(Tcl_Interp *interp, Tcl_Obj *dataObj, - Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); -#endif -#ifndef SECOND_CHNWRITE -#define SECOND_CHNWRITE ChnWriteBeta -static int ChnWriteBeta(Tcl_Interp *interp, const char *filename, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr); -#endif -#ifndef SECOND_STRWRITE -#define SECOND_STRWRITE StringWriteBeta -static int StringWriteBeta(Tcl_Interp *interp, Tcl_Obj *format, - Tk_PhotoImageBlock *blockPtr); -#endif - -static Tk_PhotoImageFormat format_beta = { - (char *) "%PHIMGTYPE_BETA%", /* name */ - SECOND_CHNMATCH, /* fileMatchProc */ - SECOND_OBJMATCH, /* stringMatchProc */ - SECOND_CHNREAD, /* fileReadProc */ - SECOND_OBJREAD, /* stringReadProc */ - SECOND_CHNWRITE, /* fileWriteProc */ - SECOND_STRWRITE /* stringWriteProc */ -}; - -#endif /* SECOND_FORMAT */ - - -/* - *---------------------------------------------------------------------------- - * - * @CPACKAGE@_Init -- - * - * Initialisation routine for loadable module - * - * Results: - * None. - * - * Side effects: - * Creates commands in the interpreter, loads package. - * - *---------------------------------------------------------------------------- - */ - -int -@CPACKAGE@_Init( - Tcl_Interp *interp /* Interpreter to initialise. */ -) { - if (!Tcl_InitStubs(interp, "8.3", 0)) { - return TCL_ERROR; - } - if (!Tk_InitStubs(interp, "8.3", 0)) { - return TCL_ERROR; - } - if (!Tkimg_InitStubs(interp, TKIMG_VERSION, 0)) { - return TCL_ERROR; - } - - MORE_INITIALIZATION; - - /* - * Register the new photo image type. - */ - - Tk_CreatePhotoImageFormat(&format); -#ifdef SECOND_FORMAT - Tk_CreatePhotoImageFormat(&format_beta); -#endif /* SECOND_FORMAT */ - - /* - * At last provide the package ... - */ - - if (Tcl_PkgProvide(interp, PACKAGE_TCLNAME, PACKAGE_VERSION) != TCL_OK) { - return TCL_ERROR; - } - return TCL_OK; -} - -/* - *---------------------------------------------------------------------------- - * - * @CPACKAGE@_SafeInit -- - * - * Initialisation routine for loadable module in a safe interpreter. - * - * Results: - * None. - * - * Side effects: - * Creates commands in the interpreter, loads package. - * - *---------------------------------------------------------------------------- - */ - -int -@CPACKAGE@_SafeInit( - Tcl_Interp *interp /* Interpreter to initialise. */ -) { - return @CPACKAGE@_Init(interp); -} - |