From fe83bb1f3632d8a01fd77ad53345c706f3dfc8b2 Mon Sep 17 00:00:00 2001 From: Harald Oehlmann Date: Tue, 18 Aug 2015 14:23:28 +0200 Subject: [PATCH] TCL Backend 2.5.0 --- backend_tcl/demo/demo.tcl | 20 + backend_tcl/lib/zint/pkgIndex.tcl | 2 + backend_tcl/readme.txt | 22 + backend_tcl/zint.c | 779 ++++++++++++++++++++++++++++++ backend_tcl/zint_tcl.dsp | 227 +++++++++ 5 files changed, 1050 insertions(+) create mode 100644 backend_tcl/demo/demo.tcl create mode 100644 backend_tcl/lib/zint/pkgIndex.tcl create mode 100644 backend_tcl/readme.txt create mode 100644 backend_tcl/zint.c create mode 100644 backend_tcl/zint_tcl.dsp diff --git a/backend_tcl/demo/demo.tcl b/backend_tcl/demo/demo.tcl new file mode 100644 index 00000000..8295891c --- /dev/null +++ b/backend_tcl/demo/demo.tcl @@ -0,0 +1,20 @@ +package require Tk +lappend auto_path [file dirname [info script]]/../lib +package require zint +image create photo ::zintimg +pack [label .l -image ::zintimg] -side left +pack [ttk::separator .s -orient vertical] -side left +pack [::ttk::combobox .c -values [lsort [zint symbologies]] -state readonly]\ + -side top -fill x +.c set Datamatrix +pack [::ttk::entry .e] -side top -fill x +.e insert end 12345 +bind .e Generate +pack [::ttk::button .b -text Generate -command Generate] -fill x -side top +proc Generate {} { + ::zintimg blank + if {[catch {zint encode [.e get] ::zintimg -barcode [.c get]} e]} { + tk_messageBox -message $e -title "Zint error" + } +} +Generate diff --git a/backend_tcl/lib/zint/pkgIndex.tcl b/backend_tcl/lib/zint/pkgIndex.tcl new file mode 100644 index 00000000..087b0ce8 --- /dev/null +++ b/backend_tcl/lib/zint/pkgIndex.tcl @@ -0,0 +1,2 @@ +package ifneeded zint 2.5.0\ + [list load [file join $dir zint[info sharedlibextension]]] diff --git a/backend_tcl/readme.txt b/backend_tcl/readme.txt new file mode 100644 index 00000000..f9848531 --- /dev/null +++ b/backend_tcl/readme.txt @@ -0,0 +1,22 @@ + zint tcl binding readme + ----------------------- + 2014-06-30 + (C) Harald Oehlmann + harald.oehlmann@users.sourceforge.net + +What: tcl binding for zint bar code generator library + +Build: +- MS-VC6 project file "zint_tcl.dsp" may be opened by the GUI. +- Linux/Unix build is no issue in principe but is not done jet + +Usage: + +load zint.dll +zint help + +Most options are identical to the command line tool and are described in the +zint manual. + +Demo: +The demo folder contains a minimal visual demo program. diff --git a/backend_tcl/zint.c b/backend_tcl/zint.c new file mode 100644 index 00000000..affd4dd2 --- /dev/null +++ b/backend_tcl/zint.c @@ -0,0 +1,779 @@ +/* zint_tcl.c TCL binding for zint */ +/* + zint - the open source tcl binding to the zint barcode library + Copyright (C) 2014 Harald Oehlmann + + Redistribution and use in source and binary forms, with or without + modification, are permitted provided that the following conditions + are met: + + 1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + 2. Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + 3. Neither the name of the project nor the names of its contributors + may be used to endorse or promote products derived from this software + without specific prior written permission. + + THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND + ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE + FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + SUCH DAMAGE. +*/ +/* + History + + 2014-06-16 2.5.0 HaO + First implementation +*/ + +#pragma warning(disable : 4201 4214 4514) +#define STRICT +#define WIN32_LEAN_AND_MEAN +/* TCL Defines */ +#define DLL_BUILD + +#include + +/* Define ERROR_INVALID_DATA is also used by zint... */ +#ifdef ERROR_INVALID_DATA +#undef ERROR_INVALID_DATA +#endif + +#include + +#define USE_TCL_STUBS +#define USE_TK_STUBS +#include +#include + + + +/*----------------------------------------------------------------------------*/ +/* > File option defines */ + +#define VERSION "2.5.0" + +/*----------------------------------------------------------------------------*/ +/* >>>>> Hepler defines */ + +#define STRING( x ) #x + +/*----------------------------------------------------------------------------*/ +/* >>>> External Prototypes (exports) */ +int __declspec(dllexport) Zint_Init (Tcl_Interp *interp); +/*----------------------------------------------------------------------------*/ +/* >>>> local prototypes */ +static int Zint(ClientData unused, Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]); +static int Encode(Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]); +/*----------------------------------------------------------------------------*/ +/* >>>> File Global Variables */ + +/* >> List of Codes */ + +static char *s_code_list[] = { + "Code11", + "Matrix2of5", + "Interleaved2of5", + "IATAC2of5", + "Logic2of5", + "Ind2of5", + "Code39", + "Code39Extended", + "EAN", + "GS1-128", + "Codabar", + "Code128", + "DPLeit", + "DPIdent", + "Code16K", + "Code49", + "Code93", + "Flat", + "GS1DataBar", + "GS1DataBarLimited", + "GS1DataBarExpanded", + "Telepen", + "UPC-A", + "UPC-E", + "Postnet", + "MSIPlessey", + "FIM", + "Logmars", + "Pharma", + "PZN", + "PharmaTwo", + "PDF417", + "PDF417Truncated", + "MaxiCode", + "QR", + "Code128B", + "AusPost", + "AusReply", + "AusRoute", + "AusRedirect", + "ISBN", + "RM4SCC", + "Datamatrix", + "EAN14", + "CodablockF", + "NVE18", + "JapanPost", + "KoreaPost", + "RSS14Stacked", + "RSS14SstackedOmni", + "RSSExpandedStacked", + "Planet", + "MicroPDF417", + "OneCode", + "Plessey", + "TelepenNum", + "ITF14", + "KIX", + "Aztec", + "DAFT", + "MicroQR", + "HIBC-128", + "HIBC-39", + "HIBC-DM", + "HIBC-QR", + "HIBC-PDF", + "HIBC-MicroPDF", + "HIBC-CodablockF", + "HIBCAztec", + "Azure", + "Code32", + "EAN-CC", + "EAN128-CC", + "RSS14-CC", + "RSSLimited-CC", + "RSSEXPanded-CC", + "UPCA-CC", + "UPCE-CC", + "RSS14Stacked-CC", + "RSS14Omni-CC", + "RSSExpandedStacked-CC", + "Channel", + "CodeOne", + "GridMatrix", + NULL}; + +static int s_code_number[] = { + BARCODE_CODE11, + BARCODE_C25MATRIX, + BARCODE_C25INTER, + BARCODE_C25IATA, + BARCODE_C25LOGIC, + BARCODE_C25IND, + BARCODE_CODE39, + BARCODE_EXCODE39, + BARCODE_EANX, + BARCODE_EAN128, + BARCODE_CODABAR, + BARCODE_CODE128, + BARCODE_DPLEIT, + BARCODE_DPIDENT, + BARCODE_CODE16K, + BARCODE_CODE49, + BARCODE_CODE93, + BARCODE_FLAT, + BARCODE_RSS14, + BARCODE_RSS_LTD, + BARCODE_RSS_EXP, + BARCODE_TELEPEN, + BARCODE_UPCA, + BARCODE_UPCE, + BARCODE_POSTNET, + BARCODE_MSI_PLESSEY, + BARCODE_FIM, + BARCODE_LOGMARS, + BARCODE_PHARMA, + BARCODE_PZN, + BARCODE_PHARMA_TWO, + BARCODE_PDF417, + BARCODE_PDF417TRUNC, + BARCODE_MAXICODE, + BARCODE_QRCODE, + BARCODE_CODE128B, + BARCODE_AUSPOST, + BARCODE_AUSREPLY, + BARCODE_AUSROUTE, + BARCODE_AUSREDIRECT, + BARCODE_ISBNX, + BARCODE_RM4SCC, + BARCODE_DATAMATRIX, + BARCODE_EAN14, + BARCODE_CODABLOCKF, + BARCODE_NVE18, + BARCODE_JAPANPOST, + BARCODE_KOREAPOST, + BARCODE_RSS14STACK, + BARCODE_RSS14STACK_OMNI, + BARCODE_RSS_EXPSTACK, + BARCODE_PLANET, + BARCODE_MICROPDF417, + BARCODE_ONECODE, + BARCODE_PLESSEY, + BARCODE_TELEPEN_NUM, + BARCODE_ITF14, + BARCODE_KIX, + BARCODE_AZTEC, + BARCODE_DAFT, + BARCODE_MICROQR, + BARCODE_HIBC_128, + BARCODE_HIBC_39, + BARCODE_HIBC_DM, + BARCODE_HIBC_QR, + BARCODE_HIBC_PDF, + BARCODE_HIBC_MICPDF, + BARCODE_HIBC_BLOCKF, + BARCODE_HIBC_AZTEC, + BARCODE_AZRUNE, + BARCODE_CODE32, + BARCODE_EANX_CC, + BARCODE_EAN128_CC, + BARCODE_RSS14_CC, + BARCODE_RSS_LTD_CC, + BARCODE_RSS_EXP_CC, + BARCODE_UPCA_CC, + BARCODE_UPCE_CC, + BARCODE_RSS14STACK_CC, + BARCODE_RSS14_OMNI_CC, + BARCODE_RSS_EXPSTACK_CC, + BARCODE_CHANNEL, + BARCODE_CODEONE, + BARCODE_GRIDMATRIX, + 0}; + + +/* Version information */ +static char version_string[] = VERSION; +/* Help text */ +static char help_message[] = "zint tcl(stub,obj) dll\n" + "(c) 2014-06-16 ELMICRON GmbH by Harald Oehlmann\n" + " Generate barcode in tk images and in file output\n" + "Usage:\n" + " zint encode option value...\n" + " Available options:\n" + " -bind bool: bars above/below the code, size set by -border\n" + " -box bool: box around bar code, size set be -border\n" + " -barcode choice: symbology, use 'zint symbology' to get a list\n" + " -height integer: Symbol height in modules\n" + " -whitesp integer: horizontal quiet zone in modules\n" + " -border integer: with of a border around the symbol. Use with -bind/-box 1\n" + " -fg color: set foreground color as 6 hex rrggbb\n" + " -bg color: set background color as 6 hex rrggbb\n" + " -cols integer: PDF417: number of columns\n" + " -vers integer: Symbology option, QR-Code, Plessy\n" + " -rotate angle: Image rotation by 0,90 or 270 degrees\n" + " -secure integer: EC Level (PDF417, QR)\n" + " -mode: tructured primary data mode (Maxicode, Composite)\n" + " -primary text: Structured primary data (Maxicode, Composite)\n" + " -scale double: Scale the image to this factor\n" + " -format binary|unicode|gs1: input data format. Default:unicode" + " -notext bool: no interpretation line\n" + " -square bool: force Data Matrix symbols to be square\n" + " -init bool: Create reader initialisation symbol (Code 128, Data Matrix)\n" + " -smalltext bool: tiny interpretation line font\n" + " -to {x0 y0 ?width? ?height?}: place to put in photo image\n" + "\n" + "zint symbologies: List available symbologies\n" + " zint help\n" + " zint version\n" + ; + +/*----------------------------------------------------------------------------*/ +/* Exported symbols */ +BOOL __declspec(dllexport) WINAPI DllEntryPoint (HINSTANCE hInstance, + DWORD seginfo, LPVOID lpCmdLine) +{ + /* Don't do anything, so just return true */ + return TRUE; +} +/*----------------------------------------------------------------------------*/ +/* Initialisation Procedures */ +int __declspec(dllexport) Zint_Init (Tcl_Interp *Interp) +{ + /*------------------------------------------------------------------------*/ + if (Tcl_InitStubs(Interp, "8.1", 0) == NULL) + { + return TCL_ERROR; + } + /*------------------------------------------------------------------------*/ + if (Tk_InitStubs(Interp, "8.1", 0) == NULL) + { + return TCL_ERROR; + } + /*------------------------------------------------------------------------*/ + Tcl_CreateObjCommand(Interp, "zint", Zint, (ClientData)NULL, + (Tcl_CmdDeleteProc *)NULL); + Tcl_PkgProvide (Interp, "zint", version_string); + /*------------------------------------------------------------------------*/ + return TCL_OK; +} +/*----------------------------------------------------------------------------*/ +/* >>>>> Called routine */ +/*----------------------------------------------------------------------------*/ +/* Decode tcl commands */ +static int Zint(ClientData unused, Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]) +{ + /* Option list and indexes */ + char *subCmds[] = {"encode", "symbologies", "version", "help", NULL}; + enum iCommand {iEncode, iSymbologies, iVersion, iHelp}; + /* choice of option */ + int Index; + /*------------------------------------------------------------------------*/ + /* > Check if option argument is given and decode it */ + if (objc > 1) + { + if(Tcl_GetIndexFromObj(interp, objv[1], (const char **) subCmds, + "option", 0, &Index) + == TCL_ERROR) + { + return TCL_ERROR; + } + } else { + Tcl_WrongNumArgs(interp, 1, objv, "option"); + return TCL_ERROR; + } + /*------------------------------------------------------------------------*/ + /* > Call functions in dependency of Index */ + /*------------------------------------------------------------------------*/ + switch (Index) + { + case iEncode: + return Encode(interp, objc, objv); + case iSymbologies: + { + Tcl_Obj *oRes; + int posCur; + oRes = Tcl_NewObj(); + for (posCur = 0 ; s_code_list[posCur] != NULL; posCur++) { + if( ZBarcode_ValidID(s_code_number[posCur]) != 0) { + if (TCL_OK != Tcl_ListObjAppendElement(interp, + oRes, Tcl_NewStringObj(s_code_list[posCur],-1))) + { + return TCL_ERROR; + } + } + } + Tcl_SetObjResult(interp,oRes); + return TCL_OK; + } + case iVersion: + Tcl_SetObjResult(interp, + Tcl_NewStringObj(version_string, -1)); + return TCL_OK; + case iHelp: + default: + Tcl_SetObjResult(interp, + Tcl_NewStringObj(help_message, -1)); + return TCL_OK; + } +} +/*----------------------------------------------------------------------------*/ +/* >>>>> Encode */ +/*----------------------------------------------------------------------------*/ +/* Encode image */ +static int Encode(Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]) +{ + struct zint_symbol *hSymbol; + Tcl_DString dsInput; + char *pStr; + int lStr; + Tcl_Encoding hUTF8Encoding; + int rotate_angle=0; + int fError = 0; + Tcl_DString dString; + int optionPos; + int destX0=0; + int destY0=0; + int destWidth=0; + int destHeight=0; + /*------------------------------------------------------------------------*/ + /* >> Check if at least data and object is given and a pair number of */ + /* >> options */ + if ( objc < 4 || (objc % 2) != 0 ) + { + Tcl_WrongNumArgs(interp, 2, objv, "data photo ?-switch value?..."); + return TCL_ERROR; + } + /*------------------------------------------------------------------------*/ + /* >>> Prepare encoding */ + hUTF8Encoding = Tcl_GetEncoding(interp, "utf-8"); + if (NULL == hUTF8Encoding) { + return TCL_ERROR; + } + /*------------------------------------------------------------------------*/ + /* >>> Prepare zint object */ + hSymbol = ZBarcode_Create(); + hSymbol->input_mode = UNICODE_MODE; + /*------------------------------------------------------------------------*/ + /* >> Decode options */ + for (optionPos = 4; optionPos < objc; optionPos+=2) { + /*--------------------------------------------------------------------*/ + /* Option list and indexes */ + char *optionList[] = { + "-bind", "-box", "-barcode", "-height", "-whitesp", "-border", + "-fg", "-bg", "-cols", "-vers", "-rotate", + "-secure", "-mode", "-primary", "-scale", "-format", + "-notext", "-square", "-init", "-smalltext", "-to", + NULL}; + enum iOption { + iBind, iBox, iBarcode, iHeight, iWhiteSp, iBorder, + iFG, iBG, iCols, iVers, iRotate, + iSecure, iMode, iPrimary, iScale, iFormat, + iNoText, iSquare, iInit, iSmallText, iTo + }; + int optionIndex; + int intValue; + double doubleValue; + /*--------------------------------------------------------------------*/ + if(Tcl_GetIndexFromObj(interp, objv[optionPos], + (const char **) optionList, + "zint option", optionPos-1, &optionIndex) + == TCL_ERROR) + { + fError = 1; + break; + } + /*--------------------------------------------------------------------*/ + /* >> Decode object */ + switch (optionIndex) { + case iBind: + case iBox: + case iInit: + case iSmallText: + case iNoText: + case iSquare: + /* >> Binary options */ + if (TCL_OK != Tcl_GetBooleanFromObj(interp, objv[optionPos+1], + &intValue)) + { + fError = 1; + } + break; + case iFG: + case iBG: + /* >> Colors */ + pStr = Tcl_GetStringFromObj(objv[optionPos+1],&lStr); + if (lStr != 6) { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("Color is not 6 hex",-1)); + fError = 1; + } + break; + case iScale: + /* >> Float */ + if (TCL_OK != Tcl_GetDoubleFromObj(interp, objv[optionPos+1], + &doubleValue)) + { + fError = 1; + } + break; + case iBorder: + case iHeight: + case iCols: + case iVers: + case iSecure: + case iMode: + case iRotate: + case iWhiteSp: + /* >> Int */ + if (TCL_OK != Tcl_GetIntFromObj(interp, objv[optionPos+1], + &intValue)) + { + fError = 1; + } + break; + case iPrimary: + /* > Primary String up to 90 characters */ + /* > Output filename up to 250 characters */ + Tcl_DStringInit(& dString); + pStr = Tcl_GetStringFromObj(objv[optionPos+1], &lStr); + Tcl_UtfToExternalDString( hUTF8Encoding, pStr, lStr, &dString); + if (Tcl_DStringLength(&dString) > (optionIndex==iPrimary?90:250)) { + Tcl_DStringFree(&dString); + Tcl_SetObjResult(interp,Tcl_NewStringObj("String to long", -1)); + fError = 1; + } + break; + } + if (fError) { + break; + } + /*--------------------------------------------------------------------*/ + switch (optionIndex) { + case iBind: + if (intValue) { + hSymbol->output_options |= BARCODE_BIND; + } else { + hSymbol->output_options &= ~BARCODE_BIND; + } + break; + case iBox: + if (intValue) { + hSymbol->output_options |= BARCODE_BOX; + } else { + hSymbol->output_options &= ~BARCODE_BOX; + } + break; + case iInit: + if (intValue) { + hSymbol->output_options |= READER_INIT; + } else { + hSymbol->output_options &= ~READER_INIT; + } + break; + case iSmallText: + if (intValue) { + hSymbol->output_options |= SMALL_TEXT; + } else { + hSymbol->output_options &= ~SMALL_TEXT; + } + break; + case iFG: + strncpy(hSymbol->fgcolour, pStr, 6); + hSymbol->fgcolour[6]='\0'; + break; + case iBG: + strncpy(hSymbol->bgcolour, pStr, 6); + hSymbol->bgcolour[6]='\0'; + break; + case iNoText: + hSymbol->show_hrt = (intValue?0:1); + break; + case iSquare: + hSymbol->option_3 = (intValue?DM_SQUARE:0); + break; + case iScale: + if (doubleValue < 0.01) { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("Scale below 0.01", -1)); + fError = 1; + } else { + hSymbol->scale = (float)doubleValue; + } + break; + case iBorder: + if (intValue < 0 || intValue > 1000) { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("Border out of range", -1)); + fError = 1; + } else { + hSymbol->border_width = intValue; + } + break; + case iHeight: + if (intValue < 1 || intValue > 1000) { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("Height out of range", -1)); + fError = 1; + } else { + hSymbol->height = intValue; + } + break; + case iCols: + case iVers: + /* >> Int in Option 2 */ + if (intValue < 1 + || (optionIndex==iCols && intValue > 30) + || (optionIndex==iVers && intValue > 47)) + { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("cols/vers out of range", -1)); + fError = 1; + } else { + hSymbol->option_2 = intValue; + } + break; + case iSecure: + case iMode: + /* >> Int in Option 1 */ + if ( (optionIndex==iSecure && (intValue < 1 || intValue > 8)) + || (optionIndex==iMode && (intValue < 0 || intValue > 6))) + { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("secure/mode out of range", -1)); + fError = 1; + } else { + hSymbol->option_1 = intValue; + } + break; + case iPrimary: + strcpy(hSymbol->primary, Tcl_DStringValue( &dString ) ); + Tcl_DStringFree(&dString); + break; + case iRotate: + /* >> Rotate angle */ + /*----------------------------------------------------------------*/ + { + char *rotateList[] = {"0", "90", "180", "270", "360", NULL}; + enum iRotate { iRotate0, iRotate90, iRotate180, iRotate270 }; + /*------------------------------------------------------------*/ + if(Tcl_GetIndexFromObj(interp, objv[optionPos+1], + (const char **) rotateList, + "rotate", optionPos, &intValue) + == TCL_ERROR) + { + fError = 1; + break; + } + switch (intValue) { + case iRotate90: rotate_angle = 90; break; + case iRotate180: rotate_angle = 180; break; + case iRotate270: rotate_angle = 270; break; + default: rotate_angle = 0; break; + } + } + break; + case iBarcode: + if(Tcl_GetIndexFromObj(interp, objv[optionPos+1], + (const char **) s_code_list,"-barcode", optionPos, &intValue) + == TCL_ERROR) + { + fError = 1; + } else { + hSymbol->symbology = s_code_number[intValue]; + } + break; + case iWhiteSp: + hSymbol->whitespace_width = intValue; + break; + case iTo: + /* >> Decode the -to parameter as list of X0 Y0 ?Width Height? */ + { + Tcl_Obj *poParam; + if (TCL_OK != Tcl_ListObjLength(interp, + objv[optionPos+1], &lStr)) + { + fError = 1; + } else if ( ! ( lStr == 2 || lStr == 4 ) ) { + Tcl_SetObjResult(interp, + Tcl_NewStringObj( + "option -to not a list of 2 or 4", -1)); + fError = 1; + } else if ( + TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1], + 0, &poParam) + || TCL_OK != Tcl_GetIntFromObj(interp,poParam,&destX0) + || TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1], + 1, &poParam) + || TCL_OK != Tcl_GetIntFromObj(interp,poParam,&destY0) + || lStr == 4 && ( + TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1], + 2, &poParam) + || TCL_OK != Tcl_GetIntFromObj(interp,poParam, + &destWidth) + || TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1], + 3, &poParam) + || TCL_OK != Tcl_GetIntFromObj(interp,poParam, + &destHeight) + )) + { + fError = 1; + } break; + } + case iFormat: + /* >> Format of the input data */ + /*----------------------------------------------------------------*/ + { + char *formatList[] = {"binary", "gs1", "unicode",NULL}; + enum iFormat { iBinary, iGS1, iUnicode }; + /*------------------------------------------------------------*/ + if(Tcl_GetIndexFromObj(interp, objv[optionPos+1], + (const char **) formatList, + "format", optionPos, &intValue) + == TCL_ERROR) + { + fError = 1; + break; + } + switch (intValue) { + case iBinary: hSymbol->input_mode = DATA_MODE; break; + case iGS1: hSymbol->input_mode = GS1_MODE; break; + default: hSymbol->input_mode = UNICODE_MODE; break; + } + } + } + } + /*------------------------------------------------------------------------*/ + /* >>> Prepare input dstring */ + Tcl_DStringInit(& dsInput); + /*------------------------------------------------------------------------*/ + if (!fError) { + /*--------------------------------------------------------------------*/ + /* >>> Do output */ + Tk_PhotoHandle hPhoto; + /*--------------------------------------------------------------------*/ + /* >>> Get input - 2nd argument */ + if (hSymbol->input_mode == DATA_MODE) { + /* Binary data */ + pStr = Tcl_GetByteArrayFromObj(objv[2], &lStr); + } else { + /* UTF8 Data */ + pStr = Tcl_GetStringFromObj(objv[2], &lStr); + Tcl_UtfToExternalDString( hUTF8Encoding, pStr, lStr, &dsInput); + pStr = Tcl_DStringValue( &dsInput ); + lStr = Tcl_DStringLength( &dsInput ); + } + /*--------------------------------------------------------------------*/ + if( 0 != ZBarcode_Encode_and_Buffer(hSymbol, + pStr, lStr, rotate_angle) ) + { + /* >> Encode error */ + fError = 1; + Tcl_SetObjResult(interp, Tcl_NewStringObj(hSymbol->errtxt, -1)); + } else if ( + NULL == (hPhoto = Tk_FindPhoto(interp, Tcl_GetString(objv[3])))) + { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("Unknown photo image", -1)); + fError = 1; + } else { + Tk_PhotoImageBlock sImageBlock; + sImageBlock.pixelPtr = hSymbol->bitmap; + sImageBlock.width = hSymbol->bitmap_width; + sImageBlock.height = hSymbol->bitmap_height; + sImageBlock.pitch = 3*hSymbol->bitmap_width; + sImageBlock.pixelSize = 3; + sImageBlock.offset[0] = 0; + sImageBlock.offset[1] = 1; + sImageBlock.offset[2] = 2; + sImageBlock.offset[3] = 0; + if (0 == destWidth) { + destWidth = hSymbol->bitmap_width; + } + if (0 == destHeight) { + destHeight = hSymbol->bitmap_height; + } + if (TCL_OK != Tk_PhotoPutBlock(interp, hPhoto, &sImageBlock, + destX0, destY0, destWidth, destHeight, + TK_PHOTO_COMPOSITE_OVERLAY)) + { + fError = 1; + } + } + } + /*------------------------------------------------------------------------*/ + Tcl_FreeEncoding(hUTF8Encoding); + Tcl_DStringFree(& dsInput); + ZBarcode_Delete(hSymbol); + /*------------------------------------------------------------------------*/ + if (fError) { + return TCL_ERROR; + } + return TCL_OK; +} diff --git a/backend_tcl/zint_tcl.dsp b/backend_tcl/zint_tcl.dsp new file mode 100644 index 00000000..f55c42f2 --- /dev/null +++ b/backend_tcl/zint_tcl.dsp @@ -0,0 +1,227 @@ +# Microsoft Developer Studio Project File - Name="zint_tcl" - Package Owner=<4> +# Microsoft Developer Studio Generated Build File, Format Version 6.00 +# ** DO NOT EDIT ** + +# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 + +CFG=zint_tcl - Win32 Debug +!MESSAGE This is not a valid makefile. To build this project using NMAKE, +!MESSAGE use the Export Makefile command and run +!MESSAGE +!MESSAGE NMAKE /f "zint_tcl.mak". +!MESSAGE +!MESSAGE You can specify a configuration when running NMAKE +!MESSAGE by defining the macro CFG on the command line. For example: +!MESSAGE +!MESSAGE NMAKE /f "zint_tcl.mak" CFG="zint_tcl - Win32 Debug" +!MESSAGE +!MESSAGE Possible choices for configuration are: +!MESSAGE +!MESSAGE "zint_tcl - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library") +!MESSAGE "zint_tcl - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library") +!MESSAGE + +# Begin Project +# PROP AllowPerConfigDependencies 0 +# PROP Scc_ProjName "" +# PROP Scc_LocalPath "" +CPP=cl.exe +MTL=midl.exe +RSC=rc.exe + +!IF "$(CFG)" == "zint_tcl - Win32 Release" + +# PROP BASE Use_MFC 0 +# PROP BASE Use_Debug_Libraries 0 +# PROP BASE Output_Dir "Release" +# PROP BASE Intermediate_Dir "Release" +# PROP BASE Target_Dir "" +# PROP Use_MFC 0 +# PROP Use_Debug_Libraries 0 +# PROP Output_Dir "Release" +# PROP Intermediate_Dir "Release" +# PROP Ignore_Export_Lib 0 +# PROP Target_Dir "" +# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "ZINT_TCL_EXPORTS" /YX /FD /c +# ADD CPP /nologo /MT /W3 /GX /O2 /I "..\backend" /I "C:\Program Files\tcl8.5\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "ZINT_TCL_EXPORTS" /D "NO_PNG" /YX /FD /D ZINT_VERSION="\"2.5.0\"" /c +# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32 +# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 +# ADD BASE RSC /l 0x407 /d "NDEBUG" +# ADD RSC /l 0x407 /d "NDEBUG" +BSC32=bscmake.exe +# ADD BASE BSC32 /nologo +# ADD BSC32 /nologo +LINK32=link.exe +# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386 +# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib tclstub85.lib tkstub85.lib /nologo /dll /machine:I386 /out:"zint.dll" /libpath:"C:\Program Files\tcl8.5\lib" + +!ELSEIF "$(CFG)" == "zint_tcl - Win32 Debug" + +# PROP BASE Use_MFC 0 +# PROP BASE Use_Debug_Libraries 1 +# PROP BASE Output_Dir "Debug" +# PROP BASE Intermediate_Dir "Debug" +# PROP BASE Target_Dir "" +# PROP Use_MFC 0 +# PROP Use_Debug_Libraries 1 +# PROP Output_Dir "Debug" +# PROP Intermediate_Dir "Debug" +# PROP Ignore_Export_Lib 0 +# PROP Target_Dir "" +# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "ZINT_TCL_EXPORTS" /YX /FD /GZ /c +# ADD CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /I "..\backend" /I "C:\Program Files\tcl8.5\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "ZINT_TCL_EXPORTS" /D "NO_PNG" /YX /FD /GZ /D ZINT_VERSION="\"2.5.0\"" /c +# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32 +# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32 +# ADD BASE RSC /l 0x407 /d "_DEBUG" +# ADD RSC /l 0x407 /d "_DEBUG" +BSC32=bscmake.exe +# ADD BASE BSC32 /nologo +# ADD BSC32 /nologo +LINK32=link.exe +# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept +# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib tclstub85.lib tkstub85.lib /nologo /dll /debug /machine:I386 /out:"Debug/zint.dll" /pdbtype:sept /libpath:"C:\Program Files\tcl8.5\lib" + +!ENDIF + +# Begin Target + +# Name "zint_tcl - Win32 Release" +# Name "zint_tcl - Win32 Debug" +# Begin Group "Source Files" + +# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat" +# Begin Source File + +SOURCE=..\backend\2of5.c +# End Source File +# Begin Source File + +SOURCE=..\backend\auspost.c +# End Source File +# Begin Source File + +SOURCE=..\backend\aztec.c +# End Source File +# Begin Source File + +SOURCE=..\backend\code.c +# End Source File +# Begin Source File + +SOURCE=..\backend\code1.c +# End Source File +# Begin Source File + +SOURCE=..\backend\code128.c +# End Source File +# Begin Source File + +SOURCE=..\backend\code16k.c +# End Source File +# Begin Source File + +SOURCE=..\backend\code49.c +# End Source File +# Begin Source File + +SOURCE=..\backend\common.c +# End Source File +# Begin Source File + +SOURCE=..\backend\composite.c +# End Source File +# Begin Source File + +SOURCE=..\backend\dmatrix.c +# End Source File +# Begin Source File + +SOURCE=..\backend\gridmtx.c +# End Source File +# Begin Source File + +SOURCE=..\backend\gs1.c +# End Source File +# Begin Source File + +SOURCE=..\backend\imail.c +# End Source File +# Begin Source File + +SOURCE=..\backend\large.c +# End Source File +# Begin Source File + +SOURCE=..\backend\library.c +# End Source File +# Begin Source File + +SOURCE=..\backend\maxicode.c +# End Source File +# Begin Source File + +SOURCE=..\backend\medical.c +# End Source File +# Begin Source File + +SOURCE=..\backend\pdf417.c +# End Source File +# Begin Source File + +SOURCE=..\backend\plessey.c +# End Source File +# Begin Source File + +SOURCE=..\backend\png.c +# End Source File +# Begin Source File + +SOURCE=..\backend\postal.c +# End Source File +# Begin Source File + +SOURCE=..\backend\ps.c +# End Source File +# Begin Source File + +SOURCE=..\backend\qr.c +# End Source File +# Begin Source File + +SOURCE=..\backend\reedsol.c +# End Source File +# Begin Source File + +SOURCE=..\backend\render.c +# End Source File +# Begin Source File + +SOURCE=..\backend\rss.c +# End Source File +# Begin Source File + +SOURCE=..\backend\svg.c +# End Source File +# Begin Source File + +SOURCE=..\backend\telepen.c +# End Source File +# Begin Source File + +SOURCE=..\backend\upcean.c +# End Source File +# Begin Source File + +SOURCE=.\zint.c +# End Source File +# End Group +# Begin Group "Header Files" + +# PROP Default_Filter "h;hpp;hxx;hm;inl" +# End Group +# Begin Group "Resource Files" + +# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" +# End Group +# End Target +# End Project