mirror of
https://github.com/zint/zint
synced 2024-11-16 20:57:25 +13:00
TCL Backend 2.5.0
This commit is contained in:
Harald Oehlmann
parent
6ad8db3c77
commit
fe83bb1f36
20
backend_tcl/demo/demo.tcl
Normal file
20
backend_tcl/demo/demo.tcl
Normal file
@ -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 <Return> 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
|
||||
2
backend_tcl/lib/zint/pkgIndex.tcl
Normal file
2
backend_tcl/lib/zint/pkgIndex.tcl
Normal file
@ -0,0 +1,2 @@
|
||||
package ifneeded zint 2.5.0\
|
||||
[list load [file join $dir zint[info sharedlibextension]]]
|
||||
22
backend_tcl/readme.txt
Normal file
22
backend_tcl/readme.txt
Normal file
@ -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.
|
||||
779
backend_tcl/zint.c
Normal file
779
backend_tcl/zint.c
Normal file
@ -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 <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",
|
||||
"-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;
|
||||
}
|
||||
227
backend_tcl/zint_tcl.dsp
Normal file
227
backend_tcl/zint_tcl.dsp
Normal file
@ -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
|
||||
Loading…
Reference in New Issue
Block a user