mirrors/zint-barcode-generator
1
0
Fork 0
mirror of https://git.code.sf.net/p/zint/code synced 2025-06-01 07:38:26 -04:00
Code Issues Projects Releases Packages Wiki Activity

Refactor

Browse source
This commit is contained in:
Rodrigo Torres 2017-09-10 12:03:09 -03:00 • committed by Robin Stuart
parent 1882d76b70
commit 4963a772db
45 changed files with 334 additions and 351 deletions
Download patch file Download diff file Expand all files Collapse all files

4
backend_tcl/zint.c
View file

@ -330,7 +330,7 @@ EXPORT BOOL WINAPI DllEntryPoint (HINSTANCE hInstance,
#endif
/*----------------------------------------------------------------------------*/
/* Initialisation Procedures */
EXPORT int Zint_Init (Tcl_Interp *Interp)
EXPORT int Zint_Init (Tcl_Interp *interp)
{
/*------------------------------------------------------------------------*/
#ifdef USE_TCL_STUBS
@ -365,7 +365,6 @@ 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;
@ -373,6 +372,7 @@ static int Zint(ClientData unused, Tcl_Interp *interp, int objc,
/* > Check if option argument is given and decode it */
if (objc > 1)
{
char *subCmds[] = {"encode", "symbologies", "version", "help", NULL};
if(Tcl_GetIndexFromObj(interp, objv[1], (const char **) subCmds,
"option", 0, &Index)
== TCL_ERROR)