2015-08-19 00:23:28 +12:00
|
|
|
/* zint_tcl.c TCL binding for zint */
|
|
|
|
|
/*
|
|
|
|
|
zint - the open source tcl binding to the zint barcode library
|
|
|
|
|
Copyright (C) 2014 Harald Oehlmann <oehhar@users.sourceforge.net>
|
|
|
|
|
|
|
|
|
|
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 <windows.h>
|
|
|
|
|
|
|
|
|
|
/* Define ERROR_INVALID_DATA is also used by zint... */
|
|
|
|
|
#ifdef ERROR_INVALID_DATA
|
|
|
|
|
#undef ERROR_INVALID_DATA
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#include <zint.h>
|
|
|
|
|
|
|
|
|
|
#define USE_TCL_STUBS
|
|
|
|
|
#define USE_TK_STUBS
|
|
|
|
|
#include <tcl.h>
|
|
|
|
|
#include <tk.h>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*----------------------------------------------------------------------------*/
|
|
|
|
|
/* > 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",
|
2016-02-28 09:26:52 +13:00
|
|
|
"-notext", "-square", "-dmre", "-init", "-smalltext", "-to",
|
2015-08-19 00:23:28 +12:00
|
|
|
NULL};
|
|
|
|
|
enum iOption {
|
|
|
|
|
iBind, iBox, iBarcode, iHeight, iWhiteSp, iBorder,
|
|
|
|
|
iFG, iBG, iCols, iVers, iRotate,
|
|
|
|
|
iSecure, iMode, iPrimary, iScale, iFormat,
|
2016-02-28 09:26:52 +13:00
|
|
|
iNoText, iSquare, iDMRE, iInit, iSmallText, iTo
|
2015-08-19 00:23:28 +12:00
|
|
|
};
|
|
|
|
|
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:
|
2016-02-28 09:26:52 +13:00
|
|
|
case iDMRE:
|
2015-08-19 00:23:28 +12:00
|
|
|
/* >> 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;
|
2016-02-28 09:26:52 +13:00
|
|
|
case iDMRE:
|
|
|
|
|
/* DM_SQUARE overwrites DM_DMRE */
|
|
|
|
|
if (hSymbol->option_3 != DM_DMRE) {
|
|
|
|
|
Symbol->option_3 = (intValue?DM_DMRE:0);
|
|
|
|
|
}
|
|
|
|
|
break;
|
2015-08-19 00:23:28 +12:00
|
|
|
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;
|
|
|
|
|
}
|
