diff options
Diffstat (limited to 'tkimg/base/tkimg.c')
| -rw-r--r-- | tkimg/base/tkimg.c | 219 |
1 files changed, 219 insertions, 0 deletions
diff --git a/tkimg/base/tkimg.c b/tkimg/base/tkimg.c new file mode 100644 index 0000000..f3384b9 --- /dev/null +++ b/tkimg/base/tkimg.c @@ -0,0 +1,219 @@ +/* + * tkimg.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: tkimg.c,v 1.1.1.1 2016/01/25 21:20:46 joye Exp $ + * + */ + +#include "tkimg.h" + +MODULE_SCOPE const TkimgStubs tkimgStubs; + +/* + * Declarations for externally visible functions. + */ + +#ifdef ALLOW_B64 +static int tob64(void *clientData, Tcl_Interp *interp, + int argc, Tcl_Obj *const objv[]); +static int fromb64(void *clientData, Tcl_Interp *interp, + int argc, Tcl_Obj *const objv[]); +#endif + +/* + *---------------------------------------------------------------------------- + * + * Tkimg_Init -- + * + * Initialisation routine for loadable module + * + * Results: + * None. + * + * Side effects: + * Creates commands in the interpreter, + * loads xml package. + * + *---------------------------------------------------------------------------- + */ + +int Tkimg_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; + } + TkimgInitUtilities(interp); +#ifdef ALLOW_B64 /* Undocumented feature */ + Tcl_CreateObjCommand(interp, "img_to_base64", tob64, NULL, NULL); + Tcl_CreateObjCommand(interp, "img_from_base64", fromb64, NULL, NULL); +#endif + + if (Tcl_PkgProvideEx(interp, PACKAGE_TCLNAME, PACKAGE_VERSION, + (void *)&tkimgStubs) != TCL_OK + ) { + return TCL_ERROR; + } + + return TCL_OK; +} + +/* + *---------------------------------------------------------------------------- + * + * Tkimg_SafeInit -- + * + * Initialisation routine for loadable module in a safe interpreter. + * + * Results: + * None. + * + * Side effects: + * Creates commands in the interpreter, + * loads xml package. + * + *---------------------------------------------------------------------------- + */ + +int Tkimg_SafeInit( + Tcl_Interp *interp /* Interpreter to initialise. */ +) { + return Tkimg_Init(interp); +} + +/* + *------------------------------------------------------------------------- + * tob64 -- + * This function converts the contents of a file into a base-64 + * encoded string. + * + * Results: + * none + * + * Side effects: + * none + * + *------------------------------------------------------------------------- + */ + +#ifdef ALLOW_B64 +int tob64( + void *clientData, + Tcl_Interp *interp, + int argc, + Tcl_Obj *const objv[] +) { + Tcl_DString dstring; + tkimg_MFile handle; + Tcl_Channel chan; + char buffer[1024]; + int len; + + if (argc != 2) { + Tcl_WrongNumArgs(interp, 1, objv, "filename"); + return TCL_ERROR; + } + + chan = tkimg_OpenFileChannel(interp, Tcl_GetStringFromObj(objv[1], &len), 0); + if (!chan) { + return TCL_ERROR; + } + + Tcl_DStringInit(&dstring); + tkimg_WriteInit(&dstring, &handle); + + while ((len = Tcl_Read(chan, buffer, 1024)) == 1024) { + tkimg_Write(&handle, buffer, 1024); + } + if (len > 0) { + tkimg_Write(&handle, buffer, len); + } + if ((Tcl_Close(interp, chan) == TCL_ERROR) || (len < 0)) { + Tcl_DStringFree(&dstring); + Tcl_AppendResult(interp, Tcl_GetStringFromObj(objv[1], &len), + ": ", Tcl_PosixError(interp), NULL); + return TCL_ERROR; + } + tkimg_Putc(IMG_DONE, &handle); + + Tcl_DStringResult(interp, &dstring); + return TCL_OK; +} + +/* + *------------------------------------------------------------------------- + * fromb64 -- + * This function converts a base-64 encoded string into binary form, + * which is written to a file. + * + * Results: + * none + * + * Side effects: + * none + * + *------------------------------------------------------------------------- + */ + +int fromb64( + void *clientData, + Tcl_Interp *interp, + int argc, + Tcl_Obj *const objv[] +) { + tkimg_MFile handle; + Tcl_Channel chan; + char buffer[1024]; + int len; + + if (argc != 3) { + Tcl_WrongNumArgs(interp, 1, objv, "filename data"); + return TCL_ERROR; + } + + chan = tkimg_OpenFileChannel(interp, Tcl_GetStringFromObj(objv[1], &len), 0644); + if (!chan) { + return TCL_ERROR; + } + + handle.data = Tcl_GetStringFromObj(objv[2], &handle.length); + handle.state = 0; + + while ((len = tkimg_Read(&handle, buffer, 1024)) == 1024) { + if (Tcl_Write(chan, buffer, 1024) != 1024) { + goto writeerror; + } + } + if (len > 0) { + if (Tcl_Write(chan, buffer, len) != len) { + goto writeerror; + } + } + if (Tcl_Close(interp, chan) == TCL_ERROR) { + return TCL_ERROR; + } + return TCL_OK; + +writeerror: + Tcl_AppendResult(interp, Tcl_GetStringFromObj(objv[1], &len), ": ", + Tcl_PosixError(interp), NULL); + return TCL_ERROR; +} +#endif |