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