mirror of
https://github.com/zint/zint
synced 2024-11-16 20:57:25 +13:00
Included TEA and Androwish changes by Christian Werner from:
http://www.androwish.org/index.html/info/9fb57bb78476312a
This commit is contained in:
Harald Oehlmann
parent
188cfcdd1f
commit
727cd147d7
385
backend_tcl/Makefile.in
Normal file
385
backend_tcl/Makefile.in
Normal file
@ -0,0 +1,385 @@
|
|||||||
|
# Makefile.in --
|
||||||
|
#
|
||||||
|
# This file is a Makefile for Sample TEA Extension. If it has the name
|
||||||
|
# "Makefile.in" then it is a template for a Makefile; to generate the
|
||||||
|
# actual Makefile, run "./configure", which is a configuration script
|
||||||
|
# generated by the "autoconf" program (constructs like "@foo@" will get
|
||||||
|
# replaced in the actual Makefile.
|
||||||
|
#
|
||||||
|
# Copyright (c) 1999 Scriptics Corporation.
|
||||||
|
# Copyright (c) 2003-2008 ActiveState Software
|
||||||
|
#
|
||||||
|
# See the file "license.terms" for information on usage and redistribution
|
||||||
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# Nothing of the variables below this line need to be changed. Please
|
||||||
|
# check the TARGETS section below to make sure the make targets are
|
||||||
|
# correct.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# The names of the source files is defined in the configure script.
|
||||||
|
# The object files are used for linking into the final library.
|
||||||
|
# This will be used when a dist target is added to the Makefile.
|
||||||
|
# It is not important to specify the directory, as long as it is the
|
||||||
|
# $(srcdir) subdirectory.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
PKG_SOURCES = @PKG_SOURCES@
|
||||||
|
PKG_OBJECTS = @PKG_OBJECTS@
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# PKG_TCL_SOURCES identifies Tcl runtime files that are associated with
|
||||||
|
# this package that need to be installed, if any.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
PKG_TCL_SOURCES = @PKG_TCL_SOURCES@
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# This is a list of public header files to be installed, if any.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
PKG_HEADERS = @PKG_HEADERS@
|
||||||
|
|
||||||
|
PKG_EXTRA_FILES =
|
||||||
|
|
||||||
|
PKG_MAN_PAGES =
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# "PKG_LIB_FILE" refers to the library (dynamic or static as per
|
||||||
|
# configuration options) composed of the named objects.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
PKG_LIB_FILE = @PKG_LIB_FILE@
|
||||||
|
PKG_STUB_LIB_FILE = @PKG_STUB_LIB_FILE@
|
||||||
|
|
||||||
|
lib_BINARIES = $(PKG_LIB_FILE)
|
||||||
|
BINARIES = $(lib_BINARIES)
|
||||||
|
|
||||||
|
SHELL = @SHELL@
|
||||||
|
|
||||||
|
srcdir = @srcdir@
|
||||||
|
prefix = @prefix@
|
||||||
|
exec_prefix = @exec_prefix@
|
||||||
|
|
||||||
|
bindir = @bindir@
|
||||||
|
libdir = @libdir@
|
||||||
|
datadir = @datadir@
|
||||||
|
mandir = @mandir@
|
||||||
|
includedir = @includedir@
|
||||||
|
|
||||||
|
DESTDIR =
|
||||||
|
|
||||||
|
PKG_DIR = $(PACKAGE_NAME)$(PACKAGE_VERSION)
|
||||||
|
pkgdatadir = $(datadir)/$(PKG_DIR)
|
||||||
|
pkglibdir = $(libdir)/$(PKG_DIR)
|
||||||
|
pkgincludedir = $(includedir)/$(PKG_DIR)
|
||||||
|
|
||||||
|
top_builddir = .
|
||||||
|
|
||||||
|
INSTALL = @INSTALL@
|
||||||
|
INSTALL_PROGRAM = @INSTALL_PROGRAM@
|
||||||
|
INSTALL_DATA = @INSTALL_DATA@
|
||||||
|
INSTALL_SCRIPT = @INSTALL_SCRIPT@
|
||||||
|
|
||||||
|
PACKAGE_NAME = @PACKAGE_NAME@
|
||||||
|
PACKAGE_VERSION = @PACKAGE_VERSION@
|
||||||
|
CC = @CC@
|
||||||
|
CFLAGS_DEFAULT = @CFLAGS_DEFAULT@
|
||||||
|
CFLAGS_WARNING = @CFLAGS_WARNING@
|
||||||
|
CLEANFILES = @CLEANFILES@
|
||||||
|
EXEEXT = @EXEEXT@
|
||||||
|
LDFLAGS_DEFAULT = @LDFLAGS_DEFAULT@
|
||||||
|
MAKE_LIB = @MAKE_LIB@
|
||||||
|
MAKE_SHARED_LIB = @MAKE_SHARED_LIB@
|
||||||
|
MAKE_STATIC_LIB = @MAKE_STATIC_LIB@
|
||||||
|
MAKE_STUB_LIB = @MAKE_STUB_LIB@
|
||||||
|
OBJEXT = @OBJEXT@
|
||||||
|
RANLIB = @RANLIB@
|
||||||
|
RANLIB_STUB = @RANLIB_STUB@
|
||||||
|
SHLIB_CFLAGS = @SHLIB_CFLAGS@
|
||||||
|
SHLIB_LD = @SHLIB_LD@
|
||||||
|
SHLIB_LD_LIBS = @SHLIB_LD_LIBS@
|
||||||
|
STLIB_LD = @STLIB_LD@
|
||||||
|
TCL_DEFS = @TCL_DEFS@
|
||||||
|
TCL_SRC_DIR = @TCL_SRC_DIR@
|
||||||
|
TCL_BIN_DIR = @TCL_BIN_DIR@
|
||||||
|
TK_SRC_DIR = @TK_SRC_DIR@
|
||||||
|
TK_BIN_DIR = @TK_BIN_DIR@
|
||||||
|
|
||||||
|
# Not used by sample, but retained for reference of what Tcl required
|
||||||
|
TCL_LIBS = @TCL_LIBS@
|
||||||
|
#TK_LIBS = @TK_LIBS@
|
||||||
|
# TK_LIBS currently not required
|
||||||
|
TK_LIBS =
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# TCLLIBPATH seeds the auto_path in Tcl's init.tcl so we can test our
|
||||||
|
# package without installing. The other environment variables allow us
|
||||||
|
# to test against an uninstalled Tcl. Add special env vars that you
|
||||||
|
# require for testing here (like TCLX_LIBRARY).
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR)
|
||||||
|
TCLSH_ENV = TCL_LIBRARY=`@CYGPATH@ $(TCL_SRC_DIR)/library` \
|
||||||
|
TK_LIBRARY=`@CYGPATH@ $(TK_SRC_DIR)/library` \
|
||||||
|
@LD_LIBRARY_PATH_VAR@="$(EXTRA_PATH):$(@LD_LIBRARY_PATH_VAR@)" \
|
||||||
|
PATH="$(EXTRA_PATH):$(PATH)" \
|
||||||
|
TCLLIBPATH="$(top_builddir)"
|
||||||
|
TCLSH_PROG = @TCLSH_PROG@
|
||||||
|
WISH_PROG = @WISH_PROG@
|
||||||
|
TCLSH = $(TCLSH_ENV) $(TCLSH_PROG)
|
||||||
|
WISH = $(TCLSH_ENV) $(WISH_PROG)
|
||||||
|
|
||||||
|
# The local includes must come first, because the TK_XINCLUDES can be
|
||||||
|
# just a comment
|
||||||
|
INCLUDES = @PKG_INCLUDES@ \
|
||||||
|
@TCL_INCLUDES@ @TK_INCLUDES@ @TK_XINCLUDES@
|
||||||
|
|
||||||
|
PKG_CFLAGS = @PKG_CFLAGS@
|
||||||
|
|
||||||
|
DEFS = @DEFS@ $(PKG_CFLAGS)
|
||||||
|
|
||||||
|
CONFIG_CLEAN_FILES = Makefile
|
||||||
|
|
||||||
|
CPPFLAGS = @CPPFLAGS@
|
||||||
|
LIBS = @PKG_LIBS@ @LIBS@
|
||||||
|
AR = @AR@
|
||||||
|
CFLAGS = @CFLAGS@
|
||||||
|
COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# Start of user-definable TARGETS section
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# TEA TARGETS. Please note that the "libraries:" target refers to platform
|
||||||
|
# independent files, and the "binaries:" target inclues executable programs and
|
||||||
|
# platform-dependent libraries. Modify these targets so that they install
|
||||||
|
# the various pieces of your package. The make and install rules
|
||||||
|
# for the BINARIES that you specified above have already been done.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
all: binaries libraries doc
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# The binaries target builds executable programs, Windows .dll's, unix
|
||||||
|
# shared/static libraries, and any other platform-dependent files.
|
||||||
|
# The list of targets to build for "binaries:" is specified at the top
|
||||||
|
# of the Makefile, in the "BINARIES" variable.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
binaries: $(BINARIES) pkgIndex.tcl
|
||||||
|
|
||||||
|
libraries:
|
||||||
|
|
||||||
|
doc:
|
||||||
|
|
||||||
|
install: all install-binaries install-libraries install-doc
|
||||||
|
|
||||||
|
install-binaries: binaries install-lib-binaries install-bin-binaries
|
||||||
|
@mkdir -p $(DESTDIR)$(pkglibdir)
|
||||||
|
$(INSTALL_DATA) pkgIndex.tcl $(DESTDIR)$(pkglibdir)
|
||||||
|
@list='$(PKG_EXTRA_FILES)'; for p in $$list; do \
|
||||||
|
if test -f $(srcdir)/$$p; then \
|
||||||
|
destp=`basename $$p`; \
|
||||||
|
echo " Install $$destp $(DESTDIR)$(pkglibdir)/$$destp"; \
|
||||||
|
$(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkglibdir)/$$destp; \
|
||||||
|
fi; \
|
||||||
|
done
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# This rule installs platform-independent files, such as header files.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
install-libraries: libraries
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# Install documentation. Unix manpages should go in the $(mandir)
|
||||||
|
# directory.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
install-doc: doc
|
||||||
|
@mkdir -p $(DESTDIR)$(mandir)/mann
|
||||||
|
@echo "Installing documentation in $(DESTDIR)$(mandir)"
|
||||||
|
@list='$(srcdir)/doc/*.n'; for i in $$list; do \
|
||||||
|
echo "Installing $$i"; \
|
||||||
|
rm -f $(DESTDIR)$(mandir)/mann/`basename $$i`; \
|
||||||
|
$(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/mann ; \
|
||||||
|
done
|
||||||
|
|
||||||
|
test:
|
||||||
|
|
||||||
|
shell: binaries libraries
|
||||||
|
@$(TCLSH) $(SCRIPT)
|
||||||
|
|
||||||
|
gdb:
|
||||||
|
$(TCLSH_ENV) gdb $(TCLSH_PROG) $(SCRIPT)
|
||||||
|
|
||||||
|
depend:
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# $(PKG_LIB_FILE) should be listed as part of the BINARIES variable
|
||||||
|
# mentioned above. That will ensure that this target is built when you
|
||||||
|
# run "make binaries".
|
||||||
|
#
|
||||||
|
# The $(PKG_OBJECTS) objects are created and linked into the final
|
||||||
|
# library. In most cases these object files will correspond to the
|
||||||
|
# source files above.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
$(PKG_LIB_FILE): $(PKG_OBJECTS)
|
||||||
|
-rm -f $(PKG_LIB_FILE)
|
||||||
|
${MAKE_LIB}
|
||||||
|
$(RANLIB) $(PKG_LIB_FILE)
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# In the following lines, $(srcdir) refers to the toplevel directory
|
||||||
|
# containing your extension. If your sources are in a subdirectory,
|
||||||
|
# you will have to modify the paths to reflect this:
|
||||||
|
#
|
||||||
|
# tkpkg.$(OBJEXT): $(srcdir)/tkpkg.c
|
||||||
|
# $(COMPILE) -c `@CYGPATH@ $(srcdir)/tkpkg.c` -o $@
|
||||||
|
#
|
||||||
|
# Setting the VPATH variable to a list of paths will cause the
|
||||||
|
# makefile to look into these paths when resolving .c to .obj
|
||||||
|
# dependencies.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
# I added leading $(srcdir) because autoconf 2.53 strips it off
|
||||||
|
VPATH = $(srcdir) $(srcdir)/../backend
|
||||||
|
|
||||||
|
.SUFFIXES: .c .$(OBJEXT)
|
||||||
|
|
||||||
|
.c.@OBJEXT@:
|
||||||
|
$(COMPILE) -c `@CYGPATH@ $<` -o $@
|
||||||
|
|
||||||
|
pkgIndex.tcl:
|
||||||
|
echo 'package ifneeded $(PACKAGE_NAME) $(PACKAGE_VERSION) \
|
||||||
|
[list load [file join $$dir $(PKG_LIB_FILE)] $(PACKAGE_NAME)]' \
|
||||||
|
> pkgIndex.tcl
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# End of user-definable section
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# Don't modify the file to clean here. Instead, set the "CLEANFILES"
|
||||||
|
# variable in configure.in
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
clean:
|
||||||
|
-test -z "$(BINARIES)" || rm -f $(BINARIES)
|
||||||
|
-rm -f *.$(OBJEXT) core *.core *~
|
||||||
|
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
|
||||||
|
|
||||||
|
distclean: clean
|
||||||
|
-rm -f *.tab.c
|
||||||
|
-rm -f $(CONFIG_CLEAN_FILES)
|
||||||
|
-rm -f config.cache config.log config.status
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# Install binary object libraries. On Windows this includes both .dll and
|
||||||
|
# .lib files. Because the .lib files are not explicitly listed anywhere,
|
||||||
|
# we need to deduce their existence from the .dll file of the same name.
|
||||||
|
#
|
||||||
|
# You should not have to modify this target.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
install-lib-binaries:
|
||||||
|
@mkdir -p $(DESTDIR)$(pkglibdir)
|
||||||
|
@list='$(lib_BINARIES)'; for p in $$list; do \
|
||||||
|
if test -f $$p; then \
|
||||||
|
echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(pkglibdir)/$$p"; \
|
||||||
|
$(INSTALL_PROGRAM) $$p $(DESTDIR)$(pkglibdir)/$$p; \
|
||||||
|
echo " $(RANLIB) $(DESTDIR)$(pkglibdir)/$$p"; \
|
||||||
|
$(RANLIB) $(DESTDIR)$(pkglibdir)/$$p; \
|
||||||
|
ext=`echo $$p|sed -e "s/.*\.//"`; \
|
||||||
|
if test "x$$ext" = "xdll"; then \
|
||||||
|
lib=`basename $$p|sed -e 's/.[^.]*$$//'`.lib; \
|
||||||
|
if test -f $$lib; then \
|
||||||
|
echo " $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib"; \
|
||||||
|
$(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib; \
|
||||||
|
fi; \
|
||||||
|
fi; \
|
||||||
|
fi; \
|
||||||
|
done
|
||||||
|
@list='$(PKG_TCL_SOURCES)'; for p in $$list; do \
|
||||||
|
if test -f $(srcdir)/$$p; then \
|
||||||
|
destp=`basename $$p`; \
|
||||||
|
echo " Install $$destp $(DESTDIR)$(pkglibdir)/$$destp"; \
|
||||||
|
$(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkglibdir)/$$destp; \
|
||||||
|
fi; \
|
||||||
|
done
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# Install binary executables (e.g. .exe files)
|
||||||
|
#
|
||||||
|
# You should not have to modify this target.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
install-bin-binaries:
|
||||||
|
@mkdir -p $(DESTDIR)$(bindir)
|
||||||
|
@list='$(bin_BINARIES)'; for p in $$list; do \
|
||||||
|
if test -f $$p; then \
|
||||||
|
echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p"; \
|
||||||
|
$(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p; \
|
||||||
|
fi; \
|
||||||
|
done
|
||||||
|
|
||||||
|
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
|
||||||
|
cd $(top_builddir) \
|
||||||
|
&& CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status
|
||||||
|
|
||||||
|
uninstall-binaries:
|
||||||
|
list='$(lib_BINARIES)'; for p in $$list; do \
|
||||||
|
rm -f $(DESTDIR)$(pkglibdir)/$$p; \
|
||||||
|
done
|
||||||
|
list='$(PKG_TCL_SOURCES)'; for p in $$list; do \
|
||||||
|
p=`basename $$p`; \
|
||||||
|
rm -f $(DESTDIR)$(pkglibdir)/$$p; \
|
||||||
|
done
|
||||||
|
list='$(bin_BINARIES)'; for p in $$list; do \
|
||||||
|
rm -f $(DESTDIR)$(bindir)/$$p; \
|
||||||
|
done
|
||||||
|
|
||||||
|
#========================================================================
|
||||||
|
# Distribution creation
|
||||||
|
# You should not have to modify this target.
|
||||||
|
#========================================================================
|
||||||
|
|
||||||
|
TAR = tar
|
||||||
|
#COMPRESS = $(TAR) cvf $(PKG_DIR).tar $(PKG_DIR); compress $(PKG_DIR).tar
|
||||||
|
COMPRESS = $(TAR) zcvf $(PKG_DIR).tar.gz $(PKG_DIR)
|
||||||
|
DIST_ROOT = /tmp/dist
|
||||||
|
DIST_DIR = $(DIST_ROOT)/$(PKG_DIR)
|
||||||
|
|
||||||
|
dist-clean:
|
||||||
|
rm -rf $(DIST_DIR) $(DIST_ROOT)/$(PKG_DIR).tar.*
|
||||||
|
|
||||||
|
dist: dist-clean
|
||||||
|
mkdir -p $(DIST_DIR)
|
||||||
|
cp -p $(srcdir)/license.terms \
|
||||||
|
$(srcdir)/Makefile.in $(srcdir)/aclocal.m4 \
|
||||||
|
$(srcdir)/configure $(srcdir)/configure.in $(DIST_DIR)/
|
||||||
|
chmod 664 $(DIST_DIR)/Makefile.in $(DIST_DIR)/aclocal.m4
|
||||||
|
chmod 775 $(DIST_DIR)/configure $(DIST_DIR)/configure.in
|
||||||
|
mkdir -p $(DIST_DIR)/tclconfig
|
||||||
|
cp $(srcdir)/tclconfig/install-sh $(srcdir)/tclconfig/tcl.m4 \
|
||||||
|
$(DIST_DIR)/tclconfig/
|
||||||
|
chmod 664 $(DIST_DIR)/tclconfig/tcl.m4
|
||||||
|
chmod +x $(DIST_DIR)/tclconfig/install-sh
|
||||||
|
mkdir -p $(DIST_DIR)/demos
|
||||||
|
cp -p $(srcdir)/demos/*.tcl $(DIST_DIR)/demos/
|
||||||
|
mkdir -p $(DIST_DIR)/doc
|
||||||
|
cp -p $(srcdir)/doc/*.n $(DIST_DIR)/doc/
|
||||||
|
mkdir -p $(DIST_DIR)
|
||||||
|
cp -p $(srcdir)/*.[ch] $(DIST_DIR)
|
||||||
|
(cd $(DIST_ROOT); $(COMPRESS);)
|
||||||
|
|
||||||
|
.PHONY: all binaries clean depend distclean doc install libraries test
|
||||||
|
|
||||||
|
# Tell versions [3.59,3.63) of GNU make to not export all variables.
|
||||||
|
# Otherwise a system limit (for SysV at least) may be exceeded.
|
||||||
|
.NOEXPORT:
|
||||||
9
backend_tcl/aclocal.m4
vendored
Normal file
9
backend_tcl/aclocal.m4
vendored
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
#
|
||||||
|
# Include the TEA standard macro set
|
||||||
|
#
|
||||||
|
|
||||||
|
builtin(include,tclconfig/tcl.m4)
|
||||||
|
|
||||||
|
#
|
||||||
|
# Add here whatever m4 macros you want to define for your package
|
||||||
|
#
|
||||||
13618
backend_tcl/configure
vendored
Normal file
13618
backend_tcl/configure
vendored
Normal file
File diff suppressed because it is too large
Load Diff
212
backend_tcl/configure.in
Normal file
212
backend_tcl/configure.in
Normal file
@ -0,0 +1,212 @@
|
|||||||
|
#! /bin/bash -norc
|
||||||
|
#
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Sample configure.in for Tcl Extensions. The only places you should
|
||||||
|
# need to modify this file are marked by the string __CHANGE__
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# __CHANGE__
|
||||||
|
# Set your package name and version numbers here.
|
||||||
|
#
|
||||||
|
# This initializes the environment with PACKAGE_NAME and PACKAGE_VERSION
|
||||||
|
# set as provided. These will also be added as -D defs in your Makefile
|
||||||
|
# so you can encode the package version directly into the source files.
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
|
||||||
|
AC_INIT([zint], [2.5.0])
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Call TEA_INIT as the first TEA_ macro to set up initial vars.
|
||||||
|
# This will define a ${TEA_PLATFORM} variable == "unix" or "windows"
|
||||||
|
# as well as PKG_LIB_FILE and PKG_STUB_LIB_FILE.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_INIT([3.9])
|
||||||
|
|
||||||
|
AC_CONFIG_AUX_DIR(tclconfig)
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Load the tclConfig.sh file
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_PATH_TCLCONFIG
|
||||||
|
TEA_LOAD_TCLCONFIG
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Load the tkConfig.sh file if necessary (Tk extension)
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_PATH_TKCONFIG
|
||||||
|
TEA_LOAD_TKCONFIG
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# Handle the --prefix=... option by defaulting to what Tcl gave.
|
||||||
|
# Must be called after TEA_LOAD_TCLCONFIG and before TEA_SETUP_COMPILER.
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_PREFIX
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# Standard compiler checks.
|
||||||
|
# This sets up CC by using the CC env var, or looks for gcc otherwise.
|
||||||
|
# This also calls AC_PROG_CC, AC_PROG_INSTALL and a few others to create
|
||||||
|
# the basic setup necessary to compile executables.
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_SETUP_COMPILER
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# __CHANGE__
|
||||||
|
# Specify the C source files to compile in TEA_ADD_SOURCES,
|
||||||
|
# public headers that need to be installed in TEA_ADD_HEADERS,
|
||||||
|
# stub library C source files to compile in TEA_ADD_STUB_SOURCES,
|
||||||
|
# and runtime Tcl library files in TEA_ADD_TCL_SOURCES.
|
||||||
|
# This defines PKG(_STUB)_SOURCES, PKG(_STUB)_OBJECTS, PKG_HEADERS
|
||||||
|
# and PKG_TCL_SOURCES.
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_ADD_SOURCES([
|
||||||
|
../backend/2of5.c
|
||||||
|
../backend/auspost.c
|
||||||
|
../backend/aztec.c
|
||||||
|
../backend/code128.c
|
||||||
|
../backend/code16k.c
|
||||||
|
../backend/code1.c
|
||||||
|
../backend/code49.c
|
||||||
|
../backend/code.c
|
||||||
|
../backend/common.c
|
||||||
|
../backend/composite.c
|
||||||
|
../backend/dllversion.c
|
||||||
|
../backend/dmatrix.c
|
||||||
|
../backend/gridmtx.c
|
||||||
|
../backend/gs1.c
|
||||||
|
../backend/imail.c
|
||||||
|
../backend/large.c
|
||||||
|
../backend/library.c
|
||||||
|
../backend/maxicode.c
|
||||||
|
../backend/medical.c
|
||||||
|
../backend/pdf417.c
|
||||||
|
../backend/plessey.c
|
||||||
|
../backend/png.c
|
||||||
|
../backend/postal.c
|
||||||
|
../backend/ps.c
|
||||||
|
../backend/qr.c
|
||||||
|
../backend/reedsol.c
|
||||||
|
../backend/render.c
|
||||||
|
../backend/rss.c
|
||||||
|
../backend/svg.c
|
||||||
|
../backend/telepen.c
|
||||||
|
../backend/upcean.c
|
||||||
|
zint.c
|
||||||
|
])
|
||||||
|
TEA_ADD_CFLAGS([-I../backend -DNO_PNG=1 -DZINT_VERSION=PACKAGE_VERSION])
|
||||||
|
TEA_ADD_STUB_SOURCES([])
|
||||||
|
TEA_ADD_TCL_SOURCES([demo/demo.tcl])
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# __CHANGE__
|
||||||
|
# Choose which headers you need. Extension authors should try very
|
||||||
|
# hard to only rely on the Tcl public header files. Internal headers
|
||||||
|
# contain private data structures and are subject to change without
|
||||||
|
# notice.
|
||||||
|
# This MUST be called after TEA_PATH_TCLCONFIG/TEA_LOAD_TCLCONFIG
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_PUBLIC_TCL_HEADERS
|
||||||
|
TEA_PUBLIC_TK_HEADERS
|
||||||
|
#TEA_PRIVATE_TCL_HEADERS
|
||||||
|
#TEA_PRIVATE_TK_HEADERS
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# For Unix/Tk builds, make sure that the X libraries/headers are found.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
#TEA_PATH_X
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# __CHANGE__
|
||||||
|
# A few miscellaneous platform-specific items:
|
||||||
|
#
|
||||||
|
# Define a special symbol for Windows (BUILD_Tktable in this case) so
|
||||||
|
# that we create the export library with the dll.
|
||||||
|
#
|
||||||
|
# Windows creates a few extra files that need to be cleaned up.
|
||||||
|
# You can add more files to clean if your extension creates any extra
|
||||||
|
# files.
|
||||||
|
#
|
||||||
|
# TEA_ADD any extra compiler/build info here.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_ADD_CLEANFILES([pkgIndex.tcl])
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Check whether --enable-threads or --disable-threads was given.
|
||||||
|
# So far only Tcl responds to this one.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_ENABLE_THREADS
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# The statement below defines a collection of symbols related to
|
||||||
|
# building as a shared library instead of a static library.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_ENABLE_SHARED
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# This macro figures out what flags to use with the compiler/linker
|
||||||
|
# when building shared/static debug/optimized objects. This information
|
||||||
|
# can be taken from the tclConfig.sh file, but this figures it all out.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_CONFIG_CFLAGS
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Set the default compiler switches based on the --enable-symbols
|
||||||
|
# option.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_ENABLE_SYMBOLS
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Everyone should be linking against the Tcl stub library. If you
|
||||||
|
# can't for some reason, remove this definition. If you aren't using
|
||||||
|
# stubs, you also need to modify the SHLIB_LD_LIBS setting below to
|
||||||
|
# link against the non-stubbed Tcl library.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
AC_DEFINE(USE_TCL_STUBS)
|
||||||
|
AC_DEFINE(USE_TK_STUBS)
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# This macro generates a line to use when building a library. It
|
||||||
|
# depends on values set by the TEA_ENABLE_SHARED, TEA_ENABLE_SYMBOLS,
|
||||||
|
# and TEA_LOAD_TCLCONFIG macros above.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_MAKE_LIB
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Find tclsh so that we can run pkg_mkIndex to generate the pkgIndex.tcl
|
||||||
|
# file during the install process. Don't run the TCLSH_PROG through
|
||||||
|
# ${CYGPATH} because it's being used directly by make.
|
||||||
|
# Require that we use a tclsh shell version 8.2 or later since earlier
|
||||||
|
# versions have bugs in the pkg_mkIndex routine.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
TEA_PROG_TCLSH
|
||||||
|
TEA_PROG_WISH
|
||||||
|
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
# Finally, substitute all of the various values into the Makefile.
|
||||||
|
#--------------------------------------------------------------------
|
||||||
|
|
||||||
|
case ${TK_DEFS} in
|
||||||
|
*PLATFORM_SDL*)
|
||||||
|
TEA_ADD_CFLAGS([-DPLATFORM_SDL=1])
|
||||||
|
TEA_ADD_INCLUDES([-I\"`${CYGPATH} ${TK_SRC_DIR}/sdl`\"])
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
AC_OUTPUT([Makefile])
|
||||||
@ -1,20 +1,68 @@
|
|||||||
package require Tk
|
package require Tk
|
||||||
lappend auto_path [file dirname [info script]]/../lib
|
|
||||||
package require zint
|
package require zint
|
||||||
|
wm title . "ZINT Demo"
|
||||||
|
wm minsize . 480 320
|
||||||
|
if {[info command sdltk] eq "sdltk"} {
|
||||||
|
wm attributes . -fullscreen 1
|
||||||
|
set padx 30
|
||||||
|
set pady 20
|
||||||
|
} else {
|
||||||
|
wm geometry . 480x320
|
||||||
|
set padx 5
|
||||||
|
set pady 5
|
||||||
|
}
|
||||||
image create photo ::zintimg
|
image create photo ::zintimg
|
||||||
pack [label .l -image ::zintimg] -side left
|
pack [::ttk::combobox .c -values [lsort [zint symbologies]] -state readonly] \
|
||||||
pack [ttk::separator .s -orient vertical] -side left
|
-side top -fill x -padx $padx -pady $pady
|
||||||
pack [::ttk::combobox .c -values [lsort [zint symbologies]] -state readonly]\
|
|
||||||
-side top -fill x
|
|
||||||
.c set Datamatrix
|
.c set Datamatrix
|
||||||
pack [::ttk::entry .e] -side top -fill x
|
pack [::ttk::entry .e] -side top -fill x -padx $padx -pady $pady
|
||||||
.e insert end 12345
|
.e insert end 12345
|
||||||
bind .e <Return> Generate
|
bind .e <Return> Generate
|
||||||
pack [::ttk::button .b -text Generate -command Generate] -fill x -side top
|
pack [::ttk::button .b -text Generate -command Generate] -fill x -side top \
|
||||||
|
-padx $padx -pady $pady
|
||||||
proc Generate {} {
|
proc Generate {} {
|
||||||
::zintimg blank
|
::zintimg blank
|
||||||
|
::zintimg configure -width 1 -height 1
|
||||||
|
::zintimg blank
|
||||||
|
::zintimg configure -width 0 -height 0
|
||||||
if {[catch {zint encode [.e get] ::zintimg -barcode [.c get]} e]} {
|
if {[catch {zint encode [.e get] ::zintimg -barcode [.c get]} e]} {
|
||||||
tk_messageBox -message $e -title "Zint error"
|
tk_messageBox -message $e -title "Zint error"
|
||||||
|
} else {
|
||||||
|
set w [image width ::zintimg]
|
||||||
|
set h [image height ::zintimg]
|
||||||
|
set lw [winfo width .l]
|
||||||
|
set lh [winfo height .l]
|
||||||
|
set sx [expr {int(1.0 * $lw / $w)}]
|
||||||
|
set sy [expr {int(1.0 * $lh / $h)}]
|
||||||
|
if {$sy < $sx} {
|
||||||
|
set sx $sy
|
||||||
|
}
|
||||||
|
if {$sx <= 0} {
|
||||||
|
set sx [expr {1.1 * $lw / $w}]
|
||||||
|
set sy [expr {1.1 * $lh / $h}]
|
||||||
|
if {$sy < $sx} {
|
||||||
|
set sx $sy
|
||||||
|
}
|
||||||
|
}
|
||||||
|
::zintimg blank
|
||||||
|
::zintimg configure -width 1 -height 1
|
||||||
|
::zintimg blank
|
||||||
|
::zintimg configure -width 0 -height 0
|
||||||
|
catch {
|
||||||
|
zint encode [.e get] ::zintimg -barcode [.c get] -scale $sx
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
Generate
|
pack [label .l -image ::zintimg -bg white] -side top -fill both -expand 1 \
|
||||||
|
-padx $padx -pady $pady
|
||||||
|
bind .e <Configure> {
|
||||||
|
after cancel Generate
|
||||||
|
after idle Generate
|
||||||
|
}
|
||||||
|
bind .c <<ComboboxSelected>> {
|
||||||
|
after cancel Generate
|
||||||
|
after idle Generate
|
||||||
|
}
|
||||||
|
bind all <Break> exit
|
||||||
|
bind all <Control-q> exit
|
||||||
|
bind all <Alt-q> exit
|
||||||
|
|||||||
26
backend_tcl/tclconfig/README.txt
Normal file
26
backend_tcl/tclconfig/README.txt
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
These files comprise the basic building blocks for a Tcl Extension
|
||||||
|
Architecture (TEA) extension. For more information on TEA see:
|
||||||
|
|
||||||
|
http://www.tcl.tk/doc/tea/
|
||||||
|
|
||||||
|
This package is part of the Tcl project at SourceForge, and latest
|
||||||
|
sources should be available there:
|
||||||
|
|
||||||
|
http://tcl.sourceforge.net/
|
||||||
|
|
||||||
|
This package is a freely available open source package. You can do
|
||||||
|
virtually anything you like with it, such as modifying it, redistributing
|
||||||
|
it, and selling it either in whole or in part.
|
||||||
|
|
||||||
|
CONTENTS
|
||||||
|
========
|
||||||
|
The following is a short description of the files you will find in
|
||||||
|
the sample extension.
|
||||||
|
|
||||||
|
README.txt This file
|
||||||
|
|
||||||
|
install-sh Program used for copying binaries and script files
|
||||||
|
to their install locations.
|
||||||
|
|
||||||
|
tcl.m4 Collection of Tcl autoconf macros. Included by a package's
|
||||||
|
aclocal.m4 to define SC_* macros.
|
||||||
528
backend_tcl/tclconfig/install-sh
Normal file
528
backend_tcl/tclconfig/install-sh
Normal file
@ -0,0 +1,528 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
# install - install a program, script, or datafile
|
||||||
|
|
||||||
|
scriptversion=2011-04-20.01; # UTC
|
||||||
|
|
||||||
|
# This originates from X11R5 (mit/util/scripts/install.sh), which was
|
||||||
|
# later released in X11R6 (xc/config/util/install.sh) with the
|
||||||
|
# following copyright and license.
|
||||||
|
#
|
||||||
|
# Copyright (C) 1994 X Consortium
|
||||||
|
#
|
||||||
|
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
|
# of this software and associated documentation files (the "Software"), to
|
||||||
|
# deal in the Software without restriction, including without limitation the
|
||||||
|
# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
|
||||||
|
# sell copies of the Software, and to permit persons to whom the Software is
|
||||||
|
# furnished to do so, subject to the following conditions:
|
||||||
|
#
|
||||||
|
# The above copyright notice and this permission notice shall be included in
|
||||||
|
# all copies or substantial portions of the Software.
|
||||||
|
#
|
||||||
|
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||||
|
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||||
|
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||||
|
# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
|
||||||
|
# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
|
||||||
|
# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||||
|
#
|
||||||
|
# Except as contained in this notice, the name of the X Consortium shall not
|
||||||
|
# be used in advertising or otherwise to promote the sale, use or other deal-
|
||||||
|
# ings in this Software without prior written authorization from the X Consor-
|
||||||
|
# tium.
|
||||||
|
#
|
||||||
|
#
|
||||||
|
# FSF changes to this file are in the public domain.
|
||||||
|
#
|
||||||
|
# Calling this script install-sh is preferred over install.sh, to prevent
|
||||||
|
# `make' implicit rules from creating a file called install from it
|
||||||
|
# when there is no Makefile.
|
||||||
|
#
|
||||||
|
# This script is compatible with the BSD install script, but was written
|
||||||
|
# from scratch.
|
||||||
|
|
||||||
|
nl='
|
||||||
|
'
|
||||||
|
IFS=" "" $nl"
|
||||||
|
|
||||||
|
# set DOITPROG to echo to test this script
|
||||||
|
|
||||||
|
# Don't use :- since 4.3BSD and earlier shells don't like it.
|
||||||
|
doit=${DOITPROG-}
|
||||||
|
if test -z "$doit"; then
|
||||||
|
doit_exec=exec
|
||||||
|
else
|
||||||
|
doit_exec=$doit
|
||||||
|
fi
|
||||||
|
|
||||||
|
# Put in absolute file names if you don't have them in your path;
|
||||||
|
# or use environment vars.
|
||||||
|
|
||||||
|
chgrpprog=${CHGRPPROG-chgrp}
|
||||||
|
chmodprog=${CHMODPROG-chmod}
|
||||||
|
chownprog=${CHOWNPROG-chown}
|
||||||
|
cmpprog=${CMPPROG-cmp}
|
||||||
|
cpprog=${CPPROG-cp}
|
||||||
|
mkdirprog=${MKDIRPROG-mkdir}
|
||||||
|
mvprog=${MVPROG-mv}
|
||||||
|
rmprog=${RMPROG-rm}
|
||||||
|
stripprog=${STRIPPROG-strip}
|
||||||
|
|
||||||
|
posix_glob='?'
|
||||||
|
initialize_posix_glob='
|
||||||
|
test "$posix_glob" != "?" || {
|
||||||
|
if (set -f) 2>/dev/null; then
|
||||||
|
posix_glob=
|
||||||
|
else
|
||||||
|
posix_glob=:
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
'
|
||||||
|
|
||||||
|
posix_mkdir=
|
||||||
|
|
||||||
|
# Desired mode of installed file.
|
||||||
|
mode=0755
|
||||||
|
|
||||||
|
chgrpcmd=
|
||||||
|
chmodcmd=$chmodprog
|
||||||
|
chowncmd=
|
||||||
|
mvcmd=$mvprog
|
||||||
|
rmcmd="$rmprog -f"
|
||||||
|
stripcmd=
|
||||||
|
|
||||||
|
src=
|
||||||
|
dst=
|
||||||
|
dir_arg=
|
||||||
|
dst_arg=
|
||||||
|
|
||||||
|
copy_on_change=false
|
||||||
|
no_target_directory=
|
||||||
|
|
||||||
|
usage="\
|
||||||
|
Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
|
||||||
|
or: $0 [OPTION]... SRCFILES... DIRECTORY
|
||||||
|
or: $0 [OPTION]... -t DIRECTORY SRCFILES...
|
||||||
|
or: $0 [OPTION]... -d DIRECTORIES...
|
||||||
|
|
||||||
|
In the 1st form, copy SRCFILE to DSTFILE.
|
||||||
|
In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
|
||||||
|
In the 4th, create DIRECTORIES.
|
||||||
|
|
||||||
|
Options:
|
||||||
|
--help display this help and exit.
|
||||||
|
--version display version info and exit.
|
||||||
|
|
||||||
|
-c (ignored)
|
||||||
|
-C install only if different (preserve the last data modification time)
|
||||||
|
-d create directories instead of installing files.
|
||||||
|
-g GROUP $chgrpprog installed files to GROUP.
|
||||||
|
-m MODE $chmodprog installed files to MODE.
|
||||||
|
-o USER $chownprog installed files to USER.
|
||||||
|
-s $stripprog installed files.
|
||||||
|
-S $stripprog installed files.
|
||||||
|
-t DIRECTORY install into DIRECTORY.
|
||||||
|
-T report an error if DSTFILE is a directory.
|
||||||
|
|
||||||
|
Environment variables override the default commands:
|
||||||
|
CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
|
||||||
|
RMPROG STRIPPROG
|
||||||
|
"
|
||||||
|
|
||||||
|
while test $# -ne 0; do
|
||||||
|
case $1 in
|
||||||
|
-c) ;;
|
||||||
|
|
||||||
|
-C) copy_on_change=true;;
|
||||||
|
|
||||||
|
-d) dir_arg=true;;
|
||||||
|
|
||||||
|
-g) chgrpcmd="$chgrpprog $2"
|
||||||
|
shift;;
|
||||||
|
|
||||||
|
--help) echo "$usage"; exit $?;;
|
||||||
|
|
||||||
|
-m) mode=$2
|
||||||
|
case $mode in
|
||||||
|
*' '* | *' '* | *'
|
||||||
|
'* | *'*'* | *'?'* | *'['*)
|
||||||
|
echo "$0: invalid mode: $mode" >&2
|
||||||
|
exit 1;;
|
||||||
|
esac
|
||||||
|
shift;;
|
||||||
|
|
||||||
|
-o) chowncmd="$chownprog $2"
|
||||||
|
shift;;
|
||||||
|
|
||||||
|
-s) stripcmd=$stripprog;;
|
||||||
|
|
||||||
|
-S) stripcmd="$stripprog $2"
|
||||||
|
shift;;
|
||||||
|
|
||||||
|
-t) dst_arg=$2
|
||||||
|
shift;;
|
||||||
|
|
||||||
|
-T) no_target_directory=true;;
|
||||||
|
|
||||||
|
--version) echo "$0 $scriptversion"; exit $?;;
|
||||||
|
|
||||||
|
--) shift
|
||||||
|
break;;
|
||||||
|
|
||||||
|
-*) echo "$0: invalid option: $1" >&2
|
||||||
|
exit 1;;
|
||||||
|
|
||||||
|
*) break;;
|
||||||
|
esac
|
||||||
|
shift
|
||||||
|
done
|
||||||
|
|
||||||
|
if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
|
||||||
|
# When -d is used, all remaining arguments are directories to create.
|
||||||
|
# When -t is used, the destination is already specified.
|
||||||
|
# Otherwise, the last argument is the destination. Remove it from $@.
|
||||||
|
for arg
|
||||||
|
do
|
||||||
|
if test -n "$dst_arg"; then
|
||||||
|
# $@ is not empty: it contains at least $arg.
|
||||||
|
set fnord "$@" "$dst_arg"
|
||||||
|
shift # fnord
|
||||||
|
fi
|
||||||
|
shift # arg
|
||||||
|
dst_arg=$arg
|
||||||
|
done
|
||||||
|
fi
|
||||||
|
|
||||||
|
if test $# -eq 0; then
|
||||||
|
if test -z "$dir_arg"; then
|
||||||
|
echo "$0: no input file specified." >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
# It's OK to call `install-sh -d' without argument.
|
||||||
|
# This can happen when creating conditional directories.
|
||||||
|
exit 0
|
||||||
|
fi
|
||||||
|
|
||||||
|
if test -z "$dir_arg"; then
|
||||||
|
do_exit='(exit $ret); exit $ret'
|
||||||
|
trap "ret=129; $do_exit" 1
|
||||||
|
trap "ret=130; $do_exit" 2
|
||||||
|
trap "ret=141; $do_exit" 13
|
||||||
|
trap "ret=143; $do_exit" 15
|
||||||
|
|
||||||
|
# Set umask so as not to create temps with too-generous modes.
|
||||||
|
# However, 'strip' requires both read and write access to temps.
|
||||||
|
case $mode in
|
||||||
|
# Optimize common cases.
|
||||||
|
*644) cp_umask=133;;
|
||||||
|
*755) cp_umask=22;;
|
||||||
|
|
||||||
|
*[0-7])
|
||||||
|
if test -z "$stripcmd"; then
|
||||||
|
u_plus_rw=
|
||||||
|
else
|
||||||
|
u_plus_rw='% 200'
|
||||||
|
fi
|
||||||
|
cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
|
||||||
|
*)
|
||||||
|
if test -z "$stripcmd"; then
|
||||||
|
u_plus_rw=
|
||||||
|
else
|
||||||
|
u_plus_rw=,u+rw
|
||||||
|
fi
|
||||||
|
cp_umask=$mode$u_plus_rw;;
|
||||||
|
esac
|
||||||
|
fi
|
||||||
|
|
||||||
|
for src
|
||||||
|
do
|
||||||
|
# Protect names starting with `-'.
|
||||||
|
case $src in
|
||||||
|
-*) src=./$src;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
if test -n "$dir_arg"; then
|
||||||
|
dst=$src
|
||||||
|
dstdir=$dst
|
||||||
|
test -d "$dstdir"
|
||||||
|
dstdir_status=$?
|
||||||
|
else
|
||||||
|
|
||||||
|
# Waiting for this to be detected by the "$cpprog $src $dsttmp" command
|
||||||
|
# might cause directories to be created, which would be especially bad
|
||||||
|
# if $src (and thus $dsttmp) contains '*'.
|
||||||
|
if test ! -f "$src" && test ! -d "$src"; then
|
||||||
|
echo "$0: $src does not exist." >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
if test -z "$dst_arg"; then
|
||||||
|
echo "$0: no destination specified." >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
dst=$dst_arg
|
||||||
|
# Protect names starting with `-'.
|
||||||
|
case $dst in
|
||||||
|
-*) dst=./$dst;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
# If destination is a directory, append the input filename; won't work
|
||||||
|
# if double slashes aren't ignored.
|
||||||
|
if test -d "$dst"; then
|
||||||
|
if test -n "$no_target_directory"; then
|
||||||
|
echo "$0: $dst_arg: Is a directory" >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
dstdir=$dst
|
||||||
|
dst=$dstdir/`basename "$src"`
|
||||||
|
dstdir_status=0
|
||||||
|
else
|
||||||
|
# Prefer dirname, but fall back on a substitute if dirname fails.
|
||||||
|
dstdir=`
|
||||||
|
(dirname "$dst") 2>/dev/null ||
|
||||||
|
expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
|
||||||
|
X"$dst" : 'X\(//\)[^/]' \| \
|
||||||
|
X"$dst" : 'X\(//\)$' \| \
|
||||||
|
X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
|
||||||
|
echo X"$dst" |
|
||||||
|
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
|
||||||
|
s//\1/
|
||||||
|
q
|
||||||
|
}
|
||||||
|
/^X\(\/\/\)[^/].*/{
|
||||||
|
s//\1/
|
||||||
|
q
|
||||||
|
}
|
||||||
|
/^X\(\/\/\)$/{
|
||||||
|
s//\1/
|
||||||
|
q
|
||||||
|
}
|
||||||
|
/^X\(\/\).*/{
|
||||||
|
s//\1/
|
||||||
|
q
|
||||||
|
}
|
||||||
|
s/.*/./; q'
|
||||||
|
`
|
||||||
|
|
||||||
|
test -d "$dstdir"
|
||||||
|
dstdir_status=$?
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
obsolete_mkdir_used=false
|
||||||
|
|
||||||
|
if test $dstdir_status != 0; then
|
||||||
|
case $posix_mkdir in
|
||||||
|
'')
|
||||||
|
# Create intermediate dirs using mode 755 as modified by the umask.
|
||||||
|
# This is like FreeBSD 'install' as of 1997-10-28.
|
||||||
|
umask=`umask`
|
||||||
|
case $stripcmd.$umask in
|
||||||
|
# Optimize common cases.
|
||||||
|
*[2367][2367]) mkdir_umask=$umask;;
|
||||||
|
.*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
|
||||||
|
|
||||||
|
*[0-7])
|
||||||
|
mkdir_umask=`expr $umask + 22 \
|
||||||
|
- $umask % 100 % 40 + $umask % 20 \
|
||||||
|
- $umask % 10 % 4 + $umask % 2
|
||||||
|
`;;
|
||||||
|
*) mkdir_umask=$umask,go-w;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
# With -d, create the new directory with the user-specified mode.
|
||||||
|
# Otherwise, rely on $mkdir_umask.
|
||||||
|
if test -n "$dir_arg"; then
|
||||||
|
mkdir_mode=-m$mode
|
||||||
|
else
|
||||||
|
mkdir_mode=
|
||||||
|
fi
|
||||||
|
|
||||||
|
posix_mkdir=false
|
||||||
|
case $umask in
|
||||||
|
*[123567][0-7][0-7])
|
||||||
|
# POSIX mkdir -p sets u+wx bits regardless of umask, which
|
||||||
|
# is incompatible with FreeBSD 'install' when (umask & 300) != 0.
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
|
||||||
|
trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
|
||||||
|
|
||||||
|
if (umask $mkdir_umask &&
|
||||||
|
exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
|
||||||
|
then
|
||||||
|
if test -z "$dir_arg" || {
|
||||||
|
# Check for POSIX incompatibilities with -m.
|
||||||
|
# HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
|
||||||
|
# other-writeable bit of parent directory when it shouldn't.
|
||||||
|
# FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
|
||||||
|
ls_ld_tmpdir=`ls -ld "$tmpdir"`
|
||||||
|
case $ls_ld_tmpdir in
|
||||||
|
d????-?r-*) different_mode=700;;
|
||||||
|
d????-?--*) different_mode=755;;
|
||||||
|
*) false;;
|
||||||
|
esac &&
|
||||||
|
$mkdirprog -m$different_mode -p -- "$tmpdir" && {
|
||||||
|
ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
|
||||||
|
test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
then posix_mkdir=:
|
||||||
|
fi
|
||||||
|
rmdir "$tmpdir/d" "$tmpdir"
|
||||||
|
else
|
||||||
|
# Remove any dirs left behind by ancient mkdir implementations.
|
||||||
|
rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
|
||||||
|
fi
|
||||||
|
trap '' 0;;
|
||||||
|
esac;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
if
|
||||||
|
$posix_mkdir && (
|
||||||
|
umask $mkdir_umask &&
|
||||||
|
$doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
|
||||||
|
)
|
||||||
|
then :
|
||||||
|
else
|
||||||
|
|
||||||
|
# The umask is ridiculous, or mkdir does not conform to POSIX,
|
||||||
|
# or it failed possibly due to a race condition. Create the
|
||||||
|
# directory the slow way, step by step, checking for races as we go.
|
||||||
|
|
||||||
|
case $dstdir in
|
||||||
|
/*) prefix='/';;
|
||||||
|
-*) prefix='./';;
|
||||||
|
*) prefix='';;
|
||||||
|
esac
|
||||||
|
|
||||||
|
eval "$initialize_posix_glob"
|
||||||
|
|
||||||
|
oIFS=$IFS
|
||||||
|
IFS=/
|
||||||
|
$posix_glob set -f
|
||||||
|
set fnord $dstdir
|
||||||
|
shift
|
||||||
|
$posix_glob set +f
|
||||||
|
IFS=$oIFS
|
||||||
|
|
||||||
|
prefixes=
|
||||||
|
|
||||||
|
for d
|
||||||
|
do
|
||||||
|
test -z "$d" && continue
|
||||||
|
|
||||||
|
prefix=$prefix$d
|
||||||
|
if test -d "$prefix"; then
|
||||||
|
prefixes=
|
||||||
|
else
|
||||||
|
if $posix_mkdir; then
|
||||||
|
(umask=$mkdir_umask &&
|
||||||
|
$doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
|
||||||
|
# Don't fail if two instances are running concurrently.
|
||||||
|
test -d "$prefix" || exit 1
|
||||||
|
else
|
||||||
|
case $prefix in
|
||||||
|
*\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
|
||||||
|
*) qprefix=$prefix;;
|
||||||
|
esac
|
||||||
|
prefixes="$prefixes '$qprefix'"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
prefix=$prefix/
|
||||||
|
done
|
||||||
|
|
||||||
|
if test -n "$prefixes"; then
|
||||||
|
# Don't fail if two instances are running concurrently.
|
||||||
|
(umask $mkdir_umask &&
|
||||||
|
eval "\$doit_exec \$mkdirprog $prefixes") ||
|
||||||
|
test -d "$dstdir" || exit 1
|
||||||
|
obsolete_mkdir_used=true
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
if test -n "$dir_arg"; then
|
||||||
|
{ test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
|
||||||
|
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
|
||||||
|
{ test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
|
||||||
|
test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
|
||||||
|
else
|
||||||
|
|
||||||
|
# Make a couple of temp file names in the proper directory.
|
||||||
|
dsttmp=$dstdir/_inst.$$_
|
||||||
|
rmtmp=$dstdir/_rm.$$_
|
||||||
|
|
||||||
|
# Trap to clean up those temp files at exit.
|
||||||
|
trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
|
||||||
|
|
||||||
|
# Copy the file name to the temp name.
|
||||||
|
(umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
|
||||||
|
|
||||||
|
# and set any options; do chmod last to preserve setuid bits.
|
||||||
|
#
|
||||||
|
# If any of these fail, we abort the whole thing. If we want to
|
||||||
|
# ignore errors from any of these, just make sure not to ignore
|
||||||
|
# errors from the above "$doit $cpprog $src $dsttmp" command.
|
||||||
|
#
|
||||||
|
{ test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
|
||||||
|
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
|
||||||
|
{ test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
|
||||||
|
{ test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
|
||||||
|
|
||||||
|
# If -C, don't bother to copy if it wouldn't change the file.
|
||||||
|
if $copy_on_change &&
|
||||||
|
old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
|
||||||
|
new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
|
||||||
|
|
||||||
|
eval "$initialize_posix_glob" &&
|
||||||
|
$posix_glob set -f &&
|
||||||
|
set X $old && old=:$2:$4:$5:$6 &&
|
||||||
|
set X $new && new=:$2:$4:$5:$6 &&
|
||||||
|
$posix_glob set +f &&
|
||||||
|
|
||||||
|
test "$old" = "$new" &&
|
||||||
|
$cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
|
||||||
|
then
|
||||||
|
rm -f "$dsttmp"
|
||||||
|
else
|
||||||
|
# Rename the file to the real destination.
|
||||||
|
$doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
|
||||||
|
|
||||||
|
# The rename failed, perhaps because mv can't rename something else
|
||||||
|
# to itself, or perhaps because mv is so ancient that it does not
|
||||||
|
# support -f.
|
||||||
|
{
|
||||||
|
# Now remove or move aside any old file at destination location.
|
||||||
|
# We try this two ways since rm can't unlink itself on some
|
||||||
|
# systems and the destination file might be busy for other
|
||||||
|
# reasons. In this case, the final cleanup might fail but the new
|
||||||
|
# file should still install successfully.
|
||||||
|
{
|
||||||
|
test ! -f "$dst" ||
|
||||||
|
$doit $rmcmd -f "$dst" 2>/dev/null ||
|
||||||
|
{ $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
|
||||||
|
{ $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
|
||||||
|
} ||
|
||||||
|
{ echo "$0: cannot unlink or rename $dst" >&2
|
||||||
|
(exit 1); exit 1
|
||||||
|
}
|
||||||
|
} &&
|
||||||
|
|
||||||
|
# Now rename the file to the real destination.
|
||||||
|
$doit $mvcmd "$dsttmp" "$dst"
|
||||||
|
}
|
||||||
|
fi || exit 1
|
||||||
|
|
||||||
|
trap '' 0
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# Local variables:
|
||||||
|
# eval: (add-hook 'write-file-hooks 'time-stamp)
|
||||||
|
# time-stamp-start: "scriptversion="
|
||||||
|
# time-stamp-format: "%:y-%02m-%02d.%02H"
|
||||||
|
# time-stamp-time-zone: "UTC"
|
||||||
|
# time-stamp-end: "; # UTC"
|
||||||
|
# End:
|
||||||
4268
backend_tcl/tclconfig/tcl.m4
Normal file
4268
backend_tcl/tclconfig/tcl.m4
Normal file
File diff suppressed because it is too large
Load Diff
@ -35,6 +35,7 @@
|
|||||||
First implementation
|
First implementation
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
#if defined(__WIN32__) || defined(_WIN32) || defined(WIN32)
|
||||||
#pragma warning(disable : 4201 4214 4514)
|
#pragma warning(disable : 4201 4214 4514)
|
||||||
#define STRICT
|
#define STRICT
|
||||||
#define WIN32_LEAN_AND_MEAN
|
#define WIN32_LEAN_AND_MEAN
|
||||||
@ -47,14 +48,25 @@
|
|||||||
#ifdef ERROR_INVALID_DATA
|
#ifdef ERROR_INVALID_DATA
|
||||||
#undef ERROR_INVALID_DATA
|
#undef ERROR_INVALID_DATA
|
||||||
#endif
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
#include <zint.h>
|
#include <zint.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
|
#if defined(__WIN32__) || defined(_WIN32) || defined(WIN32)
|
||||||
#define USE_TCL_STUBS
|
#define USE_TCL_STUBS
|
||||||
#define USE_TK_STUBS
|
#define USE_TK_STUBS
|
||||||
|
#endif
|
||||||
|
|
||||||
#include <tcl.h>
|
#include <tcl.h>
|
||||||
#include <tk.h>
|
#include <tk.h>
|
||||||
|
|
||||||
|
#undef EXPORT
|
||||||
|
#if defined(__WIN32__) || defined(_WIN32) || defined(WIN32)
|
||||||
|
#define EXPORT __declspec(dllexport)
|
||||||
|
#else
|
||||||
|
#define EXPORT
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
/*----------------------------------------------------------------------------*/
|
/*----------------------------------------------------------------------------*/
|
||||||
@ -69,7 +81,7 @@
|
|||||||
|
|
||||||
/*----------------------------------------------------------------------------*/
|
/*----------------------------------------------------------------------------*/
|
||||||
/* >>>> External Prototypes (exports) */
|
/* >>>> External Prototypes (exports) */
|
||||||
int __declspec(dllexport) Zint_Init (Tcl_Interp *interp);
|
EXPORT int Zint_Init (Tcl_Interp *interp);
|
||||||
/*----------------------------------------------------------------------------*/
|
/*----------------------------------------------------------------------------*/
|
||||||
/* >>>> local prototypes */
|
/* >>>> local prototypes */
|
||||||
static int Zint(ClientData unused, Tcl_Interp *interp, int objc,
|
static int Zint(ClientData unused, Tcl_Interp *interp, int objc,
|
||||||
@ -277,7 +289,7 @@ static char help_message[] = "zint tcl(stub,obj) dll\n"
|
|||||||
" -vers integer: Symbology option, QR-Code, Plessy\n"
|
" -vers integer: Symbology option, QR-Code, Plessy\n"
|
||||||
" -rotate angle: Image rotation by 0,90 or 270 degrees\n"
|
" -rotate angle: Image rotation by 0,90 or 270 degrees\n"
|
||||||
" -secure integer: EC Level (PDF417, QR)\n"
|
" -secure integer: EC Level (PDF417, QR)\n"
|
||||||
" -mode: tructured primary data mode (Maxicode, Composite)\n"
|
" -mode: Structured primary data mode (Maxicode, Composite)\n"
|
||||||
" -primary text: Structured primary data (Maxicode, Composite)\n"
|
" -primary text: Structured primary data (Maxicode, Composite)\n"
|
||||||
" -scale double: Scale the image to this factor\n"
|
" -scale double: Scale the image to this factor\n"
|
||||||
" -format binary|unicode|gs1: input data format. Default:unicode"
|
" -format binary|unicode|gs1: input data format. Default:unicode"
|
||||||
@ -294,23 +306,33 @@ static char help_message[] = "zint tcl(stub,obj) dll\n"
|
|||||||
|
|
||||||
/*----------------------------------------------------------------------------*/
|
/*----------------------------------------------------------------------------*/
|
||||||
/* Exported symbols */
|
/* Exported symbols */
|
||||||
BOOL __declspec(dllexport) WINAPI DllEntryPoint (HINSTANCE hInstance,
|
#if defined(__WIN32__) || defined(_WIN32) || defined(WIN32)
|
||||||
|
EXPORT BOOL WINAPI DllEntryPoint (HINSTANCE hInstance,
|
||||||
DWORD seginfo, LPVOID lpCmdLine)
|
DWORD seginfo, LPVOID lpCmdLine)
|
||||||
{
|
{
|
||||||
/* Don't do anything, so just return true */
|
/* Don't do anything, so just return true */
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
#endif
|
||||||
/*----------------------------------------------------------------------------*/
|
/*----------------------------------------------------------------------------*/
|
||||||
/* Initialisation Procedures */
|
/* Initialisation Procedures */
|
||||||
int __declspec(dllexport) Zint_Init (Tcl_Interp *Interp)
|
EXPORT int Zint_Init (Tcl_Interp *Interp)
|
||||||
{
|
{
|
||||||
/*------------------------------------------------------------------------*/
|
/*------------------------------------------------------------------------*/
|
||||||
|
#ifdef USE_TCL_STUBS
|
||||||
if (Tcl_InitStubs(Interp, "8.1", 0) == NULL)
|
if (Tcl_InitStubs(Interp, "8.1", 0) == NULL)
|
||||||
|
#else
|
||||||
|
if (Tcl_PkgRequire(Interp, "Tcl", "8.1", 0) == NULL)
|
||||||
|
#endif
|
||||||
{
|
{
|
||||||
return TCL_ERROR;
|
return TCL_ERROR;
|
||||||
}
|
}
|
||||||
/*------------------------------------------------------------------------*/
|
/*------------------------------------------------------------------------*/
|
||||||
|
#ifdef USE_TK_STUBS
|
||||||
if (Tk_InitStubs(Interp, "8.1", 0) == NULL)
|
if (Tk_InitStubs(Interp, "8.1", 0) == NULL)
|
||||||
|
#else
|
||||||
|
if (Tcl_PkgRequire(Interp, "Tk", "8.1", 0) == NULL)
|
||||||
|
#endif
|
||||||
{
|
{
|
||||||
return TCL_ERROR;
|
return TCL_ERROR;
|
||||||
}
|
}
|
||||||
@ -390,18 +412,18 @@ static int Encode(Tcl_Interp *interp, int objc,
|
|||||||
Tcl_Obj *CONST objv[])
|
Tcl_Obj *CONST objv[])
|
||||||
{
|
{
|
||||||
struct zint_symbol *hSymbol;
|
struct zint_symbol *hSymbol;
|
||||||
Tcl_DString dsInput;
|
Tcl_DString dsInput;
|
||||||
char *pStr;
|
char *pStr = NULL;
|
||||||
int lStr;
|
int lStr;
|
||||||
Tcl_Encoding hUTF8Encoding;
|
Tcl_Encoding hUTF8Encoding;
|
||||||
int rotate_angle=0;
|
int rotate_angle=0;
|
||||||
int fError = 0;
|
int fError = 0;
|
||||||
Tcl_DString dString;
|
Tcl_DString dString;
|
||||||
int optionPos;
|
int optionPos;
|
||||||
int destX0=0;
|
int destX0 = 0;
|
||||||
int destY0=0;
|
int destY0 = 0;
|
||||||
int destWidth=0;
|
int destWidth = 0;
|
||||||
int destHeight=0;
|
int destHeight = 0;
|
||||||
/*------------------------------------------------------------------------*/
|
/*------------------------------------------------------------------------*/
|
||||||
/* >> Check if at least data and object is given and a pair number of */
|
/* >> Check if at least data and object is given and a pair number of */
|
||||||
/* >> options */
|
/* >> options */
|
||||||
@ -562,7 +584,7 @@ static int Encode(Tcl_Interp *interp, int objc,
|
|||||||
case iDMRE:
|
case iDMRE:
|
||||||
/* DM_SQUARE overwrites DM_DMRE */
|
/* DM_SQUARE overwrites DM_DMRE */
|
||||||
if (hSymbol->option_3 != DM_DMRE) {
|
if (hSymbol->option_3 != DM_DMRE) {
|
||||||
Symbol->option_3 = (intValue?DM_DMRE:0);
|
hSymbol->option_3 = (intValue?DM_DMRE:0);
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case iScale:
|
case iScale:
|
||||||
@ -672,14 +694,14 @@ static int Encode(Tcl_Interp *interp, int objc,
|
|||||||
Tcl_NewStringObj(
|
Tcl_NewStringObj(
|
||||||
"option -to not a list of 2 or 4", -1));
|
"option -to not a list of 2 or 4", -1));
|
||||||
fError = 1;
|
fError = 1;
|
||||||
} else if (
|
} else if ((
|
||||||
TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1],
|
TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1],
|
||||||
0, &poParam)
|
0, &poParam)
|
||||||
|| TCL_OK != Tcl_GetIntFromObj(interp,poParam,&destX0)
|
|| TCL_OK != Tcl_GetIntFromObj(interp,poParam,&destX0)
|
||||||
|| TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1],
|
|| TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1],
|
||||||
1, &poParam)
|
1, &poParam)
|
||||||
|| TCL_OK != Tcl_GetIntFromObj(interp,poParam,&destY0)
|
|| TCL_OK != Tcl_GetIntFromObj(interp,poParam,&destY0)
|
||||||
|| lStr == 4 && (
|
|| lStr == 4) && (
|
||||||
TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1],
|
TCL_OK != Tcl_ListObjIndex(interp, objv[optionPos+1],
|
||||||
2, &poParam)
|
2, &poParam)
|
||||||
|| TCL_OK != Tcl_GetIntFromObj(interp,poParam,
|
|| TCL_OK != Tcl_GetIntFromObj(interp,poParam,
|
||||||
@ -728,7 +750,7 @@ static int Encode(Tcl_Interp *interp, int objc,
|
|||||||
/* >>> Get input - 2nd argument */
|
/* >>> Get input - 2nd argument */
|
||||||
if (hSymbol->input_mode == DATA_MODE) {
|
if (hSymbol->input_mode == DATA_MODE) {
|
||||||
/* Binary data */
|
/* Binary data */
|
||||||
pStr = Tcl_GetByteArrayFromObj(objv[2], &lStr);
|
pStr = (char *) Tcl_GetByteArrayFromObj(objv[2], &lStr);
|
||||||
} else {
|
} else {
|
||||||
/* UTF8 Data */
|
/* UTF8 Data */
|
||||||
pStr = Tcl_GetStringFromObj(objv[2], &lStr);
|
pStr = Tcl_GetStringFromObj(objv[2], &lStr);
|
||||||
@ -738,7 +760,7 @@ static int Encode(Tcl_Interp *interp, int objc,
|
|||||||
}
|
}
|
||||||
/*--------------------------------------------------------------------*/
|
/*--------------------------------------------------------------------*/
|
||||||
if( 0 != ZBarcode_Encode_and_Buffer(hSymbol,
|
if( 0 != ZBarcode_Encode_and_Buffer(hSymbol,
|
||||||
pStr, lStr, rotate_angle) )
|
(unsigned char *) pStr, lStr, rotate_angle) )
|
||||||
{
|
{
|
||||||
/* >> Encode error */
|
/* >> Encode error */
|
||||||
fError = 1;
|
fError = 1;
|
||||||
@ -751,7 +773,7 @@ static int Encode(Tcl_Interp *interp, int objc,
|
|||||||
fError = 1;
|
fError = 1;
|
||||||
} else {
|
} else {
|
||||||
Tk_PhotoImageBlock sImageBlock;
|
Tk_PhotoImageBlock sImageBlock;
|
||||||
sImageBlock.pixelPtr = hSymbol->bitmap;
|
sImageBlock.pixelPtr = (unsigned char *) hSymbol->bitmap;
|
||||||
sImageBlock.width = hSymbol->bitmap_width;
|
sImageBlock.width = hSymbol->bitmap_width;
|
||||||
sImageBlock.height = hSymbol->bitmap_height;
|
sImageBlock.height = hSymbol->bitmap_height;
|
||||||
sImageBlock.pitch = 3*hSymbol->bitmap_width;
|
sImageBlock.pitch = 3*hSymbol->bitmap_width;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user