pax_global_header00006660000000000000000000000064135764557150014534gustar00rootroot0000000000000052 comment=96f89601317f681c56b37be406a11443db6928e8 tkcon-2.7.3/000077500000000000000000000000001357645571500126635ustar00rootroot00000000000000tkcon-2.7.3/ChangeLog000066400000000000000000000516321357645571500144440ustar00rootroot000000000000002016-09-14 Jeff Hobbs * tkcon.tcl: Use -underline clearly to disambiguate from new 8.6.6 option -underlinefg [Bug #54] (bachmann) 2015-10-20 Jeff Hobbs * tkcon.tcl (edit): prevent file edit from undoing loading of file [Bug #52] (budyak) 2014-09-09 Jeff Hobbs * tkcon.tcl (::tkcon::SaveHistory): save history at each command to prevent loss during abnormal termination. [bachmann] 2014-07-09 Jeff Hobbs * tkcon.tcl (idebug): allow multi-char patterns as debug id [Lama] 2013-01-22 Jeff Hobbs * tkcon.tcl (tkcon show): catch deiconify as it will throw an error if tkcon is embedded. 2012-12-27 Jeff Hobbs * tkcon.tcl (edit): add support for ::tkcon::OPT(tabspace) to adjust tab spacing in edit window (default: 8). [Bug #7] * tkcon.tcl (::tkcon::Bindings): minimal patch for 8.6b3+ event compatibility. Larger patch to come that addresses shift towards virtual events in core widgets. [Bug #48] (gollwitzer) * docs/{dump.man,tkcon.1.man,tkconc.5.man}: make dtplite happy for the docs [Bug #47] * tkcon.tcl (::tkcon::Init): update to use latest /viewvc/tkcon url to retrieve head version of tkcon. * tkcon.tcl (::tkcon::InitUI): catch deiconify to prevent error when embedding. [Bug #44] * tkcon.tcl (::tkcon::ExpandMethodname): improved expansion for xotcl methods. Also enhance expansion to allow break/continue signals to differentiate "I'm not responsible" results from "I don't have any results". (neumann) * tkcon.tcl (::tkcon::InitInterp): correct sending tkcon commands to user created interps [Bug #42] (kuhn) 2012-03-06 Jeff Hobbs * tkcon.tcl (idebug): better line handling to not use list functions. [Bug 111462] (goth) (tkcon): pass any init args to 'tkcon show' 2011-10-28 Jeff Hobbs * pkgIndex.tcl: update to v2.7 * tkcon.tcl: Improve UI to work on OS X. Adjust some dialogs, use Command- instead of Control- bindings on OS X. Handle right click properly. * docs/license.terms: removed outdated restricted rights section. 2010-01-24 Pat Thoyts * icons/*: Added an SVG icon and .desktop file suitable * tkcon-console.desktop: for use installing tkcon into the desktop * install-desktop-menu.sh: menus on a unix desktop. Also an install * tkcon.tcl: script to show how it is done. And for use with 8.6 on X11 - if we can locate the icon, use it as the tkcon iconphoto so it shows up associated with the running app. 2010-01-23 Pat Thoyts * tkcon.tcl: Make use of the extended window manager hints from tip 359 on unix for all the dialog windows. 2009-04-24 Jeff Hobbs * tkcon.tcl: override 8.5 [chan puts|gets]. [Bug 1876707] * tkcon.tcl: update pre-8.4 private text binding refs * tkcon.tcl: clean up cmd global var used [Bug 2441583] * tkcon.tcl (::tkcon::Retrieve): support http code redirect for downloading latest version. [Bug 1755500] * README.txt, docs/limits.html, docs/nontcl.html: bump to 2.6 * pkgIndex.tcl, tkcon.tcl: Use Tcl 8.4 code style. 2009-02-26 Jeff Hobbs **** TKCON 2.5 TAGGED FOR RELEASE **** * index.html, docs/*.html: update links and references 2009-02-25 Jeff Hobbs * docs/tkcon.html, docs/tkcon.n.man: add tkcon resultfilter docs. 2008-02-07 Jeff Hobbs * tkcon.tcl (::tkcon::Bindings): prevent Expand virtual events from triggering follow-on events (most important for ). (::tkcon::Retrieve): remove extraneous http::geturl call. 2007-06-22 Jeff Hobbs * tkcon.tcl (::tkcon::EvalCmd): add OPT(resultfilter) and 'tkcon resultfilter ?cmd?' to allow optional result filter command. Command will be passed result code and data and must return what tkcon will return to the user. Command is run in attached slave. Ensure that initial files are sources at level #0. Convert args after (--|-argv|-args) into slave arguments and set them as the main $::argv/$::argc for propagation. 2007-06-21 Jeff Hobbs * docs/tkcon.1.man, docs/tkcon.n.man, docs/tkconrc.5.man (new): * docs/dump.n.man, docs/observe.n.man, docs/idebug.n.man (new): * index.html, docs/demopic.gif (removed), docs/demopic.png (new): * docs/plugin.html, docs/start.html, docs/tkcon.html: Updated docs and added doctools equivalents courtesy Sergei Golovan * docs/style.css: updated stylesheet 2007-04-04 Jeff Hobbs *** BUMPED TO VERSION 2.5 *** * tkcon.tcl: ensure option overrides only effect tkcon and subwidgets. (edit): Add -wrap option to 'edit' command. (::tkcon::AtSource): adjust argv0 existence check 2006-09-05 Jeff Hobbs * tkcon.tcl (::tkcon::NewTab, ::tkcon::GetSlave): ensure that new tabs in other toplevel tkcon windows are built in the correct slave hierarchy. * pkgIndex.tcl: sample pkgIndex.tcl that allows using tkcon as a package. * tkcon.tcl (::tkcon::InitSlave): adjust to make the first file passed in to be argv0 in the slave 2006-08-25 Jeff Hobbs * tkcon.tcl (tkcon): default wm protocol to hide tkcon when used in embedded context. 2006-08-23 Jeff Hobbs * tkcon.tcl: remove use of -exact in package require Tk 2006-06-29 Jeff Hobbs * tkcon.tcl: updated to handle ttk scrollbars as well as other UI cleanup. 2006-06-15 Jeff Hobbs * tkcon.tcl: modify CVS location after SF changes * README.txt: correct reference email address 2006-02-28 Jeff Hobbs * tkcon.tcl (tkcon): update 'gets stdin' override (tkcon congets) to support usage at script load time. (decoster) 2006-01-25 Jeff Hobbs * tkcon.tcl (MenuConfigure): Fix ActiveTcl Help link when pointing to a file with space in path. [Bug 1408425] (::tkcon::Save, ::tkcon::Load): in VFS paths, use the X11 dialogs that support viewing in VFS dirs. 2005-09-12 Jeff Hobbs * tkcon.tcl (::tkcon::AtSource): do not require argv to be defined (edit): enable text -undo in editor (::tkcon::InitUI): shrink aqua resize control space alloted 2005-07-14 Jeff Hobbs * tkcon.tcl: add ::tkcon::OPT(maxlinelen) (default 0 == unlimited) and 'tkcon linelength ?value?' to optionally limit long result lines. True result is still captured in $_ (and 'puts $_' works). 2005-05-25 Jeff Hobbs * tkcon.tcl (InitMenus): add ActiveTcl Help menu item, if AT Help is found. 2005-04-06 Jeff Hobbs * tkcon.tcl (ExpandXotcl): allow for xotcl method name expansion, if you change ::tkcon::OPT(expandorder) to include Xotcl before Procname 2005-02-21 Jeff Hobbs * tkcon.tcl (::send::send): propagate -displayof to winfo interps call. [Bug 1124369] (mbec) 2004-11-17 Jeff Hobbs * tkcon.tcl (::tkcon::ExpandVariable): correct array keyname expansion. [Bug 1004508] (bold) 2004-11-12 Jeff Hobbs * tkcon.tcl (::tkcon::EvalSocket): pass sock arg. (allaert) 2004-11-11 Jeff Hobbs * tkcon.tcl (::tkcon::DeleteTab): allow for exit code to be passed when exit is aliased to DeleteTab. [Bug 1064462] (::tkcon::Expect): graphicsSet isn't valid yet 2004-10-10 Jeff Hobbs * tkcon.tcl (::tkcon::Highlight): use ctext for the 'edit' dialog if available 2004-07-26 Jeff Hobbs **** TKCON 2.4 TAGGED FOR RELEASE **** * index.html, docs/*.html: remove email links, update 2.4 info * docs/plugin.html: update plugin page embed code 2004-06-24 Jeff Hobbs * tkcon.tcl (DeleteTab, Destroy): improve the 'exit' handling so that 'exit' in the first created tab doesn't do a full exit. 'exit' in the last tab of the first created console still exits tkcon, fixing that requires a rearch of the console creation/management. (InitTab): Have the binding only fire for the root window, not for each tab. (GotoTab): Keep tabs around - just raise/lower instead of grid remove/add. break on Next/Prev Tab binding to get focus right. (Prompt): return if console w doesn't exist 2004-06-10 Jeff Hobbs * tkcon.tcl: add [X] tab delete button and Console -> Delete Tab menu item. [Bug 970785] 2004-05-12 Jeff Hobbs * tkcon.tcl (observe): allow observe of 'proc' 2004-03-20 Jeff Hobbs * tkcon.tcl (::tkcon::EvalSocketEvent): correctly handle socket events after attachment changes 2004-03-01 Jeff Hobbs * tkcon.tcl: correct 'exit' in extra tabs. make tkconfixed font Courier -12 (was Courier 10), use it on unix. Add extra space for OS X/Aqua in statusbar (for resize handle). Only use -overrelief in 8.4 2004-02-12 Jeff Hobbs * tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os) as it doesn't exist in the Tcl plugin. Show Attach info in tab text, maintain namespace attachment between console switches. (::tkcon::InterpEval, Interps): beware safe interps with Tk 2004-02-05 Jeff Hobbs * tkcon.tcl: brought code back to 8.0 compatability. Use $_ as last cached result var (was ${}). Ensure hoterrors garbage collection occurs across all tabs. 2004-01-29 Jeff Hobbs * tkcon.tcl: first whack at tabbed consoles 2004-01-28 Jeff Hobbs * tkcon.tcl: don't use menu tearoffs remove recognizable email addresses from source enabled more send variants (comm, dde, winsend) [bug 649257] (thoyts) change Packages menu (that would be too large with many packages) to a Manage Packages dialog. tightened up Create Socket dialog, added dismiss binding. Moved source time initialization into ::tkcon::AtSource to guard against leftover vars and just better encapsulate it. (::tkcon::Retrieve): correct retrieve URL and add intelligence to sense whether what we retrieved is correct before overwriting file. 2003-11-18 Jeff Hobbs * tkcon.tcl (::tkcon::InitSlave): remove tk_library from the seeded auto_path. Do not add OPT(library) to auto_path if it is "". 2003-11-04 Jeff Hobbs * tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead of tk_dialog 2003-10-06 Jeff Hobbs * tkcon.tcl (dir): use %9ld instead of %9d to support large files 2003-04-08 Jeff Hobbs * tkcon.tcl (::tkcon::InitUI): WinCE code to resize the window to fit on the small screen 2003-03-31 Jeff Hobbs * tkcon.tcl (tkcon::Retrieve): correct the check for tkcon version when retrieving from http. 2003-02-20 Jeff Hobbs * tkcon.tcl (EvalCmd): set $:: (aka ${}) var to last command result. (EvalOther): use tk_messageBox instead of tk_dialog (Init): allow 'edit' to be overridden using OPT(edit) 2003-01-13 Jeff Hobbs * tkcon.tcl: add tk appname alias in WWW plugin case. 2002-10-08 Jeff Hobbs * tkcon.tcl (tcl_unknown): allow ::namespace (:'s) to be recognized. (koloska) (MainInit): add option for overriding exit command. (InitUI): add option to control the wm protocol for WM_DELETE_WINDOW. 2002-10-01 Jeff Hobbs * tkcon.tcl (InterpEval): correctly handle no args case. (New): autoload tbcload when it exists. 2002-06-22 Jeff Hobbs * tkcon.tcl: call Init with eval to break out argv into args. 2002-06-04 Jeff Hobbs * tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary. 2002-06-03 Jeff Hobbs * tkcon.tcl: fixed Retrieve to use the proxy info (Thoyts). Added code so that tkcon.tcl can be sourced in and used like a quasi-package. Once sourced, you can do a 'package require tkcon' (there is no pkgIndex.tcl for it), and the first 'tkcon show' will initialize anything that is needed. (observe): corrected variables tracing to not allow duplicates. (dump): improved check for empty named arrays as well as locally aliased vars in var dumps. Use the 'fixed' font on unix by default. 2002-02-22 Jeff Hobbs * tkcon.tcl (AddSlaveHistory): changed history to not add the command if it is the same as the previous command (it will still be evaluated). (soderstrom) Added panedwindow and labelframe as recognized Tk commands. 2002-01-24 Jeff Hobbs **** TKCON 2.3 RELEASE **** * tkcon.tcl: bumped to v2.3 2002-01-23 Jeff Hobbs * docs/procs.html: * tkcon.tcl (what): changed to differentiate between 'array' and 'scalar' instead of just returning 'variable'. (which): called what in uplevel to get scope right. 2002-01-22 Jeff Hobbs * tkcon.tcl (ExpandPathname): use a safer regsub to first unescape the str, then to protect it in the glob. (dir): Use -directory arg in 8.3+ for better results. * docs/idebug.html: added note about ? help at debug prompt. * tkcon.tcl (dir): prevented possible 'divide by zero' error. [Bug #496584] (Expand*): fixed ExpandPathname to better handle spaced pathnames. [Bug #497079] 2001-12-14 Jeff Hobbs * tkcon.tcl: 'tkcon show' causes loss of focus on Windows, so an extra focus to the console was added. 2001-12-12 Jeff Hobbs * tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only occur after gets, then eof check. (Gerold Jury) 2001-11-14 Jeff Hobbs * tkcon.tcl: added catch around file type call 2001-10-14 Jeff Hobbs * tkcon.tcl (Init): corrected loading of rcfile when it was in a path including spaces. (siltberg) (About): clarified CVS info in about box. * docs/start.html: correct old refs to TKCON var. 2001-09-28 Jeff Hobbs * tkcon.tcl (ExpandPathname): recognize NT as a case *in*sensitive file system for pathname expansion. 2001-08-31 Jeff Hobbs * tkcon.tcl (InitSlave): propagate auto_path from master to slave. 2001-08-24 Jeff Hobbs * tkcon.tcl (NewSocket, NewDisplay): when nothing is specified, just return. (Display): fixed connecting to interps on other displays. 2001-08-22 Jeff Hobbs * docs/bindings.html: noted ^r/^s change. * tkcon.tcl (Event): changed event ^r/^s searching to search for any matching substring, and blink the substring. Added statusbar, default off (not much in status yet). 2001-08-20 Jeff Hobbs * tkcon.tcl (EvalNamespace): fixed to work when attached to a foreign interpreter. [Bug #453431] Added fix that allows access to Tk privates in 8.4. Still needs a long-term fix. [Bug #450865] (porter) 2001-08-03 Jeff Hobbs * tkcon.tcl (EvalCmd): protected against non-existent tkPriv(mouseMoved) variable 2001-07-05 Jeff Hobbs * tkcon.tcl (RetrieveFilter, RetrieveAuthentication): added support for retrieving latest tkcon via a proxy. (Thoyts) 2001-07-04 Jeff Hobbs * tkcon.tcl (tkcon): made tkcon console return whatever result it received. Fixed Bug #438281. 2001-06-20 Jeff Hobbs TKCON 2.2 RELEASE * README.txt: * index.html: * docs/index.html: updated for 2.2 release * tkcon.tcl (InitUI): moved wm protocol inside check to not run under plugin. (::tkcon::Retrieve): added a new method to allow tkcon to retrieve the latest version of itself. 2001-06-19 Jeff Hobbs * tkcon.tcl (dir): added fallback in generic dir command to not require being run in tkcon. (Init): Changed around how all options are initialized to allow for tkcon embedders to set their own defaults. Added a usehistory PRIV key that tells us whether to load/save history files. Added showOnStartup PRIV key to control whether tkcon should deiconify itself on startup. Changed setting root to .tkcon to ensure that root was just . before. 2001-06-18 Jeff Hobbs * tkcon.tcl: (InitUI) added WM_DELETE_WINDOW hook to exit to correctly deconstruct slave consoles. (tkcon congets/getc) added tkcon show to ensure that tkcon would be displayed when input is expected. (GetSelection) new command to handle getting selection, this supports the new UTF8_STRING type. (InitMenus) added version check around Attach to Socket menu, as 8.3 is need for the file channels call. 2001-05-28 Jeff Hobbs * docs/start.html: added note about ::tkcon::OPT(gets) var. * docs/tkcon.html: improved docs for tkcon *get* methods. * tkcon.tcl: reinstituted override of gets by default to use the tkcon console based gets. * tkcon.tcl (dump): corrected outputting local vars with dump. Added RCS info to PRIV array and About box. (tkcon congets) corrected congets to set the limit and insert properly to return data without needing to call the prompt. (tkcon set) corrected to return [array get] string for arrays, and scalar value for vars. Placed exact level value to all calls to uplevel and upvar. 2001-05-17 Jeff Hobbs * tkcon.tcl: make check for actual tkcon root existence to allow for setting the var ($::tkcon::PRIV(root)) in controlling apps to better control the root window. 2001-05-04 Jeff Hobbs TKCON 2.1 RELEASE * docs/style.css: new file for html files to use. * README.txt: * index.html: * doc/*: updated for 2.1 release. * tkcon.tcl: allowed 'tkcon font ...' and 'tkcon buffer ...' to work before the main console have been created. Changed "TkCon" -> "tkcon", updated for new release. 2001-03-28 Jeff Hobbs * tkcon.tcl (::tkcon::Init): added safe interp check around 'cd' call for Macs 2000-10-30 Jeff Hobbs * tkcon.tcl (dir): fixed bug where permissions wouldn't print correctly if user had no permissions. (kuchler) 2000-10-18 Jeff Hobbs * tkcon.tcl (::tkcon::NamespacesList): corrected to not use window starting with an uppercase letter (error). (reins) 2000-09-27 Jeff Hobbs * tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers). 2000-09-20 Jeff Hobbs * tkcon.tcl (InitMenus): restricted the Attach Socket functionality to Tcl 8.3+ due to use of [file channels]. (InitUI): fixed Configure binding to use correct namespace for OPT (EvalSocket, EvalSend, EvalAttached): cleaned up to require that they accept only one arg as the command string to be evaluated. Prior behavior left some ambiguity as to what was eval'ed where. EvalOther, EvalSlave may need some sanitation as well. (EvalCmd): Changed EvalSocket functionality to have the \'s substituted before sending data, to allow for special chars to be added to the string. 2000-09-19 Jeff Hobbs * tkcon.tcl (::tkcon::InitUI): corrected plugin handling, as 'wm withdraw' worked, but 'wm deiconify' was disallowed. * docs/plugin.html: updated link to plugin source * docs/changes.txt: noted that changes.txt is no longer updated in favor of this ChangeLog * index.html: updated page with sourceforge links * index.html: added toplevel html index doc * tkcon.tcl: updated v2.0 to v2.1 alpha version All tkcon procedures have been namespaced, except for the ones that are visible to the user. TkCon has added the ability to attach to other displays or a socket. * tkcon.tcl: updated v1.6 to v2.0 version, tagged tkcon-2-0 This is the first version to require 8.0+ to run, although it will still connect to older interps. * tkcon.tcl: updated v1.5 to v1.6 version, tagged tkcon-1-6 * tkcon.tcl: updated v1.4 to v1.5 version, tagged tkcon-1-5 * tkcon.tcl: updated v1.3 to v1.4 version, tagged tkcon-1-4 * tkcon.tcl: updated v1.2 to v1.3 version, tagged tkcon-1-3 * tkcon.tcl: updated v1.1 to v1.2 version, tagged tkcon-1-2 * tkcon.tcl: updated v1.03 to v1.1 version, tagged tkcon-1-1 * tkcon.tcl: updated v1.02 to v1.03 version, tagged tkcon-1-03 * tkcon.tcl: updated v0.71 to v1.02 version, tagged tkcon-1-02 * tkcon.tcl: updated v0.69 to v0.71 version, tagged tkcon-0-71 * tkcon.tcl: updated v0.68 to v0.69 version, tagged tkcon-0-69 * tkcon.tcl: updated v0.67 to v0.68 version, tagged tkcon-0-68 * tkcon.tcl: updated v0.66 to v0.67 version, tagged tkcon-0-67 * tkcon.tcl: updated v0.65 to v0.66 version, tagged tkcon-0-66 * tkcon.tcl: updated v0.64 to v0.65 version, tagged tkcon-0-65 * tkcon.tcl: updated v0.63 to v0.64 version, tagged tkcon-0-64 * tkcon.tcl: updated v0.52 to v0.63 version, tagged tkcon-0-63 * ChangeLog: added a ChangeLog tkcon-2.7.3/Makefile.in000066400000000000000000000405541357645571500147400ustar00rootroot00000000000000# 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) 2002-2005 ActiveState Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. #======================================================================== # Add additional lines to handle any additional AC_SUBST cases that # have been added in a customized configure script. #======================================================================== #SAMPLE_NEW_VAR = @SAMPLE_NEW_VAR@ #======================================================================== # Nothing of the variables below this line should 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) or in the generic, win or unix subdirectory. #======================================================================== PKG_SOURCES = @PKG_SOURCES@ PKG_OBJECTS = @PKG_OBJECTS@ PKG_STUB_SOURCES = @PKG_STUB_SOURCES@ PKG_STUB_OBJECTS = @PKG_STUB_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_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@ includedir = @includedir@ datarootdir = @datarootdir@ datadir = @datadir@ mandir = @mandir@ DESTDIR = PKG_DIR = $(PACKAGE_NAME)$(PACKAGE_VERSION) pkgdatadir = $(datadir)/$(PKG_DIR) pkglibdir = $(libdir)/$(PKG_DIR) pkgincludedir = $(includedir)/$(PKG_DIR) top_builddir = @abs_top_builddir@ INSTALL_OPTIONS = INSTALL = @INSTALL@ $(INSTALL_OPTIONS) INSTALL_DATA_DIR = ${INSTALL} -d -m 755 INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_LIBRARY = ${INSTALL_DATA} PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_VERSION = @PACKAGE_VERSION@ CC = @CC@ CFLAGS_DEFAULT = @CFLAGS_DEFAULT@ CFLAGS_WARNING = @CFLAGS_WARNING@ 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_BIN_DIR = @TCL_BIN_DIR@ TCL_SRC_DIR = @TCL_SRC_DIR@ #TK_BIN_DIR = @TK_BIN_DIR@ #TK_SRC_DIR = @TK_SRC_DIR@ # Not used, but retained for reference of what libs Tcl required #TCL_LIBS = @TCL_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) #EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR) TCLLIBPATH = $(top_builddir) TCLSH_ENV = TCL_LIBRARY=`@CYGPATH@ $(TCL_SRC_DIR)/library` PKG_ENV = @LD_LIBRARY_PATH_VAR@="$(EXTRA_PATH):$(@LD_LIBRARY_PATH_VAR@)" \ PATH="$(EXTRA_PATH):$(PATH)" \ TCLLIBPATH="$(TCLLIBPATH)" TCLSH_PROG = @TCLSH_PROG@ TCLSH = $(TCLSH_ENV) $(PKG_ENV) $(TCLSH_PROG) #WISH_ENV = TK_LIBRARY=`@CYGPATH@ $(TK_SRC_DIR)/library` #WISH_PROG = @WISH_PROG@ #WISH = $(TCLSH_ENV) $(WISH_ENV) $(PKG_ENV) $(WISH_PROG) SHARED_BUILD = @SHARED_BUILD@ INCLUDES = @PKG_INCLUDES@ @TCL_INCLUDES@ #INCLUDES = @PKG_INCLUDES@ @TCL_INCLUDES@ @TK_INCLUDES@ @TK_XINCLUDES@ PKG_CFLAGS = @PKG_CFLAGS@ # TCL_DEFS is not strictly need here, but if you remove it, then you # must make sure that configure.ac checks for the necessary components # that your library may use. TCL_DEFS can actually be a problem if # you do not compile with a similar machine setup as the Tcl core was # compiled with. #DEFS = $(TCL_DEFS) @DEFS@ $(PKG_CFLAGS) DEFS = @DEFS@ $(PKG_CFLAGS) # Move pkgIndex.tcl to 'BINARIES' var if it is generated in the Makefile CONFIG_CLEAN_FILES = Makefile CLEANFILES = @CLEANFILES@ CPPFLAGS = @CPPFLAGS@ LIBS = @PKG_LIBS@ @LIBS@ AR = @AR@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) \ $(CFLAGS_DEFAULT) $(CFLAGS_WARNING) $(SHLIB_CFLAGS) $(CFLAGS) GDB = gdb VALGRIND = valgrind VALGRINDARGS = --tool=memcheck --num-callers=8 --leak-resolution=high \ --leak-check=yes --show-reachable=yes -v .SUFFIXES: .c .$(OBJEXT) #======================================================================== # Start of user-definable TARGETS section #======================================================================== #======================================================================== # TEA TARGETS. Please note that the "libraries:" target refers to platform # independent files, and the "binaries:" target includes 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) libraries: #======================================================================== # Your doc target should differentiate from doc builds (by the developer) # and doc installs (see install-doc), which just install the docs on the # end user machine when building from source. #======================================================================== doc: @echo "If you have documentation to create, place the commands to" @echo "build the docs in the 'doc:' target. For example:" @echo " xml2nroff sample.xml > sample.n" @echo " xml2html sample.xml > sample.html" install: all install-binaries install-libraries #install-doc install-binaries: binaries install-lib-binaries install-bin-binaries #======================================================================== # This rule installs platform-independent files, such as header files. # The list=...; for p in $$list handles the empty list case x-platform. #======================================================================== install-libraries: libraries @$(INSTALL_DATA_DIR) $(DESTDIR)$(includedir) @echo "Installing header files in $(DESTDIR)$(includedir)" @list='$(PKG_HEADERS)'; for i in $$list; do \ echo "Installing $(srcdir)/$$i" ; \ $(INSTALL_DATA) $(srcdir)/$$i $(DESTDIR)$(includedir) ; \ done; #======================================================================== # Install documentation. Unix manpages should go in the $(mandir) # directory. #======================================================================== install-doc: doc @$(INSTALL_DATA_DIR) $(DESTDIR)$(mandir)/mann @echo "Installing documentation in $(DESTDIR)$(mandir)" @list='$(srcdir)/doc/*.n'; for i in $$list; do \ echo "Installing $$i"; \ $(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/mann ; \ done test: binaries libraries $(TCLSH) `@CYGPATH@ $(srcdir)/tests/all.tcl` $(TESTFLAGS) \ -load "package ifneeded $(PACKAGE_NAME) $(PACKAGE_VERSION) \ [list load `@CYGPATH@ $(PKG_LIB_FILE)` $(PACKAGE_NAME)]" shell: binaries libraries @$(TCLSH) $(SCRIPT) gdb: $(TCLSH_ENV) $(PKG_ENV) $(GDB) $(TCLSH_PROG) $(SCRIPT) gdb-test: binaries libraries $(TCLSH_ENV) $(PKG_ENV) $(GDB) \ --args $(TCLSH_PROG) `@CYGPATH@ $(srcdir)/tests/all.tcl` \ $(TESTFLAGS) -singleproc 1 \ -load "package ifneeded $(PACKAGE_NAME) $(PACKAGE_VERSION) \ [list load `@CYGPATH@ $(PKG_LIB_FILE)` $(PACKAGE_NAME)]" valgrind: binaries libraries $(TCLSH_ENV) $(PKG_ENV) $(VALGRIND) $(VALGRINDARGS) $(TCLSH_PROG) \ `@CYGPATH@ $(srcdir)/tests/all.tcl` $(TESTFLAGS) valgrindshell: binaries libraries $(TCLSH_ENV) $(PKG_ENV) $(VALGRIND) $(VALGRINDARGS) $(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) $(PKG_STUB_LIB_FILE): $(PKG_STUB_OBJECTS) -rm -f $(PKG_STUB_LIB_FILE) ${MAKE_STUB_LIB} $(RANLIB_STUB) $(PKG_STUB_LIB_FILE) #======================================================================== # We need to enumerate the list of .c to .o lines here. # # 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: # # sample.$(OBJEXT): $(srcdir)/generic/sample.c # $(COMPILE) -c `@CYGPATH@ $(srcdir)/generic/sample.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. # As necessary, add $(srcdir):$(srcdir)/compat:.... #======================================================================== VPATH = $(srcdir):$(srcdir)/generic:$(srcdir)/unix:$(srcdir)/win:$(srcdir)/macosx .c.@OBJEXT@: $(COMPILE) -c `@CYGPATH@ $<` -o $@ #======================================================================== # Distribution creation # You may need to tweak this target to make it work correctly. #======================================================================== #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_INSTALL_DATA = CPPROG='cp -p' $(INSTALL) -m 644 DIST_INSTALL_SCRIPT = CPPROG='cp -p' $(INSTALL) -m 755 dist-clean: rm -rf $(DIST_DIR) $(DIST_ROOT)/$(PKG_DIR).tar.* dist: dist-clean $(INSTALL_DATA_DIR) $(DIST_DIR) # TEA files $(DIST_INSTALL_DATA) $(srcdir)/Makefile.in \ $(srcdir)/aclocal.m4 $(srcdir)/configure.ac \ $(DIST_DIR)/ $(DIST_INSTALL_SCRIPT) $(srcdir)/configure $(DIST_DIR)/ $(INSTALL_DATA_DIR) $(DIST_DIR)/tclconfig $(DIST_INSTALL_DATA) $(srcdir)/tclconfig/README.txt \ $(srcdir)/tclconfig/tcl.m4 $(srcdir)/tclconfig/install-sh \ $(DIST_DIR)/tclconfig/ # Extension files $(DIST_INSTALL_DATA) \ $(srcdir)/ChangeLog \ $(srcdir)/README.sha \ $(srcdir)/license.terms \ $(srcdir)/README \ $(srcdir)/pkgIndex.tcl.in \ $(DIST_DIR)/ list='demos doc generic library mac tests unix win'; \ for p in $$list; do \ if test -d $(srcdir)/$$p ; then \ $(INSTALL_DATA_DIR) $(DIST_DIR)/$$p; \ $(DIST_INSTALL_DATA) $(srcdir)/$$p/* $(DIST_DIR)/$$p/; \ fi; \ done (cd $(DIST_ROOT); $(COMPRESS);) #======================================================================== # End of user-definable section #======================================================================== #======================================================================== # Don't modify the file to clean here. Instead, set the "CLEANFILES" # variable in configure.ac #======================================================================== 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. # Library files go into the lib directory. # In addition, this will generate the pkgIndex.tcl # file in the install location (assuming it can find a usable tclsh shell) # # You should not have to modify this target. #======================================================================== install-lib-binaries: binaries @$(INSTALL_DATA_DIR) $(DESTDIR)$(pkglibdir) @list='$(lib_BINARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_LIBRARY) $$p $(DESTDIR)$(pkglibdir)/$$p"; \ $(INSTALL_LIBRARY) $$p $(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 @if test "x$(SHARED_BUILD)" = "x1"; then \ echo " Install pkgIndex.tcl $(DESTDIR)$(pkglibdir)"; \ $(INSTALL_DATA) pkgIndex.tcl $(DESTDIR)$(pkglibdir); \ fi #======================================================================== # Install binary executables (e.g. .exe files and dependent .dll files) # This is for files that must go in the bin directory (located next to # wish and tclsh), like dependent .dll files on Windows. # # You should not have to modify this target, except to define bin_BINARIES # above if necessary. #======================================================================== install-bin-binaries: binaries @$(INSTALL_DATA_DIR) $(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 .PHONY: all binaries clean depend distclean doc install libraries test .PHONY: gdb gdb-test valgrind valgrindshell # 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: tkcon-2.7.3/README.txt000066400000000000000000000031561357645571500143660ustar00rootroot00000000000000WHAT: Enhanced Tk Console for all Tk platforms WHERE: http://tkcon.sourceforge.net/ http://www.purl.org/net/hobbs/tcl/script/ REQUIREMENTS: Tcl/Tk 8.4+ Tested through Tcl/Tk 8.6. tkcon is all Tcl/Tk code, no compiling required tkcon is a replacement for the standard console that comes with Tk (on Windows/Mac, but also works on Unix). tkcon provides many more features than the standard console and works on all platforms where Tcl/Tk is available. It is meant primarily to aid one when working with the little details inside tcl and tk and to give Unix users the GUI console provided by default in the Mac and Windows Tk. FEATURES: Command history Path (Unix style) / Proc / Variable name expansion Multiple and tabbed consoles, each with its own state (via multiple interpreters) Captures stdout and stderr to console window (puts overridden) Hot errors (click on error result to see stack trace) Electric character matching (a la emacs) Electric proc highlighting Enhanced history searching Configurable Cut / Copy / Paste between windows (interoperates with native platform) Communication between consoles and other Tk interpreters (including non-tcl ones) Works on all Tk platforms CONTACT: Jeffrey Hobbs, jeff at hobbs dot org GETTING STARTED: tkcon is a single drop-in file. On Windows, I place this on the desktop and double-click on it instead of wish/tclsh. On Unix and OS X, I place it in a directory on my path and run this instead of wish. Documentation can be reading by starting with index.html in the docs/ subdirectory. Happying Tcl'ing! tkcon-2.7.3/aclocal.m4000066400000000000000000000002231357645571500145200ustar00rootroot00000000000000# # Include the TEA standard macro set # builtin(include,tclconfig/tcl.m4) # # Add here whatever m4 macros you want to define for your package # tkcon-2.7.3/configure000077500000000000000000005430531357645571500146040ustar00rootroot00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69 for tkcon 2.7. # # # Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then _as_can_reexec=no; export _as_can_reexec; # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 as_fn_exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, $0: including any error possibly output before this $0: message. Then install a modern shell, or manually run $0: the script under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='tkcon' PACKAGE_TARNAME='tkcon' PACKAGE_VERSION='2.7' PACKAGE_STRING='tkcon 2.7' PACKAGE_BUGREPORT='' PACKAGE_URL='' # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef STDC_HEADERS # include # include #else # ifdef HAVE_STDLIB_H # include # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include # endif # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_subst_vars='LTLIBOBJS LIBOBJS PKG_OBJECTS PKG_SOURCES EGREP GREP RANLIB SET_MAKE CPP TK_XINCLUDES TK_LIBS TK_STUB_LIB_SPEC TK_STUB_LIB_FLAG TK_STUB_LIB_FILE TK_LIB_SPEC TK_LIB_FLAG TK_LIB_FILE TK_SRC_DIR TK_BIN_DIR TK_VERSION TCL_SHLIB_LD_LIBS TCL_LD_FLAGS TCL_EXTRA_CFLAGS TCL_DEFS TCL_LIBS CLEANFILES OBJEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC TCL_STUB_LIB_SPEC TCL_STUB_LIB_FLAG TCL_STUB_LIB_FILE TCL_LIB_SPEC TCL_LIB_FLAG TCL_LIB_FILE TCL_SRC_DIR TCL_BIN_DIR TCL_PATCH_LEVEL TCL_VERSION INSTALL_LIBRARY INSTALL_SCRIPT INSTALL_PROGRAM INSTALL_DATA INSTALL_DATA_DIR INSTALL PKG_CFLAGS PKG_LIBS PKG_INCLUDES PKG_HEADERS PKG_TCL_SOURCES PKG_STUB_OBJECTS PKG_STUB_SOURCES PKG_STUB_LIB_FILE PKG_LIB_FILE EXEEXT CYGPATH target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking with_tcl with_tk ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) as_fn_error $? "unrecognized option: \`$ac_option' Try \`$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures tkcon 2.7 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/tkcon] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of tkcon 2.7:";; esac cat <<\_ACEOF Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-tcl directory containing tcl configuration (tclConfig.sh) --with-tk directory containing tk configuration (tkConfig.sh) Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to the package provider. _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF tkcon configure 2.7 generated by GNU Autoconf 2.69 Copyright (C) 2012 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by tkcon $as_me 2.7, which was generated by GNU Autoconf 2.69. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. $as_echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo $as_echo "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo $as_echo "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then $as_echo "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then $as_echo "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && $as_echo "$as_me: caught signal $ac_signal" $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h $as_echo "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_URL "$PACKAGE_URL" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. ac_site_file1=NONE ac_site_file2=NONE if test -n "$CONFIG_SITE"; then # We do not want a PATH search for config.site. case $CONFIG_SITE in #(( -*) ac_site_file1=./$CONFIG_SITE;; */*) ac_site_file1=$CONFIG_SITE;; *) ac_site_file1=./$CONFIG_SITE;; esac elif test "x$prefix" != xNONE; then ac_site_file1=$prefix/share/config.site ac_site_file2=$prefix/etc/config.site else ac_site_file1=$ac_default_prefix/share/config.site ac_site_file2=$ac_default_prefix/etc/config.site fi for ac_site_file in "$ac_site_file1" "$ac_site_file2" do test "x$ac_site_file" = xNONE && continue if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 $as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 $as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 $as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 $as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 $as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 $as_echo "$as_me: former value: \`$ac_old_val'" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 $as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu #-------------------------------------------------------------------- # 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_VERSION="3.13" { $as_echo "$as_me:${as_lineno-$LINENO}: checking TEA configuration" >&5 $as_echo_n "checking TEA configuration... " >&6; } if test x"${PACKAGE_NAME}" = x ; then as_fn_error $? " The PACKAGE_NAME variable must be defined by your TEA configure.ac" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok (TEA ${TEA_VERSION})" >&5 $as_echo "ok (TEA ${TEA_VERSION})" >&6; } # If the user did not set CFLAGS, set it now to keep macros # like AC_PROG_CC and AC_TRY_COMPILE from adding "-g -O2". if test "${CFLAGS+set}" != "set" ; then CFLAGS="" fi case "`uname -s`" in *win32*|*WIN32*|*MINGW32_*|*MINGW64_*) # Extract the first word of "cygpath", so it can be a program name with args. set dummy cygpath; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CYGPATH+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CYGPATH"; then ac_cv_prog_CYGPATH="$CYGPATH" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CYGPATH="cygpath -m" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS test -z "$ac_cv_prog_CYGPATH" && ac_cv_prog_CYGPATH="echo" fi fi CYGPATH=$ac_cv_prog_CYGPATH if test -n "$CYGPATH"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CYGPATH" >&5 $as_echo "$CYGPATH" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi EXEEXT=".exe" TEA_PLATFORM="windows" ;; *CYGWIN_*) EXEEXT=".exe" # CYGPATH and TEA_PLATFORM are determined later in LOAD_TCLCONFIG ;; *) CYGPATH=echo # Maybe we are cross-compiling.... case ${host_alias} in *mingw32*) EXEEXT=".exe" TEA_PLATFORM="windows" ;; *) EXEEXT="" TEA_PLATFORM="unix" ;; esac ;; esac # Check if exec_prefix is set. If not use fall back to prefix. # Note when adjusted, so that TEA_PREFIX can correct for this. # This is needed for recursive configures, since autoconf propagates # $prefix, but not $exec_prefix (doh!). if test x$exec_prefix = xNONE ; then exec_prefix_default=yes exec_prefix=$prefix fi { $as_echo "$as_me:${as_lineno-$LINENO}: configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}" >&5 $as_echo "$as_me: configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}" >&6;} # This package name must be replaced statically for AC_SUBST to work # Substitute STUB_LIB_FILE in case package creates a stub library too. # We AC_SUBST these here to ensure they are subst'ed, # in case the user doesn't call TEA_ADD_... # Configure the installer. INSTALL='$(SHELL) $(srcdir)/tclconfig/install-sh -c' INSTALL_DATA_DIR='${INSTALL} -d -m 755' INSTALL_DATA='${INSTALL} -m 644' INSTALL_PROGRAM='${INSTALL} -m 755' INSTALL_SCRIPT='${INSTALL} -m 755' { $as_echo "$as_me:${as_lineno-$LINENO}: checking system version" >&5 $as_echo_n "checking system version... " >&6; } if ${tcl_cv_sys_version+:} false; then : $as_echo_n "(cached) " >&6 else # TEA specific: if test "${TEA_PLATFORM}" = "windows" ; then tcl_cv_sys_version=windows else tcl_cv_sys_version=`uname -s`-`uname -r` if test "$?" -ne 0 ; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: can't find uname command" >&5 $as_echo "$as_me: WARNING: can't find uname command" >&2;} tcl_cv_sys_version=unknown else if test "`uname -s`" = "AIX" ; then tcl_cv_sys_version=AIX-`uname -v`.`uname -r` fi fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_sys_version" >&5 $as_echo "$tcl_cv_sys_version" >&6; } system=$tcl_cv_sys_version case $system in HP-UX-*) INSTALL_LIBRARY='${INSTALL} -m 755' ;; *) INSTALL_LIBRARY='${INSTALL} -m 644' ;; esac ac_aux_dir= for ac_dir in tclconfig "$srcdir"/tclconfig; do if test -f "$ac_dir/install-sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f "$ac_dir/install.sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f "$ac_dir/shtool"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then as_fn_error $? "cannot find install-sh, install.sh, or shtool in tclconfig \"$srcdir\"/tclconfig" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. #-------------------------------------------------------------------- # Load the tclConfig.sh file #-------------------------------------------------------------------- # # Ok, lets find the tcl configuration # First, look for one uninstalled. # the alternative search directory is invoked by --with-tcl # if test x"${no_tcl}" = x ; then # we reset no_tcl in case something fails here no_tcl=true # Check whether --with-tcl was given. if test "${with_tcl+set}" = set; then : withval=$with_tcl; with_tclconfig="${withval}" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tcl configuration" >&5 $as_echo_n "checking for Tcl configuration... " >&6; } if ${ac_cv_c_tclconfig+:} false; then : $as_echo_n "(cached) " >&6 else # First check to see if --with-tcl was specified. if test x"${with_tclconfig}" != x ; then case "${with_tclconfig}" in */tclConfig.sh ) if test -f "${with_tclconfig}"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: --with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself" >&5 $as_echo "$as_me: WARNING: --with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself" >&2;} with_tclconfig="`echo "${with_tclconfig}" | sed 's!/tclConfig\.sh$!!'`" fi ;; esac if test -f "${with_tclconfig}/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd "${with_tclconfig}"; pwd)`" else as_fn_error $? "${with_tclconfig} directory doesn't contain tclConfig.sh" "$LINENO" 5 fi fi # then check for a private Tcl installation if test x"${ac_cv_c_tclconfig}" = x ; then for i in \ ../tcl \ `ls -dr ../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ../tcl[8-9].[0-9] 2>/dev/null` \ `ls -dr ../tcl[8-9].[0-9]* 2>/dev/null` \ ../../tcl \ `ls -dr ../../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ../../tcl[8-9].[0-9] 2>/dev/null` \ `ls -dr ../../tcl[8-9].[0-9]* 2>/dev/null` \ ../../../tcl \ `ls -dr ../../../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ../../../tcl[8-9].[0-9] 2>/dev/null` \ `ls -dr ../../../tcl[8-9].[0-9]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/unix; pwd)`" break fi done fi # on Darwin, check in Framework installation locations if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tclconfig}" = x ; then for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ `ls -d /Library/Frameworks 2>/dev/null` \ `ls -d /Network/Library/Frameworks 2>/dev/null` \ `ls -d /System/Library/Frameworks 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \ ; do if test -f "$i/Tcl.framework/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/Tcl.framework; pwd)`" break fi done fi # TEA specific: on Windows, check in common installation locations if test "${TEA_PLATFORM}" = "windows" \ -a x"${ac_cv_c_tclconfig}" = x ; then for i in `ls -d C:/Tcl/lib 2>/dev/null` \ `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ ; do if test -f "$i/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i; pwd)`" break fi done fi # check in a few common install locations if test x"${ac_cv_c_tclconfig}" = x ; then for i in `ls -d ${libdir} 2>/dev/null` \ `ls -d ${exec_prefix}/lib 2>/dev/null` \ `ls -d ${prefix}/lib 2>/dev/null` \ `ls -d /usr/local/lib 2>/dev/null` \ `ls -d /usr/contrib/lib 2>/dev/null` \ `ls -d /usr/pkg/lib 2>/dev/null` \ `ls -d /usr/lib 2>/dev/null` \ `ls -d /usr/lib64 2>/dev/null` \ `ls -d /usr/lib/tcl8.6 2>/dev/null` \ `ls -d /usr/lib/tcl8.5 2>/dev/null` \ `ls -d /usr/local/lib/tcl8.6 2>/dev/null` \ `ls -d /usr/local/lib/tcl8.5 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tcl8.6 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tcl8.5 2>/dev/null` \ ; do if test -f "$i/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i; pwd)`" break fi done fi # check in a few other private locations if test x"${ac_cv_c_tclconfig}" = x ; then for i in \ ${srcdir}/../tcl \ `ls -dr ${srcdir}/../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ${srcdir}/../tcl[8-9].[0-9] 2>/dev/null` \ `ls -dr ${srcdir}/../tcl[8-9].[0-9]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/unix; pwd)`" break fi done fi fi if test x"${ac_cv_c_tclconfig}" = x ; then TCL_BIN_DIR="# no Tcl configs found" as_fn_error $? "Can't find Tcl configuration definitions. Use --with-tcl to specify a directory containing tclConfig.sh" "$LINENO" 5 else no_tcl= TCL_BIN_DIR="${ac_cv_c_tclconfig}" { $as_echo "$as_me:${as_lineno-$LINENO}: result: found ${TCL_BIN_DIR}/tclConfig.sh" >&5 $as_echo "found ${TCL_BIN_DIR}/tclConfig.sh" >&6; } fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 $as_echo_n "checking whether the C compiler works... " >&6; } ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi if test -z "$ac_file"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 $as_echo_n "checking for C compiler default output file name... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 $as_echo "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 $as_echo_n "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest conftest$ac_cv_exeext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 $as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { FILE *f = fopen ("conftest.out", "w"); return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 $as_echo_n "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 $as_echo "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 $as_echo_n "checking for suffix of object files... " >&6; } if ${ac_cv_objext+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 $as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking for existence of ${TCL_BIN_DIR}/tclConfig.sh" >&5 $as_echo_n "checking for existence of ${TCL_BIN_DIR}/tclConfig.sh... " >&6; } if test -f "${TCL_BIN_DIR}/tclConfig.sh" ; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: loading" >&5 $as_echo "loading" >&6; } . "${TCL_BIN_DIR}/tclConfig.sh" else { $as_echo "$as_me:${as_lineno-$LINENO}: result: could not find ${TCL_BIN_DIR}/tclConfig.sh" >&5 $as_echo "could not find ${TCL_BIN_DIR}/tclConfig.sh" >&6; } fi # eval is required to do the TCL_DBGX substitution eval "TCL_LIB_FILE=\"${TCL_LIB_FILE}\"" eval "TCL_STUB_LIB_FILE=\"${TCL_STUB_LIB_FILE}\"" # If the TCL_BIN_DIR is the build directory (not the install directory), # then set the common variable name to the value of the build variables. # For example, the variable TCL_LIB_SPEC will be set to the value # of TCL_BUILD_LIB_SPEC. An extension should make use of TCL_LIB_SPEC # instead of TCL_BUILD_LIB_SPEC since it will work with both an # installed and uninstalled version of Tcl. if test -f "${TCL_BIN_DIR}/Makefile" ; then TCL_LIB_SPEC="${TCL_BUILD_LIB_SPEC}" TCL_STUB_LIB_SPEC="${TCL_BUILD_STUB_LIB_SPEC}" TCL_STUB_LIB_PATH="${TCL_BUILD_STUB_LIB_PATH}" elif test "`uname -s`" = "Darwin"; then # If Tcl was built as a framework, attempt to use the libraries # from the framework at the given location so that linking works # against Tcl.framework installed in an arbitrary location. case ${TCL_DEFS} in *TCL_FRAMEWORK*) if test -f "${TCL_BIN_DIR}/${TCL_LIB_FILE}"; then for i in "`cd "${TCL_BIN_DIR}"; pwd`" \ "`cd "${TCL_BIN_DIR}"/../..; pwd`"; do if test "`basename "$i"`" = "${TCL_LIB_FILE}.framework"; then TCL_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TCL_LIB_FILE}" break fi done fi if test -f "${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"; then TCL_STUB_LIB_SPEC="-L`echo "${TCL_BIN_DIR}" | sed -e 's/ /\\\\ /g'` ${TCL_STUB_LIB_FLAG}" TCL_STUB_LIB_PATH="${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}" fi ;; esac fi # eval is required to do the TCL_DBGX substitution eval "TCL_LIB_FLAG=\"${TCL_LIB_FLAG}\"" eval "TCL_LIB_SPEC=\"${TCL_LIB_SPEC}\"" eval "TCL_STUB_LIB_FLAG=\"${TCL_STUB_LIB_FLAG}\"" eval "TCL_STUB_LIB_SPEC=\"${TCL_STUB_LIB_SPEC}\"" { $as_echo "$as_me:${as_lineno-$LINENO}: checking platform" >&5 $as_echo_n "checking platform... " >&6; } hold_cc=$CC; CC="$TCL_CC" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifdef _WIN32 #error win32 #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : TEA_PLATFORM="unix" CYGPATH=echo else TEA_PLATFORM="windows" # Extract the first word of "cygpath", so it can be a program name with args. set dummy cygpath; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CYGPATH+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CYGPATH"; then ac_cv_prog_CYGPATH="$CYGPATH" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CYGPATH="cygpath -m" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS test -z "$ac_cv_prog_CYGPATH" && ac_cv_prog_CYGPATH="echo" fi fi CYGPATH=$ac_cv_prog_CYGPATH if test -n "$CYGPATH"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CYGPATH" >&5 $as_echo "$CYGPATH" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext CC=$hold_cc { $as_echo "$as_me:${as_lineno-$LINENO}: result: $TEA_PLATFORM" >&5 $as_echo "$TEA_PLATFORM" >&6; } # The BUILD_$pkg is to define the correct extern storage class # handling when making this package cat >>confdefs.h <<_ACEOF #define BUILD_${PACKAGE_NAME} /**/ _ACEOF # Do this here as we have fully defined TEA_PLATFORM now if test "${TEA_PLATFORM}" = "windows" ; then EXEEXT=".exe" CLEANFILES="$CLEANFILES *.lib *.dll *.pdb *.exp" fi # TEA specific: #-------------------------------------------------------------------- # Load the tkConfig.sh file if necessary (Tk extension) #-------------------------------------------------------------------- # # Ok, lets find the tk configuration # First, look for one uninstalled. # the alternative search directory is invoked by --with-tk # if test x"${no_tk}" = x ; then # we reset no_tk in case something fails here no_tk=true # Check whether --with-tk was given. if test "${with_tk+set}" = set; then : withval=$with_tk; with_tkconfig="${withval}" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tk configuration" >&5 $as_echo_n "checking for Tk configuration... " >&6; } if ${ac_cv_c_tkconfig+:} false; then : $as_echo_n "(cached) " >&6 else # First check to see if --with-tkconfig was specified. if test x"${with_tkconfig}" != x ; then case "${with_tkconfig}" in */tkConfig.sh ) if test -f "${with_tkconfig}"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: --with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself" >&5 $as_echo "$as_me: WARNING: --with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself" >&2;} with_tkconfig="`echo "${with_tkconfig}" | sed 's!/tkConfig\.sh$!!'`" fi ;; esac if test -f "${with_tkconfig}/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd "${with_tkconfig}"; pwd)`" else as_fn_error $? "${with_tkconfig} directory doesn't contain tkConfig.sh" "$LINENO" 5 fi fi # then check for a private Tk library if test x"${ac_cv_c_tkconfig}" = x ; then for i in \ ../tk \ `ls -dr ../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ../tk[8-9].[0-9] 2>/dev/null` \ `ls -dr ../tk[8-9].[0-9]* 2>/dev/null` \ ../../tk \ `ls -dr ../../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ../../tk[8-9].[0-9] 2>/dev/null` \ `ls -dr ../../tk[8-9].[0-9]* 2>/dev/null` \ ../../../tk \ `ls -dr ../../../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ../../../tk[8-9].[0-9] 2>/dev/null` \ `ls -dr ../../../tk[8-9].[0-9]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/unix; pwd)`" break fi done fi # on Darwin, check in Framework installation locations if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tkconfig}" = x ; then for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ `ls -d /Library/Frameworks 2>/dev/null` \ `ls -d /Network/Library/Frameworks 2>/dev/null` \ `ls -d /System/Library/Frameworks 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \ ; do if test -f "$i/Tk.framework/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/Tk.framework; pwd)`" break fi done fi # check in a few common install locations if test x"${ac_cv_c_tkconfig}" = x ; then for i in `ls -d ${libdir} 2>/dev/null` \ `ls -d ${exec_prefix}/lib 2>/dev/null` \ `ls -d ${prefix}/lib 2>/dev/null` \ `ls -d /usr/local/lib 2>/dev/null` \ `ls -d /usr/contrib/lib 2>/dev/null` \ `ls -d /usr/pkg/lib 2>/dev/null` \ `ls -d /usr/lib 2>/dev/null` \ `ls -d /usr/lib64 2>/dev/null` \ `ls -d /usr/lib/tk8.6 2>/dev/null` \ `ls -d /usr/lib/tk8.5 2>/dev/null` \ `ls -d /usr/local/lib/tk8.6 2>/dev/null` \ `ls -d /usr/local/lib/tk8.5 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tk8.6 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tk8.5 2>/dev/null` \ ; do if test -f "$i/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i; pwd)`" break fi done fi # TEA specific: on Windows, check in common installation locations if test "${TEA_PLATFORM}" = "windows" \ -a x"${ac_cv_c_tkconfig}" = x ; then for i in `ls -d C:/Tcl/lib 2>/dev/null` \ `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ ; do if test -f "$i/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i; pwd)`" break fi done fi # check in a few other private locations if test x"${ac_cv_c_tkconfig}" = x ; then for i in \ ${srcdir}/../tk \ `ls -dr ${srcdir}/../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ `ls -dr ${srcdir}/../tk[8-9].[0-9] 2>/dev/null` \ `ls -dr ${srcdir}/../tk[8-9].[0-9]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/unix; pwd)`" break fi done fi fi if test x"${ac_cv_c_tkconfig}" = x ; then TK_BIN_DIR="# no Tk configs found" as_fn_error $? "Can't find Tk configuration definitions. Use --with-tk to specify a directory containing tkConfig.sh" "$LINENO" 5 else no_tk= TK_BIN_DIR="${ac_cv_c_tkconfig}" { $as_echo "$as_me:${as_lineno-$LINENO}: result: found ${TK_BIN_DIR}/tkConfig.sh" >&5 $as_echo "found ${TK_BIN_DIR}/tkConfig.sh" >&6; } fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for existence of ${TK_BIN_DIR}/tkConfig.sh" >&5 $as_echo_n "checking for existence of ${TK_BIN_DIR}/tkConfig.sh... " >&6; } if test -f "${TK_BIN_DIR}/tkConfig.sh" ; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: loading" >&5 $as_echo "loading" >&6; } . "${TK_BIN_DIR}/tkConfig.sh" else { $as_echo "$as_me:${as_lineno-$LINENO}: result: could not find ${TK_BIN_DIR}/tkConfig.sh" >&5 $as_echo "could not find ${TK_BIN_DIR}/tkConfig.sh" >&6; } fi # eval is required to do the TK_DBGX substitution eval "TK_LIB_FILE=\"${TK_LIB_FILE}\"" eval "TK_STUB_LIB_FILE=\"${TK_STUB_LIB_FILE}\"" # If the TK_BIN_DIR is the build directory (not the install directory), # then set the common variable name to the value of the build variables. # For example, the variable TK_LIB_SPEC will be set to the value # of TK_BUILD_LIB_SPEC. An extension should make use of TK_LIB_SPEC # instead of TK_BUILD_LIB_SPEC since it will work with both an # installed and uninstalled version of Tcl. if test -f "${TK_BIN_DIR}/Makefile" ; then TK_LIB_SPEC="${TK_BUILD_LIB_SPEC}" TK_STUB_LIB_SPEC="${TK_BUILD_STUB_LIB_SPEC}" TK_STUB_LIB_PATH="${TK_BUILD_STUB_LIB_PATH}" elif test "`uname -s`" = "Darwin"; then # If Tk was built as a framework, attempt to use the libraries # from the framework at the given location so that linking works # against Tk.framework installed in an arbitrary location. case ${TK_DEFS} in *TK_FRAMEWORK*) if test -f "${TK_BIN_DIR}/${TK_LIB_FILE}"; then for i in "`cd "${TK_BIN_DIR}"; pwd`" \ "`cd "${TK_BIN_DIR}"/../..; pwd`"; do if test "`basename "$i"`" = "${TK_LIB_FILE}.framework"; then TK_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TK_LIB_FILE}" break fi done fi if test -f "${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"; then TK_STUB_LIB_SPEC="-L` echo "${TK_BIN_DIR}" | sed -e 's/ /\\\\ /g'` ${TK_STUB_LIB_FLAG}" TK_STUB_LIB_PATH="${TK_BIN_DIR}/${TK_STUB_LIB_FILE}" fi ;; esac fi # eval is required to do the TK_DBGX substitution eval "TK_LIB_FLAG=\"${TK_LIB_FLAG}\"" eval "TK_LIB_SPEC=\"${TK_LIB_SPEC}\"" eval "TK_STUB_LIB_FLAG=\"${TK_STUB_LIB_FLAG}\"" eval "TK_STUB_LIB_SPEC=\"${TK_STUB_LIB_SPEC}\"" # TEA specific: Ensure windowingsystem is defined if test "${TEA_PLATFORM}" = "unix" ; then case ${TK_DEFS} in *MAC_OSX_TK*) $as_echo "#define MAC_OSX_TK 1" >>confdefs.h TEA_WINDOWINGSYSTEM="aqua" ;; *) TEA_WINDOWINGSYSTEM="x11" ;; esac elif test "${TEA_PLATFORM}" = "windows" ; then TEA_WINDOWINGSYSTEM="win32" fi # TEA specific: #----------------------------------------------------------------------- # Handle the --prefix=... option by defaulting to what Tcl gave. # Must be called after TEA_LOAD_TCLCONFIG and before TEA_SETUP_COMPILER. #----------------------------------------------------------------------- if test "${prefix}" = "NONE"; then prefix_default=yes if test x"${TCL_PREFIX}" != x; then { $as_echo "$as_me:${as_lineno-$LINENO}: --prefix defaulting to TCL_PREFIX ${TCL_PREFIX}" >&5 $as_echo "$as_me: --prefix defaulting to TCL_PREFIX ${TCL_PREFIX}" >&6;} prefix=${TCL_PREFIX} else { $as_echo "$as_me:${as_lineno-$LINENO}: --prefix defaulting to /usr/local" >&5 $as_echo "$as_me: --prefix defaulting to /usr/local" >&6;} prefix=/usr/local fi fi if test "${exec_prefix}" = "NONE" -a x"${prefix_default}" = x"yes" \ -o x"${exec_prefix_default}" = x"yes" ; then if test x"${TCL_EXEC_PREFIX}" != x; then { $as_echo "$as_me:${as_lineno-$LINENO}: --exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}" >&5 $as_echo "$as_me: --exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}" >&6;} exec_prefix=${TCL_EXEC_PREFIX} else { $as_echo "$as_me:${as_lineno-$LINENO}: --exec-prefix defaulting to ${prefix}" >&5 $as_echo "$as_me: --exec-prefix defaulting to ${prefix}" >&6;} exec_prefix=$prefix fi fi #----------------------------------------------------------------------- # Standard compiler checks. # This sets up CC by using the CC env var, or looks for gcc otherwise. # This also calls AC_PROG_CC and a few others to create the basic setup # necessary to compile executables. #----------------------------------------------------------------------- # Don't put any macros that use the compiler (e.g. AC_TRY_COMPILE) # in this macro, they need to go into TEA_SETUP_COMPILER instead. ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu #-------------------------------------------------------------------- # Checks to see if the make program sets the $MAKE variable. #-------------------------------------------------------------------- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi #-------------------------------------------------------------------- # Find ranlib #-------------------------------------------------------------------- if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi #-------------------------------------------------------------------- # Determines the correct binary file extension (.o, .obj, .exe etc.) #-------------------------------------------------------------------- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if ${ac_cv_path_GREP+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_GREP" || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if ${ac_cv_path_EGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_EGREP" || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default " if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done # Any macros that use the compiler (e.g. AC_TRY_COMPILE) have to go here. #------------------------------------------------------------------------ # If we're using GCC, see if the compiler understands -pipe. If so, use it. # It makes compiling go faster. (This is only a performance feature.) #------------------------------------------------------------------------ if test -z "$no_pipe" -a -n "$GCC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the compiler understands -pipe" >&5 $as_echo_n "checking if the compiler understands -pipe... " >&6; } if ${tcl_cv_cc_pipe+:} false; then : $as_echo_n "(cached) " >&6 else hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -pipe" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : tcl_cv_cc_pipe=yes else tcl_cv_cc_pipe=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext CFLAGS=$hold_cflags fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_cc_pipe" >&5 $as_echo "$tcl_cv_cc_pipe" >&6; } if test $tcl_cv_cc_pipe = yes; then CFLAGS="$CFLAGS -pipe" fi fi #-------------------------------------------------------------------- # Common compiler flag setup #-------------------------------------------------------------------- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5 $as_echo_n "checking whether byte ordering is bigendian... " >&6; } if ${ac_cv_c_bigendian+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_c_bigendian=unknown # See if we're dealing with a universal compiler. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef __APPLE_CC__ not a universal capable compiler #endif typedef int dummy; _ACEOF if ac_fn_c_try_compile "$LINENO"; then : # Check for potential -arch flags. It is not universal unless # there are at least two -arch flags with different values. ac_arch= ac_prev= for ac_word in $CC $CFLAGS $CPPFLAGS $LDFLAGS; do if test -n "$ac_prev"; then case $ac_word in i?86 | x86_64 | ppc | ppc64) if test -z "$ac_arch" || test "$ac_arch" = "$ac_word"; then ac_arch=$ac_word else ac_cv_c_bigendian=universal break fi ;; esac ac_prev= elif test "x$ac_word" = "x-arch"; then ac_prev=arch fi done fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_c_bigendian = unknown; then # See if sys/param.h defines the BYTE_ORDER macro. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { #if ! (defined BYTE_ORDER && defined BIG_ENDIAN \ && defined LITTLE_ENDIAN && BYTE_ORDER && BIG_ENDIAN \ && LITTLE_ENDIAN) bogus endian macros #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : # It does; now see whether it defined to BIG_ENDIAN or not. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { #if BYTE_ORDER != BIG_ENDIAN not big endian #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_bigendian=yes else ac_cv_c_bigendian=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi if test $ac_cv_c_bigendian = unknown; then # See if defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris). cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { #if ! (defined _LITTLE_ENDIAN || defined _BIG_ENDIAN) bogus endian macros #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : # It does; now see whether it defined to _BIG_ENDIAN or not. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { #ifndef _BIG_ENDIAN not big endian #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_bigendian=yes else ac_cv_c_bigendian=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi if test $ac_cv_c_bigendian = unknown; then # Compile a test program. if test "$cross_compiling" = yes; then : # Try to guess by grepping values from an object file. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ short int ascii_mm[] = { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 }; short int ascii_ii[] = { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 }; int use_ascii (int i) { return ascii_mm[i] + ascii_ii[i]; } short int ebcdic_ii[] = { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 }; short int ebcdic_mm[] = { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 }; int use_ebcdic (int i) { return ebcdic_mm[i] + ebcdic_ii[i]; } extern int foo; int main () { return use_ascii (foo) == use_ebcdic (foo); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : if grep BIGenDianSyS conftest.$ac_objext >/dev/null; then ac_cv_c_bigendian=yes fi if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then if test "$ac_cv_c_bigendian" = unknown; then ac_cv_c_bigendian=no else # finding both strings is unlikely to happen, but who knows? ac_cv_c_bigendian=unknown fi fi fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default int main () { /* Are we little or big endian? From Harbison&Steele. */ union { long int l; char c[sizeof (long int)]; } u; u.l = 1; return u.c[sizeof (long int) - 1] == 1; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ac_cv_c_bigendian=no else ac_cv_c_bigendian=yes fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_bigendian" >&5 $as_echo "$ac_cv_c_bigendian" >&6; } case $ac_cv_c_bigendian in #( yes) $as_echo "#define WORDS_BIGENDIAN 1" >>confdefs.h ;; #( no) ;; #( universal) $as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h ;; #( *) as_fn_error $? "unknown endianness presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;; esac #----------------------------------------------------------------------- # __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. #----------------------------------------------------------------------- vars="" for i in $vars; do case $i in \$*) # allow $-var names PKG_SOURCES="$PKG_SOURCES $i" PKG_OBJECTS="$PKG_OBJECTS $i" ;; *) # check for existence - allows for generic/win/unix VPATH # To add more dirs here (like 'src'), you have to update VPATH # in Makefile.in as well if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ -a ! -f "${srcdir}/macosx/$i" \ ; then as_fn_error $? "could not find source file '$i'" "$LINENO" 5 fi PKG_SOURCES="$PKG_SOURCES $i" # this assumes it is in a VPATH dir i=`basename $i` # handle user calling this before or after TEA_SETUP_COMPILER if test x"${OBJEXT}" != x ; then j="`echo $i | sed -e 's/\.[^.]*$//'`.${OBJEXT}" else j="`echo $i | sed -e 's/\.[^.]*$//'`.\${OBJEXT}" fi PKG_OBJECTS="$PKG_OBJECTS $j" ;; esac done vars="" for i in $vars; do # check for existence, be strict because it is installed if test ! -f "${srcdir}/$i" ; then as_fn_error $? "could not find header file '${srcdir}/$i'" "$LINENO" 5 fi PKG_HEADERS="$PKG_HEADERS $i" done vars="" for i in $vars; do PKG_INCLUDES="$PKG_INCLUDES $i" done vars="" for i in $vars; do if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then # Convert foo.lib to -lfoo for GCC. No-op if not *.lib i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` fi PKG_LIBS="$PKG_LIBS $i" done PKG_CFLAGS="$PKG_CFLAGS " vars="" for i in $vars; do # check for existence - allows for generic/win/unix VPATH if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ -a ! -f "${srcdir}/macosx/$i" \ ; then as_fn_error $? "could not find stub source file '$i'" "$LINENO" 5 fi PKG_STUB_SOURCES="$PKG_STUB_SOURCES $i" # this assumes it is in a VPATH dir i=`basename $i` # handle user calling this before or after TEA_SETUP_COMPILER if test x"${OBJEXT}" != x ; then j="`echo $i | sed -e 's/\.[^.]*$//'`.${OBJEXT}" else j="`echo $i | sed -e 's/\.[^.]*$//'`.\${OBJEXT}" fi PKG_STUB_OBJECTS="$PKG_STUB_OBJECTS $j" done vars="tkcon.tcl" for i in $vars; do # check for existence, be strict because it is installed if test ! -f "${srcdir}/$i" ; then as_fn_error $? "could not find tcl source file '${srcdir}/$i'" "$LINENO" 5 fi PKG_TCL_SOURCES="$PKG_TCL_SOURCES $i" done #-------------------------------------------------------------------- # __CHANGE__ # # You can add more files to clean if your extension creates any extra # files by extending CLEANFILES. # Add pkgIndex.tcl if it is generated in the Makefile instead of ./configure # and change Makefile.in to move it from CONFIG_CLEAN_FILES to BINARIES var. # # A few miscellaneous platform-specific items: # TEA_ADD_* any platform specific compiler/build info here. #-------------------------------------------------------------------- #CLEANFILES="$CLEANFILES pkgIndex.tcl" if test "${TEA_PLATFORM}" = "windows" ; then # Ensure no empty if clauses : #TEA_ADD_SOURCES([win/winFile.c]) #TEA_ADD_INCLUDES([-I\"$(${CYGPATH} ${srcdir}/win)\"]) else # Ensure no empty else clauses : #TEA_ADD_SOURCES([unix/unixFile.c]) #TEA_ADD_LIBS([-lsuperfly]) fi #-------------------------------------------------------------------- # __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_LOAD_TCLCONFIG / TEA_LOAD_TKCONFIG #-------------------------------------------------------------------- #TEA_PUBLIC_TCL_HEADERS #TEA_PRIVATE_TCL_HEADERS #TEA_PUBLIC_TK_HEADERS #TEA_PRIVATE_TK_HEADERS #TEA_PATH_X #-------------------------------------------------------------------- # Check whether --enable-threads or --disable-threads was given. # This auto-enables if Tcl was compiled threaded. #-------------------------------------------------------------------- #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 #-------------------------------------------------------------------- # 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 #-------------------------------------------------------------------- # Determine the name of the tclsh and/or wish executables in the # Tcl and Tk build directories or the location they were installed # into. These paths are used to support running test cases only, # the Makefile should not be making use of these paths to generate # a pkgIndex.tcl file or anything else at extension build time. #-------------------------------------------------------------------- #TEA_PROG_TCLSH #TEA_PROG_WISH #-------------------------------------------------------------------- # Setup a *Config.sh.in configuration file. #-------------------------------------------------------------------- #TEA_EXPORT_CONFIG([sample]) #AC_SUBST(SAMPLE_VAR) #-------------------------------------------------------------------- # Specify files to substitute AC variables in. You may alternatively # have a special pkgIndex.tcl.in or other files which require # substituting the AC variables in. Include these here. #-------------------------------------------------------------------- ac_config_files="$ac_config_files Makefile" #AC_CONFIG_FILES([sampleConfig.sh]) #-------------------------------------------------------------------- # Finally, substitute all of the various values into the files # specified with AC_CONFIG_FILES. #-------------------------------------------------------------------- cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi else { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Transform confdefs.h into DEFS. # Protect against shell expansion while executing Makefile rules. # Protect against Makefile macro expansion. # # If the first sed substitution is executed (which looks for macros that # take arguments), then branch to the quote section. Otherwise, # look for a macro that doesn't take arguments. ac_script=' :mline /\\$/{ N s,\\\n,, b mline } t clear :clear s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g t quote s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g t quote b any :quote s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g s/\[/\\&/g s/\]/\\&/g s/\$/$$/g H :any ${ g s/^\n// s/\n/ /g p } ' DEFS=`sed -n "$ac_script" confdefs.h` ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs : "${CONFIG_STATUS=./config.status}" ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 $as_echo "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by tkcon $as_me 2.7, which was generated by GNU Autoconf 2.69. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_files in *" "*) set x $ac_config_files; shift; ac_config_files=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ \`$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE Configuration files: $config_files Report bugs to the package provider." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ tkcon config.status 2.7 configured by $0, generated by GNU Autoconf 2.69, with options \\"\$ac_cs_config\\" Copyright (C) 2012 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) $as_echo "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) $as_echo "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --he | --h | --help | --hel | -h ) $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: \`$1' Try \`$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX $as_echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # Set up the scripts for CONFIG_FILES section. # No need to generate them if there are no CONFIG_FILES. # This happens for instance with `./config.status config.h'. if test -n "$CONFIG_FILES"; then ac_cr=`echo X | tr X '\015'` # On cygwin, bash can eat \r inside `` if the user requested igncr. # But we know of no other shell where ac_cr would be empty at this # point, so we can use a bashism as a fallback. if test "x$ac_cr" = x; then eval ac_cr=\$\'\\r\' fi ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then ac_cs_awk_cr='\\r' else ac_cs_awk_cr=$ac_cr fi echo 'BEGIN {' >"$ac_tmp/subs1.awk" && _ACEOF { echo "cat >conf$$subs.awk <<_ACEOF" && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "_ACEOF" } >conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do . ./conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done rm -f conf$$subs.sh cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && _ACEOF sed -n ' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl t repl s/'"$ac_delim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t more1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n b repl :more1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t more2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :more2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim ' >$CONFIG_STATUS || ac_write_fail=1 rm -f conf$$subs.awk cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACAWK cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && for (key in S) S_is_set[key] = 1 FS = "" } { line = $ 0 nfields = split(line, field, "@") substed = 0 len = length(field[1]) for (i = 2; i < nfields; i++) { key = field[i] keylen = length(key) if (S_is_set[key]) { value = S[key] line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) len += length(value) + length(field[++i]) substed = 1 } else len += 1 + keylen } print line } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" else cat fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 _ACEOF # VPATH may cause trouble with some makes, so we remove sole $(srcdir), # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\$(srcdir):/:/g s/:\${srcdir}:/:/g s/:@srcdir@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" eval set X " :F $CONFIG_FILES " shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$ac_tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 $as_echo "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`$as_echo "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$ac_tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= ac_sed_dataroot=' /datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 $as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_sed_extra="$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_tmp/out"`; test -z "$ac_out"; } && { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&5 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$ac_tmp/stdin" case $ac_file in -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi tkcon-2.7.3/configure.ac000066400000000000000000000165201357645571500151550ustar00rootroot00000000000000#!/bin/bash -norc dnl This file is an input file used by the GNU "autoconf" program to dnl generate the file "configure", which is run during Tcl installation dnl to configure the system for the local environment. #----------------------------------------------------------------------- # Sample configure.ac 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. # This will also define a special symbol for Windows (BUILD_ # so that we create the export library with the dll. #----------------------------------------------------------------------- AC_INIT([tkcon], [2.7]) #-------------------------------------------------------------------- # 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() 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 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([]) TEA_ADD_HEADERS([]) TEA_ADD_INCLUDES([]) TEA_ADD_LIBS([]) TEA_ADD_CFLAGS([]) TEA_ADD_STUB_SOURCES([]) TEA_ADD_TCL_SOURCES([tkcon.tcl]) #-------------------------------------------------------------------- # __CHANGE__ # # You can add more files to clean if your extension creates any extra # files by extending CLEANFILES. # Add pkgIndex.tcl if it is generated in the Makefile instead of ./configure # and change Makefile.in to move it from CONFIG_CLEAN_FILES to BINARIES var. # # A few miscellaneous platform-specific items: # TEA_ADD_* any platform specific compiler/build info here. #-------------------------------------------------------------------- #CLEANFILES="$CLEANFILES pkgIndex.tcl" if test "${TEA_PLATFORM}" = "windows" ; then # Ensure no empty if clauses : #TEA_ADD_SOURCES([win/winFile.c]) #TEA_ADD_INCLUDES([-I\"$(${CYGPATH} ${srcdir}/win)\"]) else # Ensure no empty else clauses : #TEA_ADD_SOURCES([unix/unixFile.c]) #TEA_ADD_LIBS([-lsuperfly]) fi #-------------------------------------------------------------------- # __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_LOAD_TCLCONFIG / TEA_LOAD_TKCONFIG #-------------------------------------------------------------------- #TEA_PUBLIC_TCL_HEADERS #TEA_PRIVATE_TCL_HEADERS #TEA_PUBLIC_TK_HEADERS #TEA_PRIVATE_TK_HEADERS #TEA_PATH_X #-------------------------------------------------------------------- # Check whether --enable-threads or --disable-threads was given. # This auto-enables if Tcl was compiled threaded. #-------------------------------------------------------------------- #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 #-------------------------------------------------------------------- # 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 #-------------------------------------------------------------------- # Determine the name of the tclsh and/or wish executables in the # Tcl and Tk build directories or the location they were installed # into. These paths are used to support running test cases only, # the Makefile should not be making use of these paths to generate # a pkgIndex.tcl file or anything else at extension build time. #-------------------------------------------------------------------- #TEA_PROG_TCLSH #TEA_PROG_WISH #-------------------------------------------------------------------- # Setup a *Config.sh.in configuration file. #-------------------------------------------------------------------- #TEA_EXPORT_CONFIG([sample]) #AC_SUBST(SAMPLE_VAR) #-------------------------------------------------------------------- # Specify files to substitute AC variables in. You may alternatively # have a special pkgIndex.tcl.in or other files which require # substituting the AC variables in. Include these here. #-------------------------------------------------------------------- AC_CONFIG_FILES([Makefile]) #AC_CONFIG_FILES([sampleConfig.sh]) #-------------------------------------------------------------------- # Finally, substitute all of the various values into the files # specified with AC_CONFIG_FILES. #-------------------------------------------------------------------- AC_OUTPUT() tkcon-2.7.3/docs/000077500000000000000000000000001357645571500136135ustar00rootroot00000000000000tkcon-2.7.3/docs/bindings.html000077500000000000000000000133771357645571500163140ustar00rootroot00000000000000 tkcon: Special Bindings
tkcon: Special Bindings SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
Getting Started Special Bindings Procedures Screenshot
dump tkcon idebug observe

Most of the bindings are the same as for the Text widget. Some have been modified to make sure that the integrity of the console is maintained. Others have been added to enhance the usefulness of the console. Only the modified or new bindings are listed here.

Control-x or Cut (on Sparc5 keyboards)
Cut
Control-c or Copy (on Sparc5 keyboards)
Copy
Control-v or Paste (on Sparc5 keyboards)
Paste
Insert
Insert (duh).

Up
Goes up one level in the commands line history when cursor is on the prompt line, otherwise it moves through the buffer
Down
Goes down one level in the commands line history when cursor is on the last line of the buffer, otherwise it moves through the buffer
Control-p
Goes up one level in the commands line history
Control-n
Goes down one level in the commands line history

Tab
Tries to expand file path names, then variable names, then proc names.
Escape
Tries to expand file path names.
Control-P
Tries to expand procedure names. The procedure names will be those that are actually in the attached interpreter (unless nontcl is specified, in which case it always does the lookup in the default slave interpreter).
Control-V
Tries to expand variable names (those returned by [info vars]). It's search behavior is like that for procedure names.

Return or Enter
Evaluates the current command line if it is a complete command, otherwise it just goes to a new line
Control-a
Go to the beginning of the current command line
Control-l
Clear the entire console buffer
Control-r
Searches backwards in the history for any command that contains the string in the current command line. Repeatable to search farther back. The matching substring off the found command will blink.
Control-s
As above, but searches forward (only useful if you searched too far back).
Control-t
Transposes characters
Control-u
Clear the current command line
Control-z
Saves current command line in a buffer that can be retrieved with another Control-z. If the current command line is empty, then any saved command is retrieved without being overwritten, otherwise the current contents get swapped with what's in the saved command buffer.

Control-Key-1
Attaches console to the console's slave interpreter
Control-Key-2
Attaches console to the console's master interpreter
Control-Key-3
Attaches console to main TkCon interpreter
Control-A
Pops up the "About" dialog
Control-N
Creates a new console. Each console has separate state, including it's own widget hierarchy (it's a slave interpreter).
Control-q
Close the current console OR Quit the program (depends on the value of TKCON(slaveexit)).
Control-w
Closes the current console. Closing the main console will exit the program (something has to control all the slaves...)
TkCon also has electric bracing (similar to that in emacs). It will highlight matching pairs of {}'s, []'s, ()'s and ""'s. For the first three, if there is no matching left element for the right, then it blinks the entire current command line. For the double quote, if there is no proper match then it just blinks the current double quote character. It does properly recognize most escaping (except escaped escapes), but does not look for commenting (why would you interactively put comments in?).
© Jeffrey Hobbs
tkcon-2.7.3/docs/changes.txt000077500000000000000000000631271357645571500160000ustar00rootroot00000000000000ENHANCED TK CONSOLE changes ------------------------------------------------------------------------- Changes file begun Tue May 7 19:09:51 PDT 1996 Newest changes at top of file. Release dates between '----'s. Changes for a particular version are BELOW the release date line. Attribution for code is specified after change, a preceding slash indicates an idea/bug report attribution fixed by myself. Where no attribution is made, assume (Hobbs). ------------------------------------------------------------------------- THIS FILE IS NO LONGER PERTINENT. All changes are now recorded in the ChangeLog. ---- March 31 1999 v1.6 ---- Changed tkConInsert to not use catch (avoids any error generation). Changed if check on auto_load in tcl_unknown to an llength on the args (from [info tclversion]) as 8.0p0 also used just one arg. Added -exec command line arg, so that users could do the -exec "" trick (causes tkcon to skip multi-interpreter model) and makes it easier to drop tkcon as a console on extended wish executables. Changed handling of fixed font for all tkcon text widgets, adding new -font option, TKCON(font) var, and redoing 'tkcon font'. Added color,(disabled|cursor|bg) variables as per Becker's recommendations, allowing for old defaults. Changed multiple instances of string comparisons with llength, where appropriate. Changed dump proc to not try and auto_load a proc arg and improved recognition of procs in namespaces. Added new 'what' proc to environment that tells you what a string is recognized as. Now used in various other procs. Improved hot errors to not pop up edit dialog when the mouse moved. ---- March 5 1999 v1.5 ---- Expanded tkConSave to support use in 'edit'. Added tkConGarbageCollect proc for periodic cleanup tasks (currently, cleaning up error tags in the console widget), with new gc-delay TKCON var. Revised error handling (errors are now hot in the console). Changed tkConExpandPathname to recognise that NT for 8.1+ is case-sensitive, and to not change case for other Windows configs when no further expansion was made. Made changes to tkConEvalOther and the aliasing of tkConEvalAttached for "Main" for more accurate evaluation. Changed the conditional 'update' in tkcon_puts (that overrides the core puts) to 'update idletasks'. This prevents problems with using puts in fileevent triggers and such. Added check to prevent lower-casing during pathname expansion when no further expansion can be made on a string. New auto-buffer (default 512 lines, set in TKCON(buffer)) for the console widget. Set this ridiculously high if you liked the text widget holding all that data. New tkcon buffer method to go with it. Rewrote edit command. Previous version was mostly bogus when used outside the original slave. Change tkcon error to use updated 'edit' command. Massaged tkConEvalOther & tkConInterpEval. Fixed problem with Show Last Error where a TkCon generated error was always appearing (from Package Submenu) and moved it above the packages submenu. Removed auto_execok from the slaveprocs list. Removed slaveappalias as it didn't work correctly. Made 'edit' a slavealias, with tkConAttach used to determine where it was called from Changed some regexps around to pass tclCheck's mistaken warnings (tclCheck's bad matching, not bad regexps). Changed dump to not try widgets before commands, as otherwise it won't automatically complain. Fixed pathname completion to only beep when trying to expand on a non-existent subdirectory (instead of throwing no-directory error). Fixed a few notes that TclPro's checker picked up (only one actual bug in the all switch of 'edit', otherwise it was mostly blowing wind...). (lvirden) ---- February 17 1999 v1.4 ---- Changed "changes" file to "changes.txt". Added edit/more/less proc that allows for the viewing/editing and returning back to the slave of vars/procs or files. Modified history to not got below 0. lremove extended with -pattern arg. Added code in tcl_unknown to ask about loading Tk when someone tries a Tk command without Tk being loaded. Had to change regexps because \E in Tcl8.1a2 was removed in 8.1b1 (arg!). Added "Make Xauth Secure" button for Unix. (heiko.federhenn@stest.ch) Fixed tkConInitInterp (used by "Send TkCon Commands") to reattach to the named namespace when appropriate. Fixed bug in popup-menu for Tk8 (bound to wrong toplevel). Fixed bug in tcl_unknown confusing auto_load between 8.0 and 7.x. Made Interp->Package menu more dynamic, so it recognizes changes in auto_path and updates itself when Interp is torn-off. Removed list from $new in exec redirect for tcl_unknown. (found by Imai) Changed package menu to handle multiple package versions. Added bogus package require statement to master and slaves to ensure that pkgIndex.tcl files were properly loaded into interps. If "Main" is passed to tkConAttachNamespace, it is interpreted as "::". Changed "Attach Namespace" menu to provide a listbox popup when more than $TKCON(maxmenu) namespaces are present. ---- June 1998 v1.3 ---- fixed long-standing expr bug (missing '$') in tkConSafeBind - found by TclPro! took out the use of tkcon_gets because it only worked for global vars. ---- March 1998 v1.2 unreleased ---- updated regexps in some places to support 8.1 regexps. dump now outputs only non-default options for widgets. (ridgway) Sorted output list for multiple tab matched items. Several minor changes for the plugin (user should see no difference). Known problems with dump command understanding namespaces have been fixed, but only for the 8.0 only version. Changed tkConTagProc to recognize ';' as not part of a proc name. Changed tkConNew to reuse slave numbers. Fixed problem with TKCON(exec) == {} (needed uplevel #0 instead of eval). On Mac, tries to source itself using -rsrc (8.0). (nijtmans) Changed to use 8.0 menu scheme if possible. (nijtmans) Changed tkConInitSlave and tkConNew to only set argv0 in new slave if it exists (it won't in the plugin). (demailly) Changed tkConInit to only checkpoint state once if the slave interp and main interp are the same (TKCON(exec) == {}). ---- 08 October 1997 v1.1 ---- For Tk8, made TkCon use a fixed font {Courier, size 10} if the current font is not of fixed type. Startup errors should now be found in the TkCon last error function. Changed the Triple-1 binding to not include last newline. Added fix to make sure that double-evaluation of the command line didn't occur (might occur for commands that used vwait or something). TKCON(errorInfo) is now set with all the errors that occur during start-up, so that you don't lose stack trace information. ---- July 03 1997 v1.03 ---- Updated namespace eval stuff for Tk8.0b2. rewrote tkConSepCmd. ls is now "dir -full" by default. changed the puts renaming from tcl_puts to tkcon_tcl_puts (so that it specifies what renamed it). added variable highlighting to command highlighting as a background (so that a command and var can be seen for the same word). increased default history size to 48. Fixed problem where aliased exit couldn't take extra args. replaced old [tkcon gets] with a new UI version to be used with the new tkcon_gets that, like tkcon_puts, replaces the Tcl gets with a version that doesn't rely on stdin being present. [tkcon gets] now accepts no args. **** POTENTIAL INCOMPATIBILITY **** ---- June 10 1997 v1.02 ---- Changed calculator mode commands to be put in the history (but the output still looks like an error). Fixed bug where "source" was assumed to work for primary interp, causing failure to load in Tk plugin. Fixed problem with the id'ing of the primary TkCon interpreter that would affect attaching to like named interps. ---- June 8 1997 v1.01 ---- minor streamlining in tkConEvalCmd. added file menu and separated some items from console menu. added support for connecting directly to a namespace (itcl or Tcl8). Fixed several potential problems where args to tkConEvalAttached where not properly protected from eval. added slaveexit variable to allow for exit in slaves to be non-destructive, which is the new default. enhanced Tab binding, made Escape the default pathname-only expansion. enhanced dump and which commands. Removed auto_execok redefinition for Tcl7.5-. TkCon is now intended to only run in Tcl7.6+ interpreters (though attaching to 7.5- is still OK). Added Load/Save menus and expanded Save functionality. ---- June 1 1997 v1.00 ---- TkCon now use virtual events for bindings (REQUIRES TK4.2+) and changed Console to TkConsole (to not conflict with new Console megawidget). Updated tcl_unknown to match Tcl8's unknown. Changed handling of preferences directory for macintosh. **** POTENTIAL INCOMPATIBILITY **** Changed tkCon global var to TKCON. **** POTENTIAL INCOMPATIBILITY **** Changed colors to use absolute #RRGGBB format for color-name disadvantaged systems. Removed use of tkCon(font) variable. **** POTENTIAL INCOMPATIBILITY **** Fixed procname expansion to work on/in namespaces. Fixed pathname expansion to expand on a directory. Fixed all if's to use {}s (better for Tcl8). Fixed potential paste problems, it now tries to get the general selection first, then the CLIPBOARD selection. Fixed problem with 'puts' being renamed too early. Added calcmode variable to allow typing expr commands write at the tkCon command line without always saying expr (handled in tkConEvalCmd). ---- no official release v0.72 ---- Changed tkConAbout to use text widget so info could be selected. Fixed problem with pathname expansion on windows due to case insensitivity. (how can anyone work with such an insensitive OS?) Fixed off-by-one error in history substitution reported by . Fixed error in the handling of packages with a space in the name. Removed general return of output from rcfile, now only errors are returned. New tkConEvent proc to handle event movement, fixed search event problem where cached event would become incorrect. new blinkrange variable to change electric bracing style. ---- December 20th 1996 v0.71 ---- changed to not use upvar for nested arrays (bad for Tcl8). catch package require statement for detecting loadable libraries. ---- November 15th 1996 v0.70 ---- Fixed problem with virtual event C/C/P bindings. (reported by robin@jessikat.demon.co.uk) ---- November 15th 1996 v0.69 ---- Added auto_execok to tkCon(slaveprocs), fixes "unknown" command bug. Fix for 'event' to work with plugin. (nijtmans) Added '--' and '-filter' options to 'dump'. ---- November 13th 1996 v0.68 ---- Added $tk_library to auto_path for safe slaves loading Tk. (nijtmans) Made "r" the default mode for tkConSafeOpen. (nijtmans) Changed global delcarations in tkConInit to avoid conflicts with Nijtmans' plus patch. ---- November 11th 1996 v0.67 ---- Fixed weird backslashing in tkConSafeWindow ---- November 8th 1996 v0.66 ---- Further changes for Tk plugin compatibility. (nijtmans) ---- November 7th 1996 v0.65 ---- Started to add to plugin compatible code. (nijtmans) Reworked tkConFind* to accept optional args. Added History menu which display last ten commands in history. Removed 'auto_execpath' and changed for new version of 'auto_execok' (in 'which' and 'unknown'), which will be redefined when TkCon is run in Tcl7.5. The attached environment is now checkpointed at startup (by default this is the slave). Fixed 'dump var' to use list when printing out nested array elements Added 'update' to puts, as well as better error reporting for tcl_puts. (nijtmans) Improved bracing around elseif statements. Removed 'warn' alias from distribution. Seemed superfluous. Added support for requiring Tk in Tcl8+. Made TkCon use tkCon(cols) and tkCon(rows) for startup text size. ---- September 30th 1996 v0.64 ---- Changed the way 'idebug' integrates with TkCon. Changed to require Tk of version [expr $tcl_version-3.4]. Fixed bug in observe_var (upvar shouldn't have had the \#0). Made Interp->Inspect menu disappear if TkConInspect package was not present. Made package handling only enabled for Tcl7.5+ interps and reworked how packages were recognized. ! Removed virtual events from Console bindings so that they don't screw ! up the Console bindings (temporary fix). Changed how initially loaded packages were detected. (nijtmans) Made all globals visible in tkConInit. (/nijtmans) ---- September 23rd 1996 v0.63 ---- Changed 'tkConFindBox' to not screw up search string. ---- September 20th 1996 v0.62 ---- Added option for automagically ignoring dead interpreter problems. (wart) Fixed bug for reattaching to default slave via menu. (wart) Changed how 'observe' spit out trace info for commands. Modified 'idebug' internals. Made 'idebug' create its own tkCon(exec) slave for maintaining history. Fixed long-standing bug in 'lremove' for -all switch. Made tkCon(SCRIPT) follow links to the true source script. Added 'idebug puts' and 'idebug echo' methods. Fixed 'idebug break' to not work at level 0. Removed line that could improperly set $name and placed a 'catch' around the 'interp alias' for 'ls' in tkConInitInterp. tkConInit(Slave|Interp) now just 'catch'es the renaming of puts. Added 'tkcon set' and 'tkcon upvar' methods. (nijtmans) ---- September 17th 1996 v0.61 ---- Added 'idebug' interactive debugging proc based off Stephen Uhler's all-Tcl debugger (Oct'95 _Linux_Journal_). Should work w/ or w/o TkCon. Added back accidental removal of 'ls' alias in slaves. ---- September 15th 1996 v0.60 ---- Added 'tkcon find str' method and find box to TkCon. Added 'observe{_var}' command for simple tracing of vars/cmds with output in the TkCon console window. Reworked tkConFillAppsMenu to be more efficient and correct. Added 'echo' as an internal proc and included it in tkCon(slaveprocs). Removed tkCon(prompt2). Changed tkCon(lightcmd) default to 1 from 0. Improved 'tkcon error' to allow it to check the errorInfo of other apps. 'dump var' now outputs nested array values. (loverso) Changed tkCon(Load|Save) to use the new Tk4.2 dialogs if available. Fixed tkConPrompt problem where marks were set incorrectly sometimes when it was called by an event (such as ). Added bgerror to slaves and 'tkcon bgerror' method. (nijtmans) Added tcl_unknown along with other minor mods to get TkCon to work better with IncrTcl. (nijtmans) Made binding not include the prompt. Add null Console bindings for the tkCon(root) bindings to avoid them getting generated spuriously. (Hobbs / Wart) Added -argv/-- command line option. This has very limited use, but is very good for wrapping TkCon around an existing application which has it's own command line args. It resets $argv in the main interpreter to what remains on the command line and TkCon ignores argv. This carries over to any "New Consoles". Reintroduced state procedures, placed them in Interp menu. These should only be used if you really understand what they do. Added 'dump command' method. Usefulness over 'dump proc' is minimal. Tightened up the command line args, dropped several optional switches. Placed all the Console bindings into tkConBindings, which is called in tkConInitUI. Added 'tkConInitInterp' which places the tkCon shell commands (already available in any tkCon slave) in the interpreter. It also rewires puts to send the result back to tkCon. Fixed dead attachment problem where attaching to another interp after being connected to a dead interp would munge the new interp's name. (H / Wart) Added 'tkConEvalOther' which evals in the named interpreter. Removed 'tkConCheckPackages'. Package handling is now separated into the autoloading part in tkConInit and into tkConInterpMenu which determines available static libraries and packages for an interpreter. Menus redesigned. Changed 'tkcon eval' to 'tkcon master' since eval gave the wrong connotation. Made '-nontcl' option take a TCL_BOOLEAN argument. Made 'which' return unknown commands as an error. Added button into the help window to send the help URL to netscape. Made history substitution spit out a correctly translated command if evaluation doesn't return an error. Changed history search to use the same event id as regular command line history. Added tkCon(meta) variable which varies the Meta definition based on the platform (Unix == Meta; Win == Alt; Mac == Command) Added 'dump widget' method. Spits out current widget state as returned by '.widget configure'. Changed 'dump proc' and 'which' to try and auto_load an unknown procedure. Added 'tkcon history' command to return a source'able history stack. Fixed off-by-one error in tkConExpand (caused expansion to not work unless you were expanding the last thing on the line and also not if a special char was the first on the line). Fixed TkCon package handling to work properly for IncrTcl. (nijtmans) ---- July 31 1996 v0.52 ---- Reversed changes file to have newest at top. Added 'tkcon version' command. Fixed scoping problem when attaching to the master interpreter of a particular console. Rewrote the expansion routines to handle spaces in names better (no longer requires the user to use grouping as it puts in '\ ' for spaces). Fixed off-by-one bug in tkConExpandBestMatch(2). Rewired attachments so that when 'send' is used to attach to an app and an error occurs, TkCon determines whether the app still exists to prevent multiple errors from arising due to a dead attachment. If this occurs, it prompts the user on whether to return to the primary slave or to check periodically for the attached interpreter to come back. tkConEvalSend was added to facilitate this. Command highlighting is now only attempted when a non-empty character is inserted into the command line (%A != {}). Added Ctrl-2 accelerator to get attach to master interpreter of a console and Ctrl-3 to get to attach to the Main interpreter. Made the attachment to Main set the tkCon(app) to Main (to get around the menu -value {} bug) and also set tkConEvalAttached alias to 'tkConMain eval'. Rewrote tkConPrompt to accept "pre" and "post" args to place before and after the prompt is printed. pre is tagged stdout, post is tagged stdin. Rewrote 'dump var' to recognize nested arrays, but not output them (it's too complicated to do that in source'able form), as well as recognize empty arrays. Rewrote tkConEvalCmd to keep track of errorInfo when errors occur. Added 'tkcon error' to display the last errorInfo. Changed dumpproc and dumpvar to dump (proc|var) ... Added -root argument to set the tkCon(root) variable explicitly. Changed the -(slave)eval args to append to rather than set their vars so that they can be specified multiple times on the command line. Added a limit argument to tkConMatch{Quote,Pair}. Rewrote dumpvar to recognize a single array value name (ie: a(b)). Renamed default non-Unix resource filename from from tkcon.bat to tkcon.cfg. No longer 'catch' the renaming of puts in a slave, because we'd want to know if that threw an error, although it never should... ---- July 14 1996 v0.51 ---- Removed tkConUsage since it was never called. Changed tkCon(Load|Save) to use tkFileSelect, if it exists. Added -load and -pkg equivalents for -package. Added Ctrl-Key-1 binding to reattach to primary slave. TkCon now will create itself in a different toplevel if there are already children of . when tkConInit is called. Changed tkConInitSlave not to overwrite tcl_puts in a slave if it exists. Created tkCon(slaveprocs) to identify what procs get dumped into a slave each time and tkCon(slavealias) to identify what will be aliased back into the main interpreter. ---- July 4 1996 v0.50 ---- Number of history events to keep now set by tkCon(history). 'unknown' reworked (yet again) to properly handle itself in either the slave or another interpreter. History substition was moved into tkConEvalCmd and made an option (via tkCon(subhistory)). Inlined _dir into dir/ls. It doesn't save any cycles, but it removes the need to manage _dir. Fixed 'dir/ls -f' to denote executable files with a *. Fixed dir/ls to not die on 'dir -f '. (Thanks to steven@indra.com) Changed tkConExpand to stop at $ as well. Changed tkConTagProc binding from Console to PostCon . It seems to miss a lot less now. ---- July 3 1996 v0.49 ---- Slight mod to . Fixed binding to not allow deletions of pre-Prompt text when a selection is made. Fixed tkConEvalCmd to properly send commands to foreign interpreters even if $tkCon(nontcl) was set. Made tkConEvalAttached be some type of alias at all times. Changed 'slavescript' to 'slaveeval' and added an 'eval' option. ---- June 25 1996 v0.48 ---- Fixed 'alias' problem with multiple args. Updated binding system to automatically set Console bindings to equivalent Text bindings, then redefine what we want. Updated tkConTagProc to eval in attached slaves. This can make it really slow when attached to foreign interpreters. ---- June 25 1996 v0.47 ---- Fixed tkConExpandBest* to be more accurate ([string first] is only valid for us when it returns 0). Updated tkConExpandPathname to work better for attached interpreters. Renamed tkExpand* to tkConExpand* (they'd become too TkCon oriented). Changed tkConEvalCmd to 'list' instead of 'concat' command for attached interpreters, and to ignore the whole thing if [string match {} $cmd]. Removed many bindings that were exactly duplicated by "Text" binding. Added tkCon(blinktime) option to allow user to specify blink duration. Value must be at least 100 (millisecs). Removed tkConUpDownLine. It never varied from tkTextUpDownLine. Improved package loading to handle bad pkgIndex.tcl entries. ---- June 21 1996 v0.46 ---- Improved package loading to be correct. Made 'dir' more Mac/Windows friendly (I hope). ---- June 21 1996 v0.45 (skipped v0.44) ---- Added "Non-Tcl Attachments" preference to disallow sends to interpreters which may not understand Tcl (ie - SchemeTk, PerlTk). Rewrote tkConCheckPackages to allow calling it without a widget reference. Updated tkConEvalCmd. Added tkConEvalAttached to evaluate more things in the right place. Rewrote tkConAttach to allow for attaching directly to slave interpreters (no send required). "Attach Console" menu now lists all slave interpreters by slave path (with Tk interp name in ()s), separate from foreign interps. Add tkConInitSlave to create a TkCon slave. Renamed tkExpand* to tclExpand*. Updated 'dir' for better output. Added command line argument support, rearranged tkConInit to support it. ---- June 18 1996 v0.43 ---- Fixed 'unknown' to work in both slave and master interpreter. Modified 'dir' to be dumpproc'ed into slave. Rewrote 'clear' to be dumpproc'ed as well. Fixed 'puts' bug for slaves. ---- June 17 1996 v0.42 ---- Added extra loop to tkConCheckPackages to account for packages that may auto-load Tk itself (like Tix or Tksteal). ---- June 15 1996 v0.41 ---- Added 'warn' as an alias back into the main interpreter. Fixed documentation leftovers (and updated upgrade.html) to include the move of the 'main' and 'slave' commands into 'tkcon'. Fixed problem in 'clear' command ---- June 14 1996 v0.40 Released ---- OK, I need to add some MAJOR changes here... Added package handling. Moved to two-level interpreter model (master control/slave execution). ---- June 13 1996 v0.38 ---- Fixed auto_execpath to work on windows ---- June 11 1996 v0.37 ---- Improved 'tkConResource' to get the right script name on all platforms under all manner of circumstances Improved sourcing of tkCon resource file to not throw bogus errors ---- Jun 10 1996 v0.36 ---- Fixed bug (incr $tkCon(event) --> incr tkCon(event)) ---- June 8 1996 v0.35 ---- Removed "Resource" from 'Edit' menu Rewrote 'clear' to accept percentage level Fixed forward history search bug ---- June 6 1996 v0.34 ---- Added 'clean' alias to revert a slave to its "pristine" state Added tkConState* procs to monitor state and be able to revert it Enhanced 'which' and added an 'auto_execpath' proc. Removed all known global uses of 'tmp*' variables. Fixed problem in tkExpandPathname that munged pathnames with spaces. Fixed problem in many places where spaces in directories and command names might get things confused. Fixed problem with non-interactive slaves. Commented out binding that recreates a deleted console window. Add tclindex command. Added support for -full to ls/dir. Added command buffer save and command buffer search bindings. Added Prefs menu. Changed File menu name to Console. Removed 'Load/Save File' command from File menu (to easy to source) and added 'save' command. Changed dumpvar to use "array set ..." when outputting array values. Changed tkCon to use tkcon.rc on non-unix machines. Revamped tkConInit and source file to make sure nothing specific to tkCon was set until an Init proc was called. ---- May 10 1996 Made 0.27 Available to the public ---- ---- May 8 1996 Released 0.26 Third semi-public release ---- tkConNew now returns the name of the newly created interpreter. Added 'main' and 'slave' inter-console communication commands. Also, all slave interpreters become commands in all slave consoles (make sure not to name procs "slave#") when created. tkConOtherInterp proc added to handle the communication. Moved tkConDestroy and tkConNew into new proc tkConMainInit to prevent resourcing problems with slave interpreters Fixed 'puts' bug by removing all 'uplevel subst ...' and placing an 'eval ...' at the beginning. ---- May 7 1996 Released 0.25 Second semi-public release ---- Discovered bug in puts/output sequence - still searching Added unalias command, fixed alias command to not unalias commands if not enough args were passed Updated 'unknown' to mirror current tcl7.5 'unknown' Changed var names inside some procs Added comments to most procs Fixed off-by-one bug in tkExpandPathname ---- May 4 1996 Released 0.24 First semi-public release ---- Changes file begun Tue May 7 19:09:51 PDT 1996 tkcon-2.7.3/docs/demopic.png000066400000000000000000001224151357645571500157460ustar00rootroot00000000000000‰PNG  IHDRtä8…%FsRGB®ÎégAMA± üa cHRMz&€„ú€èu0ê`:˜pœºQ<¤‹IDATx^í½ipGºçÝ3=ïò¡#:Þ·ûÃḊž/1&Þ˜ŽûáÞžÛwp/öÅvÛàÆK7Ø´ F`í’Ø1f±ešl ˜E`ÌÚíƒY1¾ØHH:G€mܶۖèû>¥™ùÏå—OVžªÿð=ü/*~›÷Jïÿñÿý?ÿïÿõÿïÿƒÍóÿüOÿþüÿé?ôÿë^š¿÷¹ÇIDŒ¿÷ý»ªœÿÞw›ýª÷{Ž8ÿ[ïg7¿ýþßNÂçæµãQG,$*€  ¨@ˆ {llÅù¢ÊÖ_®Út­¾?,ÜÞáùí]+[º!¼Øê„—v¥ôDKz U&*Ĺæ¾ÜY²â"Èb†ØTh@PT  ŒbBm[IÃÅŠ@ÖÚmÝŒEÍ)€@éš=ik÷öÄ0²y PU²t.Xâ²èâÄ_Ë^¸4cÞ¿¤#Çÿ)­…DPT°¯¸Y@VðYK×~ nkņ+±ª·v± %¸u ÄßMt ž¨*AÙPµ¶ƒ†òµ—Ë..½0¥øý}ô¨ýÖB‹¨*€  ñW`ÔÄW… >.\z –„âUíàÈÜ:ÄÝØ!@bÖ]-_{Åw(,ù /].óJ_ºDMëüÙp j]²Ú Ž+./owÔXÞ^¼ô„"1,ºà¨¡îã‚yçI(¬<Ÿ_úÁô™'ÑyÿÀ¢¨*`_1“N æ+WêÑfÛTÂÝAD|é2…–ç Û|‡>B?A!”®þ6rá_@ST‡©7Ôù¼È Žš0•b˜:»ü4¿ð ÀuÌØÃöÛ -¢¨*€ Ä\W¸G(…ë çuÃR—ÿú“ÿÂbuDûéèuþ"žkXºåêîÃ7žø<ŽvÂ17…pãÀ',yår 8 MSm¸T´ô“ \_XòÊ•]y-n¸8»âC W ë³Ó#\cÞÿ±x¨*€ „¢€×Â3€p¿ØáŒç ;¥k?%›Ã}Óöŧެx»u<|Î8¬¬«:@Vâz ®@¥–lêØzðFÁ =S—¥ó¥ÆÕ§ž¨î]ÕýûÊîGÊ»F•v=XØyßÌŽ‡ Ú66_]ô§O¡.–¼zÅ<ÕÂ5‰·ºxÃå½ûÛZ—mi©ûSÓÜ›*V6/m,\¼£`ÑŽ™uÛŸ·mrÕkÊ^™RÛÚøáÂUí¸ö»­×Pº,EPT þ \²Ö|\´ÀÙü„íP²SêlÏÂýÈþ› å벶¶¬8¶?Èš+w›³á2$ýUß¡t5ìÍ…ýGo®NÏ[—®Ûž³&U¸*5}YjêâîÉ »óêºÿ0·styç¨Â«÷?ÛöÛi'[Þè&f½¦*^ÒRµ.ݲ³a÷®5{ZW6µ,ÙÜR·¡¹zmÓÜ5M/4=·#Ѷ)ó^_¾jBuóžî¢šO 8;Ã…g®ñïÿXBT@BQ€ÀÕA¢ %Ï9wÉ=Hç˜CÖ­/œ9\½aÕ@Ö§~ÿSù¢~¾ž¿ú76ˆ¬%ß’ëìgs*ï?rãÙe©ú éù/§«Ö¤KV§òŸKM[Ü=ea÷ĺº¯è|´èêƒÓÛ~ýÔ‘½ÓIJ×T¸¹Ñ\·~ך½»þ¸¯uUKë²×Zê_iªY×\µ¶©¼¡±pùŽYK¶M«{åé9Ë~Wy¸:š®¡tX4Š  ¨@¸ Šæ]–Ü!kƒsþ–œû…ƒK?ÿù?\údÓŽuc—Í{àú?ÿÇfmÃå /Á‚"°TŸUiÉuÀäÄ)Àjõœ©ÙÏYS“êSã«»Ÿ¬ê]ÖõXiçÃ…×FÌh¿güÑ}‡îÀ•¦úwÙ\ª’%ÏàZõÒÎU­;Wï$‰škÖ5U44–¬"nŸ¾`Û”Úªž]y’×$t|,#*€  a*k]¸­¥+àF饲·ÕÁ꺫@VÈ|×®†‡ §å ²>_{ß~ô#éïm*Öt@BOpe!êšFÞäæÓõ©âÕéÒÕi ëô¥YÇÍM)ï~¬¤ë᢮QE]¿-¸6ræÅ{'¼·ïPϒ裸•KUúܧÀWÈ«iÎ ­Ë¶¶.ÛFS5¯¤Ÿ·O­Ý:yÞƉÕË/…¼¸Î»@Ž ãiá0{.ÚFPT Æ \ÁÓ*^Ø,qÈ:à³:d]wuÎËW¡ì]W_ߺvlá´»®ÿò³ÿVùò5ò-¯é€@I>³Û.¦1Idö[1-wåÀ»7ÿP“š±¬gæség—¤'/H¯I=1§ûÑÒî‡ »Gt,„#ó?½7ïøþ¿\'ÉÙT€F.\áR•­¸ š@ª¦’å-u/Ãnpó¼õ•w<3wÇäêm“«_8÷ù'J!¯’ú‹Eumä¶+Â5Æ‹†  ¨@˜ 8pw¡t‘㶒[­Äg¬:ÝØQ\œ÷ñ™ÕOþÙ¾­ãÀmýÁ~PõjgåËa]gå@˜³ö“ä ½hòÙ•¬&Ü]™š´ =yQzòÂô¤ùéq5©Ç+S”§F§î/Lý¦° ?˜ixÞ‰;peR#¹Tp…KU¾ò È«±`qsÕšæ¹ká>kóœ5wü×)swLšaû3•›ò*W<^y’„¯à¼"\Ãì¹h@P+@à ûŸŽÛ:˜¬ÑªW»®gÏ}ðþÿnë]?ÿïp¥js·óo¸CYÀm?e \)qÅ‹lÕg.9÷çÁ£Ÿ=R‘W›Î›Ÿž8¿'¯>=®.ýDMúѪôˆŠžûJÓ÷•¤ï+JÝ7ëÊÝy§¼y“@M€äRÁ.UÅ W!@ªÆ™ó›ÊV6W64W¾Äy®M“Ë›ž)oœT¾yBùÊ1EWÙÒË€¯äLþÎ5Æ}‹†  ¨@h \Wp[¯qã°öcµsîæn×ý­cþ)¸­PŠê×R$ÀWe@K)›á%umû?°M>bö`SðÕ¡c_Œ,ëy¼¦ç©ºŽv#ç^¿·òúðŠž{JÒwϺú˼ÓÞùŒXãRMXÐ3~~ÏغžÇj{ ØáRU4t@€TÓkšJ–5—ß¹ÏÚR¶œæÛ2µ´iRÉkO­3ò"pÿv†®¡u[4Œ  ¨@¼ p…›‹KÈ:w“CV èüãÏ??±lÉìÂi¿j\?ªR³-E¥l±”%줮-ùÀ^4ùÌ%çþfžEö¿‘u7†Ï½qwÅ_–ôÜ•mXÞû‡Þýœ$פ"¸TsÖ\ƒ©§Îi*XÐ\º”Dk­XÑRþ\kÉBòçÎ)Å- ¶Ž›µzt>äU¾Ü+Ø@¸Æ»ïcéPT _¦œ7e>YÛΆ¼ŸB˜´ä„ÉË݉™T\à7l rt à#Ïláz+ ÜVØ}uVBÖ­]@ÐÚ©þçŸ=]2㞇GüüI‚ˆX`-Pv¯—ö¢Ég.9÷çŸOݺ·øúCsnX{ó_«nþºâÆ/Š¯#p=òIî5UåÚNªqJyÓ¬Ú¦¢…ÀWÀjKÙ²–Ò%­ÅówΞ»óÙÒSŠZ&ÎÞ:.õ˜|È«båU\ëÚ®8u¡¨@¬À÷xsï øo±ƒàÚ¿! "ìˆB·øá¿s½ë®„ðg}cšã+çÈr§‚©ƒ+½N.rq蟪>ýå=…éÊÓ£ªz­îù]MPö‘yךwýþê~·µôú°¢žÿ=£cXÞéCïÝ"v¼¦ª\ß« Hµ}réŽU³ë‹6/n*^ÔT´ ¥ ¶ufeëÔ’–g ›òfm~*%Àõ½[®°X% <´ï¹ÆzfÁ¡CY|7ûNo[ïñ¦=Šƒ+¸­5›3>+@P "ÿä'?!ŸiÐ{±®€ áã_ŒšÓqoÑ•J¯Œ,¿úÛŠŽ‡Ê;F”wü¦üÚð²Î_wþ¢°sX~Ç°imη`ñP!­¾Ç~!Æ{¼{æ5®ä@ç¶ë¦Î b·u“þ—qU·e6ÅÛ®„awÎ7yý<ðóýi&ç÷?;W4§aÃvP8õåŸOÞr‰LØsø³ç·§*_q~Pä-ÕÖT寑{®•k¯­Øa×;Ÿ-µ»b…ã¶ÏUW<@ç"®‚¿cCXy½øïPßãMO ;Oèr/œl"&Ï‘ ¿Ì!¿Ïá ßÌôߤ¤ŽHÄþ™ý?¿qBÿ\3¡Ÿ—jö?YÞød9!Ì\ñw€ÿ4Q à1 ¤ * Qßã=èí߶ßãMž- ?,\zBæ­sðnç9ÃNp  O† z?óš9çån0iÞX༞® Ï€ðÛ_U€ú;Ï´ê œ7÷ÁãëÚ`Q(>¡)ÑÖîíIz`/Äê3«*õcˆT £¾Ç›{û·Ý÷x#\a)\GŒ:@G2ø¬x€€;@€š(`ë˜B¤¾Ç[|û·Å÷x;ïs­j+XÜ^°¸Mú®¼èCð\ëÛ§Í>ÉÂuJñûq8@ }£‘Ý‹äMÀq ð–âXçPE Å ã˜Åýc.¨ÀÂ{·ô•Ýþ^ßM_ôíõÜY7ÂÕ;]“ˆpág¯±8@00Ó Ýþ‡†K¥± % cV_,éäFL¨Ç,.¨@FÞãíï•ÝÒ{‰{7ÂÕ•”>"¨à‹f9–n¹ºûð̓'>τ㟄p ÂÍA&^¹\²ªªašÊö1 D *0×ßã ¼4e·® {7ÂÕ;]“ÈáZx&ˆWjˆ-M‹Wµ[K^½²õà‚z¦.Kç-J«O=QÝ=ºªû÷•Ý”wq&ýéSRO©ì³@´ Â~7},Ÿø®oOoðßȈ÷x#\]Ié#‚®Yk>vŽ/½P¼Üñ`ÂÁö)Üië¿CY¾î2túÖ–Çöçà þ ÀŸü=†˄ކˆççÐø ûÞ,\ž·.]·!=gMªpUjú²ÔÔÅÝ“vçÕu‹&ˆ2^SYè0‰ ®¶ˆ'Ø+Ï Äر-UâŽY ZPŒa¿Ç›{¿7}}÷ywpeû®”RV€Ç墲i%/¯¬•Â~OlëxóÂüÜ@ÀÊŸ;«~«ëÌo²mÑ:qÇ,-¨À¸†úoÕ«¼¹·¸ÀŸú7xKßÈ=èU£±|·u¸šÀÌ$Žžg¢…dÀÕÒ=\õüÒp ôû$옢Øù=ÞªWy³ïôv}Ú-¸÷xÛ…«”pìEò™vn¯!‰¯Ê…˜¥ØÏlFbyüC“Jê¹Âž°­¤s²÷)èéY—NÄ1 D *Q ì÷xsï÷&‡ê¢ëë\¼¾‘;ëïñÎ\ƒðÌá4Ž&rpZU 9\ç]°u€@ÜVÀqzQú-Aõ™;vÀES=>:W9*­×#7GW¦&-HO^”ž¼0=i~z\MêñÊÔ#å©Å©û S¿)ì~°°óÁüKÃóNìÿËõÌÉG&ô".\áRÁ­!@^‹›«Ö4Ï]Û\µ¶yÎÚ§ÌÝ1i„íÏTnÊ«\ñx äý Þ+ ã„[âÃ8‘1C] \í½Ç[|“(™zÄWv³S˜áûG½¾‘;ëïñÎU¸ÒIGå+‡GVÈZW[ØphÀä܉¦Š©¹Î¥³¦–ãÿ!Œ—I<úÙ#éqµé¼ùé‰ó{òêÓãêÒOÔ¤­J¨è¹¯4}_Iú¾¢Ô}³®ÜwêÀ›7IØTÐa¸Tp…KEÞ!©gÎo*[Ù\ÙÐ\ù·¶kš\ÞôLyã¤òÍÊWŽ)‚¼È›$€¯W|âPG©X W|7}û·Å÷x¸Š.fôp…9àjåA†p/wÒsìñ3{b@“í“‹ª¯LŽ#äjœCǾYÖóxMÏSu=\7ËcÈT`ð¶ð€çŠïñ¶ûo»p•Þ•Þs ²-l˜‹þ­êÞmÀ‚‘äRÏà ¯ÜqÞg×ÿÞ\xyŸóÞÜÍÝ°{ñãÿøóÏO,[2»pÚ¯×ÅÄ×åÞyQî«]âöŠù·ªT¢z4¾2?‚0b&W|7¼Üyû·í÷x[‡+{^‰½ñÉb¢‡|ÃŒ!”£â!&ÑCÍÖ&€«­ôd=À^Ï H¿Õ,í“ŒT×]Ï"äp„ij@´ `±ïñvA„óï0àê›—9“På¹Ú:@Àß—½"~fH#«ŽpG Ä| Ï"äp´Ä³@´ ð=Þ¡¾Ç;z¸ŠgÎ0•VÄ®‰8@ =ú—ØôWµ7Ž1jNǽEW(½2²üêo+:*ïQÞñ›òkÃË:UÜù‹ÂÎaùôÀÉÅk*‹Ç,-¨ÂõÓÞã=\s¥b\áêÜp…»­[»àÞjí'Ô7¦¿ÿýïÿð‡?„l ß’@nÄRD¹×JOÎG™i"òZÙÚ³åàõQeçî™~jxþ™á3ß>óô½3ÏÜ=ãƒ_Mÿ𮩠›úá°gÎ<8ëôæ=©ÛÓ¤RžRÙ=fhA2 à{¼íÒˆ›÷®våÕh"ÛÂY>@°¹ûÎÙ(ãÏ™#N†ñ_í G™H+7v®hNÃæð pêË?Ÿ¼å„™à˜Øžª|¥Ós*ÛÇ,`b}`Ê™±矬mgCÞ‚O!LZr ÂäåîÄÄ-H{IÄÚ66V†‡v¿÷ñî¬-®vg„«]=¥Ö4§…‡æ‚0~`š{6ù‡T„pÌbøØc0É­¸P¶þrÕ¦kõýaáö.ÏoïZÙÒ áÅV'¼´+¥$†¬(@ZŠÚpðA ⤕ç¾ÜY²â"´>ôô\C¡Â5YU=¸ˆ €Û\€0¼càД4\¬ØØd­ÝÖ 3ï¢æ˜£¥kö¤!¬ÝÛƒ*@4‰8@îªÉŠGJt–¸,z¸±ÀWXÜϘ÷o#ÇŸpøŠž«] \íêiî¹ÂSr®®hÁáÁuĨà³–®ýÜÖŠ Wb!À½´·®ø»¢W€x¢ªeCÕÚÊá½Ñ — —^˜Rü>ÂÕ>®ö5,ÊßçZÕ†+ÅÄÇ,8ØÞX¸ô<@, Å«ÚÁ‘%¸uˆ»±C€Ä4¬»Z¾öJ¶Bà!âðÒå²ÈCéK—H Y;6\‚Æ*Yí§áV\,^Þî4âòö⥠‰aÑ…Â;¡îã‚yçIpž…Yú%Æ×ïê2Oõ§íW‰· ©öîok]¶¥¥îOMs_lªXÙX¼´±pñŽ‚E;fÖmvÞ¶ÉU¯M({eJmkã‡ÚÚ‘k¿Û.\©ëCÇæŠ+\9ÏU4“Qªçª!„ˆ º¶lB×e4+8Û®‘Ãhô\ÃPmúS€íE œ]DØW$[ŽÎþ*ÜØë¿‹Y¾Î!kkËŠcûó¬¸r·.CççdY ¥«a4ÖaÿÑ›…«ÓóÖ¥ë6¤ç¬I®JM_–šº¸{òÂî?Ìí]Þ9ªðêý϶ývÚÉ–7ºIu<¥zãPºxI;HÕºtËΆݻÖìi]ÙÔ²dsK݆æêµMs×4U¼ÐXôÜŽüEÛ¦Ì{y|ùª Õª¨æÎÎpá™᪟Í9RŠû½,Ä©Ü*ü ß©¢‡«¨†ÉMU¼äIäœ)WxûÖ–&Œ3\ÙUNðš²|p ê£.šõ_ôýćb>šl\]p~ç³"s3Ï9/Ãugë gWoXõõ©ßÿT~§á2y¢ËWñ G_×Ù¢µõ|÷¹ñì²Tý†ôü—ÓUkÒ%«SùÏ¥¦-îž²°{b]÷SU]Wt>ZtõÁém¿~êÈÞƒiR¯©2p=r£¹ný®5{wýq_몖Öe¯µÔ¿ÒT³®¹jmSyCcáò³–l›V÷ÊÓs–ý®ò"p%/÷®œG¥a¤8*8ĊΙQF’x•._L¦¸² e}eqÈP`»OÂ×v\U•2‘×· >Œ›$1Ç¡IÉõ#7àZÁ¤gÙ±C&å;dmpÎÁ’s¿ppéç?ÿ‡KŸlÚ±nì²y\ÿçÿøÏì‘`´RBò ^¡_‘®¸ø1úÓ£˜œ¸ X­þ#€35ûy kjR}j|u÷“U]£Ëº+í|¸ðÚˆí÷Œ?ºïиÒTÒ^Ä¥‚7C;ž+Àµê¥«Zw®ÞIR5׬kªhh,YEþÜ>}Á¶)µ'T=7ºò*šw!;põäN¹ÂÕë0‹,þЄkÄ3ZØž«ªû‘jjˆe3ß]чqI¸e“×Òš£:HÙ KA\Ámu~I¼úRÙ‹ÎÏ<¬®» d…’ìÚÕpâPá´¼á@ÖçkïûÑ~$ý½ ¦M’ĮҺ¯— Îýɶ õÙÎÌÆ'‘éúYÊ Ñ×[ØR±ý\s¥öÅjJíHkMóÕh¢¯²T7©þ¡R–í0);dðY²®»:çå«P€®«¯o];¶pÚÝ×ùÙ«|ùù– ŒàÊ>¬‘à–\¡ïx W¸$l6ÿôÇ~k‰ Þ½ù‡šÔŒe=3ŸK?»$=yAz|Mê‰9Ý–v?TØ=¢ {d!|è™ÿé½yÇ÷ÿå:© › º — ®p©ÊV\†¦„TM%Ë[ê^†Ýàæy빩iÇ3swL®Þ6¹úÕ‰sŸ¢ò‚WJÕµ‘Û®–áê:5˜ëýª)[5m™ÌÈÑÄ ®žæAWU5š¨K5e³¦4±•Vˆ®bg×sª^*.eX€©¾åRlv†-+MÂQ–…œ]×ÒjJ"âS,ÇBNdM•E¹8H›tTë½ÜVç&ß€Ï Xu º±£¸8ïã3«Ÿý³}[ÇÛúƒü^ÜTùò@X×Y9à‘ÎéŸô+òØgrÝü³ÉâãÏÚGnŽ®LMZž¼(=yazÒüô¸šÔã•©GÊS#ŠS÷¦~SØ †Ì¿4<ïĸ2© Ñ¹Tp…KU¾ò È«±`qsÕšæ¹ká>kóœ5´Ã4N™»cÒÛŸ©Ü”W¹âñÈ«tÑEÂWp^mÂÕJ7Í#ÀÕU%é:=ÔÅ»k‘ìF®zÎi”TÁ@ 0×µ¦+·DÞs:KaF©#Â/+pekÁi’<¸‚Û:˜¬QxQÀõÌá¹Þÿ¿Àm½ëçÿÝyu¼iàíFw( ¸]×I¨IqË^a¿òú™5ŸÏ&Ègã<úÙ#éqµé¼ùé‰ó{òêÓãêÒOÔ¤­J¨è¹¯4}_Iú¾¢Ô}³®ÜwêÀ›7IZ6ô7.\áRU¼p¤jœ9¿©leseCsåKÜàjš\ÞôLyã¤òÍÊWŽ)‚¼Ê–^†|%gšìüΕ¹4‰û@BxpåDf—üš)ÕuþõQǬ'É ¸‚PÚ‚¾=W•7©Âpž«¦‹&®à¶Ò—öcÕy¯0€ëþÖŠ1ÿÜV¨ûÎàÌ Éûõú}Ù 5©_Ë\Z1 ›\45äLI¹~èØ#Ëz¯éyª®‡A#ç^¿·òúðŠž{JÒwϺú˼ÓÞùŒÔ‹K5aAÏøù=cëz«íT`‡KUÑÿÆ$HÕ8½¦©dYsùû¬-eËi¾-SK›&•¼ötÑê1³!/Wð_agØ\³>ÛƧáÁ5>uÌzI†«!iÄu¤'Ï•ƒŠ>SênŠ´ã¾Ýn=ž³¾-¬)ž®ô[Õir}ùèÛlot&åuÎV°ƒÕMY£?þñ?ÿüIJ%³ §ýªqýX(@Ͷ ”²wÞüjWæå¾Ì[{éñ+âþ²×UŸsãÀ‡Nܺ¯äú#U×ÇÌs Èþ7²îÆð¹7ñË’ž»ò¯ Ë{ÿлŸ“ZkR \ª9k®A€TSç4,h.]J¢µV¬h)®µd!ùsç”â–‰[ÇÍZ=:ò‚÷I¾Â±&„«¡ä’áj_SÁbØp%¸âö¤W¸¢‰%kDÿ-›)K jÁ•4âf†ÆÁå€d‚vÕf «ŒÊŽX#ê¢ì®Uæ–b¥ô­¦·oØ“ÁuMì¸Þ!ëÖ. híŽÔ?ÿóO‹Šž.™qÏÃ#þ þ$AD,°(KèH\^èö+¯ŸYƒÉýüçS·î-¾þÐœÕ\S{ý‰ú×ß]ãáú›ÖÞüת›¿®¸ñ‹âëÃ\|Ajê5UåÚNªqJyÓ¬Ú¦¢…ÀWÀjKÙ²–Ò%­ÅówΞ»óÙÒSŠZ&ÎÞ:.õ˜|È«båU\ëÚ®†ÃÇC4„«±üF®~‹¯t\ãU¸\) Wâ¶nî&ìˆB+üð‡?„ß¹Þu×?Âø³¾1Íñ•ud 5©S Ø+ìΰ4·uÌÆÉÏ>ýå=…éÊÓ£ªz­îù]MPö‘yךwýþê~·µôú°¢žÿ=£cXÞéCïÝ"Uöšªr},’ ÕöÉ¥;fT5ήk,ZØT¼¸©xQSÑ‚–‚ÚÖ™•­SKZž)lÊ›µù©ü•×÷n¸‚ÿ ·]áñývî¹æÊ0±P„«ÝL \ÝÊ|/úm† 1š¹"\aC¸fsÆgˆJ!@[üä'?!ŸiÐ{±þX(²ÙŸx¦zãø£ætÜ[tåÒ+#˯þ¶¢ã¡òŽå¿)¿6¼¬óWÅ¿(ì–ß1lZÛƒ3O:FázËS*®ë»þ|úÖ¦Ùõ›¦”oz¶jóÌšÍùµ›gÖn™Q³uzÕÖ©å['mÍ›½eü¬õO毚T y9Ç (\mh2ïˆ9áA#\#³0T@å¹Â;Ò‰çJøúýïÜV\é.1{ÖÉßæ­¸«ìÏNø€«ÈiÕšRe®˜©ŠmîRç*\¥+3έ'}€up¥]‹ó€c5³Xi·dõd;¡*2ÛýÄ¥¿Íß¹fQ©ødp -²Wq’2rÜDI07Š[t 5`g^697»ÎÈҬũ\_f“i]S0"nMÐ"vEJ¾ûmž«®\£h:·öò]µN¨¼´wIñÉ]äLYÞÎá6ðZ5„«WÅ|Ä ®>Ê–óI¤³RÎ×ZSA„k[ß®âjFº*E¸FÔ®p@d.‹0|¾èkFŽÖáÊîmÐÙÜ«Ÿ*õõè~Bmú€+[Si‘蹆Õ%®a)ËØE¸F 2fa¨@påæqøájØæÑD¾Š"kú˜\ \ð¿` pË–£@“Œ™trvU[ÁâvòDï`9`ê©È¢Îæ c¢ˆ ®âææ {×wòUMÌ: ”£¢Ó®ø_`Ø=)\ç€:E‘®ñ€Éƒ(`®A ƒi³®n ‡Õ¸-–²¸-²˜…wìÂU¼™‡~§÷6Éf „kXê#\ÃRᲘ…wìÂÕ{þ˜"^ \Ãj„kXÊ"\#P³ð®ÂÕ»f¹œáVë"\ÃRvÈÀ•ý-TÚpWÐ0UÑküš5¡Y \Úp!á’°ƒ4ŠmBR9²ŸâpGó9ì…Q;ý/.49J4j~œ*­Z C´ìÚD¸fWÿ¸åŽp «EÐs KÙÈ=W–4ªÀY¯¬ë¡iŽÒ_èIÌr½Ø íˆp ¢^î¥E¸†Õ¦×°”®Üoݤp•2‰s ÿä~•Èæ.ýŠÙägyAâGР‰Îášèæ³^x„«uI3®a)!\YžÑlÅ-VW/S㪈¨ÚÖ¸ÎVà*ú¾´cndpÍv´U „+¯¤­±ÂÕVÕT’¶:¥¹°ï¹²¤ñ„.”¾ªýX=nÅ"qÎ(›µk‹‹þ´¹ø“SÀ:\ :ªVvm}“t5âAÜ,áòÕ¬­”ÐÄHq‚«¸ºK/N"aÔPt8ôùzê+š‡ Wý¤¯*•¿ªq#Ü|$ë1`¥­Ã†+ÛyÈgOå'šhÄüŠk#²ÝÛ52­QăÑJëÇÍHp{ j" I ×.ä!l¸†TñàfC«× (x5\-ˆ=À®Æ¥†«Ry"KTW¼ÆôQrU’˜ÀU#¬Zæ(eµMIó墹6ºW[l¾3\9×…ýSÚšb|骑®õ8ÔäNÖjœ®xb.R^HËLcŠU³¦q\‡@HýÐ>\USM(bcX¯ªj¢Íì:¿øh§ˆáJ« éÜ^;Y@ݼfç£Ý£‡«júà ¯ŸbX#lßQ*½¢2ª^j~=‚&óÑÊII \U)í*,HOãPjrE¤¯Ø ª®«êÆ\aD„s%çìH¿¥6=U*š ¸†]U$ؤj9iï4)pØpåfLó9Ú¤ðl·±a®›E‰yñ fdpõTªìFö H¯ñ³[»8ç\õkeC¼‰ÃKÈFàúƒØ=¤3‹v¶Ìä³+ª]ËÃ1A©I¾¡v'„«#¯´©h·ð×HaÃUÊ<“>gÞŸL%â¢Xª›y¦žb"\Uþ„¹ŒWs­ô1À«¸Ì•ÒNJ/½âhÕ,£¥_ù›a\箚5= r:{û+˜­¦—ÚA¸ÊáÊŠ…p5QC?æCêÄׄE³>®¬`N¿ÖÞGÖܾ|êë(]"˜Ëâ£eý%±W¶˜ô‰hÎ^—{&81_ÆBîÜËÒýµ–t}Êë=Ì–në«JŽp IX4ëCPáÊÍ¥Ô”ºq2Id &‰q1{&§1¹+lIÄÈìÜ%óÅâ±åáf6éW\ÄÉÐG›I \UMŵŠ´m‚TFŸVÓ'\›ALëZΘl K‡‡ká¹µ…Øk‰bzݤCÈSÖ®‘®®a„È°×ÈJŽ…¡@Xpå–Na=+6Í*\³R÷fŠpa£ Ù"Ù…+» W¹•CVêDTÜ2\¥ÂHñ—̼.áÁU9þº…TB„kH¢Y Ø…«`’X)`®±ª[v \³[¯XåŽpUs ñ \‡xàªp «? \ÃR–±;tà‡Aómó¦æyîvc"\íê™tk×°Zá–²Ù€«ô¨d0¨LªŽÎÉË°!\Oí‰§Ø -k¢Q›®¹ûÈK%21¥:Žç»šƒáÚ^°¸Í¹‚aÈ*Pß>«úãi³O~¯`ÁÅ‚ÅØ!ì †eGŒ:Ã5óSÙîH,òû{²éXš„ÌûâWA€çÕ`¼Lt0±ï›:&p5)¤×8b¥Ø¦ÔÃÕk^\ëÛ 0 y¸y-쎢,WÙª¬ÈaÀUEÕÔL'en#Wÿ§èKq“;Ç •5®TK¸TlQU« 1Žy½\s§¥•RËZêÚŠ5b¯ˆEeV=\MVœh,\aàc@ˆßC!BR€Â5$ûh–®`¬ÃÕÓìÏNµ" ETH]a)B<íaŠ«Õßp•&ärᤓ’Œ#Ťž…¢MWÙ¥J²%×´¸«/+ž`[?]€BRà©éÛa[8$ãh–(@†®õ'a©&ýTË:mdBçìH#·dîfQThrÔ@HU/)u4õò Ws×™ÒUUN4±)E¬"\‡.ëùÄ‚]4<0åÌØŠóOÖ¶³!oÁ§&-¹aòr÷@bb@¢TÀ.\U¾†‚œÿÊNß×ÖÓ¶°ZýѸE¸ª¶¯£«ëæ¹t{@º‹Àµ”a³öYÏ5Ê>?tò" ’† µml äŠ˃¦©å‰;! { T´âBÙúËU›®Õ÷‡…Û» <¿½keK7„[ðÒ®”>hP(ˆ®â´ëêqšÀÛ±Ô`Ã+\EÀVAê.úÐÁ᪡ªF&‹MõUÁ5Ê>?Dò"ô!Â>ˆhEÈ5÷åÎ’hÀ5S†È:rü €IÃÅŠ@ÖÚmÝPÊEÍ)P@éš=ik÷ö`@â©@LàJG(ë$‘‹ÜWwVêÔröÙ A•£ Šb|Ž‹"õÙŠˆ%á LA¨Šéºm®²À&ÔÔZO\ýZAzVµÍÀz®dªÄ`®Ì'ªÈÄ‹“®!Xâ²èâÄ_Ë^¸4cÞ¿ÝÂ঑M`;|ÖÒµŸ‚ÛZ±á A,„ê­],h n]ñw1 Q*\]³„Aô5 ©l¥`úÜM²0ô•5¦‚—Á¤œAâ°p²Ï…¼ˆ'ª @P6T­í ¡|í岆˅K/L)~ÿ_=jÄBë‘ ïÂ.=KBñªvpd nânì 1 ë®–¯½‚à(ƒ^~Èa¸rŽ/Â5ÃH˵ì¥Ë<)PúÒ%h*çφK ’ÕNp`´âbñòvLËÛ‹—^€P$†EA¨û¸`Þy +Ïç—~0}æIëÜ42y;…ÌW®Ô£Í ¶¨„»ƒæÍ—.S¥ð*Q Á*a‡\…k0@›v`áê ƒ'ú ¡tõ§°‘ ÿBš :Là(¸¡ÎçENÈp”Ðt€©«ÀÔÙåç Ýò Ï\ÇŒ=l„C»‘ {ؘ–Âuóºá É÷¿þä¿°X„þ9û*0HÁC†PHájhÍ\Ap ­‡‡4pš]ºåêîÃ7žø<ŽvÂ17…pãÀ',yår 8 ☦Úp©hé'¸.¾°ä•+» òZÜpqvŇ®@Ög§Î\ Ï@9€ùìÎpÆs÷|í§ds°Ú´}ñ©7+ÞnŸ3+몕,=0 ™Eh$Ó ÂÕÓ®,\aæ:aÉ«W¶¼QðBÏÔeé¼E©qõ©'ª»GWuÿ¾²û‘ò®Q¥]vÞ7³ãႶÍWýéS¢Œ§T ×\$Þêâ —÷îok]¶¥¥îOMs_lªXÙX¼´±pñŽ‚E;fÖmvÞ¶ÉU¯M({eJmk㇠WµgàÚï¶f ®Yk>.ZàxÜàƒ÷ÜÙăMðþ[eå벶¶¬8¶?Èš+wk¡á2$§*À)Pº¶zBW»À@kæ °p «Ç'‹ýGo®NÏ[—®Ûž³&U¸*5}YjêâîÉ »óêºÿ0·styç¨Â«÷?ÛöÛi'[Þè&%÷šªxI;HÕºtËΆݻÖìi]ÙÔ²dsK݆æêµMs×4U¼ÐXôÜŽüEÛ¦Ì{y|ùª ÕÍ{º‹j>àì žÉ&\r,ºPòœ³ÍM6¾{Ë Yw¶¾pæpõ†UOYŸúýOå÷«¾ž¿ú7À†ddžªTâu×ò›gC9 „«9 0¦]hJÆþ#7ž]–ªßžÿrºjMºdu*ÿ¹Ô´ÅÝSvO¬ë~ªªëñŠÎG‹®>8½í×OÙ{0M&(¯©2p=r£¹ný®5{wýq_몖Öe¯µÔ¿ÒT³®¹jmSyCcáò³–l›V÷ÊÓs–ý®ò"pu4e®}Ѽ P;dmp¼‘3Ÿppéç?ÿ‡KŸlÚ±nì²y\ÿçÿøÏìqÐA m¸œ Xüþ )x͑ωûJ“&4‰RÅÑ,«ÂÕ.0К¹C®¤«Õp¦f?dMMªO¯î~²ªktY×c¥^1£ýžñG÷ºWšJ*2—ªdÉEÇs¸V½´sUëÎÕ;IªæšuM %«ÈŸÛ§/Ø6¥vㄪçFA^µxÀµ® ÜÖÒp£ôRÙ‹ŽÛê`uÝU +lïÚÕpâPá´¼á@ÖçkïûÑ~$ýµIÅšHèuv ኺ;® ö>àj·ühÍ·WO?Ñ1ÿñ(}’ƒtÔØñÐœj1‰9®¡y¾‡Fx ÷¹ùt}ªxuºtuÈ:}©CÖqsScÊ»+éz¸¨kTQ×o ®œyñÞ ïí;ÔCJ¦’¶ —ªô¹O¯ªiÎ ­Ë¶¶.ÛFS5¯¤Ÿ·O­Ý:yÞƉÕË/…¼¸Î»@Ž gí´0à½xa;TÀ!ë€ÏêuÝÕ9/_…Òuõõ­kÇN»àú/?ûo•/_#ß²Áñšv{–þ ¤ŸIdò­˜–^d¿¢‘U8›\4®x¢i‘4%¤ý•Öµ:Á\à*>åÇKaOý®`Ó@úlú3‘Óª¼¤×Y¬j"×'&mÁÂÕ¼Çæ@ÌïÞüCMjƲž™Ï¥Ÿ]’ž¼ =¾&õÄœîGK»*ìQÐ=²>tŽÌÿôÞ¼ãûÿrT™M}€KW¸Te+.ž USÉò–º—a7¸yÞz®óìxfîŽÉÕÛ&W¿:qîóO”B^%õ‹êÚÈm×ìÁuÞ…ÒEŽÛJnµŸ°ê@tcGqqÞÇgV?5úgû¶Ž·õ?øAÕ«•/„u•aÎÚko¸ÏÒ‹ldלebŸ ušoõvX kVJ+-dN^Œf ®ÜÓb2•ÓiÅ7\Ùßòk®¦<Á•µ‰p¦ÿg%—GnŽ®LMZž¼(=yazÒüô¸šÔã•©GÊS#ŠS÷¦~SØ †Ì¿4<ïĸ2© «p©à —ª|åWcÁâæª5Ís×Â}Öæ9kîø¯Sæî˜4Âög*7åU®x¼ò¨¾‚óšM¸‚Óí¸­ƒÉ ­zµ àzæðÜïÿ_à¶ÞõóÿWª6w;ÿö‡;”ÜöS–€‡ýÌ^á"P0‹©TÖhñ—AeŸ3BJËIëÂ^±RZMEð+ X‡+·«i Îÿ3ü“Úgã‹tg¯h,‹øäÌVÇÓ¢A•)W~½Wj’£~@[G#HpÏØÐë¹æäúXU©ƒG?{¤"=®67?=q~O^}z\]ú‰šô£Ué=÷•¦ï+IßW”ºoÖ•»óNxó&±Ã¦…¹Tp…KUñÂUªqæü¦²•Í• Í•/qMÓ4¹¼é™òÆIå›'”¯Sy•-½ øJÎ4eçw®=ÀÜVgí³ÎqXû±Ú9ws7€ëþÖŠ1ÿÜVèÇÕ¯¥H€¯Ê€–R6ž~ז݆u(Å\Då˜bÑ—Pš¯‡+ kV´@ŠJÿå>Ðz)­ªxÝ·váÊ¢‚úaW¤‡ O¡ ç¢.¦X ;]Ón&k츲Ó5W#U^¾—†Ô4ŒÆÂÕwNbÂCǾYÖóxMÏSu=œV#ç^¿·òúðŠž{JÒwϺú˼ÓÞùŒÔ‘K5aAÏøù=cëz«íT`‡KUÑÐR5N¯i*YÖ\~ç>kKÙršoËÔÒ¦I%¯=]´zÌlÈ‹ÀüWØÎ&\aGÛ©ÀYçnrÈ ýñüùç'–-™]8íWëÇBW®Ù–"R6ƒØÊn¿–~–^¤î/Óð3›–&¡ùrßJ#‹q¸Òk®UPU½®/~kEëpå<'Ãy\ô5¹IÇÕ¬”ëRÀ»Tµå+zŸ†s”–A¿¤0!«?¸Z6¬¬y4®V:sRŒ:që¾’ëT]3Ï"ûßȺÃçÞ¸»âÆ/KzîÊ¿6,ïýCï~Nê¥IE,p©æ¬¹R5NÓT° ¹t)‰ÖZ±¢¥ü¹Ö’…äÏSŠ[&l7kõè|È«|¹Wp¬)›p…r€Û {qŽÃJȺµ Z»#õÏÿüÓ¢¢§KfÜóðˆ‚?I ¬ÊBBâõJ?›_ÔX#öi`mê/r6¥F¨›ËFv­—yi¹ÂãŸV° W:Mˆ¨ÝDq¦ˆÕ8²®Þ—µ!ØD J‘ÃænÎ$Ã2¸tà®ìúÃœ‹Vb²pµÒ™“bäϧnÝ[|ý¡97«¹>¦öúõ7¯¿1ºþÆÃõ7¬½ù¯U7]qãÅׇ¸ù‚ÔËkªÊµ Uã”ò¦YµME ¯€Õ–²e-¥KZ‹çïœ=wç³¥;§µLœ½u\þê1ùWÅÊ«¸ÖµÅ®ýÂPyÂN€(Œþð‡ð;×»îúGøÖ7¦9¾rŽ,P–pˆý@Ü\î:ý“ýVz‘KNf1!›œ3ES™\'åçªÀí-«"èKËÿ´¥@VàªwÑD ›ÀI幚¤×ª¥‡vÚÏpñáJ5“újÖ ¬}•‹oXk×¢²pµÕŸaçϧ¿¼§0ý@yzTUÏ£Õ=¿«éÊ>2ïúCó®ß_Ýﶖ^VÔó¿gt Ë;}è½[¤R^SU®ïÇRmŸ\ºcFUãìºÆ¢…MÅ‹›Š5-h)¨mYÙ:µ¤å™Â¦¼Y›ŸÊ_ p}ï+øpßžŸŸµ{®Ïõåkà¶ÖlÎø¬Q@)è‚?ùÉOÈgô^l"z2—®„Ô%DÖsâfs65âÕse À˜û¬2ËrW¬ˆÔ¸*\Z®:*Y8S&TSY–@Ú:®K “b¸’" Y¸¾qü‹Qs:î-ºò@é•‘åW[ÑñPyLjòŽß”_^Öù«âÎ_vËï6­íÁ™§ËÀÕk*®ë»Þ8öù¦Ùõ›¦”oz¶jóÌšÍùµ›gÖn™Q³uzÕÖ©å['mÍ›½eü¬õO毚T y9Ç (\³x ‰Â•x®tO˜ðõûßÿ>¸­*¸Ò]bö¬SR¶5°œ9£@Hp5™[“ÇWTÖkb’»Iœ˜(?d·…W¶öl9x}TÙ¹{¦ŸžføÌ÷‡Ï<}ïÌ3wÏøàWÓ?¼kêæ~8ì™3Î:½yOjÅö4™m<¥zþµ늦ôžý^ʯ_1¡dõ¤²UËWN,_=±üÅ % ã _|rvÓ³VÍ_5¹z×îO–oJQ¸Âcó³¿-L4Apn»nêÌ v[7Y*f\Õm™Mcñ¶+îÎù&üŒ 0çÉÃ>£põDšðÐehÙ5škOõ 5ò=ÐT¹±sEs6l…S_þùä-'œÈ„=‡?{~{ªòç·Î8ÍSmMUþñ¹çZ¹öÚŠy½óÙòW»+V8n+ñ\³ W8-ì‡ ƒŽ÷Ÿyaeã£Â5T~ qCöw®‡?ÿŒþŸß8¡ÿG®™ÐÏË 5ûŸ,o|²œfC6á ¿±…ÇÂKÞÉ{Þ·ÎÁ»qœç ;Á.d $ñÌ7»!\ÍÇiÄ1“ç¹nßÒ±F&Ù…Wªð,›Ô+â8PÙ$Ö7$¸ŠÏ?b·äƒ4šŸoJŸIDž=ä##‹I¼Àk|“¢šØ4‰c’—×8׈ç(óìâ W2ÏÒU"ÓnðÉ—3k.–&fR‰5e3bkí5V=±ð^­yÊ«ÎËÃ%×ô–€‰:„W–£¶&n•=t½N÷vã{­»×ø&¥5±iÇ$/¯q®^ç¥ÈâÇ®RÎŒ“«&ˆY}Zö[¹h’ø°æ©_z-yÀòHáFŠ®d¦f=WqΕÎæÜ¥þObSOî[Oö¥Þ°¡Ñk§¥U-;¨hRÿžÍW”—KbXH¶Q®ž&‡¡9Ipå|½[æiVåLI].U’Ùm•Š+­;¹nÞ5Å‚©Š*VÝ-X/¶íÌ à©²zÏ•-¿ISrM¿eb×s™ª¢G\„4‡s*°65ö¥%Óz*¡Xfia|,DôxÅQ‰ Ç«ê;>z®æ“aÄ1c W`¸™Î6Ò˜¢ƒ¥¿"ÍÝÓ\̵±ÈrUÌkJ³`IÆ]sa ,ØT1õUZ å1¬Œ´ðb»h:»‚áÖLÃUJSWGSå~ÑëRïÊÜsí‹LD¶ØÁáêºÎ0©#EÑ&wÅ5¾ë€ovº&D¸ÎÑG‹5\EI})sä«+ŠHÙDRº6ªXª¬ÀUº”ñį‹}ŽæÍ*’í'´]ćf¤Yˆˆ j×såÜM½{*Ý.Vù©&àqÍN…j½Ÿ*-’×$ªu€«é u•+¯÷žÍ7\é;ÂÕu‚ÍV„ÃÕ‡d¾áJ§o•‡*õ K¸J—2ájhSJGŠæŽ2W×æc À5‡Iˆ WÍv¨tRV!ÁN®p¥^š+±ôìä¼=“2kt _™, T0ö]ô\ çº!-àêÉÅ1'™«?$ÎÈÁ·OU03™â¥×Ç6¬j¡B jÀ˜H­¡ZÀì4Â&›l¥\;XØp%s7uUûÃÒ8b*~Ää"ÿ¤ÖX°±FT,dp™j’h¢Z©¶¬Ejtãª&-ƒëv½o¯Ô$!z®±vRáJÝ׉O”^ܹ¥W4l£·ñX7HDgʤᥛɪ-S®®Î/% kM/‚¿ziW6¶Mk±`&€±˜]¬L™Ô=‡á$0# \c5]°…A¸"\Q  \ýSWáŠp¥{'ƒ>àƒûcÛ3°`æ \ƒC-øSáj>N#Ž‰žkP¯%âÃìb¨ÂÕ0Up®1œH‘®WT ¨×à@ þ@¸"\]¶…ýu,L… ÄA„kZah–…ëÐT ¶µŽ‹ç:súÓP„*\¸fë×™ÑLˆ¹];¢!;ƒ'tøÄ¿Ø óÍ×nßþμßBüÁ•{–þ‰ $Eà*²Á:-¬4Ÿ}¤1=•‡Û  z²°äÙJÎÎàI/É*çŸ]!p…;oö½ÿiß±óß¾óÁ7yÿ›ƒ§¾Ùò«7Ž½çØW»~³óÈWM‡ÿÚÖù-ÄüôÊåxÁ5[óE‚(\ÅG7„ñ0‡À¦ 9P;×n‰Û®ŒÀÂÈz9ý÷O:ÿþáå¾3—n¿ßÞwêÂícß>z¾÷ðG}oí;p껽ï} 9žþ·v„k@å19*ðïÖáJ¨ >hWúè]Ú¬''^”^aŸK"˜?hWåXsÏãåÊÌÚWU«¾þH\1DûzÑ’Þ}®a· WðY¬ç;úÎ\¼M°úÞù¾ÃçúŸuÈzèý¾'¿Ûwâ¯P¤ƒÇ?A¸†Ý4h?÷° W)ð(ùXFrʺ¢—6ýSêáù<ë[›¬ 4pE ïª g$'Y„kØó ×w>ü†ø¬'/ôV!=× LÝê6 à¹8áx®-oC¸†Ý4h?÷°WÎeÿ4ÜÝG–ÔOe[H̚ù¦0*'ÕœÓÒ˜\‘Ì—¹í³®aÏ/,\½ÿ7g+¸½+ø£^$¸z2ë)²•Zk| »öƒ[‹\ÅUˆ¸§ÊÆ‘"3¢· ò\ầ¨à*µc˜©j}¼Åãcáv[°p…ŸÜÐÝ`ÂÔ7Ï:;Ô¯¯ƒózÜñ\c W)äȔú”†ÉõlöWÉ^[õ#Y˜‘ÏR“»Hÿtõ5i^lL©#Kj¡rgM +½g&ÁéLÊ’ÕÓäNçS•}6 GÌËkÃ…W¯ÅÛ•·hߢ)¯*åX|„kØ ÊÂu×ѯál0¥)|~ë\ßA†¯»O~·»ÿ§8ëvßma:²q¸ø&Éõde1©ÉHcÄÇþ0å(Ë3Ž"í8›OÊKGÅÈ"ûU:HwíT¹]ÊLyþ±¹p4›ÖÕ‡UB\–²žFlnÃUt@=‰#Œp ®!±€pµ¥¤Ê ×–#_ÃOnà'­ÀWø÷ís·®û>ìk=íø¯ðoËñïvý*×àÊIã®*Ž²7}5Íi~kV>é 8©\ïÌûÌýWÖû”FÐw;ƒ¥×Åû²ÒÜÅ¥Ó¨9q9ì™À•M¢B¦X*Ö?ÖOýb̘À5ìYíÇP„kØÂÂuÇÛ_Ão€¯oŸu° áÍs½×=gûvžék:ÕÛxì»–£9ç¹Z„+wxÊIJØÀ>ÜV TÖe)kH\ÃÞ®¦¹ÈüÎxÂÕ°Fb4„«oé0a@®tMÎÂuû[_Ám€¯o~Ð{èLز¾~¦ÜÖ¦½;Þû¶åpÎÁÕâ¶0•Û÷©(ÃcMª“ºÖá*½=\õ»µæ^&i Õ¶°Ôso¯rƒ*ÈF%ÂÕu†Â!)€p IXj–…ëÖ¿|¹çø·{Oõ:‹8õÝþSßî=Ý ‡˜ZOö6ÿÈÚxô›æ÷ mÂ4©.©~3Ã]‡ {ò&Ùì|löšä%=ŽÄ5’ž<ÊÐeà‡4Ü9&ñ\’æ0”ô@“ëEâCk@±=^zÓNzàˆŽýJº[«ÚÂe¯ÓP¬rÄRI“› ]„«‰J' ®a¨ÊÚdáz¡ão{Þýâ÷nÁ„I€Ïp“BëÑ¿¶¼ûeó;·>îø’7þå£øhòÊBW‰Mhçj#$B n¨ "\}ˆ†I¬(€pµ"£Æ…ëÛvæÕøεؽrŽ+º]Úµf¨2F‹R0εš”áj¢Æ C„kªJ=×_|¹õ/—W¶|<óùšg+Ö8gÝåëÎB€Ï$Toühesûõ[ßÄ®a«†öQ+ \­ÈˆF|(€põ!š§$ÔsMöËÒ=Õ#£1Q $¸r'¼Äßæz­~Ä»å^‹‡ñ}(€põ!š§$š—¥Ó÷¥“W¦³/Kïêêˆõ=WO`dT [ „W¥ªsÔ^ë‹põªXüã#\Ãn#ÍËÒéûÒÉ»]Ù—¥¿{¦ ávÓ ýÜWÀ:\é©iQ;éÏ™h4Ílˆãzl[OtÕ¯“ÅTHñÈ:=Â5l©%Ï>ï¼lîÝnCpÒÔÿ¦ô}gúàÙýôÙ±~üaØ’¡}TÀ–váªÂ§×ŸêŠ,”2OÌND»ê + û3*[¢W®®Œ >[˜<»è„þç49A„‡4îKƳ…Aö¹ùÜS“ôGÅ_¸²Ö\µ–>éÐü§®žŽ%þTԵ̞"HŸ)áÉ‚*²§óº†Ï@v\.Ù«ñüXçRÄ&>ýÊ:\5¿¸Õ8…"}9;žàJ<]ú/Q[z…mtôYýuKß©<ÁÕuëBS ýÀ—Y¾k·„ÒWÎ=ßûî¹Ûà9ˆðbûÞï#¯t%¯œ‹»çÊ•(.^Qµ„ï‡+I1lþà~Ãg3e¦ªÐ^ÔêÚAÍÁæj*ìqe½¨^ çTß.\©žzê×7Y4r Už« \ cO]#{RÀ®þº“¿ÑíuˆyªrÄ‘s®†OÞW=Oß0¹´ô`vuL]#P²ªž¼/}r“3Ù ~±¹ÔŸÓ_¤ ¢OX4A—Æ‘RÍÔ\iáÙ|Ù¬¹‡LÝŒð*Ѳ~°‰…—n`j|n;K¾ ®"äìä¨lH> \] m˜EijáÊN W±3³£€mqó¡­ïrúy Ñ-2Dáªq(ÂU|¤"í†ì”nMó]Pð\9ÞpŒ´ŠüzŠ6‰þ"ZÕÎì&‘5¹‹_qK•®65ƒœ›S2¦¿WÀdu/Ú ®d^ãöåTÈçÚKLÅ% W¶`tÉ’è™4q…᪰&}Ûuj¨z®±Þ6¡£†s&É];ŠtÚäv¯!€E¯QWÌzÇWÏN=½Q\ñ:U©z’_ö=\Å•®fQ¢÷¼]'i4 ˆ“WHpuíŸaGÈ¥)2l­²eá¶òè¹ò g ®´&|5dž>¦žIRü \ƒ{®Äoƒ®aOph_¥@<áJ‡F4•ão¸J·šÍ4‘Îdx¬)z¸JÝYsçÏÕ•‰³ç*îŠS€«§Ë%Ém¸æÀ̘óUˆ'\]'ŠµË€«ôÇ0âEöˆ‡Xo’ Q¼c*½¨é"®y±›ºâÑéÕ&×ÈÜ)'öOé(~V¸á§ª¸NÌÎpÆ_T¿,Ï¡óÃs•4Ebï;²7/¥Ÿ¥‘¥w.iò\õ\4Ù¢Fs ‰vun xšÚF9WêÿÙjWÚÙÊh(ÛÉ¥«y;"\͵˜v0ÿ)ŽÝ|õÖri@¸º÷„«»Fc°¾``c‰1€pMLSå\Ac×\"+ô—Ü„kÎ ¬Pn*€pÍÍvMB­b×$Èæ¡ŒWbaTTÀ®W»z¢5s®æZù‹‰põ§¦B,(¸F¹e^Z(wM \Ãn[„kØ £}T@©@HpåžVázP3JàE™ö<×°»Â5l…Ñ>*)\¹_Ѽ5T‹xQæ…=ášÅ>›peŸ>ÈýzÕä„\{˜Ÿfó¢FLžL"›g”ŃY[TÀºçJÐ¥¢…äyªäÎl³?R$µ¯°Mâp¹‹¿¦F¸eçŽsy±©ß&]=W•‚ÄÉ}¸rÜr˜Á5 ËQic˜X0|6SÆÆ´qSÀ.\)T4ø”¢W_ä™­+8ÙR‰ëÕ¶5i$«a'G¸ å;ZÂÕðù…R/Så>šÐQãzLî»u1aÌ°W•g©×¥2çJººlŽ>¸(.¸+®8W8æMŸõâ!\Ãn‚! WÍ# Ù¬òP¥›À†p¥N¶§øaw´žvá*ºƒR?U¬Ž9õ¨#–]q(zœ¢çJ¯h¬™&¼¶Kºe„kØ-ˆpåWjËÇ£‰½>‚8ìžö#P l¸êo¾šx¥!Å×Ò=móýmq}Aó%: „kØ͇p \U`» ý,*\Åb ±¸ÈÒ´ì6,uUÉE•çJÜP1¡ÆaMI¯ˆÎbk&+k„kØíÅÂuϱ¯Ž~Ô{ô|/üûîG·!¼}îö[gû ì;Ó÷ú©Þ×Oöî=þ%)§^–nâešìÓzÝj–6-k »ÇÇÊ~HpµUG½ãh+•©Ûv¦CÇ>Â5ì¶p•î¸Š¹í°Ò›Àâ{²©jZüÂîh?®‘®¡ö@„k¨ò‚ñ„+œEáìZ³X04•tbפˋå×(€p »{ \ÝF¸ºk„1|)€põ%&² ÂÕ‚ˆZ¹ ×°UCû¨€®VdD#>@¸úÍS„«'¹r4ò_Þÿ÷ä†$· Â5É­—ì²#\Ãn?„kØ 'Á~rÉ %Oò×$·^²ËŽp »ý®a+œû×,µÂ5KÂc¶ÿŽp » \ÃV8 ö®Yj%„«^xü5NxាÄrn•žïå~º*}ð/+qÀ'K_àš)-@ÖŽ%'®™Çq¥ {ˆ„i?$¸rLŠQ®OŸ0|Ì“ê¡Çª61|Üc˜MšÛ×°›*÷áJdq«×T$œ9óT1M,„ôl¦ïÍÏ<”NWkpu¦0IüÅ3’dö Ó~peŸDeçþ ³6ÛbŽb‘h14øTXCV)Ô£_[D rð,®Á5Ô[ÈA¸>y_êe²æØÄõ$t ¸±LhžÅ$ý,½èLOfž+‡IÊTÊHiÃoYÐrœö‘-IæCØC$LûváJ)¢§©!ù8vªp+_ü Æ9‡[JE0ë‹*f-Å0Âáæ VÚF¸òÒ:¾úÖ⌘°Yfùäe줕õ\yz 8¯R”êé(ú¯*H³~ª·Œ²2n,ej®ƒd(¤+]ØT*7QODNW(Šå”–\OW¸Ú´Ô˜ 3ƒžkØ †p \i9LHL#K=×A;cñó\EvjˆËáY3ì!¦}»p½Ó+ öuÁÑÔ;‘œSk‚@à]1ìŠm׊¸®-ÂláøÚF¸†Ý6Wþ)ÿ¾=W¯[ÍÒ¦59Öäº-¬‚«Ò‹í¿‹©a»—K|\.²ŠŽ†ž« \I„«ÉŒÀáDÿ'Ôì¦Ò¯ìz®"¼UWôpu­W;õ†H„kØ =$à*Ýq/r¿Ûa¥7ô&=ÙT5­k^ÒÓLÎ$";åÄ^Wv¦ÁšX”ÒÏ"_]¯hÎ4qi¹MiŽ \(e3×Ã"aÚÀs¥[£*¿–RÕSŠRΔÆåšFZ‘‹*ƒlÉEËšo f Ç×6Â5ì¶ÉA¸‚d®|ò$«]kž²Ž(r$¿«ïÎúû}Ÿ*"BÉ&$¸†QVWò…‘)Ú O„kxÚËWw…®v((üÚÇŽY÷Œo „k|Û&×K†p »…s®a«–köCð\éN ûÁMñ M¹Öÿ°>YPá¶è×°Fû¨€Ry®ØŠ9¦Â5ìE¸†­0ÚG®Øb§Â5ì&A¸†­0ÚGÜàºàbÁâö‚ÅmÎ|‡ˆFúöYÕO›}rĨ8DÃPᆪh0R ³- p­oÇ€ D¬ÂÕh”ú”kp…' Ð`¨ y: ›Ðĉ£úýJÓ$k_“¦¦ÒÜM*Èeíš{+/J¡o}®94 à ®T ‹ pž«á¼d>‡øˆé:ÛÐ!çÙ;§àÊu ¯p%ñ©×6„+kSOA}ýÕNÌÝ«Ú} 瀞80b®×wô£^‡?ês¹¾·úþ³};O÷í>ùÝî÷¾„‚¬ÛýAA]¼Ù—¼Çþ{Ñÿ7»ª­`q{Á⶙ӟ޾¥A‡…«Z)zõITY„ñ£«pÚ­¢¨*€ D¤@n•Ã$û”¢+‰Àù©׈:fƒ  ¨@®+ûp¥(e›’r”ó;Í·…Ur½Ã`ýPT@ÜÈA¸šlK!jÇtoŒ  ¨*s ]¸Š­92¹§QãmלX!T@)kp5<©$ÝÔUÁU$ɨbbT@rQ!Wâ¤RFr¤§Ÿ¸´*‚šß£ÍÅ΃uBPT+SpE'»9*€  ¨@È)¸ÆAP,*€  ¨*€pÅ>€  ¨*€ XVájYP4‡  ¨*€ \± ¨*€  –@¸ZÍ¡¨*€  Wì¨*€  ¨€er®Ë~ýD'ø „$2A¼¢²ÀæEãЋ®MgžÑ÷æ‚«AOÈ«<%ÁȨ*€  Rr®”²Ü ƒÀU“VÏNò­'¾ZïÓWë’¢ATš ä \¥|’ú£RŸÒ0¹´»˜àSï7›÷BÑs%îl§áj®?ÆDPT@£À…+KAŽˆá*ÝXöä’ª,p­ÈÁ•ýÓ÷Ž1Â' T@¬(€påe WjËØâ²!VIBçªïäÞ*ýŒpµ2¨Ð*€  ,\ß8þõ{çûŽ¿}ô|ï»çnCxûìí7ÏöBØ÷~ßž“}{Oöî;þWmÝî êÚ êÛ§Í>9bÔnºŽâÏÙUm‹Û ·Íœþôö- lCšÐQ³k’ܵßhf  ¨*› \s³]±V¨*€  YTášEñ1kT@PÜT᚛튵BPTÈ¢¹Wxg †²’׬± M,8ø*€  ¨* *SpeigN> W¢MèjÁ5v8T@P¡©@ΕmN—)RzEê˪bf·'=0åÌØŠóOÖ¶³!oÁ§&-¹aòr÷@bb JJÄÚ66ý¡- E²Û%0wTˆ^„+¯9‡L77¸{ ¦ò¢ÊÖ_®Út­¾?,ÜÞáùí]+[º!¼Øê„—v¥ôDÃÀ)@4$J Äšýç¾ÜY²â"´ ´Žtxãb(²5\ #l¾D7_¨ÄpU)(Ý×ÕÀ•³«má‘ãO€ÛTÒp±bcµv[7Ìï‹šS€€Ò5{ÒÖîíÉ™@jd1€2*kd-"]m°ÄeÑ Ä%ˆ¾–½piƼƒ6b».†¢\½Y_aó%ºùBÅ*1Žpõà¹Æ®0άೖ®ýÜÖŠ Wb!ToíbAKp눿‹U€x¢ªeCÕÚÊ×^.k¸\¸ô”â÷ÿõÑ£¤ ÁÅYÕY\ ±¦"^aóÙmLj›/²æ2\¹í\“{«Dñ$n ì]¸àãÂ¥ç!bI(^ÕŽ,Á­CÜò$¦aÝÕòµWÂeëá¥ËeVCéK—H f?.Œ%«àHºâbñòvGÞåíÅK/@(â Ns@¨û¸`Þy +Ïç—~0}æIèc¸ŠxÝfwa„Í—è拆¬¹W‚Fñø’ô@“jOX•\¤µ˜WV~Ÿ3fÒI˜µé{0_9¸R6ƒØ~ îÂÞK—)cl~hp(e78̳ú ¡tõ§°‘ ÿBš :Là(¸¡ÎçENÈp”Ðt€©«ÀÔÙåç @垸Ž{8þ‹!²À²¿‚–ÕõРeP$ #˜d°ù¬7bdëÚÈÈšƒp5Ô.V·K ˬŠFà ·ô¤pä¼n¸BÞÛú_ò_X¬‚h?-CkÀó#è ),Ýru÷á›O|ž Ç?;á„›ŽB¸qàˆ–¼r¹Ðb˜¦Úp©hé'¸.¾°ä•+» òZÜpqvŇ®@Ög§NÆbˆ8ñ¶×C¡t-²ÀŠja„Ígrˆ°ùN¶ž’çÔ=WO5Ï™ÈÎh/<38xKìÎpÆs…)rí§ds°Ú´}ñ©7+ÞnŸ3~ 몕8mC@… Ò°äÕ+[Þ(x¡gê²tÞ¢Ô¸úÔÕÝ£«º_ÙýHyרҮ ;ï›ÙñpAÛÆæ«‹þô)Iè)ÕÂ5‰·ºxÃå½ûÛZ—mi©ûSÓÜ›*V6/m,\¼£`ÑŽ™uÛŸ·mrÕkÊ^™RÛÚøáÂUí¸ö»­®q_ &VÍÇÚ4]âd}a46³6ÂæKhóE9í³pÝsì«£õ=ß ÿ¾ûÑmoŸ»ýÖÙ>ûÎô½~ª÷õ“½{ Å[·ûƒ‚º¶‚úöi³OŽu€¸C‘þ7»ª­`q{Á⶙ӟ޾¥!JÉâ–ÀÕ!kÍÇE œ½Jؽ$›ŽÛ·ûït–¯sÈÚÚ²âØþ| k®Ü]ÃeHÛ¡a„ÒÕ°ËbØôfáêô¼uéº é9kR…«RÓ—¥¦.îž¼°;¯®ûs;G—wŽ*¼zÿ³m¿v²ånR¯©Š—´C€T­K·ìlؽkÍžÖ•M-K6·Ômh®^Û4wMSÅ EÏíÈ_´mʼ—Ç—¯šPݼ§»¨æÎÎpá™ \c¿Êl‰‡°ÍÀ.‰|,q²¼0"pÅæKèºvìá(go„k”j‡’«3ƒ/ºPòœsƒÜ2tî‹0dÝÙú™ÃÕV=d}ê÷?•ß5àëù«£! ÖR›$—àYì?rãÙe©ú éù/§«Ö¤KV§òŸKM[Ü=ea÷ĺº¯è|´èêƒÓÛ~ýÔ‘½Ó$G¯©2p=r£¹ný®5{wýq_몖Öe¯µÔ¿ÒT³®¹jmSyCcáò³–l›V÷ÊÓs–ý®ò"pu4 À5þ‹!¢O¨ë!jÜë'› £~¸bó±#YÍʬ0ŠpRíPò‚ÑwѼ 0õß!kƒsr„KƒK?ÿù?\údÓŽuc—Í{àú?ÿÇfmÃå ðÀÂàÏð§õÀæåÙ8ãd&'.HV«ÿàLÍ~ÈššTŸ_ÝýdU×è²®ÇJ;.¼6bFû=ãî;t®4•´m¸T%K.:ž+Àµê¥«Zw®ÞIR5׬kªhh,YEþÜ>}Á¶)µ'T=7ºò‚¦ájq1dk|‰ãÏ‚×%N6FpµÕ|ì*Ö÷*3šu°ªq“Õ|¡LÁ×(e2¯ \ëÚÀm-]7J/•½è¸­V×]²Â†ð®] 'NËd}¾ö¾ýèGÒßÛT¬éD;ïôµ•Ýþ#7Ÿ®O¯N—®NY§/uÈ:nnjLy÷c%]u*êúmÁµ‘3/Þ;á½}‡zÈÙTÒ&ãR•>÷)ðR5Íy¡uÙÖÖeÛhªÆâ•ôóö©µ['ÏÛ8±zù㥗×yȱaç´p˜‹!ÕŖΞ@b—î;$iaÔW‹kÙà Ù¨[6áÍåÌŒžk”j‡’ŒvXG/l‡©ß!ë€ÏêuÝÕ9/_¸v]}}ëÚ±…Óî¸þËÏþ[åË×È·lp`<Wø v•M¿…‹4ùL,^£qIØÒ’ˆ¼{ó5©Ëzf>—~vIzò‚ôøšÔsº-í~¨°{DA÷ÈBøÐ92ÿÓ{óŽïÿËubMmÃ¥‚+\ª²—AdHÕT²¼¥îeØ nž·žkÔÏÌÝ1¹zÛäêW'Î}þ‰RÈ«¤þbQ]¹íz®–C°Š2™^MâX§÷շĉûˆÂÕRóqí⣙|$±ÛÐIZ×â=W““Qx ‰Îé\ç](]中äV+ñY«D7vç}|fõS£¶oë8p[ðƒT½ÚYùò@X×Y9欽FÆ*|à{Ýõ3À}`!Ê}&1Ŧp=rstejÒ‚ôäEéÉ Ó“æ§ÇÕ¤¯L=RžQœº¿0õ›Ân80ü`þ¥áy'îÀ•Izr©à —ª|åŽÜl,XÜ\µ¦yîZ¸ÏÚ5‰û@_㪬’˜ÜSóLn’Œv˜¸®à¶:Ãcã°öcµsîæn×ý­cþ)¸­°+PýZŠøÊ¡ìh e3`£~íÀöºùg‡Ó‚YirÎI¢ ±_(ýöб/F–õ<^ÓóT]'Úȹ×ï­¼>¼¢çž’ôݳ®þ2ïôw># ¹TôŒŸß3¶®ç±ÚHv¸T  Uãôš¦’eÍåw”-§ù¶L-mšTòÚÓE«Ç̆¼\Á‡ÂÕÖbˆ[¹.b ã“uŒÊš¸ö2¿"nŠ$ia4W[ͧQ˜[bzmYóñ3éÍg2£ÚŠ“ûp¥¤O4¤ º>­)àC &wmiW¸èLýd»É!+ôÇ?þñ矟X¶dvá´_5® p­Ù–"R6ƒØ~Ê’1LýZú½nò™$¤1]“¨òK"½rèÄ­ûJ®?Ru}Ì<Šì#ën Ÿ{ã,é¹+ÿÚ°¼÷½û91¢IE,p©æ¬¹R5NÓT° ¹t)‰ÖZ±¢¥ü¹Ö’…äÏSŠ[&l7kõè|È«|¹Wàñ¸Z\ që!O뺠Q­«TÖ W<†Ñ’´0ꇫÅæãÖ”¬bÜ2WµúTE3?x´d5Ÿëtj1BNÁ•>ì—ã™ê©ýÔy%‚zJÎF5¹kc“Ñ38¸­°uVBÖ­]@ÐÚ©þçŸ=]2㞇GüüI‚ˆX`-P’áJ¼^úYzÑ5²yr•}R ×ðçS·î-¾þÐœÕ\S{ý‰ú×ß]ãáú›ÖÞüת›¿®¸ñ‹âëÃ\|A zMU¹¶¤jœRÞ4«¶©h!ð°ÚR¶¬¥tIkñü³çî|¶t產–‰³·ŽË_=&òªXy‚׺6 W[‹!n=予1\?qk#M*ÃÕ&Z’FpµÕ|š5%÷•ÉªWºÞ@z Éj>×éÔb„œ‚«JC¸š'÷Ô®ž±'kbäApíßlvDÁUýá¿s½ë®„ðg}cšã+çÈeÙe2up5IýLÿTÙdSIíÓÜõþ|úË{ Ó”§GUõóô½3ÏÜ=ãƒ_Mÿ𮩠›úá°gÎ<8ëôæ=©ÛÓ¤œžR=ÿZŠÀuESzÏþ /åׯ˜P²zRÙª‰å+'–¯žXþâ„’†ñ…/>9»áÉY«Ç毚\½k÷'Ë7¥(\ááÏt[˜Â5΋!ÍÔoqîöºÄ!Y{Mega$À5ÎÍg±4¦¼6Dv›ÏdFµ'÷ájK©ØÚaáJ4Apn»nêÌ v[7ùépÆUÝ–Ù4o»äÜ9ßdñóÀ/BºT¹±sEsу©/ÿ|ò–Ndžß=¿=UùŠó %çgH橶¦*ÿxÜs­\{mŃ¼Þùlù«Ý+·•x®R¸’müx.†4›–WQž–8Y^)<×x6ŸÅ6Ò˜JVóE9#\£T;”¼èiaç ýÈ“Mä‘Âä9ô—9ä÷9\t\°ÿž¢xÚ~H]áí×ÿó'ôÿÈ5úy™¡fÿ“%àáM€O6ÂláßÅPÿºJsÜÆâ"ÉÃ'ë £ÁpyóYl#©d5_(S°Â(Â5JµCÉ‹<ìX¸ô„Ì[çàÝ8Îs†à@ž6 Aõt:æy¡Îû. áð çCð¸fx¨ä@€_7ª<ÐßyHV€¶`ƒó*@xü!¼£q^æ Mä§S¸²¾h }aÄœÆæKbó…2{ëÍ¿þ ø>×(Å[^×0–¡ÂCa4µbÛ <[ײáµ`¨Íçmn [å¹.nþðeéÁ”-µó‚ÉWLJ– ª@x®õíÓfgÞŠƒ³sgç£àZ6¼†#–Ã+4_Ðaì%½®è¹z‘0Ûq®Ùn£üY¸âbÈH²ØD¢mGàŠÍ›–1*Û|F ,EBÏÕ’Ù3ƒ£={Ú{ÈáêA¬˜EE¸Æ¬A¼'pÝuôëÃçúŽ~Ô+ñ\Ïöí<Ý·ûäw»ßû*¶n÷lMÞg9¾rŽö/„«·¡–¥Ø×, o![„«³g"Vp¾Š÷\®ÙëÚœ®1m˜ÁÅB¸&¢™¤…D¸&·í ä±‚kNy®Cá•sCí&Ð<¸ÑŽpM\“Ñ#\“Ûvqƒk®y®9ÿÊ9‹pn±èâþdǘ!áˆãÖ0k–ÃK‚p OÛ°-ç<\ᦧ¡x… ÿ6ìæðj?Vž+ÀõðG}N8×÷VØ—ˆ{®žÞ-”3¯œË \MºxH ɬI|Ç ®ÜòE*Ž¸f¢!ñY#y­¯½|ëeÂðàÊE±[#ŽäOUpõŸT!nèE¸z;ñäé@SοrÎ.\ÉTËýËοd‰“27;¨æhΑ•º¶ª8lÖb‘ìNOv­…WQdßp5©¯9\M¬%%Np¸šPÊ.“¤pU Üsµ[x»áŠpõÙ£ìh±ªš¾Ù˜ó¤ŠU¸Ù?¥Ô§¤÷©`$ɲW* øA\B±b˜4=k“E¯ëÚ+Õíd®dj“…½Î:—ô:irîŠÄÔ{®œÇ,:Ðœ§kŸV“¦Õ>J#\ÂëPxåœuÏ•Å•8{NåBÑiBW¨,›=ídÚ™_[ ®¢û®ñeUËÖˆJy©þÒea÷¬ht¼Â•C¦®RXŠuãh'T¤)7¥R⪈ÎÚ”’Þ‡Ѧ”ý¡¶%Â5,¸†Úlq0†ç*ÂÕ‡ûè®t×»¶Rûqhiƒ«f±Â‘!§­¡˜'˜¸­ÔyUµ]lHS0på¼7•q=çÌXúê Êæ¢ñ\®ÑtBö Mô!I=ÐdqË%$¸j¦ls×DãEѹ^ã*™ÃÕ Yl»lÁ•e%Ÿ(¾¡€*¸úX{e±-¼fí®ª [EßÔ½&ØæÂÕŸn1J \ÉtìÃ5áR±v8¿ŠñY h’°å‰Q“ÈŠ’E¸²ÅQ-e\·ÄÆb¯ \¹67!+eI®RW•–Êß6¯ªHæx6©ZØ#·…q[Øg³ WŸ…Àdn „WÍÚEôûéòEº¬‘šâª¥ÙŠð·ör“-ß{õ\Y¢è+Àíúr¸%JoÊR¼©(®Ùͪ`)æ¢Y’èW bu"h`„+ÂÕg7C¸ú.Úd!Á5ÚJ ÑÜüÁ5bq v-³×ø*ƒ¶ì¸" \®&ýDáêS¸h“!\£ÕÛfn!ÁUœòlZkËpךÚð_ÃTêàFVY„+ÂÕggC¸ú.Úd×hõ¶™[HpµYD´¥VáŠpõ9>®>…‹6Â5Z½mæ†pµ©f䶮WŸáêS¸h“!\£ÕÛfnW›jFn á\ñ•s‘wfÌP¢Â5¹ÝášÜ¶ƒ’#\Â+ˆ‹¯œKôØÈÂ#\“ÛŽ×ä¶ÂÕY!¶ô­8øʹDÃÂGvˆßnF*¸6à1V€ôI„«áØŒg´8x®oÿú½ó}ÇÎß>z¾÷Ýs·!¼}öö›g{!ì{¿oÏɾ½'{÷ÿ+¸n÷l=£1x|åíÇvï¹rå&ŒßŒ,RÿNÆÿÈŸÒIA¼D\;ñ¿x+0àdLI‡‰†²Aòòo„«7à"\ã×FQ@³æsA4põ7_`ª(Ûs c êI®«Kÿô´õºf¥¥ 8º¥µF¸†W|åœaF»8ûõۤ،4C‘³Cž`Ò8$‚ªH&Õ”–Š-‰Àþ+VJ¬»IÖxÏÕD¥xÆ W 3ÂÀ‰WMલi¾ZåÆo¨@eK‹p ®^ûYââ[ßæÆ-B9ð¨H£Â7¢ØhR¤©"ˆ×MΤTvªên’5ÂÕD¥xÆ Wv¥ÈUÐë” Féú’Ë…[³²Ó«¸Š5«˜)b^ÒE°&>-¼*­¸FLUçA¸"\}N,aÀ•óÞ¸¶¿å,þ).ZE”²ãJºªe“ˆE2‘Ï®"þ¹‘ÏUß$_ˆƒp5*†Ñ¼Â•[ùy…«jA©Yõš¯¥½W„«~ȳÃYUZÍ÷´ÂVÙ1ï'W„«yo3¸JWÜíØ8†G&·úÁ)µïª a©Ä¥wE,›kÖWW‰bÁ\9LU5Ã)²“ëÒtJå»®¸Y«A2ÂUÕ¸ìû\sö´pl­•‚…W2œ4ãPÅE©Ó)âÊp„뇮Š‚aÅéLx钂ÿa#"\ …Ša4peÙ1\U£FïqªF®j m²üõW“Tæý=Wô\Í{Kž+ WúÙœC,(¤E;ÒQÄÆ×$1™¼¤š²]#¥~ÅÀ}+u;T­ˆpõÙ¿cÌ+\¥ãÅœ¯´pªÔa¥^¦¥š®Žž«•N‡ž«³iÄ®çšÍšätÞ×ä6¯¸r„Ó×]µÚS±“×G`WŸR”Šù²<æY6/½eΣårÑ”D¬+£ª´®ý =Wô\];‰<‚E¸JÛÀg±0Ù`"ƒ«'[ÉDp5±œè8^{š×øæ¾¾^F„«M¸ŠNt'ÖÞ"\sX¥¬W-<¸j<ßµö:JãsCÚwa²ž0$¸&t-˺­&Mã5¾†©Ä”I¦l„«M¸öo&xm‚¤ÆG¸&¢åB‚«8×ø˜}D½QÁ5MãZÈàêš/F°¢ÂÕ\ÙÌ‘†1|åëìJ?ûó†ÅÜ­tÖÂÕº¤aŒ®¢¯À]aïŸ “A«Q)³9¿µ)õNTà'×ÙÉŸ¬}îÛ0ZÄÜ&ÂÕ\«ÆD¸Z€+õV9¾rŽMÎvX¥&wí¬WW‰â!$¸ª°Ä"“…œˆ4C¸2ýù¹‹œÎ즹°\ÏB׫÷^+#\ÃÓ6ËW›p%+‹7aØ;H.¦¸Ÿ,½Â>²x`âÈxÉ"ÚÅÜÍ“»v>„««Dqˆ\5Øý?Ñk”úˆÏ•Æ™-ÂUsE•+)?Â5#Èw®I‚«§fûî/ÂÕSsd+r¢áª¡†…ªmaêÅrËöz|ÜV„k¶†Œ­|®Ù‡«f[8H3#\UêÅj i·x±‚kÿ†Í½=õ‘®A&LW p%{¼ÜŽ«á+çôš¨¯]A•»W;šøv=WöP 7«z*3לҴvée^<î^ ªú­Q¯… ®Òûš¢GH£iœEV@©YÖˆÔ §‰Ø4Dç z•×¼õ}ÄRÛ±RÞGc‰I®vàj¥1’e$žp·þÂv [ÍÕK“â‡a^l´àê£$˜Ä«áÁU\Ž¨V´¶˜'.›85\3WHú$ú=¯má#>Âáê£Û8I¬Ã•Þt`¨ 6‚+>E#¢äS³dÒY€sÈhõÍ=Z“Ì®&*Å3Np¸ö% ¥\™g"‰×8æËS“¶I±Ɖ\÷ûêèG½GÏ÷¿ï~tÂÛçn¿u¶¾3}¯Ÿê}ýdïÞã_BM×íþ€-°7.Z‰=»ª­`q{Á⶙ӟ޾¥! ú‰N\5kUOpåœÂè—´*¸²Ó×HåX¸v!„««D±®dÆ“ÖŽ»Nþ”®hU S`\r±¯ê¹H“‹K^nJkÄ%árÔ|«ªŽ+Ú}t„«7æ"\i' ®œ÷Ƶø­ 9âÜÁR·>FŽ§$&pWÜäèoü#\=µT¬"{…+·jÔÃU?¸¤D\•²Yˆß²bŠTs]òJW"ÔE?U{iùÛ ®WŸóI4på Çq™Ïá(GA5ˆ×¹éÉGS!\}ˆ“$>à*:m&’V*LêáÄ­}Uz"Ÿ¾$^¿E¸â¶pL†¶K1B‚+¢ªȹª*gÎ먋@q±¨&SÂ5‚¦‰mþàÊùˆ^áJWxš1¨â¨f½ëÉO]péÀ÷:Ì®×ØöA‹®´9ÄîN°6Ul©¸b¸.#¤^»×²¡çêU±øÄ÷ WéxñW)>]=Wš¬=qÎÜÙ¥+C«&+}·…ÙÏý³þžkØóµÒ䶌؅«­R¡N\ð¿+@Ñ\Mð&Æ·…¥¾£oý~ ë­Šþ´ë’W•„-?Ýå’.šÅ=0Î&Â5I§…Ã~.R|àC¸Š‹£øÈ•­’¨àÚ‰ÿÅ[ßpÍVO3äz‹qÖ蹺{«l •çʾâm`kâÎúé“ú¹7Áq`’>­ÉŸ7ÌeF¯Š!\èfÒmâ¶pr[ПçêZ_é”çšÊ$BÄ÷YLŠ”Å8W pe¬×ô9šg ñƒýQÙ¼/"\͵ÊbL„kŘuHp X*Ln¨ÂÕ&\û7Fî(/}g£Ç0gŠõ†¥þ®øbiîÜI.âE“Þƒp5Q)ëq®Yoß@¸ú–. ®I‚«§Äë5Éáj¢RÖã \³Þ¾ €põ-]"\³WͶp.‚p ¢^ΤE¸&·)®Ém;(9ÂÕ\¥›«ªíVz¸‰ÝéU}7{ {›ïÍ^Cû =Ws­²ášEñfp (`v“#\íÀ5»­˜•Ü³×Ž#FE”í…pRm»y!\íê±5„+ÂÕg—³ WñéEÒb©ÈgHD®±=eáS¦l'C¸f»üçpõ¯] R"\®>»¡u¸ÒrhH®Ûïò÷p™|ëS¬ì%C¸‚ö†k¯ìµ’<çðàÊ âiX™¬Pã¦dVʃpE¸úìxáÁ• U+¯K„f⛪L%tFæª\YµI{E&—á&«Cdeó9–É‚ÃÕš†Ñrrõi·ÉXkW„«ÏÞ\Ù1O>³ÿ²C]Œ©™ôS‰Ê”O™²,'áj²ÉpÕ¬xTž«~ͪSâؤö¥‹cÕ·Ù+–óG¸"\}v©hàʹ)tK¯ÓÁ¯wnÄ™…®&ÂÓ|ÊÍ°ÔÓå¤6™Ù¹=^Í4-mS“ø&qL$ Ç«ç*ÕSµyÃM|Ra¥ËPqp±ç>sË Õ·ÁµŠ¡„+ÂÕg·Œ®\áØ9]åšHg“È¢qWS>µ‹0Yxž+·‘ je¢§*Žf‰£_ýH{ˆªÛxÚ ‰¾3ø€+­)‹1±»qu1iÍnªEÄë"þ# Qg¸î:úõás}G?ê…pø£>'œë{«?ì;Û·ótßî“ßí~ïKfÝîØ{㢕ØøÊ9ÚCÃ+ë:ˆ+_×%¶~òU¹>šy6êAi5¿PáÊŠ):|¸rÞt=$qg‚í4>×ÄäO'ªøŸhZ=®¬6ZƘ?¸²õR•*pe[3 õ²náê¹z¸ö㬷iD°Wé¤À]gpnzåæ_©®ó¬Éô‘ʳ‰®®ÎŠáÚˆk#Vñ+}¦â²Ék!¹Ü5e Ü\ƒ x…+]F¸–0>pWBv5Ì¢5„«¸â+ç²Ø‰1kaÕ]Üø§Ê»ùÇe¤Â­h-•yvž RôWCVIá*e³ÞéWéÉ-yÙ5±ê«4Ì¢Y„«¸â+çö`i´‰É‰Õ 53/Û⤜š+\SJÝ2}r©«*nŠ¨®p%Œ¬kùƒkdÅÃŒô \mµŽ¸#8¾r‡_Ö ®áÕËuK3¼¬)DÃÎÂÐ~ á*N—†u‚Ñ®I‚«§öÝ_»÷\=U #›+\UcƼTbLÎk bÊ_Ú¬@,v áêOÛ¡™ áš}¸â+ç†æØ‹¦ÖaÀ5š’c.×D÷„«¸’Ý`6H¯ l:9ÿ—Þ¦¥§¢4É {¾rÎP¨œ†pMn#\“ÛvPr„«¸&ºø+,kª£‚kþcHƒ&®v{2×ÉC5|~À{®ÞÈ ±]h¥UaÄ:\ÅÑbeüX1"¶ˆW³æµójYß[TpíÄÿâ­@¨p%í9þº7{ŽMÖžŠá)²ëŒjך¸6r-€Å_|v¬Ý¼q þÍ÷[(þ¦ìÂUÚ¹éE:ŒÙ逥bS5f¸øR×V‡³¬ÊšmAUíhHö_irVÂۆBÅ0Zxž«¸ê‡˜jô!\Ãîi×°Ý~dp—Ø«4kp=³¥<“NUÃå¿I14à¿2_h#\C ¡e*\Yø©V±ÒE'W]q0rKF×e"_¿bf²bÙÄo]×â®Ò¶xÏ•m#÷ÏøÊ9ÚÛ² WŽjªYÀ„jÜ›ÂUN–¾\Q EÃb°®7Spë„kY/)i#†«jéº Ä2L¿a£_&ªzµ§õ®¸h0©—á*ÙSÏA¸º•ázÏ5ì‡zjÝP#g®t´KG~x«P* ¤kp®&"û€«X ù‚ô\M(žq†«fÅ&Ž,vÑ©_wªX«ò•5l—˜ªqª1.®€]qk¾xÕô„«¸â+ç‚OOb‡Vpn€éW*³œ›¨_}«F£ù‚פÁ<#®!®Á{f¶,Ä®¢šžÉõyqª•®tÅQ`Ñs54N ±W pÅWÎÙš}ØÆà–¢l_g׳¬« œY:rh|);¹ÑÅeʦ5‡ªbh¦Í:ÝPs„«¡P1Œ\YŠ¸úsR‰<Á•µ _:ë #2âpVeáj\³Ì5ï'q€ëÇ¿~ï|ß±ó·žï}÷ÜmoŸ½ýæÙ^ûÞïÛs²oïÉÞ}Çÿ •Z·û¶ÀÞ¸h%¶t[Xõš9|åœyGĘ!)€p IØÌF W“E§Þså,ˆž«WÎG”®¡¥ Y ¥”å,‹ËVA\»ûkk„«7æf®žÚ8컿ï¹JÛÀSe1²J„krûFxpM®& *9Â5ûpÅWÎ%hÀ$®¨QÂUµ-¯ÍG’Ä5ï‡W\ËúnO ®àÚ¿³¯œóÔñ0rD „ Wî.²RZL¢2å©>Ê^C†×𠌖Y®và:{•Åmá!¨^dU®"‡|ÉG•tRS^ i±<Á›á\Ã,Z@¸"\}v?„«Oá¢M\U$ƒè¯pgO8/“HÅY IĘÒs(R¸’˜*ãšo£mºÄ?¸?b¹â–Âáê³O"\} m²ˆáJ+G¨¹BIÿe?ˆ_qWXjŠy±KÙ,6‚ªÀ”ÁѶ›“z®Ñkn1G„+ÂÕgwB¸ú.ÚdY‡+çbr®$ë&†WWº³ôå˜-õ¤#k@„kdR‡‘Âáê³_E×XÝãœ!Ÿª$“îd¤“GÉ:\¹b‰p Ûsuu¦YßTtˆ}+³yíÌcšÔ($Ï•Ê«ÙSåâ°£»Á&Û°l “¯DϘKÎE×^¬1­‰æ¶â„ W×u§a?WE3LÎÊŵ Ø Rm}dd«4v®6áJßAËe= »p•zQ5?²D_J3楨t¢—BS0óÁ/b‰˜M\­wÂxÎ’Ö«ih0T¸šHmGÚc}/m®†}C}YzâŸ-‰põ)\´É"€+THÜõå¶m¥»¸¢ïKLq3t_—&F~­ðr ®š½tßEçÚNlJnAf²ÇàŠ=¯™jvD|W\šá\ٗБƒô)NÜgEcgÞàïå6bîvû XC¸Z—4 ƒ!Á5Œ¢¢MNàpU‘I¼îÊ0“ÖñÊ9“L]ãxÍáš ‘0|圪×úÃ*³6ôŠ“±á)ÂÕ“\ÙŠŒpÍ–òÁó WWÇQºÀy“Ü·Ù î1½é¿lZ‡Úç®°{!4¡´Fšì¨ç$µÀ~«ÙÑ¢obô\-x®âƒ…Ú’Ÿº°Äy¥ÑX ,¹ôÒŒ<å.f¤Jî:5 \]%ŠC„kZÁ_¼ÂÕDð03Ï:ŠD¤àd?HÁÉ!VGš…+ž¥¥eAË-¸ÒJ—&%1oJ„«¸ªä6Ÿ«ÔBÀ_åLîÚ‡®®Å!Â5­à¯ >à*z„®Y‹@Ò_=EŽs"}9ê»BWŠa©s)%=ëõrî©XT6/._.GÍN€Td„+ÂÕuôÉ# \} m2„k´zÛÌÍ\9—Ôµ@I«Ú‡Éìr;É*¢‹4•:µœkËRYõWB„kXpÕïÖºº•¾wkºÿ <×1æ5ÂÕ«bY‰pÍŠìV2õ W ¯–9\¥bk*RÇÄ ýT©çjâtš˜òWͲ¦¡®aÁÕÊ芳‘8ÃÕpigym• ájKÉèíø€+Ç?·çzÏUŠjÑ4+kŠÃ-] pÚœªY7¨ˆ.fJ¯P¾r¹sÜ%ò´pA¸"\}NaÀ•ë»ú‘¬)·®\{û¬|r’!\“ÓV|IýÁ5¹õ5\$¥‚W„«Ï¾šP¸J7…|J„dW½kç6 ®â”riÏ áŠpõ9²¬ÃU¿äºEÃF`UZ=ñ&Š§ Ÿ’e#YHp7‚L‹\{éMyÊÈ“ål´.Ïà·jæjy®WŸ};¸Ò©¦TîŽè˜Jª6œ=MÜ>…‹6Ydpõ]-Í=3“…‘§»Éj_„«ïN‡„W„«Ï~˜]¸ê=×›µWŸ­>L㹊{ ÜŠGÜ6à £ß¥pÝÃÐìüK·4T¹:æPX69ÂÕ¢˜Ñ›Š\wýúð¹¾£õB8üQŸÎõ½ÕöíÛyºo÷Éïv¿÷%ˆ³n÷l½qÑJìÙUm‹Û ·Íœþôö- Ñ7X|r´ W±u ¦&DÏUß%Bò\iëÐ6‚»ÂÅd‹­â±]Ã^ÁE“î¨^ 3¸4ÑÃUº©À6“foVÕš,}U¥«C¬êQҳR'ØnO@¸ÚÕ3bkq€ë…Ž¿íy÷‹7Þ»µ÷½/i€?!ì<úUË»_6¿së㎯A™×ßù7ô\#î!Êì"€+™ Y‡û,~«òŸ¤>ëа¦D̳S­ø9.M"+GôpÕ¸›Rvz]T©–;ú&Vµ ??U³>°Ø®ÅŒÞTÖáúÒî6ÃZo}ëêÍ×W|åœa»b´P®RGPJ>CRƒúÝó½ÕƯ«WÊ®ºÌ«i½£„k4ËOÅ°HžÊŸu¸ÞøâË•M×l<[±îÃòugÅ0gùÚçV6·_¿õM’àÚ?&ù—¾±O=4|¢§æì$æ•sì»è»î˜*1\ Š¸m=\¥û«Ò= ý†´Ñ]·|Ùk¶=ÄBFÐQC…«FßÃGl÷ € ’Öw,&Ì:\¿üâú_!|yó«¿~öõWŸóÍ—ßþí¯ß~ûMoïßz{¿…pûöwÿ{/ 1…«§—¾èÒ)ƒÙW©¬¬ù†ÆWÎYìúCÄT¨p"^³¼*2üʇ«ŠOzŸÞwÍ®¬tW©×¤¼èé´0¾rÎ÷(Å„¶@¸ZQ2?U,g@¸r¨Ó/4ûì†ÁÀºŸ {Ýà6Ä?Eãd/AÜQ Yp»4¾•†¶háŠpõÙìhòYLæ¦ÂÕM¡ø~ï®Üö»®,º8^²l£ÒpæR"r ¥ˆ51®‰#®ôuÌnÓ"\ÂëPyåÜ‚‹ä‡¿NOÂCêÛgUŸI¦ª;ͪ5ìä̺’¢ê5;ÑWfwâ|_á\Mºu¢ãd&k€k};†8+€pMè@óW¯;Ø^i§rIE¦J}PŽ²¡¿·VF¸"\}öI€+øC’¢z®>;zö’y…«¸ÙkRvs¸²øä>‹Èd¯¨œ`»qL*e„+ÂÕgƒÉzĨ’¢ÂÕgGÏ^2p•2O¬x|IäŸÕÒhⶰt£X<ˆäºå+zá\Éq[XlÜ/>»á§5¹ðSœì>Ì0U€ƒkþcH£úƒ«i‡Àx!+€ž+z®!w148¸vâñV qpUͤñèþY(Âáš…n‡YF¯n G¯yÀÑs (`v“#\®Ùí˜{D \#Ú^6W{ZfÁÂÕ&\—ýúHÂ1hš—Dæ"ˆWTؼhzѵ[™g¦¾7ßôño“×`„@¸F ²Ý,®võŒØÂ5,¸RÊr4€ WMZ=;É·žøjÒG‘©&*Eá¥ÚVòB¸Z‘1[F®Öà*å“Ô•ú”†É¥ÅŸz¿Ù¤ÿ‰ž(uL9•ÆT]×dÇ=~…;¾Ïþé¸Ñýÿ±ˆeñ—&Ìí8×ĵ/Â5qMÆá)\Y rD WÕƲ¹K*µ vnÎ%eñÉ~%z®úoÙŒT?¹£q¸ÜoÝô?ÅKôp Rx„kõ²’ášÙmeŠpÍ\¹& Wjʇó[³§pð=T2­ÃUåJE.þöÜÖ€I®„kâÚ.J¸Æùi t;*Y-ˆpêpÕƒÙÄs½ãP2Ü WÂQú¯8´Ì}ÓøO‘Í×Ȥ¶•Q¨p éQGžÌzžž"Ûj‚ v®Yƒ«­maéV³fÿYÚ]Ì5‰ÛÂqƒ«9zƒŒœÄ¥\5seâ¦Q×Îà¯FÁáªÊW¼î¯„\Žšõ”©§È®-A„kˆpU\âînr?Úa[ÝðŽ©aFúþäš—xL‰=â$ýìã@ÓT ïšçšŠÛ(¦cO3IÚ:\êåò€E >ûC@¸’ZK /¥ U‰ƒ¬vˆI·j5fi|Î ýSº&f‹$mD®ÌĈ?µƒ·2gáj ® ¬+Ÿ<µŸ]kž²Æȹ§€]¸Ÿ¿"ƒkð¢ï þÊட4pe¦"&EDqWDʺòXêãJJé詇Ðú“:x‹®×0úÚŒÀUt#4Î8uŠN ;‰«<nC:‰‹¡**µ&zZ«üUVDÓQ|À•eŒ!f\QÊÑŽ¯ÉBêD²³-çbŠ gÎ54»ìB„«M¸f·-1wT@£€]¸t}¸‰U:ϪÜ#é,,N»¢C&£÷ÉÄ2ˆ8ñ 'ó^ꮞø-uõ5ò Wó†ãb†§°y[øˆ‰pE¸úè6˜$y X‡+Ç*n éyé Wq"6A£Þ¬‰Ž¦¸º:a®®˜kò WqÅãš…'¸j|M1#ÙEª•¹ ÂÕ¤i|Ÿ«'¹02*TàÊÑÜSIœçjR5 9D÷WÚº>à*./¤–¹•Šš¢¬Yô°h—ºžÒ$ J\6G.w±Ì¢ACaƒŽ%³ôY÷\oßþά¤N,x¹:[`oN§•Ø³«Ú ·,n›9ýéí[Ì‹Ž1Qì*%\Í] ª‰tÖíè1,E‹8ájÐh蹫!ÿ š?¸f·›aîT¬ÃJÒy³ïýOûŽÿö¾ùËûß<õÍþ“_½qüë=ǾÚ}ô›G¾j:ü׶Îo!æ§W.#\±÷¢~° W½A‘Ò„¬ã¢Â§ÔÅÑdÄj$uÔ8ƒœ)Žëtõ>“¡+æÚŠÉ‚«è½¸V0·#Ä®@ÖËé¿Òù÷/÷¹tûýö¾SnûøöÑó½‡?ê{ëlßSßí}ïKhˆÓÿÖžx¸Âˆâ·g>{1ÈfFãmšäNMõÏ ™à³pV“™Þj†õBµªq»p µ¨hœ(,¸b«q ÂU5­±˜ð4õÑ{®PðY¬ç;úÎ\¼M°úÞù¾ÃçúŸuÈzèý¾'¿Ûwâ¯óàñOb WO¼ôÙ¤ËrÍ Ob’;Û–&ñM ©Šãɾ§ÈAJ•{i®‰kS„k⚌-°!\‰ãúŸIb„…ë;~C|Ö“ú«Žžë¦î?u›ð\œp<×–·ÎÅ®ÇQêù™ÈDñÆ­Y4ª¸Ò‘f$^ ©‚+“óqÙþaèòZ—Nãvkªé*²ª:RAÈh1oe±áD \ÐTS:J!>ÂÕuþŠ[„kÜZÄSy|ÃUC éLÅM,\½ÿ7g+¸½+ø£^€©ûNöí=Ù ÿB pݲÿÃ8ÂUºôàfL<&$NÐ*›š©_̈›ô¥6ÉEö_®Ž4•yLsÏ5 tš‘2HaF‹gž»*#N“Š‰íšrr9’˜W“A«8×X5‡×Âø†«8MqøÔO,\áø¬'?é{à©Zâ¹Y«à ù@àºñ³‰„«t²sm*ÑõQ9C¥œP]¤`'nÑ,™í"†Å˜&Œ‘ö*¯ë óÄUˆTRÃÅŠ'ŠK«/UIßîRr«:ÛèW×·׸µˆ§òX‡«‰qX¸ÂÁ`*p”„7ÏöBxý”CVÿõ¸sÏuýn„«¬yõÐÕ£]Eêáégs«†›ëRCƒ WŠˆÈ×[oûVó§æ©\OC¸Š ¤_¾dàºà"ù-™3ò1Ä\úöYÕO›}rĨ¸6ò¶8DŽ\á'7d+˜å+ý ”}œ×ãŽçš ¸J>¯î:U US³kFz`p(ÝY1‚î½\¬ˆ¦jÀÕ<÷€žkÖàZß^€!! Ä®ìï”bõÜ×Ù&Êq€ë®£_;gƒûe*ùàõTïî“ßíîÿ)κÝÄt[˜†E‘þ SlrvÛ…]sa³æèÈše7Ø‹Ÿ¥1¹rÕ—f¤q­\+¥Dï®qK M!Y×SÓ”úrªdt­85ëÚî&k#iw×| IT ÏUóƒcW!\]%‚&p•Žwñ¢É´@gv[¸åÈ×ð“øI+ ”¯­§{Ih9þÝΣ_Å®&rcT  †¾»˜ Àæh UÀî¶p@wáj2ŠMàjbÇk®;Þþ~x|}ûìí·ÎõA¾îû°oÏÙ¾gúšNõ6û®åhì=W¯`|TÀ\Ñ™6Oë)fdy*FŽ®Üs}û7Àø§þ’†ààÊ=˜D€è‰ëq€ëö·¾‚Û_ßü ÷Й>ÏöY_?㸭M'zw¼÷mËá…«ts5qÝ(+Fé²"{”™bSµíÂUÅ?šôÙ"VYsŸ9 5²BõßÂ䟣ç{ Êu²žëÖ¿|¹çø·{Oõ:‹8õÝþSßî=íbj=ÙÛ|ü[ kãÑošß›ñ=ÐäZaŒ€  ¨€o¬Ã•å¨ÈEé{ÌáÊÝЂdåàê»Ý}$dáz¡ão{Þýâ÷nÁ„I€Ïp“BëÑ¿¶¼ûeó;·>îøriüËG1:ÐuÀ€  ¨@ $®úWù EB“°¬Š ‡°Y€bð ¹·?ì2”®ñk1zåœa¡1*€  Á@¸×0b ÙºçJª °¼ñÅ—[ÿryeËÇó7Ÿ¯Ùx¶bý‡sÖ}P¾î,øLBõÆV6·_¿õMŒàz=u>çƒø©x^éììÌù¶À qìÂÕõÜF®æ€’Þ÷澈ñ–ÝìX¸š÷^xSxô„‚Æe[Ø\¬äÆLÊ„krû–ÜP»pÍ.u†Hî¾ájØ%,FC¸Fí+#\-v_4… Q J¸y¾Ä§I5®Þv:gWµ‘G³'II‹pMJKa9s^(ájBŒãªÂáªtˆ®9?ec“¢ÂÕfq‹€pE¸"\£ÞoOÊ„ŽåŒ׸±Óµ<×XÀ a}·™\Ï•6*UÕŠ®m<×,0ÂÐTߘ¼7$2o 4ï´pTØ$²tŠ#¥ÉÅë았h¢Oµ"Uâþ4‘ â„1)·)Ççkúz³×ølI¸ÓÂlÅéç jˆýXÕ¬Ar1ì*mh*p® yY¾Ö o 4ï´&p§8é¤G25ÁpLáJÊÂÕ\JZ¯I\ãŸèƒÀÕuÏĜӮ¦4pEÏÕµŸ`„D(€o Lâ»I™áELæ}Ì®¬52ÏkàªBL#eצWö ÉË•|†‚˜òWN=•›Ë*©_ÙÕÜ°ó`´¡¦¾10¡ï $Å6ï®WÉOqȆ°¡ˆÜv¥èeªÖ#z÷ŸÅ@p›žàJ¡EhJÒÒ¥ìdñL#Hí°6‰Y6­ø qýaE ±qÃhGÃ.„ÑPT ÷ðWnþѸª 0ãÆü Mžàªrä)T³6A¯kAê®I#pðfýNŽ—”Ò ^«"ªE «²SÅ$65Oh;Ÿo…EµÅ®\óÜ›,°F¨*`®€9\¹¹šf!© Wöe}æ:jü \õö-Ú”âPD,%åç¹r~'%(kŸ~fá'e*·¼ðWiw$E s:«à*¦ ’‹yçÁ˜¨*{ •›ŽT Õ—M’Sš¤4Y‰hD´nSïk²ž«ˆI–Á*¸ŠT¸UåE,›Ÿ¢°~=È:H.¹7Y`PTÀ\¸êÝPýL%ÅmLáêû§8Äã¶Y·Lµè qijk3T¸Rã,†¥påöŸÅ8žî¹úVXå¹ÚÕÜ|bLTÈ= á*Îc¸ùJÏã˜Â5÷Z—…ºxTu…mlóma±ìa%hM4åp£`ÕPT ‡0«õê#\£~Jç¹r—âó'¾rÎú`Cƒ¨*®øVœø°UwZ8+Ã3EPTÀŸW„+Â5êcS¡¨@‚@¸"\®WT@,+€pE¸"\-ª-®±¨¨*’×!W8(””ÿBêèh@P(È–×ud_@Ëþú#¢Ï³«Ú \,XÜ^°¸-yï¬Ã2£¨*€  2˜wäET6› \ñ•Š¨*€  ¨@n)@_@›¸&÷‚XrT@PTÀUxG^ôpýÿà8, wyIEND®B`‚tkcon-2.7.3/docs/dump.html000077500000000000000000000066401357645571500154570ustar00rootroot00000000000000 tkcon: dump procedure
tkcon: dump procedure SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
Getting Started Special Bindings Procedures Screenshot
dump tkcon idebug observe

The dump command provides a way for the user to spit out state information about the interpreter in a Tcl readable (and human readable) form. It takes the general form:

dump method ?-nocomplain? ?-filter pattern? ?--? pattern ?pattern ...?
The patterns represent glob-style patterns (as in string match pattern $str). -nocomplain will prevent dump from throwing an error if no items matched the pattern. -filter is interpreted as appropriate for the method. The various methods are:
dump command args
Outputs one or more commands.
dump procedure args
Outputs one or more procs in sourceable form.
dump variable args
Outputs the values of variables in sourceable form. Recognizes nested arrays. The -filter pattern is used as to filter array element names and is interepreted as a glob pattern (defaults to {*}). It is passed down for nested arrays.
dump widget args
Outputs one or more widgets by giving their configuration options. The -filter pattern is used as to filter the config options and is interpreted as a case insensitive regexp pattern (defaults to {.*})
© Jeffrey Hobbs
tkcon-2.7.3/docs/dump.n.man000066400000000000000000000033261357645571500155150ustar00rootroot00000000000000[comment {-*- tcl -*- dump manpage}] [manpage_begin dump n 2.5] [copyright {Jeffrey Hobbs }] [moddesc {TkCon}] [titledesc {Dump information about Tcl interpreter in TkCon}] [description] [para] The dump command provides a way for the user to spit out state information about the interpreter in a Tcl readable (and human readable) form. It takes the general form: [list_begin definitions] [call [cmd dump] [arg method]\ [opt [arg -nocomplain]]\ [opt [arg "-filter pattern"]]\ [opt [cmd --]]\ [arg pattern]\ [opt [arg "pattern ..."]]] [list_end] [para] The patterns represent glob-style patterns (as in [cmd string] [arg {match pattern $str}]). [arg -nocomplain] will prevent dump from throwing an error if no items matched the pattern. [arg -filter] is interpreted as appropriate for the method. The various methods are: [list_begin definitions] [def "[cmd dump] [arg command] [arg args]"] Outputs one or more commands. [def "[cmd dump] [arg procedure] [arg args]"] Outputs one or more procs in sourceable form. [def "[cmd dump] [arg variable] [arg args]"] Outputs the values of variables in sourceable form. Recognizes nested arrays. The -filter pattern is used as to filter array element names and is interepreted as a glob pattern (defaults to {*}). It is passed down for nested arrays. [def "[cmd dump] [arg widget] [arg args]"] Outputs one or more widgets by giving their configuration options. The -filter pattern is used as to filter the config options and is interpreted as a case insensitive regexp pattern (defaults to {.*}). [list_end] [see_also [cmd tkcon](1)] [see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd idebug](n)] [see_also [cmd observe](n)] [keywords Tk console dump] [manpage_end] tkcon-2.7.3/docs/idebug.html000077500000000000000000000112411357645571500157420ustar00rootroot00000000000000 tkcon: idebug procedure
tkcon: idebug procedure SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
Getting Started Special Bindings Procedures Screenshot
dump tkcon idebug observe

The idebug command provides an interactive debugging environment for procedures via TkCon. You can place idebug break commands into your procedure to create breakpoints. It will pop up the TkCon console and put you into a "debugging" mode. The body, show & trace methods are intended for internal use only.

This procedure works for minimal debugging sessions. Comments are encouraged.

idebug body ?level?
Prints out the body of the command (if it is a procedure) at the specified level. level defaults to the current level.
idebug break ?id?
Creates a breakpoint within a procedure. This will only trigger if idebug is on and the id matches the pattern. If so, TkCon will pop to the front with the prompt changed to an idebug prompt. You are given the basic ability to observe the call stack an query/set variables or execute Tcl commands at any level. A separate history is maintained in debugging mode. To see the special commands available at the debug prompt, type ? and hit return.
idebug {echo ?id?} ?args?
Behaves just like echo, but only triggers when idebug is on. You can specify an optional id to further restrict triggering. If no id is specified, it defaults to the name of the command in which the call was made.
idebug id ?id?
Query or set the idebug id. This id is used by other idebug methods to determine if they should trigger or not. The idebug id can be a glob pattern and defaults to *.
idebug off
Turns idebug off.
idebug on ?id?
Turns idebug on. If id is specified, it sets the id to it.
idebug {puts ?id?} args
Behaves just like puts, but only triggers when idebug is on. You can specify an optional id to further restrict triggering. If no id is specified, it defaults to the name of the command in which the call was made.
idebug show type ?level? ?VERBOSE?
type must be one of vars, locals or globals. This method will output the variables/locals/globals present in a particular level. If VERBOSE is added, then it actually 'dump's out the values as well. level defaults to the level in which this method was called.
idebug trace ?level?
Prints out the stack trace from the specified level up to the top level. level defaults to the current level.
© Jeffrey Hobbs
tkcon-2.7.3/docs/idebug.n.man000066400000000000000000000056221357645571500160100ustar00rootroot00000000000000[comment {-*- tcl -*- idebug manpage}] [manpage_begin idebug n 2.5] [copyright {Jeffrey Hobbs }] [moddesc {TkCon}] [titledesc {Interactive debugging environment in TkCon}] [description] [para] The idebug command provides an interactive debugging environment for procedures via TkCon. You can place idebug break commands into your procedure to create breakpoints. It will pop up the TkCon console and put you into a "debugging" mode. The [arg body], [arg show] & [arg trace] methods are intended for internal use only. This procedure works for minimal debugging sessions. Comments are encouraged. [list_begin definitions] [call [cmd idebug] [arg body] [opt [arg level]]] Prints out the body of the command (if it is a procedure) at the specified level. level defaults to the current level. [call [cmd idebug] [arg break] [opt [arg id]]] Creates a breakpoint within a procedure. This will only trigger if idebug is on and the [arg id] matches the pattern. If so, TkCon will pop to the front with the prompt changed to an idebug prompt. You are given the basic ability to observe the call stack an query/set variables or execute Tcl commands at any level. A separate history is maintained in debugging mode. To see the special commands available at the debug prompt, type ? and hit return. [call [cmd idebug] \{[arg "[arg echo] [opt [arg id]]"]\} [opt [arg args]]] Behaves just like [cmd echo], but only triggers when idebug is on. You can specify an optional [arg id] to further restrict triggering. If no id is specified, it defaults to the name of the command in which the call was made. [call [cmd idebug] [arg id] [opt [arg id]]] Query or set the idebug id. This id is used by other idebug methods to determine if they should trigger or not. The idebug id can be a glob pattern and defaults to *. [call [cmd idebug] [arg off]] Turns idebug off. [call [cmd idebug] [arg on] [opt [arg id]]] Turns idebug on. If [arg id] is specified, it sets the id to it. [call [cmd idebug] \{[arg "[arg puts] [opt [arg id]]"]\} [arg args]] Behaves just like [cmd puts], but only triggers when idebug is on. You can specify an optional [arg id] to further restrict triggering. If no id is specified, it defaults to the name of the command in which the call was made. [call [cmd idebug] [arg show] [arg type] [opt [arg level]] [opt [arg VERBOSE]]] type must be one of vars, locals or globals. This method will output the variables/locals/globals present in a particular level. If [arg VERBOSE] is added, then it actually [cmd dump]s out the values as well. level defaults to the level in which this method was called. [call [cmd idebug] [arg trace] [opt [arg level]]] Prints out the stack trace from the specified level up to the top level. level defaults to the current level. [list_end] [see_also [cmd tkcon](1)] [see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd dump](n)] [see_also [cmd observe](n)] [keywords Tk console debug] [manpage_end] tkcon-2.7.3/docs/index.html000077500000000000000000000046511357645571500156210ustar00rootroot00000000000000 tkcon: Documentation
tkcon Documentation (June 2001) SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages

Release Archives (high speed server)

Screenshot

Please read the following pages carefully to fully understand the features AND limitations of TkCon. I'm always open to suggestions for improvement.

Getting Started Special Bindings tkcon Procedures Screenshot
dump proc tkcon proc idebug proc observe proc
© Jeffrey Hobbs
tkcon-2.7.3/docs/license.terms000077500000000000000000000032131357645571500163130ustar00rootroot00000000000000 * COPYRIGHT AND LICENSE TERMS * This software is copyrighted by Jeffrey Hobbs . The following terms apply to all files associated with the software unless explicitly disclaimed in individual files. The authors hereby grant permission to use, copy, modify, distribute, and license this software and its documentation for any purpose, provided that existing copyright notices are retained in all copies and that this notice is included verbatim in any distributions. No written agreement, license, or royalty fee is required for any of the authorized uses. IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. SPECIAL NOTES: This software is also falls under the bourbon_ware clause v2: This software is free, but should you find this software useful in your daily work and would like to compensate the author, donations in the form of aged bourbon and scotch are welcome by the author. The user may feel exempt from this clause if they are below drinking age or think the author has already partaken of too many drinks. tkcon-2.7.3/docs/limits.html000077500000000000000000000055351357645571500160150ustar00rootroot00000000000000 tkcon: Limitations
tkcon: Limitations SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages

Limitations:

TkCon requires Tk8.4+. Since TkCon is meant to behave like the original Tk console, it does not separate itself from the environment (it does not use send to function, except when attached to foreign Tk interpreters). This means that it can be can be altered or destroyed by any sourced applications, and it will respond to an application's 'exit' call by exiting (by default, slave consoles will only close themselves instead of exiting the entire TkCon environment). However, the widget tree of TkCon is hidden from the user environment.

Since TkCon is built for cross-platform capability, in Unix/Windows environments it does not have tty/shell behavior. This means programs like vi and less (those that rely on tty/shell settings) will not function appropriately (currently they may hang TkCon). Programs like ls and more will just spit output to the TkCon screen without any special control or formatting (note that ls has been rewritten for TkCon). You also do not get any job (process) control outside of what tcl normally can provide. Currently there is no way to handle stdin input.

When connecting to non-Tcl Tk interpreters (ie - PerlTk, SchemeTk, ...), you must use the syntax of the target environment. See my notes on using other Tk-embedded languages for more info.

© Jeffrey Hobbs
tkcon-2.7.3/docs/nontcl.html000077500000000000000000000047651357645571500160150ustar00rootroot00000000000000 tkcon for Non-Tcl Users
tkcon: Non-Tcl Usage SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
This document is for those users who are trying to use TkCon with a non-Tcl based Tk language (ie - SchemeTk, PerlTk, PythonTk...).

TkCon requires Tcl/Tk 8.4+ to run. However, it can attach to any language with Tk4+ embedded into it with the use of the Tk 'send' command. I have been able to succesfully talk to SchemeTk-3.0 and Perl/Tk. When using TkCon attached to these interpreters, you must remember to talk to the connected interpreter in its language.

I welcome further comments from users of Tk-embedded languages on their experiences or ideas. Of course, you can always try to port TkCon in full to your language. I'd like to see the results from any such efforts.

Special Language Notes:

Perl Tk

Read the man page on Perl/Tk's send command. You have to define Tk::Receive before it will work. Stephen Lidie (lusol@Turkey.CC.Lehigh.EDU) contributed a companion Perl/Tk program that does the trick with some extras.
© Jeffrey Hobbs
tkcon-2.7.3/docs/observe.html000077500000000000000000000071511357645571500161550ustar00rootroot00000000000000 tkcon: observe procedure
tkcon: observe procedure SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
Getting Started Special Bindings Procedures Screenshot
dump tkcon idebug observe

This command provides runtime debugging output for variables and commands without the need to edit your code. For variables, the underlying mechanism uses trace and dump var. For commands, it renames the observed procedure and uses a special wrapper procedure. WARNING: using this procedure after checkpointing state will result in major problems if you clean state because the renamed (true) commands will be lost.

This procedure is experimental. Comments are encouraged.

observe command cmdname ?maxlevel?
This will create a wrapper command which prints out (using dump) the call stack to the console. maxlevel represents the maximum number of levels of the call stack which will be printed (defaults to 4).
observe cdelete cmdname
Removes the wrapper around an observed command.
observe cinfo cmdname
Prints out useless info.
observe variable varname operation ?args?
Currently a wrapper around trace that uses dump to print out the value of the named variable whenever the specified operation on that variable occurs (must be read, write or unset).
observe vdelete varname operation
Deletes the trace wrapper around the named variable.
observe vinfo varname
Prints out trace info about the named variable.
© Jeffrey Hobbs
tkcon-2.7.3/docs/observe.n.man000066400000000000000000000034711357645571500162160ustar00rootroot00000000000000[comment {-*- tcl -*- observe manpage}] [manpage_begin observe n 2.5] [copyright {Jeffrey Hobbs }] [moddesc {TkCon}] [titledesc {Runtime debugging output in TkCon}] [description] [para] This command provides runtime debugging output for variables and commands without the need to edit your code. For variables, the underlying mechanism uses [cmd trace] and [cmd dump] var. For commands, it renames the observed procedure and uses a special wrapper procedure. WARNING: using this procedure after checkpointing state will result in major problems if you clean state because the renamed (true) commands will be lost. [para] This procedure is experimental. Comments are encouraged. [list_begin definitions] [call [cmd observe] [arg command] [arg cmdname] [opt [arg maxlevel]]] This will create a wrapper command which prints out (using [cmd dump]) the call stack to the console. maxlevel represents the maximum number of levels of the call stack which will be printed (defaults to 4). [call [cmd observe] [arg cdelete] [arg cmdname]] Removes the wrapper around an observed command. [call [cmd observe] [arg cinfo] [arg cmdname]] Prints out useless info. [call [cmd observe] [arg variable] [arg varname] [arg operation] [opt [arg args]]] Currently a wrapper around trace that uses [cmd dump] to print out the value of the named variable whenever the specified operation on that variable occurs (must be [arg read], [arg write] or [arg unset]). [call [cmd observe] [arg vdelete] [arg varname] [arg operation]] Deletes the trace wrapper around the named variable. [call [cmd observe] [arg vinfo] [arg varname]] Prints out trace info about the named variable. [list_end] [see_also [cmd tkcon](1)] [see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd dump](n)] [see_also [cmd idebug](n)] [keywords Tk console debug] [manpage_end] tkcon-2.7.3/docs/perl.txt000077500000000000000000000046251357645571500153300ustar00rootroot00000000000000#!/usr/local/bin/perl -w # tkcon.pl - a Perl/Tk "shell" companion for tkcon.tcl. # # Variable $MW is an object reference to the main window, from which you can # create and manipulate child widgets. Variable names beginning with an # underscore are reserved for this application. # # Stephen O. Lidie, 96/08/25 require 5.002; use English; use Tk; use Tk::Pretty qw(Pretty); use Tk::Dialog; use strict; use subs qw(doit tkcon); my($MW, $_TKCON, $_VERSION, $_HELP, $_SHELL, $_TAB, $_PARA, @_ERRORS, $_MES); tkcon; # main sub doit { # Eval some code without use strict constraints. my($code) = @ARG; { no strict; if ($_MES) { $_MES->packForget; $_MES->destroy; $_MES = 0; } @_ERRORS = (); $SIG{'__WARN__'} = sub {push @_ERRORS, @ARG}; my $_res = eval $code; push @_ERRORS, $EVAL_ERROR if $EVAL_ERROR; push @_ERRORS, $_res; } } # end doit sub tkcon { # Nothing fancy here, just create the main window and the help dialog # object, and display a pointer to the help. $_TKCON = 'tkcon.pl'; $_VERSION = '0.2'; $_SHELL = '/bin/sh'; $_SHELL = $ENV{'SHELL'} if $ENV{'SHELL'}; $_TAB = 0; $_PARA = ''; $MW = MainWindow->new; $MW->title($_TKCON); $MW->iconname($_TKCON); $_HELP = $MW->Dialog( -title => "$_TKCON Help", -font => 'fixed', -wraplength => '6i', -justify => 'left', -text => "? - this text.\n" . "| - pass arguments to your shell (default /bin/sh).\n" . "p - use Tk::Pretty to \"pretty-print\" arguments.\n" . "+ - a tab starts/stops multiline input mode.\n" . "exit - quit $_TKCON.\n" . "\nOther input is assumed to be a Perl/Tk command.\n" . "\n\$MW is the MainWindow.\n", ); $_HELP->configure(-foreground => 'blue'); $_MES = $MW->Label(-text => "\nEnter ? for help.\n")->pack; MainLoop; } # end tkcon sub Tk::Receive { shift(); $ARG = shift(); if (/^\?(.*)/) { # help $_HELP->Show; } elsif (/^\|(.*)/) { # bang @_ERRORS = (); push @_ERRORS, `$_SHELL -c $1 2>&1`; } elsif (/^\+$/) { $_TAB++; if ($_TAB % 2) { @_ERRORS = (); $_PARA = ''; push @_ERRORS, '+'; } else { doit $_PARA; } } else { # Perl/Tk command $ARG = "Pretty($1)" if (/^p\s(.*)$/); if ($_TAB % 2) { $_PARA .= $ARG; push @_ERRORS, '+'; } else { doit $ARG; } } # ifend return @_ERRORS; } # end Tk::Receive tkcon-2.7.3/docs/plugin.html000077500000000000000000000103441357645571500160040ustar00rootroot00000000000000 tkcon: Tcl Plugin Stripped Demo
tkcon Documentation (May 2001) SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages

This is the full tkcon script when run inside the plugin. It feels like a stripped down version of tkcon, but the only limitations are those established by the plugin. You can test the basic console features and get a feel for the mutli-color output. Below the demo are some ideas to try out. v2+ of the plugin is distributed with a megawidget version of tkcon for debugging tclets. The demo below uses the CVS head of tkcon.

Have a look at some of the features: (culled from the tkcon documentation)
  • Variable / Path / Procedure Name Expansion. Type in set tc at the prompt. Hit <Control-Shift-V>. set tcl_ should now be visible. Hit <Control-Shift-V> again. You should see the rest of the completions printed out for you. Works the same for procedures and files paths (file access restricted from plugin). Works properly when spaces or other funny characters are including in the name.
  • Command Highlighting. Note that set should be in green, denoting it is a recognized command in that interpreter.
  • Electric Character Matching. Watch while you type the following: proc foo { a b } { puts [list $a $b] }. Did you notice the blink matching of the braces? Yes, it's smart.
  • Command History. Use the Up/Down arrows or <Control-p>/<Control-n> to peruse the command history. <Control-r>/<Control-s> Actually does command history matching (like tcsh or other advanced Unix shells).
  • Useful Colorization. Having defined foo above, type in foo hey. Note that the error comes back in red. Go up one in the command history and add you and see that regular stdout output comes through in blue (the colors are configurable).
  • Cut/Copy/Paste. You should be able to do that between outside windows and TkCon. The default keys are <Control-x>/<Control-c>/<Control-v>.
© Jeffrey Hobbs
tkcon-2.7.3/docs/procs.html000077500000000000000000000144771357645571500156470ustar00rootroot00000000000000 tkcon: Procedures
tkcon: Procedures SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
Getting Started Special Bindings Procedures Screenshot
dump tkcon idebug observe

There are several new procedures introduced in TkCon to improve productivity and/or account for lost functionality in the Tcl environment that users are used to in native environments. There are also some redefined procedures. Here is a non-comprehensive list:

alias ?sourceCmd targetCmd ?arg arg ...??
Simple alias mechanism. It will overwrite existing commands. When called without args, it returns current aliases. Note that TkCon makes some aliases for you (in slaves). Don't delete those.
clear ?percentage?
Clears the text widget. Same as the <Control-l> binding, except this will accept a percentage of the buffer to clear (1-100, 100 default).
dir ?-all? ?-full? ?-long? ?pattern pattern ...?
Cheap way to get directory listings. Uses glob style pattern matching.
dump type ?-nocomplain? ?-filter pattern? ?--? pattern ?pattern ...?
The dump command provides a way for the user to spit out state information about the interpreter in a Tcl readable (and human readable) form. See further dump docs for details.
echo ?arg arg ...?
Concatenates the args and spits the result to the console (stdout).
edit ?-type type? ?-find str? ?-attach interp? arg NEW in v1.4, still under construction
Opens an editor with the data from arg. The optional type argument can be one of: proc, var or file. For proc or var, the arg may be a pattern.
idebug command ?args?
Interactive debugging command. See further idebug docs for details.
lremove ?-all? ?-regexp -glob? list items
Removes one or more items from a list and returns the new list. If -all is specified, it removes all instances of each item in the list. If -regexp or -glob is specified, it interprets each item in the items list as a regexp or glob pattern to match against.
less
Aliased to edit.
ls
Aliased to dir -full.
more
Aliased to edit.
observe type ?args?
This command provides passive runtime debugging output for variables and commands. See further observe docs for details.
puts (same options as always)
Redefined to put the output into TkCon
tkcon method ?args?
Multi-purpose command. See further tkcon docs for details.
tclindex ?-extensions patternlist? ?-index TCL_BOOLEAN? ?-package TCL_BOOLEAN? ?dir1 dir2 ...?
Convenience proc to update the tclIndex (controlled by -index switch) and/or pkgIndex.tcl (controlled by -package switch) file in the named directories based on the given pattern for files. It defaults to creating the tclIndex but not the pkgIndex.tcl file, with the directory defaulting to [pwd]. The extension defaults to *.tcl, with *.[info sharelibextension] added when -package is true.
unalias cmd
unaliases command
what string
The what command will identify the word given in string in the Tcl environment and return a list of types that it was recognized as. Possible types are: alias, procedure, command, array variable, scalar variable, directory, file, widget, and executable. Used by procedures dump and which.
which command
Like the 'which' command of Unix shells, this will tell you if a particular command is known, and if so, whether it is internal or external to the interpreter. If it is an internal command and there is a slot in auto_index for it, it tells you the file that auto_index would load. This does not necessarily mean that that is where the file came from, but if it were not in the interpreter previously, then that is where the command was found.
There are several procedures that I use as helpers that some may find helpful in there coding (ie - expanding pathnames). Feel free to lift them from the code (but do assign proper attribution).
© Jeffrey Hobbs
tkcon-2.7.3/docs/purpose.html000077500000000000000000000055551357645571500162130ustar00rootroot00000000000000 tkcon: Purpose & Features
tkcon: Purpose & Features SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages

Purpose:

tkcon is a replacement for the standard console that comes with Tk (on Windows/Mac, but also works on Unix). The console itself provides many more features than the standard console. tkcon works on all platforms where Tcl/Tk is available. It is meant primarily to aid one when working with the little details inside tcl and tk, giving Unix users the GUI console provided by default in the Mac and Windows Tk. It's also not a bad replacement for the default MS-DOS shell (although it needs lots of fine tuning).

See Limitations for a good idea of what tkcon can't do for you.

Features:

Just in case you don't run across them while playing, here are some of the extras in tkcon:
  • Command history
  • Path (Unix style) / Proc / Variable name expansion
  • Multiple consoles, each with its own state (via multiple interpreters)
  • Captures stdout and stderr to console window
  • Electric character matching (a la emacs)
  • Electric proc highlighting
  • Enhanced history searching
  • Configurable
  • Cut / Copy / Paste between windows
  • Communication between consoles and other Tk interpreters (including non-tcl ones)
  • Hot Errors (click on error result to see stack trace)
  • Works on all Tk platforms
Read the documentation for how to take advantage of these features.
© Jeffrey Hobbs
tkcon-2.7.3/docs/start.html000077500000000000000000000332751357645571500156530ustar00rootroot00000000000000 tkcon: Getting Started
tkcon: Getting Started SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
Getting Started Special Bindings Procedures Screenshot
dump tkcon idebug observe

Resource File:

TkCon will search for a resource file in "$env(HOME)/.tkconrc" (Unix), "$env(HOME)/tkcon.cfg" (Windows) or "$env(PREF_FOLDER)/tkcon.cfg" (Macintosh). On DOS machines, "$env(HOME)" usually refers to "C:\". TkCon never sources the "~/.wishrc" file. The resource file is sourced by each new instance of the console. An example resource file is provided below.

Command Line Arguments

Except for -rcfile, command line arguments are handled after the TkCon resource file is sourced, but before the slave interpreter or the TkCon user interface is initialized. -rcfile is handled right before it would be sourced, allowing you to specify any alternate file. Command line arguments are passed to each new console and will be evaluated by each. To prevent this from happening, you have to say tkcon main set argv {}; tkcon main set argc 0.

For these options, any unique substring is allowed.

-argv (also --)
Causes TkCon to stop evaluating arguments and set the remaining args to be argv/argc (with -- prepended). This carries over for any further consoles. This is meant only for wrapping TkCon around programs that require their own arguments.
-color-<color> color
Sets the requested color type to the specified color for tkcon. See the Variables section for the recognized <color> names.
-eval (also -main or -e)
A tcl script to eval in each main interpreter. This is evaluated after the resource file is loaded and the slave interpreter is created. Multiple -eval switches will be recognized (in order).
-exec slavename
Sets the named slave that tkcon operates in. In general, this is only useful to set to "" (empty), indicating to tkcon to avoid the multi-interpreter model and operate in the main environment. When this is empty, any further arguments will be only used in the first tkcon console and not passed onto further new consoles. This is useful when using tkcon as a console for extended wish executables that don't load there commands into slave interpreters.
-font font
Sets the font that tkcon uses for its text windows. If this isn't a fixed width font, tkcon will override it.
-nontcl TCL_BOOLEAN
Sets ::tkcon::OPT(nontcl) to TCL_BOOLEAN. Needed when attaching to non-Tcl interpreters.
-package package_name (also -load)
Packages to automatically load into the slave interpreters (ie - "Tk").
-rcfile filename
Specify an alternate tkcon resource file name.
-root widgetname
Makes the named widget the root name of all consoles (ie - .tkcon).
-slave tcl_script
A tcl script to eval in each slave interpreter. This will append the one specified in the tkcon resource file, if any.
Some examples of tkcon command line startup situations:
megawish tkcon.tcl -exec "" -root .tkcon mainfile.tcl
Use tkcon as a console for your megawish application. You can avoid starting the line with megawish if that is the default wish that tkcon would use. The -root ensures that tkcon will not conflict with the
tkcon.tcl -font "Courier 12" -load Tk
Use the courier font for tkcon and always load Tk in slave interpreters at startup.
tkcon.tcl -rcfile ~/.wishrc -color,bg white
Use the ~/.wishrc file as the resource file, and a white background for tkcon's text widgets.

Variables:

Certain variables in TkCon can be modified to suit your needs. It's easiest to do this in the resource file, but you can do it when time the program is running (and some can be changed via the Prefs menu). All these are part of the master interpreter's ::tkcon namespace. The modifiable array variables are ::tkcon::COLOR and ::tkcon::OPT. You can call 'tkcon set ::tkcon::COLOR' when the program is running to check its state. Here is an explanation of certain variables you might change or use:
::tkcon::COLOR(bg)
The background color for tkcon text widgets. Defaults to the operating system default (determined at startup).
::tkcon::COLOR(blink)
The background color of the electric brace highlighting, if on. Defaults to yellow.
::tkcon::COLOR(cursor)
The background color for the insertion cursor in tkcon. Defaults to black.
::tkcon::COLOR(disabled)
The foreground color for disabled menu items. Defaults to dark grey.
::tkcon::COLOR(proc)
The foreground color of a recognized proc, if command highlighting is on. Defaults to dark green.
::tkcon::COLOR(var)
The background color of a recognized var, if command highlighting is on. Defaults to pink.
::tkcon::COLOR(prompt)
The foreground color of the prompt as output in the console. Defaults to brown.
::tkcon::COLOR(stdin)
The foreground color of the stdin for the console. Defaults to black.
::tkcon::COLOR(stdout)
The foreground color of the stdout as output in the console. Defaults to blue.
::tkcon::COLOR(stderr)
The foreground color of stderr as output in the console. Defaults to red.

::tkcon::OPT(autoload)
Packages to automatically load into the slave interpreter (ie - 'Tk'). This is a list. Defaults to {} (none).
::tkcon::OPT(blinktime)
The amount of time (in millisecs) that braced sections should blink for. Defaults to 500 (.5 secs), must be at least 100.
::tkcon::OPT(blinkrange)
Whether to blink the entire range for electric brace matching or to just blink the actual matching braces (respectively 1 or 0, defaults to 1).
::tkcon::OPT(buffer)
The size of the console scroll buffer (in lines). Defaults to 512.
::tkcon::OPT(calcmode)
Whether to allow expr commands to be run at the command line without prefixing them with expr (just a convenience).
::tkcon::OPT(cols)
Number of columns for the console to start out with. Defaults to 80.
::tkcon::OPT(dead)
What to do with dead connected interpreters. If dead is leave, TkCon automatically exits the dead interpreter. If dead is ignore then it remains attached waiting for the interpreter to reappear. Otherwise TkCon will prompt you.
::tkcon::OPT(exec)
This corresponds to the -exec option above
::tkcon::OPT(font)
Font to use for tkcon text widgets (also specified with -font). Defaults to the system default, or a fixed width equivalent.
::tkcon::OPT(gets)
Controls whether tkcon will overload the gets command to work with tkcon. The valid values are: congets (the default), which will redirect stdin requests to the tkcon window; gets, which will pop up a dialog to get input; and {} (empty string) which tells tkcon not to overload gets. This value must be set at startup to alter tkcon's behavior.
::tkcon::OPT(history)
The size of the history list to keep. Defaults to 48.
::tkcon::OPT(hoterrors)
Whether hot errors are enabled or not. When enabled, errors that are returned to the console are marked with a link to the error info that will pop up in an minimal editor. This requires more memory because each error that occurs will maintain bindings for this feature, as long as the error is in the text widget. Defaults to on.
::tkcon::OPT(library)
The path to any tcl library directories (these are appended to the auto_path when the after the resource file is loaded in).
::tkcon::OPT(lightbrace)
Whether to use the brace highlighting feature or not (respectively 1 or 0, defaults to 1).
::tkcon::OPT(lightcmd)
Whether to use the command highlighting feature or not (respectively 1 or 0, defaults to 1).
::tkcon::OPT(maineval)
A tcl script to execute in the main interpreter after the slave interpreter is created and the user interface is initialized.
::tkcon::OPT(maxlinelen)
A number that specifies the limit of long result lines. True result is still captured in $_ (and 'puts $_' works). Defaults to 0 (unlimited).
::tkcon::OPT(maxmenu)
A number that specifies the maximum number of packages to show vertically in the Interp->Packages menu before breaking into another column. Defaults to 15.
::tkcon::OPT(nontcl)
For those who might be using non-Tcl based Tk attachments, set this to 1. It prevents TkCon from trying to evaluate its own Tcl code in an attached interpreter. Also see my notes for non-Tcl based Tk interpreters.
::tkcon::OPT(prompt1)
Like tcl_prompt1, except it doesn't require you use 'puts'. No equivalent for tcl_prompt2 is available (it's unnecessary IMHO).
Defaults to {([file tail [pwd]]) [history nextid] % }.
::tkcon::OPT(rows)
Number of rows for the console to start out with. Defaults to 20.
::tkcon::OPT(scollypos)
Y scrollbar position. Valid values are left or right. Defaults to left.
::tkcon::OPT(showmenu)
Show the menubar on startup (1 or 0, defaults to 1).
::tkcon::OPT(showmultiple)
Show multiple matches for path/proc/var name expansion (1 or 0, defaults to 1).
::tkcon::OPT(slaveeval)
A tcl script to execute in each slave interpreter right after it's created. This allows the user to have user defined info always available in a slave. Example: 
	set ::tkcon::OPT(slaveeval) {
		proc foo args { puts $args }
		lappend auto_path .
	}
::tkcon::OPT(slaveexit)
Allows the prevention of exit in slaves from exitting the entire application. If it is equal to exit, exit will exit as usual, otherwise it will just close down that interpreter (and any children). Defaults to close.
::tkcon::OPT(subhistory)
Allow history substitution to occur (0 or 1, defaults to 1). The history list is maintained in a single interpreter per TkCon console instance. Thus you have history which can range over a series of attached interpreters.

An example TkCon resource file might look like: 

######################################################
## My TkCon Resource File
 
# Use a fixed default font
#tkcon font fixed; # valid on unix
#tkcon font systemfixed; # valid on win
tkcon font Courier 12; # valid everywhere

# Keep 50 commands in history
set ::tkcon::OPT(history) 50

# Use a pink prompt
set ::tkcon::COLOR(prompt) pink
######################################################

© Jeffrey Hobbs
tkcon-2.7.3/docs/style.css000066400000000000000000000014721357645571500154710ustar00rootroot00000000000000body, div, p, th, td, li, dd, ul, ol, dl, dt, blockquote { font-family: Arial, Helvetica, sans-serif; } body { background-color: #FFFFFF; font-size: 12px; line-height: 1.25; letter-spacing: .2px; } th { font-style: bold; text-align: left; } a { text-decoration: none } .hi, .hi2 { font-weight: bold; color: #B82619; background: #FFFFCC; text-decoration: none; } .hi2 { background: #CCFFCC; } .indent { margin: 3px; } /* general styles */ .heading { font-size: 14px; font-weight: bold; color: #B82619; } .subheading { font-weight: bold; color: #B82619; } .err { font-weight: bold; color: #B82619; } .smallText{ font-size: 10px; } .notsosmallText { font-size: 11px; } /* unordered list without bullets */ ul.sans { list-style-type: none; list-style-postition: inside; } tkcon-2.7.3/docs/tkcon.1.man000066400000000000000000000303541357645571500155720ustar00rootroot00000000000000[comment {-*- tcl -*- tkcon manpage}] [manpage_begin tkcon 1 2.5] [copyright {Jeffrey Hobbs (jeff at hobbs.org)}] [moddesc {TkCon}] [titledesc {Tk console replacement}] [description] [para] TkCon is a replacement for the standard console that comes with Tk (on Windows/Mac, but also works on Unix). The console itself provides many more features than the standard console. TkCon works on all platforms where Tcl/Tk is available. It is meant primarily to aid one when working with the little details inside Tcl and Tk, giving Unix users the GUI console provided by default in the Mac and Windows Tk. [list_begin definitions] [call [cmd tkcon] [lb]\{[arg option] [arg value] | [arg tcl_script]\} ...[rb]] [list_end] [section OPTIONS] [para] Except for [cmd -rcfile], command line arguments are handled after the TkCon resource file is sourced, but before the slave interpreter or the TkCon user interface is initialized. [para] [cmd -rcfile] is handled right before it would be sourced, allowing you to specify any alternate file. Command line arguments are passed to each new console and will be evaluated by each. To prevent this from happening, you have to say [example_begin] tkcon main set argv {}; tkcon main set argc 0 [example_end] [para] For these options, any unique substring is allowed. [list_begin definitions] [def "[cmd -argv] (also [cmd --])"] Causes TkCon to stop evaluating arguments and set the remaining args to be argv/argc (with [cmd --] prepended). This carries over for any further consoles. This is meant only for wrapping TkCon around programs that require their own arguments. [def "[cmd -color-] [arg color]"] Sets the requested color type to the specified color for tkcon. See [cmd tkconrc](5) for the recognized [cmd ] names. [def "[cmd -eval] [arg tcl_script] (also [cmd -main] or [cmd -e])"] A Tcl script to eval in each main interpreter. This is evaluated after the resource file is loaded and the slave interpreter is created. Multiple [cmd -eval] switches will be recognized (in order). [def "[cmd -exec] [arg slavename]"] Sets the named slave that tkcon operates in. In general, this is only useful to set to [arg {""}] (empty), indicating to tkcon to avoid the multi-interpreter model and operate in the main environment. When this is empty, any further arguments will be only used in the first tkcon console and not passed onto further new consoles. This is useful when using tkcon as a console for extended wish executables that don't load there commands into slave interpreters. [def "[cmd -font] [arg font]"] Sets the font that tkcon uses for its text windows. If this isn't a fixed width font, tkcon will override it. [def "[cmd -nontcl] [arg TCL_BOOLEAN]"] Sets [cmd ::tkcon::OPT(nontcl)] to [arg TCL_BOOLEAN] (see [cmd tkconrc](5)). Needed when attaching to non-Tcl interpreters. [def "[cmd -package] [arg package_name] (also [cmd -load])"] Packages to automatically load into the slave interpreters (i.e. "Tk"). [def "[cmd -rcfile] [arg filename]"] Specify an alternate tkcon resource file name. [def "[cmd -root] [arg widgetname]"] Makes the named widget the root name of all consoles (i.e. .tkcon). [def "[cmd -slave] [arg tcl_script]"] A Tcl script to eval in each slave interpreter. This will append the one specified in the tkcon resource file, if any. [list_end] [section {KEY BINDINGS}] [para] Most of the bindings are the same as for the [cmd text] widget. Some have been modified to make sure that the integrity of the console is maintained. Others have been added to enhance the usefulness of the console. Only the modified or new bindings are listed here. [list_begin definitions] [def "[cmd Control-x] or [cmd Cut] (on Sparc5 keyboards)"] Cut. [def "[cmd Control-c] or [cmd Copy] (on Sparc5 keyboards)"] Copy. [def "[cmd Control-v] or [cmd Paste] (on Sparc5 keyboards)"] Paste. [def [cmd Insert]] Insert (duh). [def [cmd Up]] Goes up one level in the commands line history when cursor is on the prompt line, otherwise it moves through the buffer. [def [cmd Down]] Goes down one level in the commands line history when cursor is on the last line of the buffer, otherwise it moves through the buffer. [def [cmd Control-p]] Goes up one level in the commands line history. [def [cmd Control-n]] Goes down one level in the commands line history. [def [cmd Tab]] Tries to expand file path names, then variable names, then proc names. [def [cmd Escape]] Tries to expand file path names. [def [cmd Control-P]] Tries to expand procedure names. The procedure names will be those that are actually in the attached interpreter (unless nontcl is specified, in which case it always does the lookup in the default slave interpreter). [def [cmd Control-V]] Tries to expand variable names (those returned by [lb]info vars[rb]). It's search behavior is like that for procedure names. [def "[cmd Return] or [cmd Enter]"] Evaluates the current command line if it is a complete command, otherwise it just goes to a new line. [def [cmd Control-a]] Go to the beginning of the current command line. [def [cmd Control-l]] Clear the entire console buffer. [def [cmd Control-r]] Searches backwards in the history for any command that contains the string in the current command line. Repeatable to search farther back. The matching substring off the found command will blink. [def [cmd Control-s]] As above, but searches forward (only useful if you searched too far back). [def [cmd Control-t]] Transposes characters. [def [cmd Control-u]] Clears the current command line. [def [cmd Control-z]] Saves current command line in a buffer that can be retrieved with another [cmd Control-z]. If the current command line is empty, then any saved command is retrieved without being overwritten, otherwise the current contents get swapped with what's in the saved command buffer. [def [cmd Control-Key-1]] Attaches console to the console's slave interpreter. [def [cmd Control-Key-2]] Attaches console to the console's master interpreter. [def [cmd Control-Key-3]] Attaches console to main TkCon interpreter. [def [cmd Control-A]] Pops up the "About" dialog. [def [cmd Control-N]] Creates a new console. Each console has separate state, including it's own widget hierarchy (it's a slave interpreter). [def [cmd Control-q]] Close the current console OR Quit the program (depends on the value of [cmd ::tkcon::TKCON(slaveexit)]). [def [cmd Control-w]] Closes the current console. Closing the main console will exit the program (something has to control all the slaves...). [list_end] [para] TkCon also has electric bracing (similar to that in emacs). It will highlight matching pairs of {}'s, [lb][rb]'s, ()'s and ""'s. For the first three, if there is no matching left element for the right, then it blinks the entire current command line. For the double quote, if there is no proper match then it just blinks the current double quote character. It does properly recognize most escaping (except escaped escapes), but does not look for commenting (why would you interactively put comments in?). [section COMMANDS] [para] There are several new procedures introduced in TkCon to improve productivity and/or account for lost functionality in the Tcl environment that users are used to in native environments. There are also some redefined procedures. Here is a non-comprehensive list: [list_begin definitions] [def "[cmd alias] ?[arg sourceCmd] [arg targetCmd] ?[arg arg] [arg arg] ...??"] Simple alias mechanism. It will overwrite existing commands. When called without args, it returns current aliases. Note that TkCon makes some aliases for you (in slaves). Don't delete those. [def "[cmd clear] ?[arg percentage]?"] Clears the text widget. Same as the <[cmd Control-l]> binding, except this will accept a percentage of the buffer to clear (1-100, 100 default). [def "[cmd dir] ?[arg -all]? ?[arg -full]? ?[arg -long]?\ ?[arg pattern] [arg pattern] ...?"] Cheap way to get directory listings. Uses glob style pattern matching. [def "[cmd dump] [arg type] ?[arg -nocomplain]? ?[arg {-filter pattern}]?\ ?[cmd --]? [arg pattern] ?[arg pattern] ...?"] The dump command provides a way for the user to spit out state information about the interpreter in a Tcl readable (and human readable) form. See [cmd dump](n) for details. [def "[cmd echo] ?[arg arg] [arg arg] ...?"] Concatenates the args and spits the result to the console (stdout). [def "[cmd edit] ?[arg {-type type}]? ?[arg {-find str}]?\ ?[arg {-attach interp}]? [arg arg]"] Opens an editor with the data from arg. The optional type argument can be one of: [arg proc], [arg var] or [arg file]. For proc or var, the arg may be a pattern. [def "[cmd idebug] [arg command] ?[arg args]?"] Interactive debugging command. See [cmd idebug](n) for details. [def "[cmd lremove] ?[arg -all]? ?[arg -regexp] [arg -glob]?\ [arg list] [arg items]"] Removes one or more items from a list and returns the new list. If [arg -all] is specified, it removes all instances of each item in the list. If [arg -regexp] or [arg -glob] is specified, it interprets each item in the items list as a regexp or glob pattern to match against. [def [cmd less]] Aliased to [cmd edit]. [def [cmd ls]] Aliased to [cmd dir] [arg -full]. [def [cmd more]] Aliased to [cmd edit]. [def "[cmd observe] [arg type] ?[arg args]?"] This command provides passive runtime debugging output for variables and commands. See [cmd observe](n) for details. [def "[cmd puts] (same options as always)"] Redefined to put the output into TkCon. [def "[cmd tkcon] [arg method] ?[arg args]?"] Multi-purpose command. See [cmd tkcon](n) for details. [def "[cmd tclindex] [arg {?-extensions patternlist? ?-index TCL_BOOLEAN?\ ?-package TCL_BOOLEAN? ?dir1 dir2 ...?}]"] Convenience proc to update the [file tclIndex] (controlled by [arg -index] switch) and/or [file pkgIndex.tcl] (controlled by [arg -package] switch) file in the named directories based on the given pattern for files. It defaults to creating the [file tclIndex] but not the [file pkgIndex.tcl] file, with the directory defaulting to [lb]pwd[rb]. The extension defaults to *.tcl, with *.[lb]info sharelibextension[rb] added when [arg -package] is true. [def "[cmd unalias] [arg cmd]"] unaliases command. [def "[cmd what] [arg string]"] The what command will identify the word given in string in the Tcl environment and return a list of types that it was recognized as. Possible types are: alias, procedure, command, array variable, scalar variable, directory, file, widget, and executable. Used by procedures dump and which. [def "[cmd which] [arg command]"] Like the [syscmd which] command of Unix shells, this will tell you if a particular command is known, and if so, whether it is internal or external to the interpreter. If it is an internal command and there is a slot in [cmd auto_index] for it, it tells you the file that [cmd auto_index] would load. This does not necessarily mean that that is where the file came from, but if it were not in the interpreter previously, then that is where the command was found. [list_end] [para] There are several procedures that I use as helpers that some may find helpful in there coding (i.e. expanding pathnames). Feel free to lift them from the code (but do assign proper attribution). [section EXAMLPES] [para] Some examples of tkcon command line startup situations: [example_begin] [cmd megawish] /usr/bin/tkcon [cmd -exec] "" [cmd -root] .tkcon [arg mainfile.tcl] [example_end] Use tkcon as a console for your [cmd megawish] application. You can avoid starting the line with megawish if that is the default [cmd wish] that TkCon would use. The [cmd -root] ensures that tkcon will not conflict with the application root window. [example_begin] [cmd tkcon] [cmd -font] "Courier 12" [cmd -load] Tk [example_end] Use the courier font for TkCon and always load Tk in slave interpreters at startup. [example_begin] [cmd tkcon] [cmd -rcfile] ~/.wishrc [cmd -color-bg] white [example_end] Use the ~/.wishrc file as the resource file, and a white background for TkCon's text widgets. [section FILES] TkCon will search for a resource file in [file ~/.tkconrc]. TkCon never sources the [file ~/.wishrc] file. The resource file is sourced by each new instance of the console. An example resource file is provided in [cmd tkconrc](5). [see_also [cmd tkconrc](5)] [see_also [cmd dump](n) [cmd tkcon](n) [cmd idebug](n)] [see_also [cmd observe](n) [cmd text](n)] [keywords Tk console] [manpage_end] tkcon-2.7.3/docs/tkcon.html000077500000000000000000000160011357645571500156200ustar00rootroot00000000000000 tkcon: tkcon procedure
tkcon: tkcon procedure SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages
Getting Started Special Bindings Procedures Screenshot
dump tkcon idebug observe

This provides lots of useful control over a console:

tkcon attach interpreter
Attaches tkcon to the named interpreter. The name must be that returned by [tk appname] or a valid path to a slave interpreter. It's best to use this via the Console->Attach Console menu.
tkcon buffer ?size?
Sets or queries the allowed size of the console text widget in lines. The text widget will automatically delete leading lines once this number has been exceeded (read: this is the scroll buffer size).
tkcon bgerror ?msg errorInfo?
Does bgerror stuff in the tkcon master interpreter.
tkcon close or tkcon destroy
Destroys this tkcon widget.
tkcon congets
Behaves like the traditional Tcl gets, but instead of using stdin, it uses the tkcon console window. By default, tkcon replaces the standard gets with this command. This behavior can be controlled by altering the ::tkcon::OPT(gets) parameter at startup. This should not be called directly - instead rely on the overloaded gets, which has support for the optional varName parameter.
tkcon console args
Passes the args to the tkcon text widget (the console).
tkcon error
Pops up a dialog that gives the user a full trace of the last error received in the tkcon console.
tkcon find string ?-case TCL_BOOLEAN -regexp TCL_BOOLEAN?
Highlights all instances of string in the console. If the string is empty, it clears any previous highlighting.
tkcon font ?fontname?
Sets or returns the font used by tkcon text widgets.
tkcon gets
Behaves like the traditional Tcl gets, but instead of needing stdin, it pops a dialog box up for the user. The overloaded gets has support for the optional varName parameter.
tkcon getcommand
A variation of the congets method that requires a full command to be input before returning.
tkcon hide
Withdraw the tkcon display from the screen (make sure you have a way to get it back).
tkcon history ?-newline?
Displays the tkcon history in sourceable form. If -newline is specified, it separates each command by an extra newline.
tkcon iconify
Iconifies the tkcon display.
tkcon linelength ?value?
Sets or displays the number that specifies the limit of long result lines. True result is still captured in $_ (and 'puts $_' works).
tkcon load filename
Sources named file into the slave interpreter. If no filename is given, it will attempt to call tk_getOpenFile to pop up the file select box.
tkcon main ?arg arg ...?
Passes the args to the main tkcon interpreter to be evaluated and returns the result.
tkcon master args
Passes the args to the master interpreter to be evaluated and returns the result.
tkcon new
Creates a new tkcon widget.
tkcon resultfilter ?command?
Specify a command to process the results before outputting it to the console window. The command receives one argument (the result string) and the string returned is placed in the console.
tkcon save ?filename ?type??
Saves the console buffer to the given filename. If no filename is given, it will attempt to call tk_getSaveFile to pop up the file select box. If no type is given, a dialog will ask you to specify what portion of the text you want to save.
tkcon set var ?value?
Queries or sets a master interpreter variable.
tkcon append var ?value?
Like set, but uses append on the variable.
tkcon lappend var ?value?
Like set, but uses lappend on the variable.
tkcon show or tkcon deiconify
Redisplays tkcon on the screen.
tkcon slave ?slavename ?arg arg ...??
If called with no args, it returns the name of all the tkcon interpreters. Otherwise given an interp name it passes the args to the named interpreter to be evaluated and returns the result. If no args are passed, then it returns the [tk appname] of that interpreter.
tkcon title ?title?
Sets or returns the title for tkcon.
tkcon version
Returns of version of tkcon.
© Jeffrey Hobbs
tkcon-2.7.3/docs/tkcon.n.man000066400000000000000000000117171357645571500156710ustar00rootroot00000000000000[comment {-*- tcl -*- tkcon manpage}] [manpage_begin tkcon n 2.5] [copyright {Jeffrey Hobbs }] [moddesc {TkCon}] [titledesc {Controlling TkCon console}] [description] [para] This provides lots of useful control over a console: [list_begin definitions] [call [cmd tkcon] [arg attach] [arg interpreter]] Attaches tkcon to the named interpreter. The name must be that returned by [lb][cmd tk] [arg appname][rb] or a valid path to a slave interpreter. It's best to use this via the [arg {Console->Attach Console}] menu. [call [cmd tkcon] [arg buffer] [opt [arg size]]] Sets or queries the allowed size of the console text widget in lines. The text widget will automatically delete leading lines once this number has been exceeded (read: this is the scroll buffer size). [call [cmd tkcon] [arg bgerror] [opt "[arg msg] [arg errorInfo]"]] Does bgerror stuff in the tkcon master interpreter. [call [cmd tkcon] [arg close] or [cmd tkcon] [arg destroy]] Destroys this tkcon widget. [call [cmd tkcon] [arg congets]] Behaves like the traditional Tcl gets, but instead of using stdin, it uses the tkcon console window. By default, tkcon replaces the standard gets with this command. This behavior can be controlled by altering the [cmd ::tkcon::OPT(gets)] parameter at startup. This should not be called directly - instead rely on the overloaded gets, which has support for the optional varName parameter. [call [cmd tkcon] [arg console] [arg args]] Passes the args to the tkcon text widget (the console). [call [cmd tkcon] [arg error]] Pops up a dialog that gives the user a full trace of the last error received in the tkcon console. [call [cmd tkcon] [arg find] [arg string]\ [opt "[arg -case] [arg TCL_BOOLEAN] [arg -regexp] [arg TCL_BOOLEAN]"]] Highlights all instances of string in the console. If the string is empty, it clears any previous highlighting. [call [cmd tkcon] [arg font] [opt [arg fontname]]] Sets or returns the font used by tkcon text widgets. [call [cmd tkcon] [arg gets]] Behaves like the traditional Tcl gets, but instead of needing stdin, it pops a dialog box up for the user. The overloaded gets has support for the optional varName parameter. [call [cmd tkcon] [arg getcommand]] A variation of the congets method that requires a full command to be input before returning. [call [cmd tkcon] [arg hide]] Withdraw the tkcon display from the screen (make sure you have a way to get it back). [call [cmd tkcon] [arg history] [opt [arg -newline]]] Displays the tkcon history in sourceable form. If [arg -newline] is specified, it separates each command by an extra newline. [call [cmd tkcon] [arg iconify]] Iconifies the tkcon display. [call [cmd tkcon] [arg linelength] [opt [arg value]]] Sets or displays the number that specifies the limit of long result lines. True result is still captured in $_ (and 'puts $_' works). [call [cmd tkcon] [arg load] [arg filename]] Sources named file into the slave interpreter. If no filename is given, it will attempt to call [cmd tk_getOpenFile] to pop up the file select box. [call [cmd tkcon] [arg main] [opt "[arg arg] [arg arg] [arg ...]"]] Passes the args to the main tkcon interpreter to be evaluated and returns the result. [call [cmd tkcon] [arg master] [arg args]] Passes the args to the master interpreter to be evaluated and returns the result. [call [cmd tkcon] [arg new]] Creates a new tkcon widget. [call [cmd tkcon] [arg resultfilter] [opt [arg command]]] Specify a command to process the results before outputting it to the console window. The command receives one argument (the result string) and the string returned is placed in the console. [call [cmd tkcon] [arg save] [opt "[arg filename] [opt [arg type]]"]] Saves the console buffer to the given filename. If no filename is given, it will attempt to call [cmd tk_getSaveFile] to pop up the file select box. If no type is given, a dialog will ask you to specify what portion of the text you want to save. [call [cmd tkcon] [arg set] [arg var] [opt [arg value]]] Queries or sets a master interpreter variable. [call [cmd tkcon] [arg append] [arg var] [opt [arg value]]] Like set, but uses append on the variable. [call [cmd tkcon] [arg lappend] [arg var] [opt [arg value]]] Like set, but uses lappend on the variable. [call [cmd tkcon] [arg show] or [cmd tkcon] [arg deiconify]] Redisplays tkcon on the screen. [call [cmd tkcon] [arg slave] [opt "[arg slavename] [opt [arg {arg arg ...}]]"]] If called with no args, it returns the name of all the tkcon interpreters. Otherwise given an interp name it passes the args to the named interpreter to be evaluated and returns the result. If no args are passed, then it returns the [lb][cmd tk] [arg appname][rb] of that interpreter. [call [cmd tkcon] [arg title] [opt [arg title]]] Sets or returns the title for tkcon. [call [cmd tkcon] [arg version]] Returns of version of tkcon. [list_end] [see_also [cmd tkcon](1)] [see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd dump](n)] [see_also [cmd observe](n)] [keywords Tk console debug] [manpage_end] tkcon-2.7.3/docs/tkconrc.5.man000066400000000000000000000173311357645571500161230ustar00rootroot00000000000000[comment {-*- tcl -*- tkconrc manpage}] [manpage_begin tkconrc 5 2.5] [copyright {Jeffrey Hobbs }] [moddesc {TkCon}] [titledesc {TkCon resource file}] [description] [para] TkCon will search for a resource file in [file ~/.tkconrc]. TkCon never sources the [file ~/.wishrc] file. The resource file is sourced by each new instance of the console. An example resource file is provided below. [para] The file itself is a Tcl script, so it is required that the file conforms to Tcl script conventions. [section VARIABLES] [para] Certain variables in TkCon can be modified to suit your needs. It's easiest to do this in the resource file, but you can do it when time the program is running (and some can be changed via the [arg Prefs] menu). All these are part of the master interpreter's [cmd ::tkcon] namespace. The modifiable array variables are [cmd ::tkcon::COLOR] and [cmd ::tkcon::OPT]. You can call [example_begin] tkcon set ::tkcon::COLOR [example_end] when the program is running to check its state. Here is an explanation of certain variables you might change or use: [list_begin definitions] [def [cmd ::tkcon::COLOR(bg)]] The background color for tkcon text widgets. Defaults to the operating system default (determined at startup). [def [cmd ::tkcon::COLOR(blink)]] The background color of the electric brace highlighting, if on. Defaults to yellow. [def [cmd ::tkcon::COLOR(cursor)]] The background color for the insertion cursor in tkcon. Defaults to black. [def [cmd ::tkcon::COLOR(disabled)]] The foreground color for disabled menu items. Defaults to dark grey. [def [cmd ::tkcon::COLOR(proc)]] The foreground color of a recognized proc, if command highlighting is on. Defaults to dark green. [def [cmd ::tkcon::COLOR(var)]] The background color of a recognized var, if command highlighting is on. Defaults to pink. [def [cmd ::tkcon::COLOR(prompt)]] The foreground color of the prompt as output in the console. Defaults to brown. [def [cmd ::tkcon::COLOR(stdin)]] The foreground color of the stdin for the console. Defaults to black. [def [cmd ::tkcon::COLOR(stdout)]] The foreground color of the stdout as output in the console. Defaults to blue. [def [cmd ::tkcon::COLOR(stderr)]] The foreground color of stderr as output in the console. Defaults to red. [def [cmd ::tkcon::OPT(autoload)]] Packages to automatically load into the slave interpreter (i.e. 'Tk'). This is a list. Defaults to {} (none). [def [cmd ::tkcon::OPT(blinktime)]] The amount of time (in millisecs) that braced sections should blink for. Defaults to 500 (0.5 secs), must be at least 100. [def [cmd ::tkcon::OPT(blinkrange)]] Whether to blink the entire range for electric brace matching or to just blink the actual matching braces (respectively 1 or 0, defaults to 1). [def [cmd ::tkcon::OPT(buffer)]] The size of the console scroll buffer (in lines). Defaults to 512. [def [cmd ::tkcon::OPT(calcmode)]] Whether to allow expr commands to be run at the command line without prefixing them with expr (just a convenience). [def [cmd ::tkcon::OPT(cols)]] Number of columns for the console to start out with. Defaults to 80. [def [cmd ::tkcon::OPT(dead)]] What to do with dead connected interpreters. If dead is leave, TkCon automatically exits the dead interpreter. If dead is ignore then it remains attached waiting for the interpreter to reappear. Otherwise TkCon will prompt you. [def [cmd ::tkcon::OPT(exec)]] This corresponds to the [cmd -exec] tkcon option (see [cmd tkcon](1)). [def [cmd ::tkcon::OPT(font)]] Font to use for tkcon text widgets (also specified with [cmd -font] option). Defaults to the system default, or a fixed width equivalent. [def [cmd ::tkcon::OPT(gets)]] Controls whether tkcon will overload the gets command to work with tkcon. The valid values are: congets (the default), which will redirect stdin requests to the tkcon window; gets, which will pop up a dialog to get input; and {} (empty string) which tells tkcon not to overload gets. This value must be set at startup to alter tkcon's behavior. [def [cmd ::tkcon::OPT(history)]] The size of the history list to keep. Defaults to 48. [def [cmd ::tkcon::OPT(hoterrors)]] Whether hot errors are enabled or not. When enabled, errors that are returned to the console are marked with a link to the error info that will pop up in an minimal editor. This requires more memory because each error that occurs will maintain bindings for this feature, as long as the error is in the text widget. Defaults to on. [def [cmd ::tkcon::OPT(library)]] The path to any tcl library directories (these are appended to the [cmd auto_path] when the after the resource file is loaded in). [def [cmd ::tkcon::OPT(lightbrace)]] Whether to use the brace highlighting feature or not (respectively 1 or 0, defaults to 1). [def [cmd ::tkcon::OPT(lightcmd)]] Whether to use the command highlighting feature or not (respectively 1 or 0, defaults to 1). [def [cmd ::tkcon::OPT(maineval)]] A tcl script to execute in the main interpreter after the slave interpreter is created and the user interface is initialized. [def [cmd ::tkcon::OPT(maxlinelen)]] A number that specifies the limit of long result lines. True result is still captured in $_ (and 'puts $_' works). Defaults to 0 (unlimited). [def [cmd ::tkcon::OPT(maxmenu)]] A number that specifies the maximum number of packages to show vertically in the [arg Interp->Packages] menu before breaking into another column. Defaults to 15. [def [cmd ::tkcon::OPT(nontcl)]] For those who might be using non-Tcl based Tk attachments, set this to 1. It prevents TkCon from trying to evaluate its own Tcl code in an attached interpreter. Also see my notes for non-Tcl based Tk interpreters. [def [cmd ::tkcon::OPT(prompt1)]] Like [cmd tcl_prompt1], except it doesn't require you use [cmd puts]. No equivalent for [cmd tcl_prompt2] is available (it's unnecessary IMHO). Defaults to {([lb]file tail [lb]pwd[rb][rb]) [lb]history nextid[rb] % }. [def [cmd ::tkcon::OPT(rows)]] Number of rows for the console to start out with. Defaults to 20. [def [cmd ::tkcon::OPT(scollypos)]] Y scrollbar position. Valid values are left or right. Defaults to right. [def [cmd ::tkcon::OPT(showmenu)]] Show the menubar on startup (1 or 0, defaults to 1). [def [cmd ::tkcon::OPT(showmultiple)]] Show multiple matches for path/proc/var name expansion (1 or 0, defaults to 1). [def [cmd ::tkcon::OPT(slaveeval)]] A tcl script to execute in each slave interpreter right after it's created. This allows the user to have user defined info always available in a slave. [para] Example: [example_begin] set ::tkcon::OPT(slaveeval) { proc foo args { puts $args } lappend auto_path . } [example_end] [def [cmd ::tkcon::OPT(slaveexit)]] Allows the prevention of exit in slaves from exitting the entire application. If it is equal to exit, exit will exit as usual, otherwise it will just close down that interpreter (and any children). Defaults to close. [def [cmd ::tkcon::OPT(subhistory)]] Allow history substitution to occur (0 or 1, defaults to 1). The history list is maintained in a single interpreter per TkCon console instance. Thus you have history which can range over a series of attached interpreters. [list_end] [section EXAMPLES] [para] An example TkCon resource file might look like: [example_begin] ###################################################### ## My TkCon Resource File # Use a fixed default font #tkcon font fixed; # valid on unix #tkcon font systemfixed; # valid on win tkcon font Courier 12; # valid everywhere # Keep 50 commands in history set ::tkcon::OPT(history) 50 # Use a pink prompt set ::tkcon::COLOR(prompt) pink ###################################################### [example_end] [see_also [cmd tkcon](1)] [see_also [cmd dump](n) [cmd tkcon](n) [cmd idebug](n)] [see_also [cmd observe](n)] [keywords Tk console] [manpage_end] tkcon-2.7.3/docs/todo.html000077500000000000000000000056061357645571500154600ustar00rootroot00000000000000 tkcon: To Do Ideas
tkcon: To Do Ideas SourceForge Logo
Documentation Purpose & Features Limitations To Do License
Online Demo (requires Tk plugin) Using TkCon with other Tk Languages

Future Ideas

  • Add encoding auto-conversion to exec commands
  • keep history file, also keep history of sourced files 
  • set mimetype(extension,au) "audio/u-law"
set mimetype(extension,wav) "audio/wave"
set mimetype(extension,mid) "audio/midi"
/etc/magic
proc run {file} {
    global mimetype

    if {[file executable $file]} {
        exec $file
        return
    }

    catch {set mimetype $mimetype(extension,[file extension $file])}

    if {![info exists mimetype]} {
        set mimetype $mimetype(magic,[exec /bin/file $file])
    }

    exec $mimetype(application,$mimetype) $file
}
  • Add socket level communication model
  • Enhance the true debugging capabilities - I'm looking at tcl-debug and into what I can adopt from the tkInspect philosophy.
  • I'm taking ideas...

Known Bugs/Quirks

  • Command highlighting isn't perfect because I try to make it too efficient.
  • All interpreters have the same current working directory. This is a limitation of tcl.
  • You can't 'attach' on machines where send does not exist. John Loverso has a comm.tcl replacement. In any case, you can still attach to internal interpreters and namespaces.
  • Need to clean up checkpointed states when the associated interp dies. Works with slaves, but not foreign interps.
  • Can't identify non-Tcl or pre-Tk4 interpreters automagically...
  • You tell me...
© Jeffrey Hobbs
tkcon-2.7.3/extra/000077500000000000000000000000001357645571500140065ustar00rootroot00000000000000tkcon-2.7.3/extra/console1_1.tcl000066400000000000000000002006331357645571500164610ustar00rootroot00000000000000## ## Copyright 1996-1997 Jeffrey Hobbs ## ## source standard_disclaimer.tcl ## source beer_ware.tcl ## ## Based off previous work for TkCon ## ##------------------------------------------------------------------------ ## PROCEDURE ## console ## ## DESCRIPTION ## Implements a console mega-widget ## ## ARGUMENTS ## console ## ## OPTIONS ## (Any toplevel widget option may be used in addition to these) ## ## -blinkcolor color DEFAULT: yellow ## Specifies the background blink color for brace highlighting. ## This doubles as the highlight color for the find box. ## ## -blinkrange TCL_BOOLEAN DEFAULT: 1 ## When doing electric brace matching, specifies whether to blink ## the entire range or just the matching braces. ## ## -proccolor color DEFAULT: darkgreen ## Specifies the color to highlight recognized procs. ## ## -promptcolor color DEFAULT: brown ## Specifies the prompt color. ## ## -stdincolor color DEFAULT: black ## Specifies the color for "stdin". ## This doubles as the console foreground color. ## ## -stdoutcolor color DEFAULT: blue ## Specifies the color for "stdout". ## ## -stderrcolor color DEFAULT: red ## Specifies the color for "stderr". ## ## -blinktime delay DEFAULT: 500 ## For electric brace matching, specifies the amount of time to ## blink the background for. ## ## -cols ## DEFAULT: 80 ## Specifies the startup width of the console. ## ## -grabputs TCL_BOOLEAN DEFAULT: 1 ## Whether this console should grab the "puts" default output ## ## -lightbrace TCL_BOOLEAN DEFAULT: 1 ## Specifies whether to activate electric brace matching. ## ## -lightcmd TCL_BOOLEAN DEFAULT: 1 ## Specifies whether to highlight recognized commands. ## ## -rows ## DEFAULT: 20 ## Specifies the startup height of the console. ## ## -scrollypos left|right DEFAULT: right ## Specified position of the console scrollbar relative to the text. ## ## -showmultiple TCL_BOOLEAN DEFAULT: 1 ## For file/proc/var completion, specifies whether to display ## completions when multiple choices are possible. ## ## -showmenu TCL_BOOLEAN DEFAULT: 1 ## Specifies whether to show the menubar. ## ## -subhistory TCL_BOOLEAN DEFAULT: 1 ## Specifies whether to allow substitution in the history. ## ## RETURNS: the window pathname ## ## BINDINGS (these are the bindings for Console, used in the text widget) ## ## <> ## <> ## <> ## <> ## <> ## ## <> ## <> ## <> ## <> ## <> ## ## <> ## <> ## <> ## <> ## <> ## <> ## ## <> ## <> ## <> ## <> ## <> ## <> ## ## METHODS ## These are the methods that the console megawidget recognizes. ## ## configure ?option? ?value option value ...? ## cget option ## Standard tk widget routines. ## ## load ?filename? ## Loads the named file into the current interpreter. ## If no file is specified, it pops up the file requester. ## ## save ?filename? ## Saves the console buffer to the named file. ## If no file is specified, it pops up the file requester. ## ## clear ?percentage? ## Clears a percentage of the console buffer (1-100). If no ## percentage is specified, the entire buffer is cleared. ## ## error ## Displays the last error in the interpreter in a dialog box. ## ## hide ## Withdraws the console from the screen ## ## history ?-newline? ## Prints out the history without numbers (basically providing a ## list of the commands you've used). ## ## show ## Deiconifies and raises the console ## ## subwidget widget ## Returns the true widget path of the specified widget. Valid ## widgets are console, scrolly, menubar. ## ## NAMESPACE & STATE ## The megawidget creates a global array with the classname, and a ## global array which is the name of each megawidget created. The latter ## array is deleted when the megawidget is destroyed. ## The procedure console and those beginning with Console are ## used. Also, when a widget is created, commands named .$widgetname ## and Console$widgetname are created. ## ## EXAMPLE USAGE: ## ## console .con -rows 24 -showmenu false ## ##------------------------------------------------------------------------ package require Tk proc megawidget {CLASS} { upvar \#0 $CLASS class foreach o [array names class -*] { foreach {name cname val} $class($o) { if [string match -* $name] continue option add *$CLASS.$name [uplevel \#0 [list subst $val]] widgetDefault } } set class(class) $CLASS bind $CLASS "catch {${CLASS}_destroy %W}" ;proc $CLASS:eval {w method args} { upvar \#0 $w data set class [winfo class $w] if [string match {} [set arg [info command ${class}_$method]]] { set arg [info command ${class}_$method*] } set num [llength $arg] if {$num==1} { return [uplevel $arg [list $w] $args] } elseif {$num} { return -code error "ambiguous option \"$method\"" } elseif {[catch {uplevel [list $data(cmd) $method] $args} err]} { return -code error $err } else { return $err } } ;proc ${CLASS}_destroy w { upvar \#0 $w data catch { [winfo class $w]:destroy $w } catch { rename $w {} } catch { rename $data(cmd) {} } catch { unset data } } ;proc ${CLASS}_cget {w args} { if {[llength $args] != 1} { return -code error "wrong \# args: should be \"$w cget option\"" } upvar \#0 $w data [winfo class $w] class if {[info exists class($args)] && [string match -* $class($args)]} { set args $class($args) } if [string match {} [set arg [array names data $args]]] { set arg [array names data ${args}*] } set num [llength $arg] if {$num==1} { return $data($arg) } elseif {$num} { return -code error "ambiguous option \"$args\"" } elseif {[catch {$data(cmd) cget $args} err]} { return -code error $err } else { return $err } } ;proc ${CLASS}_configure {w args} { upvar \#0 $w data [winfo class $w] class set num [llength $args] if {$num==1} { if {[info exists class($args)] && [string match -* $class($args)]} { set args $class($args) } if [string match {} [set arg [array names data $args]]] { set arg [array names data ${args}*] } set num [llength $arg] if {$num==1} { return [list $arg $class($arg) $data($arg)] } elseif {$num} { return -code error "ambiguous option \"$args\"" } elseif {[catch {$data(cmd) config $args} err]} { return -code error $err } else { return $err } } elseif {$num} { for {set i 0} {$i<$num} {incr i} { set key [lindex $args $i] if {[info exists class($key)] && [string match -* $class($key)]} { set key $class($key) } if [string match {} [set arg [array names data $key]]] { set arg [array names data $key*] } set val [lindex $args [incr i]] set len [llength $arg] if {$len==1} { $class(class):configure $w $arg $val } elseif {$len} { return -code error "ambiguous option \"$args\"" } elseif {[catch {$data(cmd) configure $key $val} err]} { return -code error $err } } return } else { set conf [$data(cmd) config] foreach i [array names data -*] { lappend conf "$i $class($i) [list $data($i)]" } return [lsort $conf] } } ;proc $CLASS:configure {w key value} { puts "$w: $key configured to [list $value]" } return $CLASS } foreach pkg [info loaded {}] { set file [lindex $pkg 0] set name [lindex $pkg 1] if {![catch {set version [package require $name]}]} { if {[string match {} [package ifneeded $name $version]]} { package ifneeded $name $version "load [list $file $name]" } } } catch {unset file name version} set Console(WWW) [info exists embed_args] array set Console { -blinkcolor {blinkColor BlinkColor yellow} -blinkrange {blinkRange BlinkRange 1} -proccolor {procColor ProcColor darkgreen} -promptcolor {promptColor PromptColor brown} -stdincolor {stdinColor StdinColor black} -stdoutcolor {stdoutColor StdoutColor blue} -stderrcolor {stderrColor StderrColor red} -blinktime {blinkTime BlinkTime 500} -cols {columns Columns 80} -grabputs {grabPuts GrabPuts 0} -lightbrace {lightBrace LightBrace 1} -lightcmd {lightCmd LightCmd 1} -rows {rows Rows 20} -scrollypos {scrollYPos ScrollYPos right} -showmultiple {showMultiple ShowMultiple 1} -showmenu {showMenu ShowMenu 1} -subhistory {subhistory SubHistory 1} active {} version 1.2 release {February 1997} contact {jhobbs@cs.uoregon.edu} docs {http://www.sunlabs.com/tcl/plugin/} slavealias { console } slaveprocs { alias dir dump lremove puts echo unknown tcl_unknown which } } if [string compare unix $tcl_platform(platform)] { set Console(-font) {font Font {Courier 14}} } else { set Console(-font) {font Font fixed} } if $Console(WWW) { set Console(-prompt) {prompt Prompt {\[history nextid\] % }} } else { set Console(-prompt) {prompt Prompt \ {(\[file tail \[pwd\]\]) \[history nextid\] % }} } megawidget Console ## console - # ARGS: w - widget pathname of the Console console # args # Calls: ConsoleInitUI # Outputs: errors found in Console resource file ## proc console {W args} { set CLASS Console upvar \#0 $W data $CLASS class if {[winfo exists $W]} { catch {eval destroy [winfo children $W]} } else { toplevel $W -class $CLASS } wm withdraw $W wm title $W "Console $class(version)" ## User definable options foreach o [array names class -*] { if [string match -* $class($o)] continue set data($o) [option get $W [lindex $class($o) 0] $CLASS] } global auto_path tcl_pkgPath tcl_interactive set tcl_interactive 1 ## Private variables array set data { appname {} cmdbuf {} cmdsave {} errorInfo {} event 1 histid 0 find {} find,case 0 find,reg 0 } array set data [list class $CLASS cmd $CLASS$W \ menubar $W.bar \ console $W.text \ scrolly $W.sy \ ] rename $W $data(cmd) if {[string comp {} $args] && \ [catch {eval ${CLASS}_configure $W $args} err]} { catch {destroy $W} catch {unset data} return -code error $err } ;proc $W args "eval $CLASS:eval [list $W] \$args" if {![info exists tcl_pkgPath]} { set dir [file join [file dirname [info nameofexec]] lib] if [string comp {} [info commands @scope]] { set dir [file join $dir itcl] } catch {source [file join $dir pkgIndex.tcl]} } catch {tclPkgUnknown dummy-name dummy-version} ## Menus frame $data(menubar) -relief raised -bd 2 set c [text $data(console) -font $data(-font) -wrap char -setgrid 1 \ -yscrollcomm [list $W.sy set] -foreground $data(-stdincolor) \ -width $data(-cols) -height $data(-rows)] bindtags $W [list $W all] bindtags $c [list $c PreCon Console PostCon $W all] scrollbar $data(scrolly) -takefocus 0 -bd 1 -command "$c yview" ConsoleInitMenus $W if $data(-showmenu) { pack $data(menubar) -fill x } pack $data(scrolly) -side $data(-scrollypos) -fill y pack $c -fill both -expand 1 Console:prompt $W "console display active\n" foreach col {prompt stdout stderr stdin proc} { $c tag configure $col -foreground $data(-${col}color) } $c tag configure blink -background $data(-blinkcolor) $c tag configure find -background $data(-blinkcolor) bind $c { set W [winfo toplevel %W] scan [wm geometry $W] "%%dx%%d" $W\(-cols\) $W\(-rows\) } wm deiconify $W focus -force $c return $W } ;proc Console:configure { W key val } { upvar \#0 $W data global Console set truth {^(1|yes|true|on)$} switch -- $key { -blinkcolor { $data(console) tag config blink -background $val $data(console) tag config find -background $val } -proccolor { $data(console) tag config proc -foreground $val } -promptcolor { $data(console) tag config prompt -foreground $val } -stdincolor { $data(console) tag config stdin -foreground $val $data(console) config -foreground $val } -stdoutcolor { $data(console) tag config stdout -foreground $val } -stderrcolor { $data(console) tag config stderr -foreground $val } -blinktime { if ![regexp {[0-9]+} $val] { return -code error "$key option requires an integer value" } } -cols { if [winfo exists $data(console)] { $data(console) config -width $val } } -font { $data(console) config -font $val } -grabputs { set val [regexp -nocase $truth $val] if $val { set Console(active) [linsert $Console(active) 0 $W] } else { set Console(active) [lremove -all $Console(active) $W] } } -lightbrace { set val [regexp -nocase $truth $val] } -lightcmd { set val [regexp -nocase $truth $val] } -prompt { if [catch {uplevel \#0 [list subst $val]} err] { return -code error "\"$val\" threw an error:\n$err" } } -rows { if [winfo exists $data(console)] { $data(console) config -height $val } } -scrollypos { if [regexp {^(left|right)$} $val junk val] { if [winfo exists $data(scrolly)] { pack config $data(scrolly) -side $val } } else { return -code error "bad option \"$val\": must be left or right" } } -showmultiple { set val [regexp -nocase $truth $val] } -showmenu { set val [regexp -nocase $truth $val] if [winfo exists $data(menubar)] { if $val { pack $data(menubar) -fill x -before $data(console) \ -before $data(scrolly) } else { pack forget $data(menubar) } } } -subhistory { set val [regexp -nocase $truth $val] } } set data($key) $val } ;proc Console:destroy W { global Console set Console(active) [lremove $Console(active) $W] } ## ConsoleEval - evaluates commands input into console window ## This is the first stage of the evaluating commands in the console. ## They need to be broken up into consituent commands (by ConsoleCmdSep) in ## case a multiple commands were pasted in, then each is eval'ed (by ## ConsoleEvalCmd) in turn. Any uncompleted command will not be eval'ed. # ARGS: w - console text widget # Calls: ConsoleCmdGet, ConsoleCmdSep, ConsoleEvalCmd ## ;proc ConsoleEval {w} { ConsoleCmdSep [ConsoleCmdGet $w] cmds cmd $w mark set insert end-1c $w insert end \n if [llength $cmds] { foreach c $cmds {ConsoleEvalCmd $w $c} $w insert insert $cmd {} } elseif {[info complete $cmd] && ![regexp {[^\\]\\$} $cmd]} { ConsoleEvalCmd $w $cmd } $w see insert } ## ConsoleEvalCmd - evaluates a single command, adding it to history # ARGS: w - console text widget # cmd - the command to evaluate # Calls: Console:prompt # Outputs: result of command to stdout (or stderr if error occured) # Returns: next event number ## ;proc ConsoleEvalCmd {w cmd} { ## HACK to get $W as we need it set W [winfo parent $w] upvar \#0 $W data $w mark set output end if [string comp {} $cmd] { set err 0 if $data(-subhistory) { set ev [ConsoleEvalSlave history nextid] incr ev -1 if {[string match !! $cmd]} { set err [catch {ConsoleEvalSlave history event $ev} cmd] if !$err {$w insert output $cmd\n stdin} } elseif {[regexp {^!(.+)$} $cmd dummy event]} { ## Check last event because history event is broken set err [catch {ConsoleEvalSlave history event $ev} cmd] if {!$err && ![string match ${event}* $cmd]} { set err [catch {ConsoleEvalSlave history event $event} cmd] } if !$err {$w insert output $cmd\n stdin} } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $cmd dummy old new]} { if ![set err [catch {ConsoleEvalSlave history event $ev} cmd]] { regsub -all -- $old $cmd $new cmd $w insert output $cmd\n stdin } } } if $err { $w insert output $cmd\n stderr } else { if [string match {} $data(appname)] { if [catch {ConsoleEvalSlave eval $cmd} res] { set data(errorInfo) [ConsoleEvalSlave set errorInfo] set err 1 } } else { if [catch [list ConsoleEvalAttached $cmd] res] { if [catch {ConsoleEvalAttached set errorInfo} err] { set data(errorInfo) {Error attempting to retrieve errorInfo} } else { set data(errorInfo) $err } set err 1 } } ConsoleEvalSlave history add $cmd if $err { $w insert output $res\n stderr } elseif {[string comp {} $res]} { $w insert output $res\n stdout } } } Console:prompt $W set data(event) [ConsoleEvalSlave history nextid] } ## ConsoleEvalSlave - evaluates the args in the associated slave ## args should be passed to this procedure like they would be at ## the command line (not like to 'eval'). # ARGS: args - the command and args to evaluate ## ;proc ConsoleEvalSlave {args} { uplevel \#0 $args } ## ConsoleEvalAttached ## ;proc ConsoleEvalAttached {args} { eval uplevel \#0 $args } ## ConsoleCmdGet - gets the current command from the console widget # ARGS: w - console text widget # Returns: text which compromises current command line ## ;proc ConsoleCmdGet w { if [string match {} [$w tag nextrange prompt limit end]] { $w tag add stdin limit end-1c return [$w get limit end-1c] } } ## ConsoleCmdSep - separates multiple commands into a list and remainder # ARGS: cmd - (possible) multiple command to separate # list - varname for the list of commands that were separated. # rmd - varname of any remainder (like an incomplete final command). # If there is only one command, it's placed in this var. # Returns: constituent command info in varnames specified by list & rmd. ## ;proc ConsoleCmdSep {cmd ls rmd} { upvar $ls cmds $rmd tmp set tmp {} set cmds {} foreach cmd [split [set cmd] \n] { if [string comp {} $tmp] { append tmp \n$cmd } else { append tmp $cmd } if {[info complete $tmp] && ![regexp {[^\\]\\$} $tmp]} { lappend cmds $tmp set tmp {} } } if {[string comp {} [lindex $cmds end]] && [string match {} $tmp]} { set tmp [lindex $cmds end] set cmds [lreplace $cmds end end] } } ## Console:prompt - displays the prompt in the console widget # ARGS: w - console text widget # Outputs: prompt (specified in data(-prompt)) to console ## ;proc Console:prompt {W {pre {}} {post {}} {prompt {}}} { upvar \#0 $W data set w $data(console) if [string comp {} $pre] { $w insert end $pre stdout } set i [$w index end-1c] if [string comp {} $data(appname)] { $w insert end ">$data(appname)< " prompt } if [string comp {} $prompt] { $w insert end $prompt prompt } else { $w insert end [ConsoleEvalSlave subst $data(-prompt)] prompt } $w mark set output $i $w mark set insert end $w mark set limit insert $w mark gravity limit left if [string comp {} $post] { $w insert end $post stdin } $w see end } ## ConsoleAbout - gives about info for Console ## ;proc ConsoleAbout W { global Console set w $W.about if [winfo exists $w] { wm deiconify $w } else { toplevel $w wm title $w "About Console v$Console(version)" button $w.b -text Dismiss -command [list wm withdraw $w] text $w.text -height 8 -bd 1 -width 60 pack $w.b -fill x -side bottom pack $w.text -fill both -side left -expand 1 $w.text tag config center -justify center $w.text tag config title -justify center -font {Courier 18 bold} $w.text insert 1.0 "About Console v$Console(version)\n\n" title \ "Copyright 1995-1997 Jeffrey Hobbs, $Console(contact)\ \nhttp://www.cs.uoregon.edu/~jhobbs/\ \nRelease Date: v$Console(version), $Console(release)\ \nDocumentation available at:\n$Console(docs)" center } } ## ConsoleInitMenus - inits the menubar and popup for the console # ARGS: W - console ## ;proc ConsoleInitMenus {W} { upvar \#0 $W data set w $data(menubar) set text $data(console) if [catch {menu $w.pop -tearoff 0}] { label $w.label -text "Menus not available in plugin mode" pack $w.label return } bind [winfo toplevel $w] "tk_popup $w.pop %X %Y" pack [menubutton $w.con -text "Console" -un 0 -menu $w.con.m] -side left $w.pop add cascade -label "Console" -un 0 -menu $w.pop.con pack [menubutton $w.edit -text "Edit" -un 0 -menu $w.edit.m] -side left $w.pop add cascade -label "Edit" -un 0 -menu $w.pop.edit pack [menubutton $w.pref -text "Prefs" -un 0 -menu $w.pref.m] -side left $w.pop add cascade -label "Prefs" -un 0 -menu $w.pop.pref pack [menubutton $w.hist -text "History" -un 0 -menu $w.hist.m] -side left $w.pop add cascade -label "History" -un 0 -menu $w.pop.hist pack [menubutton $w.help -text "Help" -un 0 -menu $w.help.m] -side right $w.pop add cascade -label "Help" -un 0 -menu $w.pop.help ## Console Menu ## foreach m [list [menu $w.con.m -disabledfore $data(-promptcolor)] \ [menu $w.pop.con -disabledfore $data(-promptcolor)]] { $m add command -label "Console $W" -state disabled $m add command -label "Close Console " -un 0 \ -acc [event info <>] -com [list destroy $W] $m add command -label "Clear Console " -un 1 \ -acc [event info <>] -com [list Console_clear $W] $m add separator $m add command -label "Quit" -un 0 -acc [event info <>] \ -command exit } ## Edit Menu ## foreach m [list [menu $w.edit.m] [menu $w.pop.edit]] { $m add command -label "Cut" -un 1 \ -acc [lindex [event info <>] 0] \ -command [list ConsoleCut $text] $m add command -label "Copy" -un 1 \ -acc [lindex [event info <>] 0] \ -command [list ConsoleCopy $text] $m add command -label "Paste" -un 0 \ -acc [lindex [event info <>] 0] \ -command [list ConsolePaste $text] $m add separator $m add command -label "Find" -un 0 -acc [event info <>] \ -command [list ConsoleFindBox $W] } ## Prefs Menu ## foreach m [list [menu $w.pref.m] [menu $w.pop.pref]] { $m add checkbutton -label "Brace Highlighting" -var $W\(-lightbrace\) $m add checkbutton -label "Command Highlighting" -var $W\(-lightcmd\) $m add checkbutton -label "History Substitution" -var $W\(-subhistory\) $m add checkbutton -label "Show Multiple Matches" -var $W\(-showmultiple\) $m add checkbutton -label "Show Menubar" -var $W\(-showmenu\) \ -command "Console:configure $W -showmenu \[set $W\(-showmenu\)\]" $m add cascade -label Scrollbar -un 0 -menu $m.scroll ## Scrollbar Menu ## set m [menu $m.scroll -tearoff 0] $m add radio -label "Left" -var $W\(-scrollypos\) -value left \ -command [list Console:configure $W -scrollypos left] $m add radio -label "Right" -var $W\(-scrollypos\) -value right \ -command [list Console:configure $W -scrollypos right] } ## History Menu ## foreach m [list $w.hist.m $w.pop.hist] { menu $m -disabledfore $data(-promptcolor) \ -postcommand [list ConsoleHistoryMenu $W $m] } ## Help Menu ## foreach m [list [menu $w.help.m] [menu $w.pop.help]] { $m config -disabledfore $data(-promptcolor) $m add command -label "About " -un 0 -acc [event info <>] \ -command [list ConsoleAbout $W] } bind $W <> exit #bind $W <> ConsoleNew bind $W <> [list destroy $W] bind $W <> [list ConsoleAbout $W] bind $W <> [list ConsoleHelp $W] bind $W <> [list ConsoleFindBox $W] ## Menu items need null PostCon bindings to avoid the TagProc ## foreach ev [bind $W] { bind PostCon $ev { # empty } } } ## ConsoleHistoryMenu - dynamically build the menu for attached interpreters ## # ARGS: w - menu widget ## ;proc ConsoleHistoryMenu {W w} { upvar \#0 $W data if ![winfo exists $w] return set id [ConsoleEvalSlave history nextid] if {$data(histid)==$id} return set data(histid) $id $w delete 0 end set con $data(console) while {($id>$data(histid)-10) && \ ![catch {ConsoleEvalSlave history event [incr id -1]} tmp]} { set lbl [lindex [split $tmp "\n"] 0] if {[string len $lbl]>32} { set lbl [string range $tmp 0 30]... } $w add command -label "$id: $lbl" -command " $con delete limit end $con insert limit [list $tmp] $con see end ConsoleEval $con " } } ## ConsoleFindBox - creates minimal dialog interface to ConsoleFind # ARGS: w - text widget # str - optional seed string for data(find) ## ;proc ConsoleFindBox {W {str {}}} { upvar \#0 $W data set t $data(console) set base $W.find if ![winfo exists $base] { toplevel $base wm withdraw $base wm title $base "Console Find" pack [frame $base.f] -fill x -expand 1 label $base.f.l -text "Find:" entry $base.f.e -textvar $W\(find\) pack [frame $base.opt] -fill x checkbutton $base.opt.c -text "Case Sensitive" -variable $W\(find,case\) checkbutton $base.opt.r -text "Use Regexp" -variable $W\(find,reg\) pack $base.f.l -side left pack $base.f.e $base.opt.c $base.opt.r -side left -fill both -expand 1 pack [frame $base.sep -bd 2 -relief sunken -height 4] -fill x pack [frame $base.btn] -fill both button $base.btn.fnd -text "Find" -width 6 button $base.btn.clr -text "Clear" -width 6 button $base.btn.dis -text "Dismiss" -width 6 eval pack [winfo children $base.btn] -padx 4 -pady 2 -side left -fill both focus $base.f.e bind $base.f.e [list $base.btn.fnd invoke] bind $base.f.e [list $base.btn.dis invoke] } $base.btn.fnd config -command "Console_find $W \$data(find) \ -case \$data(find,case) -reg \$data(find,reg)" $base.btn.clr config -command " $t tag remove find 1.0 end set data(find) {} " $base.btn.dis config -command " $t tag remove find 1.0 end wm withdraw $base " if [string comp {} $str] { set data(find) $str $base.btn.fnd invoke } if {[string comp normal [wm state $base]]} { wm deiconify $base } else { raise $base } $base.f.e select range 0 end } ## Console_find - searches in text widget for $str and highlights it ## If $str is empty, it just deletes any highlighting # ARGS: W - console widget # str - string to search for # -case TCL_BOOLEAN whether to be case sensitive DEFAULT: 0 # -regexp TCL_BOOLEAN whether to use $str as pattern DEFAULT: 0 ## ;proc ConsoleFind {W str args} { upvar \#0 $W data set t $data(console) $t tag remove find 1.0 end set truth {^(1|yes|true|on)$} set opts {} foreach {key val} $args { switch -glob -- $key { -c* { if [regexp -nocase $truth $val] { set case 1 } } -r* { if [regexp -nocase $truth $val] { lappend opts -regexp } } default { return -code error "Unknown option $key" } } } if ![info exists case] { lappend opts -nocase } if [string match {} $str] return $t mark set findmark 1.0 while {[string comp {} [set ix [eval $t search $opts -count numc -- \ [list $str] findmark end]]]} { $t tag add find $ix ${ix}+${numc}c $t mark set findmark ${ix}+1c } catch {$t see find.first} return [expr [llength [$t tag ranges find]]/2] } ## Console:savecommand - saves a command in a buffer for later retrieval # ## ;proc Console:savecommand {w} { upvar \#0 [winfo parent $w] data set tmp $data(cmdsave) set data(cmdsave) [ConsoleCmdGet $w] if {[string match {} $data(cmdsave)]} { set data(cmdsave) $tmp } else { $w delete limit end-1c } $w insert limit $tmp $w see end } ## Console_load - sources a file into the console # ARGS: fn - (optional) filename to source in # Returns: selected filename ({} if nothing was selected) ## ;proc Console_load {W {fn {}}} { if {[string match {} $fn] && ([catch {tk_getOpenFile} fn] || [string match {} $fn])} return ConsoleEvalAttached [list source $fn] } ## Console_save - saves the console buffer to a file ## This does not eval in a slave because it's not necessary # ARGS: w - console text widget # fn - (optional) filename to save to ## ;proc Console_save {W {fn {}}} { upvar \#0 $W data if {[string match {} $fn] && ([catch {tk_getSaveFile} fn] || [string match {} $fn])} return if [catch {open $fn w} fid] { return -code error "Save Error: Unable to open '$fn' for writing\n$fid" } puts $fid [$data(console) get 1.0 end-1c] close $fid } ## clear - clears the buffer of the console (not the history though) ## ;proc Console_clear {W {pcnt 100}} { upvar \#0 $W data set data(tmp) [ConsoleCmdGet $data(console)] if {![regexp {^[0-9]*$} $pcnt] || $pcnt < 1 || $pcnt > 100} { return -code error \ "invalid percentage to clear: must be 1-100 (100 default)" } elseif {$pcnt == 100} { $data(console) delete 1.0 end } else { set tmp [expr $pcnt/100.0*[$data(console) index end]] $data(console) delete 1.0 "$tmp linestart" } Console:prompt $W {} $data(tmp) } ;proc Console_error {W} { ## Outputs stack caused by last error. upvar \#0 $W data set info $data(errorInfo) if [string match {} $info] { set info {errorInfo empty} } catch {destroy $W.error} set w [toplevel $W.error] wm title $w "Console Last Error" button $w.close -text Dismiss -command [list destroy $w] scrollbar $w.sy -takefocus 0 -bd 1 -command [list $w.text yview] text $w.text -font $data(-font) -yscrollcommand [list $w.sy set] pack $w.close -side bottom -fill x pack $w.sy -side right -fill y pack $w.text -fill both -expand 1 $w.text insert 1.0 $info $w.text config -state disabled } ## Console_event - searches for history based on a string ## Search forward (next) if $int>0, otherwise search back (prev) # ARGS: W - console widget ## ;proc Console_event {W int {str {}}} { upvar \#0 $W data if !$int return set w $data(console) set nextid [ConsoleEvalSlave history nextid] if [string comp {} $str] { ## String is not empty, do an event search set event $data(event) if {$int < 0 && $event == $nextid} { set data(cmdbuf) $str } set len [string len $data(cmdbuf)] incr len -1 if {$int > 0} { ## Search history forward while {$event < $nextid} { if {[incr event] == $nextid} { $w delete limit end $w insert limit $data(cmdbuf) break } elseif {![catch {ConsoleEvalSlave history event $event} res] \ && ![string comp $data(cmdbuf) [string range $res 0 $len]]} { $w delete limit end $w insert limit $res break } } set data(event) $event } else { ## Search history reverse while {![catch {ConsoleEvalSlave history event [incr event -1]} res]} { if {![string comp $data(cmdbuf) [string range $res 0 $len]]} { $w delete limit end $w insert limit $res set data(event) $event break } } } } else { ## String is empty, just get next/prev event if {$int > 0} { ## Goto next command in history if {$data(event) < $nextid} { $w delete limit end if {[incr data(event)] == $nextid} { $w insert limit $data(cmdbuf) } else { $w insert limit [ConsoleEvalSlave history event $data(event)] } } } else { ## Goto previous command in history if {$data(event) == $nextid} { set data(cmdbuf) [ConsoleCmdGet $w] } if [catch {ConsoleEvalSlave history event [incr data(event) -1]} res] { incr data(event) } else { $w delete limit end $w insert limit $res } } } $w mark set insert end $w see end } ;proc Console_history {W args} { set sub {\2} if [string match -n* $args] { append sub "\n" } set h [ConsoleEvalSlave history] regsub -all "( *\[0-9\]+ |\t)(\[^\n\]*\n?)" $h $sub h return $h } ;proc Console_hide {W} { wm withdraw $W } ;proc Console_show {W} { wm deiconify $W raise $W } ## ## Some procedures to make up for lack of built-in shell commands ## ## puts ## This allows me to capture all stdout/stderr to the console window # ARGS: same as usual # Outputs: the string with a color-coded text tag ## if ![catch {rename puts tcl_puts}] { ;proc puts args { global Console set w [lindex $Console(active) 0].text if {[llength $Console(active)] && [winfo exists $w]} { set len [llength $args] if {$len==1} { eval $w insert output $args stdout {\n} stdout $w see output } elseif {$len==2 && \ [regexp {(stdout|stderr|-nonewline)} [lindex $args 0] junk tmp]} { if [string comp $tmp -nonewline] { eval $w insert output [lreplace $args 0 0] $tmp {\n} $tmp } else { eval $w insert output [lreplace $args 0 0] stdout } $w see output } elseif {$len==3 && \ [regexp {(stdout|stderr)} [lreplace $args 2 2] junk tmp]} { if [string comp [lreplace $args 1 2] -nonewline] { eval $w insert output [lrange $args 1 1] $tmp } else { eval $w insert output [lreplace $args 0 1] $tmp } $w see output } else { global errorCode errorInfo if [catch "tcl_puts $args" msg] { regsub tcl_puts $msg puts msg regsub -all tcl_puts $errorInfo puts errorInfo error $msg } return $msg } if $len update } else { global errorCode errorInfo if [catch "tcl_puts $args" msg] { regsub tcl_puts $msg puts msg regsub -all tcl_puts $errorInfo puts errorInfo error $msg } return $msg } } } ## echo ## Relaxes the one string restriction of 'puts' # ARGS: any number of strings to output to stdout ## proc echo args { puts [concat $args] } ## alias - akin to the csh alias command ## If called with no args, then it dumps out all current aliases ## If called with one arg, returns the alias of that arg (or {} if none) # ARGS: newcmd - (optional) command to bind alias to # args - command and args being aliased ## proc alias {{newcmd {}} args} { if [string match {} $newcmd] { set res {} foreach a [interp aliases] { lappend res [list $a -> [interp alias {} $a]] } return [join $res \n] } elseif {[string match {} $args]} { interp alias {} $newcmd } else { eval interp alias [list {} $newcmd {}] $args } } ## dump - outputs variables/procedure/widget info in source'able form. ## Accepts glob style pattern matching for the names # ARGS: type - type of thing to dump: must be variable, procedure, widget # OPTS: -nocomplain # don't complain if no vars match something # -filter pattern # specifies a glob filter pattern to be used by the variable # method as an array filter pattern (it filters down for # nested elements) and in the widget method as a config # option filter pattern # -- forcibly ends options recognition # Returns: the values of the requested items in a 'source'able form ## proc dump {type args} { set whine 1 set code ok while {[string match -* $args]} { switch -glob -- [lindex $args 0] { -n* { set whine 0; set args [lreplace $args 0 0] } -f* { set fltr [lindex $args 1]; set args [lreplace $args 0 1] } -- { set args [lreplace $args 0 0]; break } default { return -code error "unknown option \"[lindex $args 0]\"" } } } if {$whine && [string match {} $args]} { return -code error "wrong \# args: [lindex [info level 0] 0]\ ?-nocomplain? ?-filter pattern? ?--? pattern ?pattern ...?" } set res {} switch -glob -- $type { c* { # command # outpus commands by figuring out, as well as possible, what it is # this does not attempt to auto-load anything foreach arg $args { if [string comp {} [set cmds [info comm $arg]]] { foreach cmd [lsort $cmds] { if {[lsearch -exact [interp aliases] $cmd] > -1} { append res "\#\# ALIAS: $cmd => [interp alias {} $cmd]\n" } elseif {[string comp {} [info procs $cmd]]} { if {[catch {dump p -- $cmd} msg] && $whine} { set code error } append res $msg\n } else { append res "\#\# COMMAND: $cmd\n" } } } elseif $whine { append res "\#\# No known command $arg\n" set code error } } } v* { # variable # outputs variables value(s), whether array or simple. if ![info exists fltr] { set fltr * } foreach arg $args { if {[string match {} [set vars [uplevel info vars [list $arg]]]]} { if {[uplevel info exists $arg]} { set vars $arg } elseif $whine { append res "\#\# No known variable $arg\n" set code error continue } else continue } foreach var [lsort $vars] { upvar $var v if {[array exists v]} { set nest {} append res "array set $var \{\n" foreach i [lsort [array names v $fltr]] { upvar 0 v\($i\) __ary if {[array exists __ary]} { append nest "\#\# NESTED ARRAY ELEMENT: $i\n" append nest "upvar 0 [list $var\($i\)] __ary;\ [dump v -filter $fltr __ary]\n" } else { append res " [list $i]\t[list $v($i)]\n" } } append res "\}\n$nest" } else { append res [list set $var $v]\n } } } } p* { # procedure foreach arg $args { if {[string comp {} [set ps [info proc $arg]]] || ([auto_load $arg] && [string comp {} [set ps [info proc $arg]]])} { foreach p [lsort $ps] { set as {} foreach a [info args $p] { if {[info default $p $a tmp]} { lappend as [list $a $tmp] } else { lappend as $a } } append res [list proc $p $as [info body $p]]\n } } elseif $whine { append res "\#\# No known proc $arg\n" set code error } } } w* { # widget ## The user should have Tk loaded if [string match {} [info command winfo]] { return -code error "winfo not present, cannot dump widgets" } if ![info exists fltr] { set fltr .* } foreach arg $args { if [string comp {} [set ws [info command $arg]]] { foreach w [lsort $ws] { if [winfo exists $w] { if [catch {$w configure} cfg] { append res "\#\# Widget $w does not support configure method" set code error } else { append res "\#\# [winfo class $w] $w\n$w configure" foreach c $cfg { if {[llength $c] != 5} continue if {[regexp -nocase -- $fltr $c]} { append res " \\\n\t[list [lindex $c 0] [lindex $c 4]]" } } append res \n } } } } elseif $whine { append res "\#\# No known widget $arg\n" set code error } } } default { return -code error "bad [lindex [info level 0] 0] option\ \"$type\":\ must be procedure, variable, widget" } } return -code $code [string trimr $res \n] } ## which - tells you where a command is found # ARGS: cmd - command name # Returns: where command is found (internal / external / unknown) ## proc which cmd { if {[string comp {} [info commands $cmd]] || ([auto_load $cmd] && [string comp {} [info commands $cmd]])} { if {[lsearch -exact [interp aliases] $cmd] > -1} { return "$cmd:\taliased to [alias $cmd]" } elseif {[string comp {} [info procs $cmd]]} { return "$cmd:\tinternal proc" } else { return "$cmd:\tinternal command" } } elseif {[string comp {} [auto_execok $cmd]]} { return [auto_execok $cmd] } else { return -code error "$cmd:\tunknown command" } } ## dir - directory list # ARGS: args - names/glob patterns of directories to list # OPTS: -all - list hidden files as well (Unix dot files) # -long - list in full format "permissions size date filename" # -full - displays / after directories and link paths for links # Returns: a directory listing ## proc dir {args} { array set s { all 0 full 0 long 0 0 --- 1 --x 2 -w- 3 -wx 4 r-- 5 r-x 6 rw- 7 rwx } while {[string match \-* [lindex $args 0]]} { set str [lindex $args 0] set args [lreplace $args 0 0] switch -glob -- $str { -a* {set s(all) 1} -f* {set s(full) 1} -l* {set s(long) 1} -- break default { return -code error \ "unknown option \"$str\", should be one of: -all, -full, -long" } } } set sep [string trim [file join . .] .] if [string match {} $args] { set args . } foreach arg $args { if {[file isdir $arg]} { set arg [string trimr $arg $sep]$sep if $s(all) { lappend out [list $arg [lsort [glob -nocomplain -- $arg.* $arg*]]] } else { lappend out [list $arg [lsort [glob -nocomplain -- $arg*]]] } } else { lappend out [list [file dirname $arg]$sep \ [lsort [glob -nocomplain -- $arg]]] } } if $s(long) { set old [clock scan {1 year ago}] set fmt "%s%9d %s %s\n" foreach o $out { set d [lindex $o 0] append res $d:\n foreach f [lindex $o 1] { file lstat $f st set f [file tail $f] if $s(full) { switch -glob $st(type) { d* { append f $sep } l* { append f "@ -> [file readlink $d$sep$f]" } default { if [file exec $d$sep$f] { append f * } } } } if [string match file $st(type)] { set mode - } else { set mode [string index $st(type) 0] } foreach j [split [format %o [expr $st(mode)&0777]] {}] { append mode $s($j) } if {$st(mtime)>$old} { set cfmt {%b %d %H:%M} } else { set cfmt {%b %d %Y} } append res [format $fmt $mode $st(size) \ [clock format $st(mtime) -format $cfmt] $f] } append res \n } } else { foreach o $out { set d [lindex $o 0] append res $d:\n set i 0 foreach f [lindex $o 1] { if {[string len [file tail $f]] > $i} { set i [string len [file tail $f]] } } set i [expr $i+2+$s(full)] ## This gets the number of cols in the Console console widget set j [expr 64/$i] set k 0 foreach f [lindex $o 1] { set f [file tail $f] if $s(full) { switch -glob [file type $d$sep$f] { d* { append f $sep } l* { append f @ } default { if [file exec $d$sep$f] { append f * } } } } append res [format "%-${i}s" $f] if {[incr k]%$j == 0} {set res [string trimr $res]\n} } append res \n\n } } return [string trimr $res] } interp alias {} ls {} dir ## lremove - remove items from a list # OPTS: -all remove all instances of each item # ARGS: l a list to remove items from # args items to remove ## proc lremove {args} { set all 0 if [string match \-a* [lindex $args 0]] { set all 1 set args [lreplace $args 0 0] } set l [lindex $args 0] eval append is [lreplace $args 0 0] foreach i $is { if {[set ix [lsearch -exact $l $i]] == -1} continue set l [lreplace $l $ix $ix] if $all { while {[set ix [lsearch -exact $l $i]] != -1} { set l [lreplace $l $ix $ix] } } } return $l } ## Unknown changed to get output into Console window # unknown: # Invoked automatically whenever an unknown command is encountered. # Works through a list of "unknown handlers" that have been registered # to deal with unknown commands. Extensions can integrate their own # handlers into the "unknown" facility via "unknown_handle". # # If a handler exists that recognizes the command, then it will # take care of the command action and return a valid result or a # Tcl error. Otherwise, it should return "-code continue" (=2) # and responsibility for the command is passed to the next handler. # # Arguments: # args - A list whose elements are the words of the original # command, including the command name. proc unknown args { global unknown_handler_order unknown_handlers errorInfo errorCode # # Be careful to save error info now, and restore it later # for each handler. Some handlers generate their own errors # and disrupt handling. # set savedErrorCode $errorCode set savedErrorInfo $errorInfo if {![info exists unknown_handler_order] || ![info exists unknown_handlers]} { set unknown_handlers(tcl) tcl_unknown set unknown_handler_order tcl } foreach handler $unknown_handler_order { set status [catch {uplevel $unknown_handlers($handler) $args} result] if {$status == 1} { # # Strip the last five lines off the error stack (they're # from the "uplevel" command). # set new [split $errorInfo \n] set new [join [lrange $new 0 [expr [llength $new] - 6]] \n] return -code $status -errorcode $errorCode \ -errorinfo $new $result } elseif {$status != 4} { return -code $status $result } set errorCode $savedErrorCode set errorInfo $savedErrorInfo } set name [lindex $args 0] return -code error "invalid command name \"$name\"" } # tcl_unknown: # Invoked when a Tcl command is invoked that doesn't exist in the # interpreter: # # 1. See if the autoload facility can locate the command in a # Tcl script file. If so, load it and execute it. # 2. If the command was invoked interactively at top-level: # (a) see if the command exists as an executable UNIX program. # If so, "exec" the command. # (b) see if the command requests csh-like history substitution # in one of the common forms !!, !, or ^old^new. If # so, emulate csh's history substitution. # (c) see if the command is a unique abbreviation for another # command. If so, invoke the command. # # Arguments: # args - A list whose elements are the words of the original # command, including the command name. proc tcl_unknown args { global auto_noexec auto_noload env unknown_pending tcl_interactive Console global errorCode errorInfo # Save the values of errorCode and errorInfo variables, since they # may get modified if caught errors occur below. The variables will # be restored just before re-executing the missing command. set savedErrorCode $errorCode set savedErrorInfo $errorInfo set name [lindex $args 0] if ![info exists auto_noload] { # # Make sure we're not trying to load the same proc twice. # if [info exists unknown_pending($name)] { unset unknown_pending($name) if {[array size unknown_pending] == 0} { unset unknown_pending } return -code error "self-referential recursion in \"unknown\" for command \"$name\""; } set unknown_pending($name) pending; set ret [catch {auto_load $name} msg] unset unknown_pending($name); if $ret { return -code $ret -errorcode $errorCode \ "error while autoloading \"$name\": $msg" } if ![array size unknown_pending] { unset unknown_pending } if $msg { set errorCode $savedErrorCode set errorInfo $savedErrorInfo set code [catch {uplevel $args} msg] if {$code == 1} { # # Strip the last five lines off the error stack (they're # from the "uplevel" command). # set new [split $errorInfo \n] set new [join [lrange $new 0 [expr [llength $new] - 6]] \n] return -code error -errorcode $errorCode \ -errorinfo $new $msg } else { return -code $code $msg } } } if {[info level] == 1 && [string match {} [info script]] \ && [info exists tcl_interactive] && $tcl_interactive} { if ![info exists auto_noexec] { set new [auto_execok $name] if {$new != ""} { set errorCode $savedErrorCode set errorInfo $savedErrorInfo return [uplevel exec [list $new] [lrange $args 1 end]] #return [uplevel exec >&@stdout <@stdin $new [lrange $args 1 end]] } } set errorCode $savedErrorCode set errorInfo $savedErrorInfo ## ## History substitution moved into ConsoleEvalCmd ## set cmds [info commands $name*] if {[llength $cmds] == 1} { return [uplevel [lreplace $args 0 0 $cmds]] } if {[llength $cmds]} { if {$name == ""} { return -code error "empty command name \"\"" } else { return -code error \ "ambiguous command name \"$name\": [lsort $cmds]" } } } return -code continue } switch -glob $tcl_platform(platform) { win* { set META Alt } mac* { set META Command } default { set META Meta } } # ConsoleClipboardKeysyms -- # This procedure is invoked to identify the keys that correspond to # the "copy", "cut", and "paste" functions for the clipboard. # # Arguments: # copy - Name of the key (keysym name plus modifiers, if any, # such as "Meta-y") used for the copy operation. # cut - Name of the key used for the cut operation. # paste - Name of the key used for the paste operation. ;proc ConsoleClipboardKeysyms {copy cut paste} { bind Console <$copy> {ConsoleCopy %W} bind Console <$cut> {ConsoleCut %W} bind Console <$paste> {ConsolePaste %W} } ;proc ConsoleCut w { if [string match $w [selection own -displayof $w]] { clipboard clear -displayof $w catch { clipboard append -displayof $w [selection get -displayof $w] if [$w compare sel.first >= limit] {$w delete sel.first sel.last} } } } ;proc ConsoleCopy w { if [string match $w [selection own -displayof $w]] { clipboard clear -displayof $w catch {clipboard append -displayof $w [selection get -displayof $w]} } } ;proc ConsolePaste w { if ![catch {selection get -displayof $w -selection CLIPBOARD} tmp] { if [$w compare insert < limit] {$w mark set insert end} $w insert insert $tmp $w see insert if [string match *\n* $tmp] {ConsoleEval $w} } } ## Get all Text bindings into Console except Unix cut/copy/paste ## and newline insertion foreach ev [lremove [bind Text] { \ \ }] { bind Console $ev [bind Text $ev] } foreach {ev key} { <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> } { event add $ev $key bind Console $key {} } catch {unset ev key} ## Redefine for Console what we need ## event delete <> ConsoleClipboardKeysyms bind Console {catch {ConsoleInsert %W [selection get -displayof %W]}} bind Console {+ catch { eval %W tag remove sel [%W tag nextrange prompt sel.first sel.last] %W mark set insert sel.first } } bind Console <> { if [%W compare insert > limit] {Console:expand %W path} break } bind Console <> { if [%W compare insert > limit] {Console:expand %W proc} } bind Console <> { if [%W compare insert > limit] {Console:expand %W var} } bind Console <> { if [%W compare insert >= limit] { ConsoleInsert %W \t } } bind Console <> { ConsoleEval %W } bind Console { if {[string comp {} [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif {[%W compare insert >= limit]} { %W delete insert %W see insert } } bind Console { if {[string comp {} [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif {[%W compare insert != 1.0] && [%W compare insert > limit]} { %W delete insert-1c %W see insert } } bind Console [bind Console ] bind Console { ConsoleInsert %W %A } bind Console { if [%W compare {limit linestart} == {insert linestart}] { tkTextSetCursor %W limit } else { tkTextSetCursor %W {insert linestart} } } bind Console { if [%W compare insert < limit] break %W delete insert } bind Console <> { if [%W compare insert < limit] break if [%W compare insert == {insert lineend}] { %W delete insert } else { %W delete insert {insert lineend} } } bind Console <> { Console_clear [winfo parent %W] } bind Console <> { if [%W compare {insert linestart} != {limit linestart}] { tkTextSetCursor %W [tkTextUpDownLine %W -1] } else { Console_event [winfo parent %W] -1 } } bind Console <> { if [%W compare {insert linestart} != {end-1c linestart}] { tkTextSetCursor %W [tkTextUpDownLine %W 1] } else { Console_event [winfo parent %W] 1 } } bind Console <> { Console_event [winfo parent %W] 1 } bind Console <> { Console_event [winfo parent %W] -1 } bind Console <> { Console_event [winfo parent %W] -1 [ConsoleCmdGet %W] } bind Console <> { Console_event [winfo parent %W] 1 [ConsoleCmdGet %W] } bind Console <> { ## Transpose current and previous chars if [%W compare insert > limit] { tkTextTranspose %W } } bind Console <> { ## Clear command line (Unix shell staple) %W delete limit end } bind Console <> { ## Save command buffer (swaps with current command) Console:savecommand %W } catch {bind Console { tkTextScrollPages %W -1 }} catch {bind Console { tkTextScrollPages %W -1 }} catch {bind Console { tkTextScrollPages %W 1 }} catch {bind Console { tkTextScrollPages %W 1 }} bind Console <$META-d> { if [%W compare insert >= limit] { %W delete insert {insert wordend} } } bind Console <$META-BackSpace> { if [%W compare {insert -1c wordstart} >= limit] { %W delete {insert -1c wordstart} insert } } bind Console <$META-Delete> { if [%W compare insert >= limit] { %W delete insert {insert wordend} } } bind Console { if {(!$tkPriv(mouseMoved) || $tk_strictMotif) \ && ![catch {selection get -displayof %W} tkPriv(junk)]} { if [%W compare @%x,%y < limit] { %W insert end $tkPriv(junk) } else { %W insert @%x,%y $tkPriv(junk) } if [string match *\n* $tkPriv(junk)] {ConsoleEval %W} } } ## ## End Console bindings ## ## ## Bindings for doing special things based on certain keys ## bind PostCon { if [string comp \\ [%W get insert-2c]] { ConsoleMatchPair %W \( \) limit } } bind PostCon { if [string comp \\ [%W get insert-2c]] { ConsoleMatchPair %W \[ \] limit } } bind PostCon { if [string comp \\ [%W get insert-2c]] { ConsoleMatchPair %W \{ \} limit } } bind PostCon { if [string comp \\ [%W get insert-2c]] { ConsoleMatchQuote %W limit } } bind PostCon { if [string comp {} %A] { ConsoleTagProc %W } } ## ConsoleTagProc - tags a procedure in the console if it's recognized ## This procedure is not perfect. However, making it perfect wastes ## too much CPU time... Also it should check the existence of a command ## in whatever is the connected slave, not the master interpreter. ## ;proc ConsoleTagProc w { upvar \#0 [winfo parent $w] data if !$data(-lightcmd) return set i [$w index "insert-1c wordstart"] set j [$w index "insert-1c wordend"] if {[string comp {} \ [ConsoleEvalAttached info command [list [$w get $i $j]]]]} { $w tag add proc $i $j } else { $w tag remove proc $i $j } } ## ConsoleMatchPair - blinks a matching pair of characters ## c2 is assumed to be at the text index 'insert'. ## This proc is really loopy and took me an hour to figure out given ## all possible combinations with escaping except for escaped \'s. ## It doesn't take into account possible commenting... Oh well. If ## anyone has something better, I'd like to see/use it. This is really ## only efficient for small contexts. # ARGS: w - console text widget # c1 - first char of pair # c2 - second char of pair # Calls: Console:blink ## ;proc ConsoleMatchPair {w c1 c2 {lim 1.0}} { upvar \#0 [winfo parent $w] data if {!$data(-lightbrace) || $data(-blinktime)<100} return if [string comp {} [set ix [$w search -back $c1 insert $lim]]] { while {[string match {\\} [$w get $ix-1c]] && [string comp {} [set ix [$w search -back $c1 $ix-1c $lim]]]} {} set i1 insert-1c while {[string comp {} $ix]} { set i0 $ix set j 0 while {[string comp {} [set i0 [$w search $c2 $i0 $i1]]]} { append i0 +1c if {[string match {\\} [$w get $i0-2c]]} continue incr j } if {!$j} break set i1 $ix while {$j && [string comp {} [set ix [$w search -back $c1 $ix $lim]]]} { if {[string match {\\} [$w get $ix-1c]]} continue incr j -1 } } if [string match {} $ix] { set ix [$w index $lim] } } else { set ix [$w index $lim] } if $data(-blinkrange) { Console:blink $w $data(-blinktime) $ix [$w index insert] } else { Console:blink $w $data(-blinktime) $ix $ix+1c \ [$w index insert-1c] [$w index insert] } } ## ConsoleMatchQuote - blinks between matching quotes. ## Blinks just the quote if it's unmatched, otherwise blinks quoted string ## The quote to match is assumed to be at the text index 'insert'. # ARGS: w - console text widget # Calls: Console:blink ## ;proc ConsoleMatchQuote {w {lim 1.0}} { upvar \#0 [winfo parent $w] data if {!$data(-lightbrace) || $data(-blinktime)<100} return set i insert-1c set j 0 while {[string comp {} [set i [$w search -back \" $i $lim]]]} { if {[string match {\\} [$w get $i-1c]]} continue if {!$j} {set i0 $i} incr j } if [expr $j%2] { if $data(-blinkrange) { Console:blink $w $data(-blinktime) $i0 [$w index insert] } else { Console:blink $w $data(-blinktime) $i0 $i0+1c \ [$w index insert-1c] [$w index insert] } } else { Console:blink $w $data(-blinktime) [$w index insert-1c] [$w index insert] } } ## Console:blink - blinks between 2 indices for a specified duration. # ARGS: w - console text widget # delay - millisecs to blink for # args - indices of regions to blink # Outputs: blinks selected characters in $w ## ;proc Console:blink {w delay args} { eval $w tag add blink $args after $delay eval $w tag remove blink $args return } ## ConsoleInsert ## Insert a string into a text console at the point of the insertion cursor. ## If there is a selection in the text, and it covers the point of the ## insertion cursor, then delete the selection before inserting. # ARGS: w - text window in which to insert the string # s - string to insert (usually just a single char) # Outputs: $s to text widget ## ;proc ConsoleInsert {w s} { if {[string match {} $s] || [string match disabled [$w cget -state]]} { return } if [$w comp insert < limit] { $w mark set insert end } catch { if {[$w comp sel.first <= insert] && [$w comp sel.last >= insert]} { $w delete sel.first sel.last } } $w insert insert $s $w see insert } ## Console:expand - # ARGS: w - text widget in which to expand str # type - type of expansion (path / proc / variable) # Calls: ConsoleExpand(Pathname|Procname|Variable) # Outputs: The string to match is expanded to the longest possible match. # If data(-showmultiple) is non-zero and the user longest match # equaled the string to expand, then all possible matches are # output to stdout. Triggers bell if no matches are found. # Returns: number of matches found ## ;proc Console:expand {w type} { set exp "\[^\\]\[ \t\n\r\[\{\"\$]" set tmp [$w search -back -regexp $exp insert-1c limit-1c] if [string compare {} $tmp] {append tmp +2c} else {set tmp limit} if [$w compare $tmp >= insert] return set str [$w get $tmp insert] switch -glob $type { pa* { set res [ConsoleExpandPathname $str] } pr* { set res [ConsoleExpandProcname $str] } v* { set res [ConsoleExpandVariable $str] } default {set res {}} } set len [llength $res] if $len { $w delete $tmp insert $w insert $tmp [lindex $res 0] if {$len > 1} { upvar \#0 [winfo parent $w] data if {$data(-showmultiple) && ![string comp [lindex $res 0] $str]} { puts stdout [lreplace $res 0 0] } } } else bell return [incr len -1] } ## ConsoleExpandPathname - expand a file pathname based on $str ## This is based on UNIX file name conventions # ARGS: str - partial file pathname to expand # Calls: ConsoleExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## ;proc ConsoleExpandPathname str { set pwd [ConsoleEvalAttached pwd] if [catch {ConsoleEvalAttached [list cd [file dirname $str]]} err] { return -code error $err } if [catch {lsort [ConsoleEvalAttached glob [file tail $str]*]} m] { set match {} } else { if {[llength $m] > 1} { set tmp [ConsoleExpandBestMatch $m [file tail $str]] if [string match ?*/* $str] { set tmp [file dirname $str]/$tmp } elseif {[string match /* $str]} { set tmp /$tmp } regsub -all { } $tmp {\\ } tmp set match [linsert $m 0 $tmp] } else { ## This may look goofy, but it handles spaces in path names eval append match $m if [file isdir $match] {append match /} if [string match ?*/* $str] { set match [file dirname $str]/$match } elseif {[string match /* $str]} { set match /$match } regsub -all { } $match {\\ } match ## Why is this one needed and the ones below aren't!! set match [list $match] } } ConsoleEvalAttached [list cd $pwd] return $match } ## ConsoleExpandProcname - expand a tcl proc name based on $str # ARGS: str - partial proc name to expand # Calls: ConsoleExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## ;proc ConsoleExpandProcname str { set match [ConsoleEvalAttached info commands $str*] if {[llength $match] > 1} { regsub -all { } [ConsoleExpandBestMatch $match $str] {\\ } str set match [linsert $match 0 $str] } else { regsub -all { } $match {\\ } match } return $match } ## ConsoleExpandVariable - expand a tcl variable name based on $str # ARGS: str - partial tcl var name to expand # Calls: ConsoleExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## ;proc ConsoleExpandVariable str { if [regexp {([^\(]*)\((.*)} $str junk ary str] { ## Looks like they're trying to expand an array. set match [ConsoleEvalAttached array names $ary $str*] if {[llength $match] > 1} { set vars $ary\([ConsoleExpandBestMatch $match $str] foreach var $match {lappend vars $ary\($var\)} return $vars } else {set match $ary\($match\)} ## Space transformation avoided for array names. } else { set match [ConsoleEvalAttached info vars $str*] if {[llength $match] > 1} { regsub -all { } [ConsoleExpandBestMatch $match $str] {\\ } str set match [linsert $match 0 $str] } else { regsub -all { } $match {\\ } match } } return $match } ## ConsoleExpandBestMatch2 - finds the best unique match in a list of names ## Improves upon the speed of the below proc only when $l is small ## or $e is {}. $e is extra for compatibility with proc below. # ARGS: l - list to find best unique match in # Returns: longest unique match in the list ## ;proc ConsoleExpandBestMatch2 {l {e {}}} { set s [lindex $l 0] if {[llength $l]>1} { set i [expr [string length $s]-1] foreach l $l { while {$i>=0 && [string first $s $l]} { set s [string range $s 0 [incr i -1]] } } } return $s } ## ConsoleExpandBestMatch - finds the best unique match in a list of names ## The extra $e in this argument allows us to limit the innermost loop a ## little further. This improves speed as $l becomes large or $e becomes long. # ARGS: l - list to find best unique match in # e - currently best known unique match # Returns: longest unique match in the list ## ;proc ConsoleExpandBestMatch {l {e {}}} { set ec [lindex $l 0] if {[llength $l]>1} { set e [string length $e]; incr e -1 set ei [string length $ec]; incr ei -1 foreach l $l { while {$ei>=$e && [string first $ec $l]} { set ec [string range $ec 0 [incr ei -1]] } } } return $ec } ## ConsoleResource - re'source's this script into current console ## Meant primarily for my development of this program. It follows ## links until the ultimate source is found. ## set Console(SCRIPT) [info script] if !$Console(WWW) { while {[string match link [file type $Console(SCRIPT)]]} { set link [file readlink $Console(SCRIPT)] if [string match relative [file pathtype $link]] { set Console(SCRIPT) [file join [file dirname $Console(SCRIPT)] $link] } else { set Console(SCRIPT) $link } } catch {unset link} if [string match relative [file pathtype $Console(SCRIPT)]] { set Console(SCRIPT) [file join [pwd] $Console(SCRIPT)] } } ;proc Console:resource {} { global Console uplevel \#0 [list source $Console(SCRIPT)] } catch {destroy .c} console .c wm iconify .c wm title .c "Tcl Plugin Console" wm geometry .c +10+10 tkcon-2.7.3/extra/stripped.tcl000077500000000000000000000750361357645571500163620ustar00rootroot00000000000000#!/bin/sh # \ exec wish4.1 "$0" ${1+"$@"} # ## stripped.tcl ## Stripped down version of Tk Console Widget, part of the VerTcl system ## Stripped to work with Netscape Tk Plugin. ## ## Copyright (c) 1995,1996 by Jeffrey Hobbs ## jhobbs@cs.uoregon.edu, http://www.cs.uoregon.edu/~jhobbs/ ## source standard_disclaimer.tcl if {[info tclversion] < 7.5} { error "TkCon requires at least the stable version of tcl7.5/tk4.1" } ## tkConInit - inits tkCon # ARGS: root - widget pathname of the tkCon console root # title - title for the console root and main (.) windows # Calls: tkConInitUI # Outputs: errors found in tkCon resource file ## proc tkConInit {{title Main}} { global tkCon tcl_platform env auto_path tcl_interactive set tcl_interactive 1 array set tkCon { color,blink yellow color,proc darkgreen color,prompt brown color,stdin black color,stdout blue color,stderr red blinktime 500 font fixed lightbrace 1 lightcmd 1 prompt1 {[history nextid] % } prompt2 {[history nextid] cont > } showmultiple 1 slavescript {} cmd {} cmdbuf {} cmdsave {} event 1 svnt 1 cols 80 rows 24 version {0.5x Stripped} base .console } if [string comp $tcl_platform(platform) unix] { array set tkCon { font {Courier 12 {}} } } tkConInitUI $title interp alias {} clean {} tkConStateRevert tkCon tkConStateCheckpoint tkCon } ## tkConInitUI - inits UI portion (console) of tkCon ## Creates all elements of the console window and sets up the text tags # ARGS: title - title for the console root and main (.) windows # Calls: tkConInitMenus, tkConPrompt ## proc tkConInitUI {title} { global tkCon set root $tkCon(base) if [string match $root .] { set w {} } else { set w [frame $root] } set tkCon(console) [text $w.text -font $tkCon(font) -wrap char \ -yscrollcommand "$w.sy set" -setgrid 1 -foreground $tkCon(color,stdin)] bindtags $w.text "$w.text PreCon Console PostCon $root all" set tkCon(scrolly) [scrollbar $w.sy \ -command "$w.text yview" -takefocus 0 -bd 1] pack $w.sy -side left -fill y set tkCon(scrollypos) left pack $w.text -fill both -expand 1 $w.text insert insert "$title console display active\n" stdout tkConPrompt $w.text foreach col {prompt stdout stderr stdin proc} { $w.text tag configure $col -foreground $tkCon(color,$col) } $w.text tag configure blink -background $tkCon(color,blink) pack $root -fill both -expand 1 focus $w.text } ## tkConEval - evaluates commands input into console window ## This is the first stage of the evaluating commands in the console. ## They need to be broken up into consituent commands (by tkConCmdSep) in ## case a multiple commands were pasted in, then each is eval'ed (by ## tkConEvalCmd) in turn. Any uncompleted command will not be eval'ed. # ARGS: w - console text widget # Calls: tkConCmdGet, tkConCmdSep, tkConEvalCmd ## proc tkConEval {w} { global tkCon tkConCmdSep [tkConCmdGet $w] cmds tkCon(cmd) $w mark set insert end-1c $w insert end \n if [llength $cmds] { foreach cmd $cmds {tkConEvalCmd $w $cmd} $w insert insert $tkCon(cmd) {} } elseif {[info complete $tkCon(cmd)] && ![regexp {[^\\]\\$} $tkCon(cmd)]} { tkConEvalCmd $w $tkCon(cmd) } $w see insert } ## tkConEvalCmd - evaluates a single command, adding it to history # ARGS: w - console text widget # cmd - the command to evaluate # Calls: tkConPrompt # Outputs: result of command to stdout (or stderr if error occured) # Returns: next event number ## proc tkConEvalCmd {w cmd} { global tkCon $w mark set output end if [catch {uplevel \#0 history add [list $cmd] exec} result] { $w insert output $result\n stderr } elseif [string comp {} $result] { $w insert output $result\n stdout } tkConPrompt $w set tkCon(svnt) [set tkCon(event) [history nextid]] } ## tkConCmdGet - gets the current command from the console widget # ARGS: w - console text widget # Returns: text which compromises current command line ## proc tkConCmdGet w { if [string match {} [set ix [$w tag nextrange prompt limit end]]] { $w tag add stdin limit end-1c return [$w get limit end-1c] } } ## tkConCmdSep - separates multiple commands into a list and remainder # ARGS: cmd - (possible) multiple command to separate # list - varname for the list of commands that were separated. # rmd - varname of any remainder (like an incomplete final command). # If there is only one command, it's placed in this var. # Returns: constituent command info in varnames specified by list & rmd. ## proc tkConCmdSep {cmd ls rmd} { upvar $ls cmds $rmd tmp set tmp {} set cmds {} foreach cmd [split [set cmd] \n] { if [string comp {} $tmp] { append tmp \n$cmd } else { append tmp $cmd } if {[info complete $tmp] && ![regexp {[^\\]\\$} $tmp]} { lappend cmds $tmp set tmp {} } } if {[string comp {} [lindex $cmds end]] && [string match {} $tmp]} { set tmp [lindex $cmds end] set cmds [lreplace $cmds end end] } } ## tkConPrompt - displays the prompt in the console widget # ARGS: w - console text widget # Outputs: prompt (specified in tkCon(prompt1)) to console ## proc tkConPrompt w { global tkCon env set i [$w index end-1c] $w insert end [subst $tkCon(prompt1)] prompt $w mark set output $i $w mark set limit insert $w mark gravity limit left } ## tkConStateCheckpoint - checkpoints the current state of the system ## This allows you to return to this state with tkConStateRevert # ARGS: ary an array into which several elements are stored: # commands - the currently defined commands # variables - the current global vars # This is the array you would pass to tkConRevertState ## proc tkConStateCheckpoint {ary} { global tkCon upvar $ary a set a(commands) [uplevel \#0 info commands *] set a(variables) [uplevel \#0 info vars *] return } ## tkConStateCompare - compare two states and output difference # ARGS: ary1 an array with checkpointed state # ary2 a second array with checkpointed state # Outputs: ## proc tkConStateCompare {ary1 ary2} { upvar $ary1 a1 $ary2 a2 puts "Commands unique to $ary1:\n[lremove $a1(commands) $a2(commands)]" puts "Commands unique to $ary2:\n[lremove $a2(commands) $a1(commands)]" puts "Variables unique to $ary1:\n[lremove $a1(variables) $a2(variables)]" puts "Variables unique to $ary2:\n[lremove $a2(variables) $a1(variables)]" } ## tkConStateRevert - reverts interpreter to a previous state # ARGS: ary an array with checkpointed state ## proc tkConStateRevert {ary} { upvar $ary a tkConStateCheckpoint tmp foreach i [lremove $tmp(commands) $a(commands)] { catch "rename $i {}" } foreach i [lremove $tmp(variables) $a(variables)] { uplevel \#0 unset $i } } ## ## Some procedures to make up for lack of built-in shell commands ## ## puts ## This allows me to capture all stdout/stderr to the console window # ARGS: same as usual # Outputs: the string with a color-coded text tag ## catch {rename puts tcl_puts} proc puts args { set len [llength $args] if {$len==1} { eval tkcon console insert output $args stdout {\n} stdout tkcon console see output } elseif {$len==2 && [regexp {(stdout|stderr|-nonewline)} [lindex $args 0] junk tmp]} { if [string comp $tmp -nonewline] { eval tkcon console insert output [lreplace $args 0 0] $tmp {\n} $tmp } else { eval tkcon console insert output [lreplace $args 0 0] stdout } tkcon console see output } elseif {$len==3 && [regexp {(stdout|stderr)} [lreplace $args 2 2] junk tmp]} { if [string comp [lreplace $args 1 2] -nonewline] { eval tkcon console insert output [lrange $args 1 1] $tmp } else { eval tkcon console insert output [lreplace $args 0 1] $tmp } tkcon console see output } else { eval tcl_puts $args } } ## alias - akin to the csh alias command ## If called with no args, then it prints out all current aliases ## If called with one arg, returns the alias of that arg (or {} if none) # ARGS: newcmd - (optional) command to bind alias to # args - command and args being aliased ## proc alias {{newcmd {}} args} { if [string match $newcmd {}] { set res {} foreach a [interp aliases] { lappend res [list $a: [interp alias {} $a]] } return [join $res \n] } elseif {[string match {} $args]} { interp alias {} $newcmd } else { eval interp alias {{}} $newcmd {{}} $args } } ## unalias - unaliases an alias'ed command # ARGS: cmd - command to unbind as an alias ## proc unalias {cmd} { interp alias {} $cmd {} } ## tkcon - command that allows control over the console # ARGS: totally variable, see internal comments ## proc tkcon {args} { global tkCon switch -- [lindex $args 0] { clean { ## 'cleans' the interpreter - reverting to original tkCon state tkConStateRevert tkCon } console { ## Passes the args to the text widget of the console. eval $tkCon(console) [lreplace $args 0 0] } font { ## "tkcon font ?fontname?". Sets the font of the console if [string comp {} [lindex $args 1]] { return [$tkCon(console) config -font [lindex $args 1]] } else { return [$tkCon(console) config -font] } } version { return $tkCon(version) } default { ## tries to determine if the command exists, otherwise throws error set cmd [lindex $args 0] set cmd tkCon[string toup [string index $cmd 0]][string range $cmd 1 end] if [string match $cmd [info command $cmd]] { eval $cmd [lreplace $args 0 0] } else { error "bad option \"[lindex $args 0]\": must be attach,\ clean, console, font" } } } } ## clear - clears the buffer of the console (not the history though) ## This is executed in the parent interpreter ## proc clear {{pcnt 100}} { if {![regexp {^[0-9]*$} $pcnt] || $pcnt < 1 || $pcnt > 100} { error "invalid percentage to clear: must be 1-100 (100 default)" } elseif {$pcnt == 100} { tkcon console delete 1.0 end } else { set tmp [expr $pcnt/100.0*[tkcon console index end]] tkcon console delete 1.0 "$tmp linestart" } } ## dump - outputs variables/procedure/widget info in source'able form. ## Accepts glob style pattern matching for the names # ARGS: type - type of thing to dump: must be variable, procedure, widget # OPTS: -nocomplain don't complain if no vars match something # Returns: the values of the variables in a 'source'able form ## proc dump {type args} { set whine 1 set code ok if [string match \-n* [lindex $args 0]] { set whine 0 set args [lreplace $args 0 0] } if {$whine && [string match {} $args]} { error "wrong \# args: [lindex [info level 0] 0] ?-nocomplain? pattern ?pattern ...?" } set res {} switch -glob -- $type { v* { # variable # outputs variables value(s), whether array or simple. foreach arg $args { if {[string match {} [set vars [uplevel info vars [list $arg]]]]} { if {[uplevel info exists $arg]} { set vars $arg } elseif $whine { append res "\#\# No known variable $arg\n" set code error continue } else continue } foreach var [lsort $vars] { upvar $var v if {[array exists v]} { append res "array set $var \{\n" foreach i [lsort [array names v]] { upvar 0 v\($i\) w if {[array exists w]} { append res " [list $i {NESTED VAR ERROR}]\n" if $whine { set code error } } else { append res " [list $i $v($i)]\n" } } append res "\}\n" } else { append res [list set $var $v]\n } } } } p* { # procedure foreach arg $args { if {[string comp {} [set ps [info proc $arg]]]} { foreach p [lsort $ps] { set as {} foreach a [info args $p] { if {[info default $p $a tmp]} { lappend as [list $a $tmp] } else { lappend as $a } } append res [list proc $p $as [info body $p]]\n } } elseif $whine { append res "\#\# No known proc $arg\n" } } } w* { # widget } default { return -code error "bad [lindex [info level 0] 0] option\ \"[lindex $args 0]\":\ must be procedure, variable, widget" } } return -code $code [string trimr $res \n] } ## which - tells you where a command is found # ARGS: cmd - command name # Returns: where command is found (internal / external / unknown) ## proc which cmd { if [string comp {} [info commands $cmd]] { if {[lsearch -exact [interp aliases] $cmd] > -1} { return "$cmd:\taliased to [alias $cmd]" } elseif [string comp {} [info procs $cmd]] { return "$cmd:\tinternal proc" } else { return "$cmd:\tinternal command" } } else { return "$cmd:\tunknown command" } } ## lremove - remove items from a list # OPTS: -all remove all instances of each item # ARGS: l a list to remove items from # is a list of items to remove ## proc lremove {args} { set all 0 if [string match \-a* [lindex $args 0]] { set all 1 set args [lreplace $args 0 0] } set l [lindex $args 0] eval append is [lreplace $args 0 0] foreach i $is { if {[set ix [lsearch -exact $l $i]] == -1} continue set l [lreplace $l $ix $ix] if $all { while {[set ix [lsearch -exact $l $i]] != -1} { set l [lreplace $l $i $i] } } } return $l } ## Unknown changed to get output into tkCon window ## See $tcl_library/init.tcl for an explanation ## proc unknown args { global auto_noexec auto_noload env unknown_pending tcl_interactive tkCon global errorCode errorInfo # Save the values of errorCode and errorInfo variables, since they # may get modified if caught errors occur below. The variables will # be restored just before re-executing the missing command. set savedErrorCode $errorCode set savedErrorInfo $errorInfo set name [lindex $args 0] if ![info exists auto_noload] { # # Make sure we're not trying to load the same proc twice. # if [info exists unknown_pending($name)] { unset unknown_pending($name) if {[array size unknown_pending] == 0} { unset unknown_pending } return -code error "self-referential recursion in \"unknown\" for command \"$name\""; } set unknown_pending($name) pending; set ret [catch {auto_load $name} msg] unset unknown_pending($name); if {$ret != 0} { return -code $ret -errorcode $errorCode \ "error while autoloading \"$name\": $msg" } if ![array size unknown_pending] { unset unknown_pending } if $msg { set errorCode $savedErrorCode set errorInfo $savedErrorInfo set code [catch {uplevel $args} msg] if {$code == 1} { # # Strip the last five lines off the error stack (they're # from the "uplevel" command). # set new [split $errorInfo \n] set new [join [lrange $new 0 [expr [llength $new] - 6]] \n] return -code error -errorcode $errorCode \ -errorinfo $new $msg } else { return -code $code $msg } } } if {[info level] == 1 && [string match {} [info script]] \ && [info exists tcl_interactive] && $tcl_interactive} { if ![info exists auto_noexec] { if [auto_execok $name] { set errorCode $savedErrorCode set errorInfo $savedErrorInfo return [uplevel exec $args] #return [uplevel exec >&@stdout <@stdin $args] } } set errorCode $savedErrorCode set errorInfo $savedErrorInfo if {[string match $name !!]} { catch {set tkCon(cmd) [history event]} return [uplevel {history redo}] } elseif [regexp {^!(.+)$} $name dummy event] { catch {set tkCon(cmd) [history event $event]} return [uplevel [list history redo $event]] } elseif [regexp {^\^([^^]*)\^([^^]*)\^?$} $name dummy old new] { catch {set tkCon(cmd) [history substitute $old $new]} return [uplevel [list history substitute $old $new]] } set cmds [info commands $name*] if {[llength $cmds] == 1} { return [uplevel [lreplace $args 0 0 $cmds]] } elseif {[llength $cmds]} { if {$name == ""} { return -code error "empty command name \"\"" } else { return -code error \ "ambiguous command name \"$name\": [lsort $cmds]" } } } return -code error "invalid command name \"$name\"" } # tkConClipboardKeysyms -- # This procedure is invoked to identify the keys that correspond to # the "copy", "cut", and "paste" functions for the clipboard. # # Arguments: # copy - Name of the key (keysym name plus modifiers, if any, # such as "Meta-y") used for the copy operation. # cut - Name of the key used for the cut operation. # paste - Name of the key used for the paste operation. proc tkConCut w { if [string match $w [selection own -displayof $w]] { clipboard clear -displayof $w catch { clipboard append -displayof $w [selection get -displayof $w] if [$w compare sel.first >= limit] {$w delete sel.first sel.last} } } } proc tkConCopy w { if [string match $w [selection own -displayof $w]] { clipboard clear -displayof $w catch {clipboard append -displayof $w [selection get -displayof $w]} } } proc tkConPaste w { if ![catch {selection get -displayof $w -selection CLIPBOARD} tmp] { if [$w compare insert < limit] {$w mark set insert end} $w insert insert $tmp $w see insert if [string match *\n* $tmp] {tkConEval $w} } } proc tkConClipboardKeysyms {copy cut paste} { bind Console <$copy> {tkConCopy %W} bind Console <$cut> {tkConCut %W} bind Console <$paste> {tkConPaste %W} } ## Get all Text bindings into Console ## foreach ev [lremove [bind Text] { \ }] { bind Console $ev [bind Text $ev] } unset ev ## Redefine for Console what we need ## tkConClipboardKeysyms F16 F20 F18 tkConClipboardKeysyms Control-c Control-x Control-v bind Console {catch {tkConInsert %W [selection get -displayof %W]}} bind Console { if [%W compare {insert linestart} != {limit linestart}] { tkTextSetCursor %W [tkTextUpDownLine %W -1] } else { if {$tkCon(event) == [history nextid]} { set tkCon(cmdbuf) [tkConCmdGet %W] } if [catch {history event [incr tkCon(event) -1]} tkCon(tmp)] { incr tkCon(event) } else { %W delete limit end %W insert limit $tkCon(tmp) %W see end } } } bind Console { if [%W compare {insert linestart} != {end-1c linestart}] { tkTextSetCursor %W [tkTextUpDownLine %W 1] } else { if {$tkCon(event) < [history nextid]} { %W delete limit end if {[incr tkCon(event)] == [history nextid]} { %W insert limit $tkCon(cmdbuf) } else { %W insert limit [history event $tkCon(event)] } %W see end } } } bind Console { if [%W compare insert > limit] {tkConExpand %W proc} } bind Console { if [%W compare insert > limit] {tkConExpand %W var} } bind Console { if [%W compare insert >= limit] { tkConInsert %W \t } } bind Console { tkConEval %W } bind Console [bind Console ] bind Console { if {[string comp {} [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif [%W compare insert >= limit] { %W delete insert %W see insert } } bind Console { if {[string comp {} [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif {[%W compare insert != 1.0] && [%W compare insert-1c >= limit]} { %W delete insert-1c %W see insert } } bind Console [bind Console ] bind Console { tkConInsert %W %A } bind Console { if [%W compare {limit linestart} == {insert linestart}] { tkTextSetCursor %W limit } else { tkTextSetCursor %W {insert linestart} } } bind Console { if [%W compare insert < limit] break %W delete insert } bind Console { if [%W compare insert < limit] break if [%W compare insert == {insert lineend}] { %W delete insert } else { %W delete insert {insert lineend} } } bind Console { ## Clear console buffer, without losing current command line input set tkCon(tmp) [tkConCmdGet %W] clear tkConPrompt tkConInsert %W $tkCon(tmp) } bind Console { ## Goto next command in history if {$tkCon(event) < [history nextid]} { %W delete limit end if {[incr tkCon(event)] == [history nextid]} { %W insert limit $tkCon(cmdbuf) } else { %W insert limit [history event $tkCon(event)] } %W see end } } bind Console { ## Goto previous command in history if {$tkCon(event) == [history nextid]} { set tkCon(cmdbuf) [tkConCmdGet %W] } if [catch {history event [incr tkCon(event) -1]} tkCon(tmp)] { incr tkCon(event) } else { %W delete limit end %W insert limit $tkCon(tmp) %W see end } } bind Console { ## Search history reverse if {$tkCon(svnt) == [history nextid]} { set tkCon(cmdbuf) [tkConCmdGet %W] } set tkCon(tmp1) [string len $tkCon(cmdbuf)] incr tkCon(tmp1) -1 while 1 { if {[catch {history event [incr tkCon(svnt) -1]} tkCon(tmp)]} { incr tkCon(svnt) break } elseif {![string comp $tkCon(cmdbuf) \ [string range $tkCon(tmp) 0 $tkCon(tmp1)]]} { %W delete limit end %W insert limit $tkCon(tmp) break } } %W see end } bind Console { ## Search history forward set tkCon(tmp1) [string len $tkCon(cmdbuf)] incr tkCon(tmp1) -1 while {$tkCon(svnt) < [history nextid]} { if {[incr tkCon(svnt)] == [history nextid]} { %W delete limit end %W insert limit $tkCon(cmdbuf) break } elseif {![catch {history event $tkCon(svnt)} tkCon(tmp)] && ![string comp $tkCon(cmdbuf) \ [string range $tkCon(tmp) 0 $tkCon(tmp1)]]} { %W delete limit end %W insert limit $tkCon(tmp) break } } %W see end } bind Console { ## Transpose current and previous chars if [%W compare insert > limit] { tkTextTranspose %W } } bind Console { ## Clear command line (Unix shell staple) %W delete limit end } bind Console { ## Save command buffer set tkCon(tmp) $tkCon(cmdsave) set tkCon(cmdsave) [tkConCmdGet %W] if {[string match {} $tkCon(cmdsave)]} { set tkCon(cmdsave) $tkCon(tmp) } else { %W delete limit end-1c } tkConInsert %W $tkCon(tmp) %W see end } catch {bind Console { tkTextScrollPages %W -1 }} catch {bind Console { tkTextScrollPages %W -1 }} catch {bind Console { tkTextScrollPages %W 1 }} catch {bind Console { tkTextScrollPages %W 1 }} bind Console { if [%W compare insert >= limit] { %W delete insert {insert wordend} } } bind Console { if [%W compare {insert -1c wordstart} >= limit] { %W delete {insert -1c wordstart} insert } } bind Console { if [%W compare insert >= limit] { %W delete insert {insert wordend} } } bind Console { if {(!$tkPriv(mouseMoved) || $tk_strictMotif) \ && ![catch {selection get -displayof %W} tkCon(tmp)]} { if [%W compare @%x,%y < limit] { %W insert end $tkCon(tmp) } else { %W insert @%x,%y $tkCon(tmp) } if [string match *\n* $tkCon(tmp)] {tkConEval %W} } } ## ## End weird bindings ## ## ## PostCon bindings, for doing special things based on certain keys ## bind PostCon { if {$tkCon(lightbrace) && $tkCon(blinktime)>99 && [string comp \\ [%W get insert-2c]]} { tkConMatchPair %W \( \) } } bind PostCon { if {$tkCon(lightbrace) && $tkCon(blinktime)>99 && [string comp \\ [%W get insert-2c]]} { tkConMatchPair %W \[ \] } } bind PostCon { if {$tkCon(lightbrace) && $tkCon(blinktime)>99 && [string comp \\ [%W get insert-2c]]} { tkConMatchPair %W \{ \} } } bind PostCon { if {$tkCon(lightbrace) && $tkCon(blinktime)>99 && [string comp \\ [%W get insert-2c]]} { tkConMatchQuote %W } } bind PostCon { if {$tkCon(lightcmd) && [string comp {} %A]} { tkConTagProc %W } } ## tkConTagProc - tags a procedure in the console if it's recognized ## This procedure is not perfect. However, making it perfect wastes ## too much CPU time... Also it should check the existence of a command ## in whatever is the connected slave, not the master interpreter. ## proc tkConTagProc w { set i [$w index "insert-1c wordstart"] set j [$w index "insert-1c wordend"] if {[string comp {} [info command [list [$w get $i $j]]]]} { $w tag add proc $i $j } else { $w tag remove proc $i $j } } ## tkConMatchPair - blinks a matching pair of characters ## c2 is assumed to be at the text index 'insert'. ## This proc is really loopy and took me an hour to figure out given ## all possible combinations with escaping except for escaped \'s. ## It doesn't take into account possible commenting... Oh well. If ## anyone has something better, I'd like to see/use it. This is really ## only efficient for small contexts. # ARGS: w - console text widget # c1 - first char of pair # c2 - second char of pair # Calls: tkConBlink ## proc tkConMatchPair {w c1 c2} { if [string comp {} [set ix [$w search -back $c1 insert limit]]] { while {[string match {\\} [$w get $ix-1c]] && [string comp {} [set ix [$w search -back $c1 $ix-1c limit]]]} {} set i1 insert-1c while {[string comp {} $ix]} { set i0 $ix set j 0 while {[string comp {} [set i0 [$w search $c2 $i0 $i1]]]} { append i0 +1c if {[string match {\\} [$w get $i0-2c]]} continue incr j } if {!$j} break set i1 $ix while {$j && [string comp {} [set ix [$w search -back $c1 $ix limit]]]} { if {[string match {\\} [$w get $ix-1c]]} continue incr j -1 } } if [string match {} $ix] { set ix [$w index limit] } } else { set ix [$w index limit] } tkConBlink $w $ix [$w index insert] } ## tkConMatchQuote - blinks between matching quotes. ## Blinks just the quote if it's unmatched, otherwise blinks quoted string ## The quote to match is assumed to be at the text index 'insert'. # ARGS: w - console text widget # Calls: tkConBlink ## proc tkConMatchQuote w { set i insert-1c set j 0 while {[string comp {} [set i [$w search -back \" $i limit]]]} { if {[string match {\\} [$w get $i-1c]]} continue if {!$j} {set i0 $i} incr j } if [expr $j%2] { tkConBlink $w $i0 [$w index insert] } else { tkConBlink $w [$w index insert-1c] [$w index insert] } } ## tkConBlink - blinks between 2 indices for a specified duration. # ARGS: w - console text widget # i1 - start index to blink region # i2 - end index of blink region # dur - duration in usecs to blink for # Outputs: blinks selected characters in $w ## proc tkConBlink {w i1 i2} { global tkCon $w tag add blink $i1 $i2 after $tkCon(blinktime) $w tag remove blink $i1 $i2 return } ## tkConInsert ## Insert a string into a text at the point of the insertion cursor. ## If there is a selection in the text, and it covers the point of the ## insertion cursor, then delete the selection before inserting. # ARGS: w - text window in which to insert the string # s - string to insert (usually just a single char) # Outputs: $s to text widget ## proc tkConInsert {w s} { if {[string match {} $s] || [string match disabled [$w cget -state]]} { return } if [$w comp insert < limit] { $w mark set insert end } catch { if {[$w comp sel.first <= insert] && [$w comp sel.last >= insert]} { $w delete sel.first sel.last } } $w insert insert $s $w see insert } ## tkConExpand - # ARGS: w - text widget in which to expand str # type - type of expansion (path / proc / variable) # Calls: tkConExpand(Pathname|Procname|Variable) # Outputs: The string to match is expanded to the longest possible match. # If tkCon(showmultiple) is non-zero and the user longest match # equaled the string to expand, then all possible matches are # output to stdout. Triggers bell if no matches are found. # Returns: number of matches found ## proc tkConExpand {w type} { set exp "\[^\\]\[ \t\n\r\[\{\"\$]" set tmp [$w search -back -regexp $exp insert-1c limit-1c] if [string compare {} $tmp] {append tmp +2c} else {set tmp limit} if [$w compare $tmp >= insert] return set str [$w get $tmp insert] switch -glob $type { pr* {set res [tkConExpandProcname $str]} v* {set res [tkConExpandVariable $str]} default {set res {}} } set len [llength $res] if $len { $w delete $tmp insert $w insert $tmp [lindex $res 0] if {$len > 1} { global tkCon if {$tkCon(showmultiple) && [string match [lindex $res 0] $str]} { puts stdout [lreplace $res 0 0] } } } return [incr len -1] } ## tkConExpandProcname - expand a tcl proc name based on $str # ARGS: str - partial proc name to expand # Calls: tkConExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc tkConExpandProcname str { set match [info commands $str*] if {[llength $match] > 1} { regsub -all { } [tkConExpandBestMatch $match $str] {\\ } str set match [linsert $match 0 $str] } else { regsub -all { } $match {\\ } match } return $match } ## tkConExpandVariable - expand a tcl variable name based on $str # ARGS: str - partial tcl var name to expand # Calls: tkConExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc tkConExpandVariable str { if [regexp {([^\(]*)\((.*)} $str junk ary str] { set match [uplevel \#0 array names $ary $str*] if {[llength $match] > 1} { set vars $ary\([tkConExpandBestMatch $match $str] foreach var $match {lappend vars $ary\($var\)} return $vars } else {set match $ary\($match\)} } else { set match [uplevel \#0 info vars $str*] if {[llength $match] > 1} { regsub -all { } [tkConExpandBestMatch $match $str] {\\ } str set match [linsert $match 0 $str] } else { regsub -all { } $match {\\ } match } } return $match } ## tkConExpandBestMatch - finds the best unique match in a list of names ## The extra $e in this argument allows us to limit the innermost loop a ## little further. This improves speed as $l becomes large or $e becomes long. # ARGS: l - list to find best unique match in # e - currently best known unique match # Returns: longest unique match in the list ## proc tkConExpandBestMatch {l {e {}}} { set ec [lindex $l 0] if {[llength $l]>1} { set e [string length $e]; incr e -1 set ei [string length $ec]; incr ei -1 foreach l $l { while {$ei>=$e && [string first $ec $l]} { set ec [string range $ec 0 [incr ei -1]] } } } return $ec } ## Initialize only if we haven't yet ## if [catch {winfo exists $tkCon(base)}] tkConInit tkcon-2.7.3/icons/000077500000000000000000000000001357645571500137765ustar00rootroot00000000000000tkcon-2.7.3/icons/tkcon-small.svg000066400000000000000000000577311357645571500167600ustar00rootroot00000000000000 tkcon image/svg+xml tkcon 23 Jan 2010 Pat Thoyts Tcl feather icon blended with the console icon fron the tango theme icon package. Pat Thoyts, The Tango Project tkcon-2.7.3/icons/tkcon-small48.png000066400000000000000000000101271357645571500171050ustar00rootroot00000000000000‰PNG  IHDR0.nÞšlsBIT|dˆ pHYs × ×B(›xtEXtSoftwarewww.inkscape.org›î< tEXtTitletkcon·ÆtEXtAuthorPat ThoytsÌ,W·]tEXtDescriptionTcl feather icon blended with the console icon fron the tango theme icon package..–YHtEXtCreation Time23 Jan 2010@/hItEXtCopyrightPublic Domain http://creativecommons.org/licenses/publicdomain/YÃþʽIDAThÍš{p\Õ}Ç?çî݇´»zKÖÃOü›±yÙ@mñ`úC[ …–’!C€&`x̤iH:ÓiÒ4$Œ æQ“P^¶‹±„maÉzØÖJÚ]ißw÷ÞsNÿ¸W+­$“Bè™9Úsïž{ö÷øþ¾¿ß9WBkÍgÕ„à"­õïz p°Xø€PŽ=ÀA­õ¯&Ö0?m¡„ €+@T1 üpŽišöü…‹²KO^¦ò¹¬=66.S© ÙLvîX|d5ð6ðÙ( „XÜ ¬†‚ù¢Uø·E‹gnþÊÍNÇÊõþî£Ùú}=)£EB@¨?¾{lëÍÀ3S×üTBÌn6¬\µ*}ë­·„¥¯*ÿµ›nßþîwü-ËÖEŸÚ9ÈÀ“½³®ñáoL `WÅÚ³ÅÀæÍ·—$§ ¡k?™È )!ŸÏš?ùñÏ/îíí[§•ösÞç wÜ~[(XÓ ò%›²TÎVâéß&DWf‘Eƒ–…ñ÷ßÙtk³Öú?´Ö›¦~_áGýé©FÀ÷D$R3^c³6M¿ñqÄÖJ£Ñ !6<,~ùØ–€U(gžy¦þÊ-·ˆEK–ðFWŒW~ÓÍeëZiˆغó(¹‚¤¹&0!0“÷J¼>oÙò%¾+®ºüi!„ÐS¬^öÀ£›>#¾röéçD¢ÑZ V­ÔÇ‘¿ÜvíÚÅ~ðCJ¥W_s WéÏy·;ƳoaÙîšÑ*™‚<%&‡Kë2lôA¾þõÛpt)ß}èà÷ßûO×W(°uëVŸ-s‡?wî µÖŒŽŽ~l¡ñ>ÓGj<Åý÷?€iú¸ýÎ;Y½f-ÿ¹«w»S3ž©ò ª­~FiÅðf| wþˆP(ÈÜÏœ–V~ñĦ|,6tÙw¿ýЫàA¨ Ó«›ZÃÕaŽô ™LÒsø0ŽãœPh!™L†Í›·°víöíÛ‡RŠ»î¹—pÃþùñ=Œ$KÞî‡! ¶t˜¡ÞNÌâ«’@aÊAÀ§‰ð ±Ø÷Ýw/¶m3žç¼Ï}¡zëSOÜL* ”XÛÔØÈÜEFGFyò©­äJ „Ðeº°¬ 4«PdÏÛ džÑZ󽿇 yhËR9YÀÈ|Èpç¯ÑþZš×\°%ÂNVFÛ$÷þœØàQ.Øp‰±8óæÍò 4Ô7 ”:{b®éI5}~¿ò0ðÐŒå†8rlRð©#ïñmú†(•ZÛ[‰qᆠTÕ4ó¯O •›ôž“ßÿ ã#C4/]GãÊ?¦X’€¬X[9C»þt2A}c öäìä¹Ø¶R !ŽãD*˜ÖŠ¥"¶]BkÅúó×ÒÒÚhe@ Éf <¿íU‘j¾tÕÜð·×s÷Ýwóß¼=¬¢.ßI÷oà°öò¿#а|ºIhüé=ô½ÿ*%>ñÆâi ù"E©TÂ4M¤”Hg2øO˜È”T(¥i™ÓÀÜym ]ŠÔ2é,Ïm}…B¾ÈÆ+/çæø{ŽÇ3üð¡ïóÒÞ~IÀïÇçSˆ£ÛyÿíÝÔ4ÔÑzÆ_ã«jt!¥'„×DôQ†;_àÞAê¢\sãeÌéhàÉM/¢´ÂDZÑh¤#‘êw) A*…R ©ZH„p.›Îñ‹‡Ÿc,9Î.ºÛný*[^ëfo†k/µyáÝú ¤»¶Ð{°‡¦öV×^‹aVOÚ\LZ¾˜KQ²mš–¶:jê«B£¤taclÛFkp”DÉIhžØJ¡´Æ²ŠdÓy´†b±ÈæŸ=O2‘bý¹ëùÆ·óÒÞ>vîKð/ÛzQ ªEœÁ]¿dd(NËüEÔ¯¾-üH©¨ ù !ªÚÑÒA:ŠP(ˆ”Št*_6"8ŽƒÖå88r2?y (ô”……(¥¼D&¦F yùÙ]$“ã¬=ëtî½çnö÷Åxv×›¢4DU^{’L:GÇòUDO¾ !f&ô‰_ ëcô¼¹™±xŠ³Î?…SÖ. WÃ*ÈæÓä >ÃÀ‘­5Ž#‘r„l¥ÐjšR£”¢·Hçèíàƒ}=,^¶”ûï¹—¾X’G^èñUY¤Pæv¿þkì’üUë /þ#”Ò å,vׄ¬¼÷Ú6rÙ<ËNkETeéìê,D:Ž+—0plå3p¤ƒœ!eÛK»e-‹×_Þƒ?èç®»¾AÚ²xì¥#X%åaY.ìfïk¿B+ÍIg]J¨c=Zk7^EE*@k1ö*{w¾ˆc;œrÖ\æžT?SEívC€c;JàÈY ä :yÓU@£´¢³8ÔÕG6]àšë¯¥­­ƒŸ>ßɱÑB |»_ÙŽ´æv>朳qU.È\ê¥5Ò)‘=¼…þÎ.„€¥«çŽÍÏP`€-m íyBMSÀV²"¶„0\øäŠhCr¬?FǼvn¼îoˆ¥5=q(€S² Ú}|ó”th[¶šÈINYÈû£5R9hU"{hƒ‡ú0ý«ÎžKSktÊÜÊGµ”viÔ¶†á•6“ÂzRhÏÕi!o1:ŒÖš¶…uÌ]܈!f—wªñ'†Jë2½;¶lÇfF ØJ¹.—Ûv( h@iÅyë×ã3 Æ3Y†’*ùCýƒDjjX~ÎFê¯Ãï3ÑhòÅíÚõ€ËbŽã€Ð®"S6Šå –rBB„= jE"m äpÒ1:ZçÓÞ±€úe‘(ÒùéL +7Frÿf†{zÐJÓÜeÎÜZ>jk-f3ý„<¡uÙò¶cÏ„R6R¹JضM4AÁÈÈ0Žc£´Áp"C|ÿ“ø &>á£zéâ™8éTŠ’UDK…5ÜE>UÀg˜”œñ¡ ÕÑ UáÊí¢˜1˜ý†Ö“%üDl:Ó d€¡)1 @ÐU(ðÒ¿àå¶1Ô{˱Ðu5 ŒPÌ\æBsN£nÁ©h$ÂÌ]ÒD(Ä­¤·ë‰Îô^©ŒËB®¼¶íà8Ž¬<ð $=)×UZS®"Êò³Ÿü˜hM„·oǘ ôa^ûyTJ•Æ“ÉÛé=„aZç×áúpJÎl¦žaðÙf(íåFwŸ2S¥PÒ…P!Ÿg÷îÝ(é>8tô8÷}ë›H©…Õ5 „êæ—ªHªç¿Hô¾GÑ*Žiî¨Á4 ´T•VÆõõÑ,ZhIE‘ ”n….„&w:óæÏ'µ#SždY“Ö6CÕ$>xe)Œ§N#¥Âï÷Ѷ¤‰šæp¥³_SL(—³´‰ÚiúaT³y@N bǦ¹©‰æÖFŽöw+Ê)‹¤bƒ¤bƒåkÀ¤®1L´!ÌŸ}ù/¹èÜK™í¸rª¨–´¸ók_¥0’›9cÊÄ©4:yïDR²\J(4¿Ã0<*­&2 × †üø<Š”ZQ[[ÏÉ W`ðÑ'’ãÅ1„a ¥‹kWæ©?âÝQµÙäwj¤ÜZÈ™šw_.…EY!ÂH©ð™>—Þ¼ Ò‚ÇÙÄS?1MÜY`¢5V¦„´g9ºœ2ÝÍÄSÓ(5 IYVÀ¶í2wI©B—¯Š0¼Z Ÿ™™US£Ù™ýMÉ),4E© ØÊAJU†aø0}ÁIO`ú|” •;·O£‚B¡J+o«{Âp™cÛ(]Â4ü455# Á%—l  ç p½"ÜÍÏG±ÉïÛNZ¸ˆ±ñ¤K&BTìË 8Ž£•RÚqlǦ¿€D2é7Y¾|‹-&s§ÿ/šU´Èe³h   øŒÇ+ö •qä±VƒÉ±D±­µ­ZJIçû]L-?y ÅÒï¨Ý?a[xF”¦ðÞ³ ² ›`0€Ïôc ƒX–Uq g–ef¨| ~ll_w÷!£¥eÁˆ÷~`îÜjk?á[¦ÿEË2D*p_µ$à`š~ïÔQSUF•t\UUÍxjÌ)•ì7…!C!vìØOÄ“;Þxóu{ãÆ/RSSƒ@°òÔ0áâ{"ô<ÖD1VE0"©¡±¡™Žö¹„««‘Ê…ŽÏç#‰¢•âèÑc…‡= …ÂÄe^ñîÛo}Kiµb4>ºè”•§mÛæË7ßR>¡SÚÛ7Oœyc—›ÝC)Uy Enhanced Tk Console: tkcon
Enhanced Tk Console: tkcon SourceForge Logo
Documentation Screenshot Online Demo! (requires Tk plugin) License
tkcon Release Archives

Latest Release is 2.5 (2009-02-26)

You can grab the latest sources from the tkcon CVS repository.

tkcon is a replacement for the standard console that comes with Tk (on Windows/Mac, but also works on Unix). The console itself provides many more features than the standard console. tkcon works on all platforms where Tcl/Tk is available. It is meant primarily to aid one when working with the little details inside tcl and tk, giving Unix users the GUI console provided by default in the Mac and Windows Tk. It's also not a bad replacement for the default MS-DOS shell (although it needs lots of fine tuning).

© Jeffrey Hobbs (jeff at hobbs dot org)
tkcon-2.7.3/install-desktop-menu.sh000077500000000000000000000020241357645571500172770ustar00rootroot00000000000000#!/bin/sh # # To install a tkcon entry into a FreeDesktop.org compatible menu system such # as used by GNOME, KDE or most modern X11 desktop environments the tkcon.desktop # and icons/* files are installed. This should be done using the xdg-desktop-menu # utility and xdg-icon-resource utility from the xdg-utils package. See # http://portland.freedesktop.org/xdg-utils-1.0/ for further details. # PROG_XDG_DESKTOP_MENU=`which xdg-desktop-menu` PROG_XDG_ICON_RESOURCE=`which xdg-icon-resource` ICONFILE=icons/tkcon-small48.png if [ -x $PROG_XDG_DESKTOP_MENU -a -x PROG_XDG_ICON_RESOURCE ] then $PROG_XDG_DESKTOP_MENU install tkcon-console.desktop $PROG_XDG_ICON_RESOURCE install --size 48 $ICONFILE tkcon-icon else [ -d $HOME/.local/share/applications ] || mkdirhier $HOME/.local/share/applications [ -d $HOME/.local/share/icons ] || mkdirhier $HOME/.local/share/icons install tkcon-console.desktop $HOME/.local/share/applications/tkcon-console.desktop install $ICONFILE $HOME/.local/share/icons/tkcon-icon.png fi tkcon-2.7.3/pkgIndex.tcl000066400000000000000000000006231357645571500151410ustar00rootroot00000000000000# pkgIndex.tcl to use tkcon as a package via 'package require tkcon' # # 'tkcon show' will do all that is necessary to display tkcon # # Defaults to: # * the main interp as the "slave" # * hiding tkcon when you click in the titlebar [X] # * using '.tkcon' as the root toplevel # * not displaying itself at 'package require' time # package ifneeded tkcon 2.7 [list source [file join $dir tkcon.tcl]] tkcon-2.7.3/tclconfig/000077500000000000000000000000001357645571500146335ustar00rootroot00000000000000tkcon-2.7.3/tclconfig/ChangeLog000066400000000000000000001101121357645571500164010ustar00rootroot000000000000002016-03-11 Sean Woods *tcl.m4 Fixed the search for Tcl and Wish shells under MinGW. Static builds and threaded builds get an "s" or "t" added to the name. 2015-08-28 Jan Nijtmans * tcl.m4: Rfe [00189c4afc]: Allow semi-static UCRT build on Windows with VC 14.0 2013-10-08 Jan Nijtmans * tcl.m4: Bug [172223e008]: Wrong filename in --disable-shared compile on MinGW 2013-10-04 Jan Nijtmans * tcl.m4: stub library is no longer linked with msvcrt??.dll. 2013-10-01 Jan Nijtmans * tcl.m4: Workaround for MinGW bug #2065: "gcc --shared" links with libgcc_s_dw2-1.dll when using 64-bit division in C 2013-07-04 Jan Nijtmans * tcl.m4: Bug [3324676]: AC_PROG_INSTALL incompat, Bug [3606445]: Unneeded -DHAVE_NO_SEH=1 when not building on Windows 2013-07-02 Jan Nijtmans * tcl.m4: Bug [32afa6e256]: dirent64 check is incorrect in tcl.m4 (thanks to Brian Griffin) 2013-06-20 Jan Nijtmans * tcl.m4: Use X11/Xlib.h for checking where X11 can be found in stead of X11/XIntrinsic.h. Suggested by Pietro Cerutti. 2013-06-04 Jan Nijtmans * tcl.m4: Eliminate NO_VIZ macro as current zlib uses HAVE_HIDDEN in stead. One more last-moment fix for FreeBSD by Pietro Cerutti 2013-05-19 Jan Nijtmans * tcl.m4: Fix for FreeBSD, and remove support for old FreeBSD versions. Patch by Pietro Cerutti 2013-03-12 Jan Nijtmans * tcl.m4: Patch by Andrew Shadura, providing better support for * three architectures they have in Debian. 2012-08-07 Stuart Cassoff * tcl.m4: Added "-DNDEBUG" to CFLAGS_DEFAULT when building with --disable-symbols. 2012-08-07 Stuart Cassoff * tcl.m4: [Bug 3555058]: Checkin [30736d63f0] broke CFLAGS_DEFAULT, LDFLAGS_DEFAULT 2012-08-07 Stuart Cassoff * tcl.m4: [Bug 3511806]: Checkin [30736d63f0] broke CFLAGS 2012-08-07 Jan Nijtmans * tcl.m4: [Bug 3511806]: Checkin [30736d63f0] broke CFLAGS 2012-07-25 Jan Nijtmans * tcl.m4: My previous commit (2012-04-03) broke the ActiveTcl build for AMD64, because of the quotes in "C://AMD64/cl.exe". It turns out that the AC_TRY_COMPILE macro cannot handle that. 2012-07-22 Stuart Cassoff * tcl.m4: Tidy: consistency, spelling, phrasing, whitespace. No functional change. 2012-04-03 Jan Nijtmans * tcl.m4: [Bug 3511806] Compiler checks too early This change allows to build the cygwin and mingw32 ports of Tcl/Tk extensions to build out-of-the-box using a native or cross-compiler, e.g. on Cygwin, Linux or Darwin. 2011-04-02 Jan Nijtmans * install-sh: Fix issue with library stripping in install-sh (backported from kevin_walzer's patch from Tcl 8.6 trunk) 2011-04-05 Andreas Kupries * tcl.m4: Applied patch by Jeff Lawson. Nicer error message when tclConfig.sh was not found. 2010-12-15 Stuart Cassoff * install-sh: Upgrade to newer install-sh and use it. * tcl.m4: 2010-12-14 Stuart Cassoff * tcl.m4: Better building on OpenBSD. 2010-12-14 Jan Nijtmans * tcl.m4: when using gcc, don't try to determine Win64 SDK 2010-12-12 Jan Nijtmans * tcl.m4: Determine correctly a cross-compiler-windres 2010-11-23 Jan Nijtmans * tcl.m4: add some cross-compile support, borrowed from Tcl 8.6 2010-09-16 Jeff Hobbs * tcl.m4: correct HP-UX LDFLAGS (only used when building big shell) 2010-09-14 Jeff Hobbs * tcl.m4: add extra if check for .manifest file generation Add notice about package name and version being built. 2010-09-09 Jan Nijtmans * tcl.m4: [FREQ #3058486] TEA_LOAD_CONFIG doesn't set all BUILD_ vars Slightly related: defining BUILD_$1 on all platforms - not only win - allows the -fvisibility feature to be used in extensions as well, at least if you compile against tcl >= 8.5. 2010-08-26 Jeff Hobbs * tcl.m4: ensure safe quoting for autoheader usage 2010-08-19 Jeff Hobbs * tcl.m4: add TEA_ADD_CLEANFILES macro to make adding cleanfiles easier, and add *.exp to CLEANFILES Windows default. (TEA_MAKE_LIB): Enhanced to check for MSVC that requires manifests and auto-embed it into proj DLL via MAKE_SHARED_LIB. Also define VC_MANIFEST_EMBED_DLL and VC_MANIFEST_EMBED_EXE that do the same magic in case it is needed for extended TEA projects. 2010-08-16 Jeff Hobbs *** Bump to TEA_VERSION 3.9 *** If upgrading from TEA_VERSION 3.8, copy over tcl.m4, change TEA_INIT to use 3.9 and reconfigure (ac-2.59+). BUILD_${PACKAGE_NAME} will be auto-defined on Windows for correct setting of TCL_STORAGE_CLASS. TEA_LOAD_CONFIG users should remove the SHLIB_LD_LIBS setting done in configure.in (LIBS will be automagically populated by TEA_LOAD_CONFIG). TEA_EXPORT_CONFIG has been added for ${pkg}Config.sh creators SHLIB_LD_FLAGS was deprecated a while ago, remove it if it is still in your Makefile.in. * tcl.m4: add /usr/lib64 to set of auto-search dirs. [Bug 1230554] Auto-define BUILD_$PACKAGE_NAME so users don't need to. This needs to correspond with $pkg.h define magic for TCL_STORAGE_CLASS. Auto-define CLEANFILES. Users can expand it. (SHLIB_LD_LIBS): define to '${LIBS}' default and change it only if necessary. Platforms not using this may simply not work or have very funky linkers. (TEA_LOAD_CONFIG): When loading config for another extension, auto-add stub libraries found with TEA_ADD_LIBS. Eases configure.in for modules like itk and img::*. (TEA_EXPORT_CONFIG): Add standardized function for exporting a ${pkg}Config.sh. See use by img::* and itcl. 2010-08-12 Jeff Hobbs *** Bump to TEA_VERSION 3.8 *** If upgrading from TEA_VERSION 3.7, copy over tcl.m4, change TEA_INIT to use 3.8 and reconfigure (ac-2.59+). No other changes should be necessary. * tcl.m4: remove more vestigial bits from removed platforms. Add back SCO_SV-3.2*. Remove use of DL_LIBS and DL_OBJS and related baggage - these are only needed by the core to support 'load'. Allow for macosx in TEA_ADD_SOURCES. Correct check for found_xincludes=no in TEA_PATH_UNIX_X. 2010-08-11 Jeff Hobbs * tcl.m4: remove the following old platform configurations: UNIX_SV*|UnixWare-5*, SunOS-4.*, SINIX*5.4*, SCO_SV-3.2*, OSF1-1.*, NEXTSTEP-*, NetBSD-1.*|FreeBSD-[[1-2]].*, MP-RAS-*, IRIX-5.*, HP-UX-*.08.*|HP-UX-*.09.*|HP-UX-*.10.*, dgux*, BSD/OS-2.1*|BSD/OS-3* (AIX): drop AIX-pre4 support and use of ldAix, use -bexpall/-brtl 2010-07-05 Jan Nijtmans * tcl.m4: [Patch #1055668] removal of exported internals from tclInt.h (EXTERN macro) 2010-04-14 Jan Nijtmans * tcl.m4 - Backport a lot of quoting fixes from tcl8.6/unix/tcl.m4 - Fix determination of CYGPATH for CYGWIN With those fixes, itcl and tdbc compile fine with CYGWIN 2010-04-06 Jan Nijtmans * install-sh [Bug 2982540] configure and install* script files should always have LF 2010-02-19 Stuart Cassoff * tcl.m4: Correct compiler/linker flags for threaded builds on OpenBSD. 2010-01-19 Jan Nijtmans * tcl.m4: Detect CYGWIN variant: win32 or unix 2010-01-03 Donal K. Fellows * unix/tcl.m4 (TEA_CONFIG_CFLAGS): [Tcl Bug 1636685]: Use the configuration for modern FreeBSD suggested by the FreeBSD porter. 2009-10-22 Jan Nijtmans * tcl.m4: [Tcl Patch #2883533] tcl.m4 support for Haiku OS 2009-04-27 Jeff Hobbs * tcl.m4 (TEA_CONFIG_CFLAGS): harden the check to add _r to CC on AIX with threads. 2009-04-10 Daniel Steffen * tcl.m4 (Darwin): check for 64-bit TkAqua. 2009-03-26 Jan Nijtmans * tclconfig/tcl.m4: Adapt LDFLAGS and LD_SEARCH_FLAGS together with SHLIB_LD definition to unbreak building on HPUX. 2009-03-20 Andreas Kupries * tclconfig/tcl.m4: Changed SHLIB_LD definition to unbreak building on HPUX. 2009-03-16 Joe English * tcl.m4(TEA_PUBLIC_TK_HEADERS): Look at ${TK_INCLUDE_SPEC} (found in tkConfig.sh) when trying to guess where tk.h might be [Patch 1960628]. 2009-03-11 Joe English * tcl.m4: Allow ${SHLIB_SUFFIX} to be overridden at configure-time [Patch 1960628]. Also fix some comment typos, and an uninitialized variable bug-waiting-to-happen. 2008-12-21 Jan Nijtmans * tcl.m4: [Bug 2073255] Tcl_GetString(NULL) doesn't crash on HP-UX (this bug report was for Tcl, but holds for TEA as well.) 2008-12-20 Daniel Steffen * tcl.m4: sync with tdbc tcl.m4 changes (SunOS-5.11): Sun cc SHLIB_LD: use LDFLAGS_DEFAULT instead of LDFLAGS 2008-12-02 Jeff Hobbs *** Bump to TEA_VERSION 3.7 *** * tcl.m4: in private header check, check for Port.h instead of Int.h to ensure all private headers are available. 2008-11-04 Daniel Steffen * tcl.m4 (Darwin): sync TEA_PRIVATE_TK_HEADERS handling of Tk.framework PrivateHeaders with TEA_PRIVATE_TCL_HEADERS. 2008-11-04 Jeff Hobbs * tcl.m4 (TEA_PATH_TCLCONFIG, TEA_PATH_TKCONFIG): exit with error when tclConfig.sh cannot be found. [Bug #1997760] (TEA_PRIVATE_TCL_HEADERS, TEA_PRIVATE_TK_HEADERS): allow for finding the headers installed in the public areas, e.g. a result of make install-private-headers. [Bug #1631922] 2008-08-12 Daniel Steffen * tcl.m4 (Darwin): link shlib with current and compatiblity version flags; look for libX11.dylib when searching for X11 libraries. 2008-06-12 Daniel Steffen * tcl.m4 (SunOS-5.11): fix 64bit amd64 support with gcc & Sun cc. 2008-03-27 Daniel Steffen * tcl.m4 (SunOS-5.1x): fix 64bit support for Sun cc. [Bug 1921166] 2008-02-01 Donal K. Fellows * tcl.m4 (TEA_CONFIG_CFLAGS): Updated to work at least in part with more modern VC versions. Currently just made the linker flags more flexible; more work may be needed. 2007-10-26 Daniel Steffen * tcl.m4 (Darwin): add support for 64-bit X11. 2007-10-23 Jeff Hobbs *** Tagged tea-3-branch to start TEA 4 development on HEAD *** 2007-09-17 Joe English * tcl.m4: use '${CC} -shared' instead of 'ld -Bshareable' to build shared libraries on current NetBSDs [Bug 1749251]. 2007-09-15 Daniel Steffen * tcl.m4: replace all direct references to compiler by ${CC} to enable CC overriding at configure & make time. (SunOS-5.1x): replace direct use of '/usr/ccs/bin/ld' in SHLIB_LD by 'cc' compiler driver. 2007-08-08 Jeff Hobbs * tcl.m4: check Ttk dir for Tk private headers (8.5). Add some comments to other bits. 2007-06-25 Jeff Hobbs * tcl.m4 (TEA_PROG_TCLSH, TEA_PROG_WISH): move where / is added. 2007-06-13 Jeff Hobbs * tcl.m4: fix --with-tkinclude alignment. [Bug 1506111] 2007-06-06 Daniel Steffen * tcl.m4 (Darwin): fix 64bit arch removal in fat 32&64bit builds. 2007-05-18 Donal K. Fellows * tcl.m4: Added quoting so that paths with spaces cause fewer problems. 2007-03-07 Daniel Steffen * tcl.m4 (Darwin): s/CFLAGS/CPPFLAGS/ in -mmacosx-version-min check. 2007-02-15 Jeff Hobbs * tcl.m4: correct private header check to search in generic subdir 2007-02-09 Jeff Hobbs *** Bump to TEA_VERSION 3.6 *** * tcl.m4: correct -d to -f (TEA_CONFIG_CFLAGS): SHLIB_SUFFIX is .so on HP ia64 [Bug 1615058] 2007-02-08 Jeff Hobbs * tcl.m4 (TEA_PRIVATE_TCL_HEADERS, TEA_PRIVATE_TK_HEADERS): check that the dirs actually have private headers. [Bug 1631922] 2007-02-04 Daniel Steffen * tcl.m4: add caching to -pipe check. 2007-01-25 Daniel Steffen * tcl.m4: integrate CPPFLAGS into CFLAGS as late as possible and move (rather than duplicate) -isysroot flags from CFLAGS to CPPFLAGS to avoid errors about multiple -isysroot flags from some older gcc builds. 2006-01-19 Daniel Steffen * tcl.m4: ensure CPPFLAGS env var is used when set. [Bug 1586861] (Darwin): add -isysroot and -mmacosx-version-min flags to CPPFLAGS when present in CFLAGS to avoid discrepancies between what headers configure sees during preprocessing tests and compiling tests. 2006-12-19 Daniel Steffen * tcl.m4 (Darwin): --enable-64bit: verify linking with 64bit -arch flag succeeds before enabling 64bit build. 2006-12-16 Daniel Steffen * tcl.m4 (Linux): fix previous change to use makefile variable LDFLAGS_DEFAULT instead of LDFLAGS in SHLIB_LD, to ensure linker flags in sampleextension Makefile are picked up. 2006-11-26 Daniel Steffen * tcl.m4 (Linux): --enable-64bit support. [Patch 1597389], [Bug 1230558] 2006-08-18 Daniel Steffen * tcl.m4 (Darwin): add support for --enable-64bit on x86_64, for universal builds including x86_64 and for use of -mmacosx-version-min instead of MACOSX_DEPLOYMENT_TARGET. For Tk extensions, remove 64-bit arch flags from CFLAGS like in the Tk configure, as neither TkAqua nor TkX11 can be built for 64-bit at present. 2006-03-28 Jeff Hobbs * tcl.m4: []-quote AC_DEFUN functions. (TEA_PATH_TKCONFIG): Fixed Windows-specific check for tkConfig.sh. (TEA_MAKE_LIB): Prepend 'lib' for Windows-gcc configs. 2006-03-07 Joe English * tcl.m4: Set SHLIB_LD_FLAGS='${LIBS}' on NetBSD, as per the other *BSD variants [Bug 1334613]. 2006-01-25 Jeff Hobbs *** Bump to TEA version 3.5 *** * tcl.m4: keep LD_SEARCH_FLAGS and CC_SEARCH_FLAGS synchronous with core tcl.m4 meaning. 2006-01-24 Daniel Steffen * tcl.m4 (Darwin): use makefile variable LDFLAGS_DEFAULT instead of LDFLAGS in SHLIB_LD, to ensure linker flags in sampleextension Makefile are picked up. [Bug 1403343] 2006-01-23 Jeff Hobbs * tcl.m4: add C:/Tcl/lib and C:/Progra~1/Tcl/lib dirs to check for *Config.sh on Windows. [Bug 1407544] 2006-01-23 Daniel Steffen * tcl.m4 (Darwin): for Tk extensions, remove -arch ppc64 from CFLAGS like in the Tk configure, as neither TkAqua nor TkX11 can be built for 64bit at present (no 64bit GUI libraries). 2006-01-22 Jeff Hobbs * tcl.m4: restore system=windows on Windows. Remove error if 'ar' isn't found (it may not be on Windows). Do not add -lxnet or define _XOPEN_SOURCE on HP-UX by default. Ensure the C|LDFLAGS_DEFAULT gets the fully sub'd value at configure time. 2006-01-10 Daniel Steffen * tcl.m4: add caching, use AC_CACHE_CHECK instead of AC_CACHE_VAL where possible, consistent message quoting, sync relevant tcl/unix/tcl.m4 HEAD changes and gratuitous formatting differences (notably sunc removal of support for for ancient BSD's, IRIX 4, RISCos and Ultrix by kennykb), Darwin improvements to TEA_LOAD_*CONFIG to make linking work against Tcl/Tk frameworks installed in arbitrary location, change TEA_PROG_* search order (look in *_BIN_DIR parents before *_PREFIX). 2006-01-05 Jeff Hobbs * tcl.m4: add dkf's system config refactor 2006-01-04 Jeff Hobbs * tcl.m4: remove extraneous ' that causes bash 3.1 to choke 2005-12-19 Joe English * tcl.m4 (TEA_PATH_TCLCONFIG &c): Look for tclConfig.sh &c in ${libdir}, where they are installed by default [Patch #1377407]. 2005-12-05 Don Porter * tcl.m4 (TEA_PUBLIC_*_HEADERS): Better support for finding header files for uninstalled Tcl and Tk. 2005-12-02 Jeff Hobbs * tcl.m4: correctly bump TEA_VERSION var to 3.4 2005-12-01 Daniel Steffen * unix/tcl.m4 (Darwin): fixed error when MACOSX_DEPLOYMENT_TARGET unset 2005-11-29 Jeff Hobbs * tcl.m4: *** Bump to TEA version 3.4 *** Add Windows x64 build support. Remove TEA_PATH_NOSPACE and handle the problem with ""s where necessary - the macro relied on TCLSH_PROG which didn't work for cross-compiles. 2005-11-27 Daniel Steffen * tcl.m4 (Darwin): add 64bit support, add CFLAGS to SHLIB_LD to support passing -isysroot in env(CFLAGS) to configure (flag can't be present twice, so can't be in both CFLAGS and LDFLAGS during configure), don't use -prebind when deploying on 10.4. (TEA_ENABLE_LANGINFO, TEA_TIME_HANDLER): add/fix caching. 2005-10-30 Daniel Steffen * tcl.m4: fixed two tests for TEA_WINDOWINGSYSTEM = "aqua" that should have been for `uname -s` = "Darwin" instead; added some missing quoting. (TEA_PROG_TCLSH, TEA_PROG_WISH): fix incorrect assumption that install location of tclConfig.sh/tkConfig.sh allows to determine the tclsh/wish install dir via ../bin. Indeed tcl/tk can be configured with arbitrary --libdir and --bindir (independent of prefix) and such a configuration is in fact standard with Darwin framework builds. At least now also check ${TCL_PREFIX}/bin resp. ${TK_PREFIX}/bin for presence of tclsh resp. wish (if tcl/tk have been configured with arbitrary --bindir, this will still not find them, for a general solution *Config.sh would need to contain the values of bindir/libdir/includedir passed to configure). 2005-10-07 Jeff Hobbs * tcl.m4: Fix Solaris 5.10 check and Solaris AMD64 64-bit builds. 2005-10-04 Jeff Hobbs * tcl.m4 (TEA_PRIVATE_TCL_HEADERS): add / to finish sed macro (TEA_ENABLE_THREADS): don't check for pthread_attr_setstacksize func 2005-09-13 Jeff Hobbs * tcl.m4: *** Update to TEA version 3.3 *** define TEA_WINDOWINGSYSTEM in TEA_LOAD_TKCONFIG. Make --enable-threads the default (users can --disable-threads). Improve AIX ${CC}_r fix to better check existing ${CC} value. Do the appropriate evals to not require the *TOP_DIR_NATIVE vars be set for extensions that use private headers. Make aqua check for Xlib compat headers the same as win32. 2005-07-26 Mo DeJong * tcl.m4 (TEA_PROG_TCLSH, TEA_BUILD_TCLSH, TEA_PROG_WISH, TEA_BUILD_WISH): Remove TEA_BUILD_TCLSH and TEA_BUILD_WISH because of complaints that it broke the build when only an installed version of Tcl was available at extension build time. The TEA_PROG_TCLSH and TEA_PROG_WISH macros will no longer search the path at all. The build tclsh or installed tclsh shell will now be found by TEA_PROG_TCLSH. 2005-07-24 Mo DeJong * tcl.m4 (TEA_PROG_TCLSH, TEA_BUILD_TCLSH, TEA_PROG_WISH, TEA_BUILD_WISH): Split confused search for tclsh on PATH and build and install locations into two macros. TEA_PROG_TCLSH and TEA_PROG_WISH search the system PATH for an installed tclsh or wish. The TEA_BUILD_TCLSH and TEA_BUILD_WISH macros determine the name of tclsh or wish in the Tcl or Tk build directory even if tclsh or wish has not yet been built. [Tcl bug 1160114] [Tcl patch 1244153] 2005-06-23 Daniel Steffen * tcl.m4 (TEA_PRIVATE_TK_HEADERS): add ${TK_SRC_DIR}/macosx to TK_INCLUDES when building against TkAqua. * tcl.m4 (TEA_PATH_X): fixed missing comma in AC_DEFINE * tcl.m4: changes to better support framework builds of Tcl and Tk out of the box: search framework install locations for *Config.sh, and if in presence of a framework build, use the framework's Headers and PrivateHeaders directories for public and private includes. [FR 947735] 2005-06-18 Daniel Steffen * tcl.m4 (Darwin): add -headerpad_max_install_names to LDFLAGS to ensure we can always relocate binaries with install_name_tool. 2005-06-04 Daniel Steffen * tcl.m4 (TEA_PATH_X): for TEA_WINDOWINGSYSTEM == aqua, check if xlib compat headers are available in tkheaders location, otherwise add xlib sourcedir to TK_XINCLUDES. 2005-04-25 Daniel Steffen * tcl.m4: added AC_DEFINE* descriptions (from core tcl.m4) to allow use with autoheader. (Darwin): added configure checks for recently added linker flags -single_module and -search_paths_first to allow building with older tools (and on Mac OS X 10.1), use -single_module in SHLIB_LD. (TEA_MISSING_POSIX_HEADERS): added caching of dirent.h check. (TEA_BUGGY_STRTOD): added caching (sync with core tcl.m4). 2005-03-24 Jeff Hobbs * tcl.m4 (TEA_TCL_64BIT_FLAGS): use Tcl header defaults for wide int type only on Windows when __int64 is detected as valid. 2005-03-24 Don Porter * README.txt: Update reference to "SC_* macros" to "TEA_* macros". * tcl.m4: Incorporated recent improvements in SC_PATH_TCLCONFIG and SC_PATH_TKCONFIG into TEA_PATH_TCLCONFIG and TEA_PATH_TKCONFIG. Corrected search path in TEA_PATH_CONFIG and added AC_SUBST($1_BIN_DIR) to TEA_LOAD_CONFIG so that packages that load the configuration of another package can know where they loaded it from. 2005-03-18 Jeff Hobbs * tcl.m4 (TEA_CONFIG_CFLAGS): correct 2005-03-17 change to have variant LD_SEARCH_FLAGS for gcc and cc builds. * tcl.m4 (TEA_PROG_TCLSH, TEA_PROG_WISH): correct x-compile check. 2005-03-17 Jeff Hobbs * tcl.m4: Correct gcc build and HP-UX-11. 2005-02-08 Jeff Hobbs * tcl.m4 (TEA_ADD_LIBS): don't touch lib args starting with -. (TEA_CONFIG_CFLAGS): only define _DLL for CE in shared build. (TEA_MAKE_LIB): set RANLIB* to : on Windows (it's not needed). 2005-02-01 Jeff Hobbs * tcl.m4: redo of 2005-01-27 changes to correctly handle paths with spaces. Win/CE and Win/64 builds now require a prebuilt tclsh to handle conversion to short pathnames. This is done in the new TEA_PATH_NOSPACE macro. For Win/CE|64, make CC just the compiler and move the necessary includes to CFLAGS. (TEA_CONFIG_CFLAGS): Add Solaris 64-bit gcc build support. (TEA_PROG_TCLSH, TEA_PROG_WISH): Allow TCLSH_PROG and WISH_PROG to be set in the env and prevent resetting. (TEA_ADD_LIBS): On Windows using GCC (mingw), convert foo.lib args to -lfoo, for use with mingw. *** POTENTIAL INCOMPATABILITY *** (TEA_CONFIG_CFLAGS): Fix AIX gcc builds to work out-of-box. Bumped TEA to 3.2. 2005-01-27 Jeff Hobbs * tcl.m4: remove cygpath calls to support msys. Update base CE build assumption to "420,ARMV4,ARM,Pocket PC 2003". Make STLIB_LD use $LINKBIN -lib. 2005-01-25 Daniel Steffen * tcl.m4 (Darwin): fixed bug with static build linking to dynamic library in /usr/lib etc instead of linking to static library earlier in search path. [Tcl Bug 956908] Removed obsolete references to Rhapsody. 2004-12-29 Jeff Hobbs * tcl.m4: Updates for VC7 compatibility, fixing CFLAGS and LDFLAGS options, using better default -O levels. [Bug 1092952, 1091967] 2004-12-29 Joe English * tcl.m4: Do not use ${DBGX} suffix when building shared libraries [patch #1081595, TIP #34] 2004-09-07 Jeff Hobbs * tcl.m4 (TEA_CONFIG_CFLAGS): support eVC4 Win/CE builds 2004-08-10 Jeff Hobbs * tcl.m4 (TEA_INIT, TEA_PREFIX): update handling of exec_prefix to work around subdir configures since autoconf only propagates the prefix (not exec_prefix). 2004-07-23 Daniel Steffen * tcl.m4 (TEA_CONFIG_CFLAGS): Darwin section: brought inline with Tcl 8.5 HEAD config, removed core specific & obsolete settings. 2004-07-22 Jeff Hobbs * tcl.m4 (TEA_PATH_X): check in TK_DEFS for MAC_OSX_TK to see if we are compiling on Aqua. Add TEA_WINDOWINGSYSTEM var that reflects 'tk windowingsystem' value. 2004-07-16 Jeff Hobbs * tcl.m4 (TEA_ENABLE_THREADS): force a threaded build when building against a threaded core. (CFLAGS_WARNING): Remove -Wconversion for gcc builds (TEA_CONFIG_CFLAGS): Reorder configure.in for better 64-bit build configuration, replacing EXTRA_CFLAGS with CFLAGS. [Bug #874058] Update to latest Tcl 8.5 head config settings. Call this TEA version 3.1. 2004-04-29 Jeff Hobbs * tcl.m4 (TEA_TCL_64BIT_FLAGS): replace AC_TRY_RUN test with AC_TRY_COMPILE for the long vs. long long check. (kenny) 2004-04-26 Jeff Hobbs * tcl.m4 (TEA_TCL_64BIT_FLAGS): update against core tcl.m4 to define TCL_WIDE_INT_IS_LONG if 'using long'. 2004-03-19 Jeff Hobbs * tcl.m4: correct Windows builds getting LDFLAGS info in MAKE_LIB 2004-02-11 Jeff Hobbs * tcl.m4: correct TCL_INCLUDES for private headers on Windows - it doesn't need the eval. 2004-02-10 Jeff Hobbs * tcl.m4: don't require TK_INCLUDES and TCL_INCLUDES to have the DIR_NATIVE vars defined when using private headers on unix. Allow $... to TEA_ADD_SOURCES for constructs like TEA_ADD_SOURCES([\$(WIN_OBJECTS)]), that allow the developer to place more in the Makefile.in. tkUnixPort.h checks for HAVE_LIMITS_H, so do both HAVE and CHECK on limits.h 2003-12-10 Jeff Hobbs * Makefile.in: added TEA_ADD_LIBS, TEA_ADD_INCLUDES and * configure: TEA_ADD_CFLAGS to configurable parameters with * configure.in: PKG_* equivs in the Makefile. This allows the * tclconfig/tcl.m4: user to worry less about actual magic VAR names. Corrected Makefile.in to note that TEA_ADD_TCL_SOURCES requires exact file names. 2003-12-09 Jeff Hobbs * tcl.m4: updated OpenBSD support based on [Patch #775246] (cassoff) 2003-12-05 Jeff Hobbs * configure: * configure.in: * Makefile.in (VPATH): readd $(srcdir) to front of VPATH as the first part of VPATH can get chopped off. Change .c.$(OBJEXT) rule to .c.@OBJEXT@ to support more makes. * tclconfig/tcl.m4: add TEA_ADD_STUB_SOURCES to support libstub generation and TEA_ADD_TCL_SOURCES to replace RUNTIME_SOURCES as the way the user specifies library files. 2003-12-03 Jeff Hobbs * configure: Update of TEA spec to (hopefully) simplify * configure.in: some aspects of TEA by making use of more * Makefile.in: AC 2.5x features. Use PACKAGE_NAME (instead * generic/tclsample.c: of PACKAGE) and PACKAGE_VERSION (instead of * tclconfig/tcl.m4: VERSION) arguments to AC_INIT as the TEA package name and version. Provide a version argument to TEA_INIT - starting with 3.0. Drop all use of interior shell substs that older makefiles didn't like. Use PKG_* naming convention instead. Move specification of source files and public headers into configure.in with TEA_ADD_SOURCES and TEA_ADD_HEADERS. These will be munged during ./configure into the right obj file names (no $(SOURCES:.c=.obj) needed). There is almost nothing that should be touched in Makefile.in now for the developer. May want to add a TEA_ADD_TCL_SOURCES for the RUNTIME_SOURCES that remains. Use SHLID_LD_FLAGS (instead of SHLID_LDFLAGS) as Tcl does. Only specify the user requested LDFLAGS/CFLAGS in the Makefile, don't mention the _OPTIMIZE/_DEBUG variants. 2003-10-15 Jeff Hobbs * tcl.m4: create a TEA_SETUP_COMPILER_CC the precedes the TEA_SETUP_COMPILER macro. They are split so the check for CC occurs before any use of CC. Also add AC_PROG_CPP to the compiler checks. 2003-10-06 Jeff Hobbs * tcl.m4: Updated for autoconf 2.5x prereq. Where TCL_WIDE_INT_TYPE would be __int64, defer to the code checks in tcl.h, which also handles TCL_LL_MODIFIER* properly. 2003-04-22 Jeff Hobbs * tcl.m4: correct default setting of ARCH for WinCE builds. Correct \ escaping for CE sed macros. 2003-04-10 Jeff Hobbs * tcl.m4: replace $(syscal) construct with older `syscall` for systems where sh != bash. 2003-04-09 Jeff Hobbs * tcl.m4 (TEA_WITH_CELIB): add --enable-wince and --with-celib options for Windows/CE compilation support. Requires the Microsoft eMbedded SDK and Keuchel's celib emulation layer. 2003-02-18 Jeff Hobbs * tcl.m4 (TEA_ENABLE_THREADS): Make sure -lpthread gets passed on the link line when checking for the pthread_attr_setstacksize symbol. (dejong) * tcl.m4 (TEA_SETUP_COMPILER): added default calls to TEA_TCL_EARLY_FLAGS, TEA_TCL_64BIT_FLAGS, TEA_MISSING_POSIX_HEADERS and TEA_BUGGY_STRTOD. 2003-02-14 Jeff Hobbs * tcl.m4: correct HP-UX ia64 --enable-64bit build flags 2003-01-29 Jeff Hobbs * tcl.m4: check $prefix/lib as well as $exec_prefix/lib when looking for tcl|tkConfig.sh, as this check is done before we would set exec_prefix when the user does not define it. 2003-01-21 Mo DeJong * tcl.m4 (TEA_CONFIG_CFLAGS): Fix build support for mingw, the previous implementation would use VC++ when compiling with mingw gcc. Don't pass -fPIC since gcc always compiles pic code under win32. Change some hard coded cases of gcc to ${CC}. 2002-10-15 Jeff Hobbs * tcl.m4: move the CFLAGS definition from TEA_ENABLE_SHARED to TEA_MAKE_LIB because setting too early confuses other AC_* macros. Correct the HP-11 SHLIB_LD_LIBS setting. * tcl.m4: add the CFLAGS definition into TEA_ENABLE_SHARED and make it pick up the env CFLAGS at configure time. 2002-10-09 Jeff Hobbs * tcl.m4: add --enable-symbols=mem option to enable TCL_MEM_DEBUG. Improved AIX 64-bit build support, allow it on AIX-4 as well. Enable 64-bit HP-11 compilation with gcc. Enable 64-bit IRIX64-6 cc build support. Correct FreeBSD thread library linkage. Add OSF1 static build support. Improve SunOS-5 shared build SHLIB_LD macro. 2002-07-20 Zoran Vasiljevic * tcl.m4: Added MINGW32 to list of systems checked for Windows build. Also, fixes some indentation issues with "--with-XXX" options. 2002-04-23 Jeff Hobbs * tcl.m4 (TEA_ENABLE_THREADS): added USE_THREAD_ALLOC define to use new threaded allocatory by default on Unix for Tcl 8.4. (TEA_CONFIG_CFLAGS): corrected LD_SEARCH_FLAGS for FreeBSD-3+. 2002-04-22 Jeff Hobbs * tcl.m4 (TEA_SETUP_COMPILER): removed call to AC_CYGWIN so that we can use autoconf 2.5x as well as 2.13. This prevents us from being able to warn against the use of cygwin gcc at configure time, but allows autoconf 2.5x, which is what is shipped with most newer systems. 2002-04-11 Jeff Hobbs * tcl.m4: Enabled COFF as well as CV style debug info with --enable-symbols to allow Dr. Watson users to see function info. More info on debugging levels can be obtained at: http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp 2002-04-03 Jeff Hobbs * tcl.m4: change all SC_* macros to TEA_*. The SC_ was for Scriptics, which is no more. TEA represents a better, independent prefix that won't need changing. Added preliminary mingw gcc support. [Patch #538772] Added TEA_PREFIX macro that handles defaulting the prefix and exec_prefix vars to those used by Tcl if none were specified. Added TEA_SETUP_COMPILER macro that encompasses the AC_PROG_CC check and several other basic AC_PROG checks needed for making executables. This greatly simplifies user's configure.in files. Collapsed AIX-5 defines into AIX-* with extra checks for doing the ELF stuff on AIX-5-ia64. Updated TEA_ENABLE_THREADS to take an optional arg to allow switching it on by default (for Thread) and add sanity checking to warn the user if configuring threads incompatibly. 2002-03-29 Jeff Hobbs * tcl.m4: made sure that SHLIB_LDFLAGS was set to LDFLAGS_DEFAULT. Removed --enable-64bit support for AIX-4 because it wasn't correct. Added -MT or -MD Windows linker switches to properly support symbols-enabled builds. 2002-03-28 Jeff Hobbs * tcl.m4: called AC_MSG_ERROR when SC_TEA_INIT wasn't called first instead of calling it as that inlines it each time in shell code. Changed Windows CFLAGS_OPTIMIZE to use -O2 instead of -Oti. Noted TCL_LIB_VERSIONS_OK=nodots for Windows builds. A few changes to support itcl (and perhaps others): Added support for making your own stub libraries to SC_MAKE_LIB. New SC_PATH_CONFIG and SC_LOAD_CONFIG that take a package name arg and find that ${pkg}Config.sh file. itk uses this for itcl. 2002-03-27 Jeff Hobbs * tcl.m4: made SC_LOAD_TKCONFIG recognize when working with a Tk build dir setup. Added EXTRA_CFLAGS and SHLIB_LD_LIBS substs to SC_CONFIG_CFLAGS. Added XLIBSW onto LIBS when it is defined. Remove TCL_LIBS from MAKE_LIB and correctly use SHLIB_LD_LIBS instead to not rely as much on tclConfig.sh cached info. Add TK_BIN_DIR to paths to find wish in SC_PROG_WISH. These move towards making TEA much more independent of *Config.sh. 2002-03-19 Jeff Hobbs * tcl.m4: corrected forgotten (UN)SHARED_LIB_SUFFIX and SHLIB_SUFFIX defines for Win. (SC_PATH_X): made this only do the check on unix platforms. 2002-03-12 Jeff Hobbs * README.txt: updated to reflect fewer files 2002-03-06 Jeff Hobbs * config.guess (removed): * config.sub (removed): removed unnecessary files * installFile.tcl (removed): * mkinstalldirs (removed): these aren't really necessary for making TEA work * tcl.m4 (SC_PUBLIC_TCL_HEADERS, SC_PUBLIC_TK_HEADERS): don't check /usr(/local)/include for includes on Windows when not using gcc 2002-03-05 Jeff Hobbs * tcl.m4: added warnings on Windows, removed RELPATH define and added TCL_LIBS to MAKE_LIB macro. This import represents 2.0.0, or a new start at attempting to make TEA much easier for C extension developers. **** moved from tclpro project to core tcl project, **** **** renamed to 'tclconfig' **** 2001-03-15 Karl Lehenbauer * installFile.tcl: Added updating of the modification time of the target file whether we overwrote it or decided that it hadn't changed. This was necessary for us to be able to determine whether or not a module install touched the file. 2001-03-08 Karl Lehenbauer * installFile.tcl: Added support for converting new-style (1.1+) Cygnus drive paths to Tcl-style. 2001-01-15 * tcl.m4: Added FreeBSD clause. 2001-01-03 * tcl.m4: Fixed typo in SC_LIB_SPEC where it is checking for exec-prefix. 2000-12-01 * tcl.m4: Concatenated most of the Ajuba acsite.m4 file so we don't need to modify the autoconf installation. * config.guess: * config.sub: * installFile.tcl: Added files from the itcl config subdirectory, which should go away. 2000-7-29 * Fixed the use of TCL_SRC_DIR and TK_SRC_DIR within TCL_PRIVATE_INCLUDES and TK_PRIVATE_INCLUDES to match their recent change from $(srcdir) to $(srcdir)/.. tkcon-2.7.3/tclconfig/README.txt000066400000000000000000000014541357645571500163350ustar00rootroot00000000000000These 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 TEA_* macros. tkcon-2.7.3/tclconfig/install-sh000077500000000000000000000330541357645571500166440ustar00rootroot00000000000000#!/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: tkcon-2.7.3/tclconfig/tcl.m4000066400000000000000000004110661357645571500156670ustar00rootroot00000000000000# tcl.m4 -- # # This file provides a set of autoconf macros to help TEA-enable # a Tcl extension. # # Copyright (c) 1999-2000 Ajuba Solutions. # Copyright (c) 2002-2005 ActiveState Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. AC_PREREQ(2.57) # Possible values for key variables defined: # # TEA_WINDOWINGSYSTEM - win32 aqua x11 (mirrors 'tk windowingsystem') # TEA_PLATFORM - windows unix # TEA_TK_EXTENSION - True if this is a Tk extension # #------------------------------------------------------------------------ # TEA_PATH_TCLCONFIG -- # # Locate the tclConfig.sh file and perform a sanity check on # the Tcl compile flags # # Arguments: # none # # Results: # # Adds the following arguments to configure: # --with-tcl=... # # Defines the following vars: # TCL_BIN_DIR Full path to the directory containing # the tclConfig.sh file #------------------------------------------------------------------------ AC_DEFUN([TEA_PATH_TCLCONFIG], [ dnl TEA specific: Make sure we are initialized AC_REQUIRE([TEA_INIT]) # # Ok, lets find the tcl configuration # First, look for one uninstalled. # the alternative search directory is invoked by --with-tcl # if test x"${no_tcl}" = x ; then # we reset no_tcl in case something fails here no_tcl=true AC_ARG_WITH(tcl, AC_HELP_STRING([--with-tcl], [directory containing tcl configuration (tclConfig.sh)]), with_tclconfig="${withval}") AC_MSG_CHECKING([for Tcl configuration]) AC_CACHE_VAL(ac_cv_c_tclconfig,[ # First check to see if --with-tcl was specified. if test x"${with_tclconfig}" != x ; then case "${with_tclconfig}" in */tclConfig.sh ) if test -f "${with_tclconfig}"; then AC_MSG_WARN([--with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself]) with_tclconfig="`echo "${with_tclconfig}" | sed 's!/tclConfig\.sh$!!'`" fi ;; esac if test -f "${with_tclconfig}/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd "${with_tclconfig}"; pwd)`" else AC_MSG_ERROR([${with_tclconfig} directory doesn't contain tclConfig.sh]) fi fi # then check for a private Tcl installation if test x"${ac_cv_c_tclconfig}" = x ; then for i in \ ../tcl \ `ls -dr ../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ../tcl[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../tcl[[8-9]].[[0-9]]* 2>/dev/null` \ ../../tcl \ `ls -dr ../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ../../tcl[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../../tcl[[8-9]].[[0-9]]* 2>/dev/null` \ ../../../tcl \ `ls -dr ../../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ../../../tcl[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../../../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/unix; pwd)`" break fi done fi # on Darwin, check in Framework installation locations if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tclconfig}" = x ; then for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ `ls -d /Library/Frameworks 2>/dev/null` \ `ls -d /Network/Library/Frameworks 2>/dev/null` \ `ls -d /System/Library/Frameworks 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \ ; do if test -f "$i/Tcl.framework/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/Tcl.framework; pwd)`" break fi done fi # TEA specific: on Windows, check in common installation locations if test "${TEA_PLATFORM}" = "windows" \ -a x"${ac_cv_c_tclconfig}" = x ; then for i in `ls -d C:/Tcl/lib 2>/dev/null` \ `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ ; do if test -f "$i/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i; pwd)`" break fi done fi # check in a few common install locations if test x"${ac_cv_c_tclconfig}" = x ; then for i in `ls -d ${libdir} 2>/dev/null` \ `ls -d ${exec_prefix}/lib 2>/dev/null` \ `ls -d ${prefix}/lib 2>/dev/null` \ `ls -d /usr/local/lib 2>/dev/null` \ `ls -d /usr/contrib/lib 2>/dev/null` \ `ls -d /usr/pkg/lib 2>/dev/null` \ `ls -d /usr/lib 2>/dev/null` \ `ls -d /usr/lib64 2>/dev/null` \ `ls -d /usr/lib/tcl8.6 2>/dev/null` \ `ls -d /usr/lib/tcl8.5 2>/dev/null` \ `ls -d /usr/local/lib/tcl8.6 2>/dev/null` \ `ls -d /usr/local/lib/tcl8.5 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tcl8.6 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tcl8.5 2>/dev/null` \ ; do if test -f "$i/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i; pwd)`" break fi done fi # check in a few other private locations if test x"${ac_cv_c_tclconfig}" = x ; then for i in \ ${srcdir}/../tcl \ `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tclConfig.sh" ; then ac_cv_c_tclconfig="`(cd $i/unix; pwd)`" break fi done fi ]) if test x"${ac_cv_c_tclconfig}" = x ; then TCL_BIN_DIR="# no Tcl configs found" AC_MSG_ERROR([Can't find Tcl configuration definitions. Use --with-tcl to specify a directory containing tclConfig.sh]) else no_tcl= TCL_BIN_DIR="${ac_cv_c_tclconfig}" AC_MSG_RESULT([found ${TCL_BIN_DIR}/tclConfig.sh]) fi fi ]) #------------------------------------------------------------------------ # TEA_PATH_TKCONFIG -- # # Locate the tkConfig.sh file # # Arguments: # none # # Results: # # Adds the following arguments to configure: # --with-tk=... # # Defines the following vars: # TK_BIN_DIR Full path to the directory containing # the tkConfig.sh file #------------------------------------------------------------------------ AC_DEFUN([TEA_PATH_TKCONFIG], [ # # Ok, lets find the tk configuration # First, look for one uninstalled. # the alternative search directory is invoked by --with-tk # if test x"${no_tk}" = x ; then # we reset no_tk in case something fails here no_tk=true AC_ARG_WITH(tk, AC_HELP_STRING([--with-tk], [directory containing tk configuration (tkConfig.sh)]), with_tkconfig="${withval}") AC_MSG_CHECKING([for Tk configuration]) AC_CACHE_VAL(ac_cv_c_tkconfig,[ # First check to see if --with-tkconfig was specified. if test x"${with_tkconfig}" != x ; then case "${with_tkconfig}" in */tkConfig.sh ) if test -f "${with_tkconfig}"; then AC_MSG_WARN([--with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself]) with_tkconfig="`echo "${with_tkconfig}" | sed 's!/tkConfig\.sh$!!'`" fi ;; esac if test -f "${with_tkconfig}/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd "${with_tkconfig}"; pwd)`" else AC_MSG_ERROR([${with_tkconfig} directory doesn't contain tkConfig.sh]) fi fi # then check for a private Tk library if test x"${ac_cv_c_tkconfig}" = x ; then for i in \ ../tk \ `ls -dr ../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ../tk[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../tk[[8-9]].[[0-9]]* 2>/dev/null` \ ../../tk \ `ls -dr ../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ../../tk[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../../tk[[8-9]].[[0-9]]* 2>/dev/null` \ ../../../tk \ `ls -dr ../../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ../../../tk[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../../../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/unix; pwd)`" break fi done fi # on Darwin, check in Framework installation locations if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tkconfig}" = x ; then for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ `ls -d /Library/Frameworks 2>/dev/null` \ `ls -d /Network/Library/Frameworks 2>/dev/null` \ `ls -d /System/Library/Frameworks 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \ `ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \ ; do if test -f "$i/Tk.framework/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/Tk.framework; pwd)`" break fi done fi # check in a few common install locations if test x"${ac_cv_c_tkconfig}" = x ; then for i in `ls -d ${libdir} 2>/dev/null` \ `ls -d ${exec_prefix}/lib 2>/dev/null` \ `ls -d ${prefix}/lib 2>/dev/null` \ `ls -d /usr/local/lib 2>/dev/null` \ `ls -d /usr/contrib/lib 2>/dev/null` \ `ls -d /usr/pkg/lib 2>/dev/null` \ `ls -d /usr/lib 2>/dev/null` \ `ls -d /usr/lib64 2>/dev/null` \ `ls -d /usr/lib/tk8.6 2>/dev/null` \ `ls -d /usr/lib/tk8.5 2>/dev/null` \ `ls -d /usr/local/lib/tk8.6 2>/dev/null` \ `ls -d /usr/local/lib/tk8.5 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tk8.6 2>/dev/null` \ `ls -d /usr/local/lib/tcl/tk8.5 2>/dev/null` \ ; do if test -f "$i/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i; pwd)`" break fi done fi # TEA specific: on Windows, check in common installation locations if test "${TEA_PLATFORM}" = "windows" \ -a x"${ac_cv_c_tkconfig}" = x ; then for i in `ls -d C:/Tcl/lib 2>/dev/null` \ `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ ; do if test -f "$i/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i; pwd)`" break fi done fi # check in a few other private locations if test x"${ac_cv_c_tkconfig}" = x ; then for i in \ ${srcdir}/../tk \ `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]] 2>/dev/null` \ `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do if test "${TEA_PLATFORM}" = "windows" \ -a -f "$i/win/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/win; pwd)`" break fi if test -f "$i/unix/tkConfig.sh" ; then ac_cv_c_tkconfig="`(cd $i/unix; pwd)`" break fi done fi ]) if test x"${ac_cv_c_tkconfig}" = x ; then TK_BIN_DIR="# no Tk configs found" AC_MSG_ERROR([Can't find Tk configuration definitions. Use --with-tk to specify a directory containing tkConfig.sh]) else no_tk= TK_BIN_DIR="${ac_cv_c_tkconfig}" AC_MSG_RESULT([found ${TK_BIN_DIR}/tkConfig.sh]) fi fi ]) #------------------------------------------------------------------------ # TEA_LOAD_TCLCONFIG -- # # Load the tclConfig.sh file # # Arguments: # # Requires the following vars to be set: # TCL_BIN_DIR # # Results: # # Substitutes the following vars: # TCL_BIN_DIR # TCL_SRC_DIR # TCL_LIB_FILE # TCL_ZIP_FILE # TCL_ZIPFS_SUPPORT #------------------------------------------------------------------------ AC_DEFUN([TEA_LOAD_TCLCONFIG], [ AC_MSG_CHECKING([for existence of ${TCL_BIN_DIR}/tclConfig.sh]) if test -f "${TCL_BIN_DIR}/tclConfig.sh" ; then AC_MSG_RESULT([loading]) . "${TCL_BIN_DIR}/tclConfig.sh" else AC_MSG_RESULT([could not find ${TCL_BIN_DIR}/tclConfig.sh]) fi # eval is required to do the TCL_DBGX substitution eval "TCL_LIB_FILE=\"${TCL_LIB_FILE}\"" eval "TCL_STUB_LIB_FILE=\"${TCL_STUB_LIB_FILE}\"" # If the TCL_BIN_DIR is the build directory (not the install directory), # then set the common variable name to the value of the build variables. # For example, the variable TCL_LIB_SPEC will be set to the value # of TCL_BUILD_LIB_SPEC. An extension should make use of TCL_LIB_SPEC # instead of TCL_BUILD_LIB_SPEC since it will work with both an # installed and uninstalled version of Tcl. if test -f "${TCL_BIN_DIR}/Makefile" ; then TCL_LIB_SPEC="${TCL_BUILD_LIB_SPEC}" TCL_STUB_LIB_SPEC="${TCL_BUILD_STUB_LIB_SPEC}" TCL_STUB_LIB_PATH="${TCL_BUILD_STUB_LIB_PATH}" elif test "`uname -s`" = "Darwin"; then # If Tcl was built as a framework, attempt to use the libraries # from the framework at the given location so that linking works # against Tcl.framework installed in an arbitrary location. case ${TCL_DEFS} in *TCL_FRAMEWORK*) if test -f "${TCL_BIN_DIR}/${TCL_LIB_FILE}"; then for i in "`cd "${TCL_BIN_DIR}"; pwd`" \ "`cd "${TCL_BIN_DIR}"/../..; pwd`"; do if test "`basename "$i"`" = "${TCL_LIB_FILE}.framework"; then TCL_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TCL_LIB_FILE}" break fi done fi if test -f "${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"; then TCL_STUB_LIB_SPEC="-L`echo "${TCL_BIN_DIR}" | sed -e 's/ /\\\\ /g'` ${TCL_STUB_LIB_FLAG}" TCL_STUB_LIB_PATH="${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}" fi ;; esac fi # eval is required to do the TCL_DBGX substitution eval "TCL_LIB_FLAG=\"${TCL_LIB_FLAG}\"" eval "TCL_LIB_SPEC=\"${TCL_LIB_SPEC}\"" eval "TCL_STUB_LIB_FLAG=\"${TCL_STUB_LIB_FLAG}\"" eval "TCL_STUB_LIB_SPEC=\"${TCL_STUB_LIB_SPEC}\"" AC_SUBST(TCL_VERSION) AC_SUBST(TCL_PATCH_LEVEL) AC_SUBST(TCL_BIN_DIR) AC_SUBST(TCL_SRC_DIR) AC_SUBST(TCL_LIB_FILE) AC_SUBST(TCL_LIB_FLAG) AC_SUBST(TCL_LIB_SPEC) AC_SUBST(TCL_STUB_LIB_FILE) AC_SUBST(TCL_STUB_LIB_FLAG) AC_SUBST(TCL_STUB_LIB_SPEC) AC_MSG_CHECKING([platform]) hold_cc=$CC; CC="$TCL_CC" AC_TRY_COMPILE(,[ #ifdef _WIN32 #error win32 #endif ], [ TEA_PLATFORM="unix" CYGPATH=echo ], [ TEA_PLATFORM="windows" AC_CHECK_PROG(CYGPATH, cygpath, cygpath -m, echo) ] ) CC=$hold_cc AC_MSG_RESULT($TEA_PLATFORM) # The BUILD_$pkg is to define the correct extern storage class # handling when making this package AC_DEFINE_UNQUOTED(BUILD_${PACKAGE_NAME}, [], [Building extension source?]) # Do this here as we have fully defined TEA_PLATFORM now if test "${TEA_PLATFORM}" = "windows" ; then EXEEXT=".exe" CLEANFILES="$CLEANFILES *.lib *.dll *.pdb *.exp" fi # TEA specific: AC_SUBST(CLEANFILES) AC_SUBST(TCL_LIBS) AC_SUBST(TCL_DEFS) AC_SUBST(TCL_EXTRA_CFLAGS) AC_SUBST(TCL_LD_FLAGS) AC_SUBST(TCL_SHLIB_LD_LIBS) ]) #------------------------------------------------------------------------ # TEA_LOAD_TKCONFIG -- # # Load the tkConfig.sh file # # Arguments: # # Requires the following vars to be set: # TK_BIN_DIR # # Results: # # Sets the following vars that should be in tkConfig.sh: # TK_BIN_DIR #------------------------------------------------------------------------ AC_DEFUN([TEA_LOAD_TKCONFIG], [ AC_MSG_CHECKING([for existence of ${TK_BIN_DIR}/tkConfig.sh]) if test -f "${TK_BIN_DIR}/tkConfig.sh" ; then AC_MSG_RESULT([loading]) . "${TK_BIN_DIR}/tkConfig.sh" else AC_MSG_RESULT([could not find ${TK_BIN_DIR}/tkConfig.sh]) fi # eval is required to do the TK_DBGX substitution eval "TK_LIB_FILE=\"${TK_LIB_FILE}\"" eval "TK_STUB_LIB_FILE=\"${TK_STUB_LIB_FILE}\"" # If the TK_BIN_DIR is the build directory (not the install directory), # then set the common variable name to the value of the build variables. # For example, the variable TK_LIB_SPEC will be set to the value # of TK_BUILD_LIB_SPEC. An extension should make use of TK_LIB_SPEC # instead of TK_BUILD_LIB_SPEC since it will work with both an # installed and uninstalled version of Tcl. if test -f "${TK_BIN_DIR}/Makefile" ; then TK_LIB_SPEC="${TK_BUILD_LIB_SPEC}" TK_STUB_LIB_SPEC="${TK_BUILD_STUB_LIB_SPEC}" TK_STUB_LIB_PATH="${TK_BUILD_STUB_LIB_PATH}" elif test "`uname -s`" = "Darwin"; then # If Tk was built as a framework, attempt to use the libraries # from the framework at the given location so that linking works # against Tk.framework installed in an arbitrary location. case ${TK_DEFS} in *TK_FRAMEWORK*) if test -f "${TK_BIN_DIR}/${TK_LIB_FILE}"; then for i in "`cd "${TK_BIN_DIR}"; pwd`" \ "`cd "${TK_BIN_DIR}"/../..; pwd`"; do if test "`basename "$i"`" = "${TK_LIB_FILE}.framework"; then TK_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TK_LIB_FILE}" break fi done fi if test -f "${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"; then TK_STUB_LIB_SPEC="-L` echo "${TK_BIN_DIR}" | sed -e 's/ /\\\\ /g'` ${TK_STUB_LIB_FLAG}" TK_STUB_LIB_PATH="${TK_BIN_DIR}/${TK_STUB_LIB_FILE}" fi ;; esac fi # eval is required to do the TK_DBGX substitution eval "TK_LIB_FLAG=\"${TK_LIB_FLAG}\"" eval "TK_LIB_SPEC=\"${TK_LIB_SPEC}\"" eval "TK_STUB_LIB_FLAG=\"${TK_STUB_LIB_FLAG}\"" eval "TK_STUB_LIB_SPEC=\"${TK_STUB_LIB_SPEC}\"" # TEA specific: Ensure windowingsystem is defined if test "${TEA_PLATFORM}" = "unix" ; then case ${TK_DEFS} in *MAC_OSX_TK*) AC_DEFINE(MAC_OSX_TK, 1, [Are we building against Mac OS X TkAqua?]) TEA_WINDOWINGSYSTEM="aqua" ;; *) TEA_WINDOWINGSYSTEM="x11" ;; esac elif test "${TEA_PLATFORM}" = "windows" ; then TEA_WINDOWINGSYSTEM="win32" fi AC_SUBST(TK_VERSION) AC_SUBST(TK_BIN_DIR) AC_SUBST(TK_SRC_DIR) AC_SUBST(TK_LIB_FILE) AC_SUBST(TK_LIB_FLAG) AC_SUBST(TK_LIB_SPEC) AC_SUBST(TK_STUB_LIB_FILE) AC_SUBST(TK_STUB_LIB_FLAG) AC_SUBST(TK_STUB_LIB_SPEC) # TEA specific: AC_SUBST(TK_LIBS) AC_SUBST(TK_XINCLUDES) ]) #------------------------------------------------------------------------ # TEA_PROG_TCLSH # Determine the fully qualified path name of the tclsh executable # in the Tcl build directory or the tclsh installed in a bin # directory. This macro will correctly determine the name # of the tclsh executable even if tclsh has not yet been # built in the build directory. The tclsh found is always # associated with a tclConfig.sh file. This tclsh should be used # only for running extension test cases. It should never be # or generation of files (like pkgIndex.tcl) at build time. # # Arguments: # none # # Results: # Substitutes the following vars: # TCLSH_PROG #------------------------------------------------------------------------ AC_DEFUN([TEA_PROG_TCLSH], [ AC_MSG_CHECKING([for tclsh]) if test -f "${TCL_BIN_DIR}/Makefile" ; then # tclConfig.sh is in Tcl build directory if test "${TEA_PLATFORM}" = "windows"; then if test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" ; then TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}s${EXEEXT}" ; then TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}s${EXEEXT}" elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}t${EXEEXT}" ; then TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}t${EXEEXT}" elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}st${EXEEXT}" ; then TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}st${EXEEXT}" fi else TCLSH_PROG="${TCL_BIN_DIR}/tclsh" fi else # tclConfig.sh is in install location if test "${TEA_PLATFORM}" = "windows"; then TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" else TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION}${TCL_DBGX}" fi list="`ls -d ${TCL_BIN_DIR}/../bin 2>/dev/null` \ `ls -d ${TCL_BIN_DIR}/.. 2>/dev/null` \ `ls -d ${TCL_PREFIX}/bin 2>/dev/null`" for i in $list ; do if test -f "$i/${TCLSH_PROG}" ; then REAL_TCL_BIN_DIR="`cd "$i"; pwd`/" break fi done TCLSH_PROG="${REAL_TCL_BIN_DIR}${TCLSH_PROG}" fi AC_MSG_RESULT([${TCLSH_PROG}]) AC_SUBST(TCLSH_PROG) ]) #------------------------------------------------------------------------ # TEA_PROG_WISH # Determine the fully qualified path name of the wish executable # in the Tk build directory or the wish installed in a bin # directory. This macro will correctly determine the name # of the wish executable even if wish has not yet been # built in the build directory. The wish found is always # associated with a tkConfig.sh file. This wish should be used # only for running extension test cases. It should never be # or generation of files (like pkgIndex.tcl) at build time. # # Arguments: # none # # Results: # Substitutes the following vars: # WISH_PROG #------------------------------------------------------------------------ AC_DEFUN([TEA_PROG_WISH], [ AC_MSG_CHECKING([for wish]) if test -f "${TK_BIN_DIR}/Makefile" ; then # tkConfig.sh is in Tk build directory if test "${TEA_PLATFORM}" = "windows"; then if test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}" ; then WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}" elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}s${EXEEXT}" ; then WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}$s{EXEEXT}" elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}t${EXEEXT}" ; then WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}t${EXEEXT}" elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}st${EXEEXT}" ; then WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}st${EXEEXT}" fi else WISH_PROG="${TK_BIN_DIR}/wish" fi else # tkConfig.sh is in install location if test "${TEA_PLATFORM}" = "windows"; then WISH_PROG="wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}" else WISH_PROG="wish${TK_MAJOR_VERSION}.${TK_MINOR_VERSION}${TK_DBGX}" fi list="`ls -d ${TK_BIN_DIR}/../bin 2>/dev/null` \ `ls -d ${TK_BIN_DIR}/.. 2>/dev/null` \ `ls -d ${TK_PREFIX}/bin 2>/dev/null`" for i in $list ; do if test -f "$i/${WISH_PROG}" ; then REAL_TK_BIN_DIR="`cd "$i"; pwd`/" break fi done WISH_PROG="${REAL_TK_BIN_DIR}${WISH_PROG}" fi AC_MSG_RESULT([${WISH_PROG}]) AC_SUBST(WISH_PROG) ]) #------------------------------------------------------------------------ # TEA_ENABLE_SHARED -- # # Allows the building of shared libraries # # Arguments: # none # # Results: # # Adds the following arguments to configure: # --enable-shared=yes|no # --enable-stubs=yes|no # # Defines the following vars: # STATIC_BUILD Used for building import/export libraries # on Windows. # # Sets the following vars: # SHARED_BUILD Value of 1 or 0 # STUBS_BUILD Value if 1 or 0 # USE_TCL_STUBS Value true: if SHARED_BUILD or --enable-stubs # USE_TCLOO_STUBS Value true: if SHARED_BUILD or --enable-stubs # USE_TK_STUBS Value true: if SHARED_BUILD or --enable-stubs # AND TEA_WINDOWING_SYSTEM != "" #------------------------------------------------------------------------ AC_DEFUN([TEA_ENABLE_SHARED], [ AC_MSG_CHECKING([how to build libraries]) AC_ARG_ENABLE(shared, AC_HELP_STRING([--enable-shared], [build and link with shared libraries (default: on)]), [shared_ok=$enableval], [shared_ok=yes]) if test "${enable_shared+set}" = set; then enableval="$enable_shared" shared_ok=$enableval else shared_ok=yes fi AC_ARG_ENABLE(stubs, AC_HELP_STRING([--enable-stubs], [build and link with stub libraries. Always true for shared builds (default: on)]), [stubs_ok=$enableval], [stubs_ok=yes]) if test "${enable_stubs+set}" = set; then enableval="$enable_stubs" stubs_ok=$enableval else stubs_ok=yes fi # Stubs are always enabled for shared builds if test "$shared_ok" = "yes" ; then AC_MSG_RESULT([shared]) SHARED_BUILD=1 STUBS_BUILD=1 else AC_MSG_RESULT([static]) SHARED_BUILD=0 AC_DEFINE(STATIC_BUILD, 1, [This a static build]) if test "$stubs_ok" = "yes" ; then STUBS_BUILD=1 else STUBS_BUILD=0 fi fi if test "${STUBS_BUILD}" = "1" ; then AC_DEFINE(USE_TCL_STUBS, 1, [Use Tcl stubs]) AC_DEFINE(USE_TCLOO_STUBS, 1, [Use TclOO stubs]) if test "${TEA_WINDOWINGSYSTEM}" != ""; then AC_DEFINE(USE_TK_STUBS, 1, [Use Tk stubs]) fi fi AC_SUBST(SHARED_BUILD) AC_SUBST(STUBS_BUILD) ]) #------------------------------------------------------------------------ # TEA_ENABLE_THREADS -- # # Specify if thread support should be enabled. If "yes" is specified # as an arg (optional), threads are enabled by default, "no" means # threads are disabled. "yes" is the default. # # TCL_THREADS is checked so that if you are compiling an extension # against a threaded core, your extension must be compiled threaded # as well. # # Note that it is legal to have a thread enabled extension run in a # threaded or non-threaded Tcl core, but a non-threaded extension may # only run in a non-threaded Tcl core. # # Arguments: # none # # Results: # # Adds the following arguments to configure: # --enable-threads # # Sets the following vars: # THREADS_LIBS Thread library(s) # # Defines the following vars: # TCL_THREADS # _REENTRANT # _THREAD_SAFE #------------------------------------------------------------------------ AC_DEFUN([TEA_ENABLE_THREADS], [ AC_ARG_ENABLE(threads, AC_HELP_STRING([--enable-threads], [build with threads (default: on)]), [tcl_ok=$enableval], [tcl_ok=yes]) if test "${enable_threads+set}" = set; then enableval="$enable_threads" tcl_ok=$enableval else tcl_ok=yes fi if test "$tcl_ok" = "yes" -o "${TCL_THREADS}" = 1; then TCL_THREADS=1 if test "${TEA_PLATFORM}" != "windows" ; then # We are always OK on Windows, so check what this platform wants: # USE_THREAD_ALLOC tells us to try the special thread-based # allocator that significantly reduces lock contention AC_DEFINE(USE_THREAD_ALLOC, 1, [Do we want to use the threaded memory allocator?]) AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?]) if test "`uname -s`" = "SunOS" ; then AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1, [Do we really want to follow the standard? Yes we do!]) fi AC_DEFINE(_THREAD_SAFE, 1, [Do we want the thread-safe OS API?]) AC_CHECK_LIB(pthread,pthread_mutex_init,tcl_ok=yes,tcl_ok=no) if test "$tcl_ok" = "no"; then # Check a little harder for __pthread_mutex_init in the same # library, as some systems hide it there until pthread.h is # defined. We could alternatively do an AC_TRY_COMPILE with # pthread.h, but that will work with libpthread really doesn't # exist, like AIX 4.2. [Bug: 4359] AC_CHECK_LIB(pthread, __pthread_mutex_init, tcl_ok=yes, tcl_ok=no) fi if test "$tcl_ok" = "yes"; then # The space is needed THREADS_LIBS=" -lpthread" else AC_CHECK_LIB(pthreads, pthread_mutex_init, tcl_ok=yes, tcl_ok=no) if test "$tcl_ok" = "yes"; then # The space is needed THREADS_LIBS=" -lpthreads" else AC_CHECK_LIB(c, pthread_mutex_init, tcl_ok=yes, tcl_ok=no) if test "$tcl_ok" = "no"; then AC_CHECK_LIB(c_r, pthread_mutex_init, tcl_ok=yes, tcl_ok=no) if test "$tcl_ok" = "yes"; then # The space is needed THREADS_LIBS=" -pthread" else TCL_THREADS=0 AC_MSG_WARN([Do not know how to find pthread lib on your system - thread support disabled]) fi fi fi fi fi else TCL_THREADS=0 fi # Do checking message here to not mess up interleaved configure output AC_MSG_CHECKING([for building with threads]) if test "${TCL_THREADS}" = 1; then AC_DEFINE(TCL_THREADS, 1, [Are we building with threads enabled?]) AC_MSG_RESULT([yes (default)]) else AC_MSG_RESULT([no]) fi # TCL_THREADS sanity checking. See if our request for building with # threads is the same as the way Tcl was built. If not, warn the user. case ${TCL_DEFS} in *THREADS=1*) if test "${TCL_THREADS}" = "0"; then AC_MSG_WARN([ Building ${PACKAGE_NAME} without threads enabled, but building against Tcl that IS thread-enabled. It is recommended to use --enable-threads.]) fi ;; esac AC_SUBST(TCL_THREADS) ]) #------------------------------------------------------------------------ # TEA_ENABLE_SYMBOLS -- # # Specify if debugging symbols should be used. # Memory (TCL_MEM_DEBUG) debugging can also be enabled. # # Arguments: # none # # TEA varies from core Tcl in that C|LDFLAGS_DEFAULT receives # the value of C|LDFLAGS_OPTIMIZE|DEBUG already substituted. # Requires the following vars to be set in the Makefile: # CFLAGS_DEFAULT # LDFLAGS_DEFAULT # # Results: # # Adds the following arguments to configure: # --enable-symbols # # Defines the following vars: # CFLAGS_DEFAULT Sets to $(CFLAGS_DEBUG) if true # Sets to "$(CFLAGS_OPTIMIZE) -DNDEBUG" if false # LDFLAGS_DEFAULT Sets to $(LDFLAGS_DEBUG) if true # Sets to $(LDFLAGS_OPTIMIZE) if false # DBGX Formerly used as debug library extension; # always blank now. #------------------------------------------------------------------------ AC_DEFUN([TEA_ENABLE_SYMBOLS], [ dnl TEA specific: Make sure we are initialized AC_REQUIRE([TEA_CONFIG_CFLAGS]) AC_MSG_CHECKING([for build with symbols]) AC_ARG_ENABLE(symbols, AC_HELP_STRING([--enable-symbols], [build with debugging symbols (default: off)]), [tcl_ok=$enableval], [tcl_ok=no]) DBGX="" if test "$tcl_ok" = "no"; then CFLAGS_DEFAULT="${CFLAGS_OPTIMIZE} -DNDEBUG" LDFLAGS_DEFAULT="${LDFLAGS_OPTIMIZE}" AC_MSG_RESULT([no]) else CFLAGS_DEFAULT="${CFLAGS_DEBUG}" LDFLAGS_DEFAULT="${LDFLAGS_DEBUG}" if test "$tcl_ok" = "yes"; then AC_MSG_RESULT([yes (standard debugging)]) fi fi # TEA specific: if test "${TEA_PLATFORM}" != "windows" ; then LDFLAGS_DEFAULT="${LDFLAGS}" fi AC_SUBST(CFLAGS_DEFAULT) AC_SUBST(LDFLAGS_DEFAULT) AC_SUBST(TCL_DBGX) if test "$tcl_ok" = "mem" -o "$tcl_ok" = "all"; then AC_DEFINE(TCL_MEM_DEBUG, 1, [Is memory debugging enabled?]) fi if test "$tcl_ok" != "yes" -a "$tcl_ok" != "no"; then if test "$tcl_ok" = "all"; then AC_MSG_RESULT([enabled symbols mem debugging]) else AC_MSG_RESULT([enabled $tcl_ok debugging]) fi fi ]) #------------------------------------------------------------------------ # TEA_ENABLE_LANGINFO -- # # Allows use of modern nl_langinfo check for better l10n. # This is only relevant for Unix. # # Arguments: # none # # Results: # # Adds the following arguments to configure: # --enable-langinfo=yes|no (default is yes) # # Defines the following vars: # HAVE_LANGINFO Triggers use of nl_langinfo if defined. #------------------------------------------------------------------------ AC_DEFUN([TEA_ENABLE_LANGINFO], [ AC_ARG_ENABLE(langinfo, AC_HELP_STRING([--enable-langinfo], [use nl_langinfo if possible to determine encoding at startup, otherwise use old heuristic (default: on)]), [langinfo_ok=$enableval], [langinfo_ok=yes]) HAVE_LANGINFO=0 if test "$langinfo_ok" = "yes"; then AC_CHECK_HEADER(langinfo.h,[langinfo_ok=yes],[langinfo_ok=no]) fi AC_MSG_CHECKING([whether to use nl_langinfo]) if test "$langinfo_ok" = "yes"; then AC_CACHE_VAL(tcl_cv_langinfo_h, [ AC_TRY_COMPILE([#include ], [nl_langinfo(CODESET);], [tcl_cv_langinfo_h=yes],[tcl_cv_langinfo_h=no])]) AC_MSG_RESULT([$tcl_cv_langinfo_h]) if test $tcl_cv_langinfo_h = yes; then AC_DEFINE(HAVE_LANGINFO, 1, [Do we have nl_langinfo()?]) fi else AC_MSG_RESULT([$langinfo_ok]) fi ]) #-------------------------------------------------------------------- # TEA_CONFIG_SYSTEM # # Determine what the system is (some things cannot be easily checked # on a feature-driven basis, alas). This can usually be done via the # "uname" command. # # Arguments: # none # # Results: # Defines the following var: # # system - System/platform/version identification code. #-------------------------------------------------------------------- AC_DEFUN([TEA_CONFIG_SYSTEM], [ AC_CACHE_CHECK([system version], tcl_cv_sys_version, [ # TEA specific: if test "${TEA_PLATFORM}" = "windows" ; then tcl_cv_sys_version=windows else tcl_cv_sys_version=`uname -s`-`uname -r` if test "$?" -ne 0 ; then AC_MSG_WARN([can't find uname command]) tcl_cv_sys_version=unknown else if test "`uname -s`" = "AIX" ; then tcl_cv_sys_version=AIX-`uname -v`.`uname -r` fi fi fi ]) system=$tcl_cv_sys_version ]) #-------------------------------------------------------------------- # TEA_CONFIG_CFLAGS # # Try to determine the proper flags to pass to the compiler # for building shared libraries and other such nonsense. # # Arguments: # none # # Results: # # Defines and substitutes the following vars: # # DL_OBJS, DL_LIBS - removed for TEA, only needed by core. # LDFLAGS - Flags to pass to the compiler when linking object # files into an executable application binary such # as tclsh. # LD_SEARCH_FLAGS-Flags to pass to ld, such as "-R /usr/local/tcl/lib", # that tell the run-time dynamic linker where to look # for shared libraries such as libtcl.so. Depends on # the variable LIB_RUNTIME_DIR in the Makefile. Could # be the same as CC_SEARCH_FLAGS if ${CC} is used to link. # CC_SEARCH_FLAGS-Flags to pass to ${CC}, such as "-Wl,-rpath,/usr/local/tcl/lib", # that tell the run-time dynamic linker where to look # for shared libraries such as libtcl.so. Depends on # the variable LIB_RUNTIME_DIR in the Makefile. # SHLIB_CFLAGS - Flags to pass to cc when compiling the components # of a shared library (may request position-independent # code, among other things). # SHLIB_LD - Base command to use for combining object files # into a shared library. # SHLIB_LD_LIBS - Dependent libraries for the linker to scan when # creating shared libraries. This symbol typically # goes at the end of the "ld" commands that build # shared libraries. The value of the symbol defaults to # "${LIBS}" if all of the dependent libraries should # be specified when creating a shared library. If # dependent libraries should not be specified (as on # SunOS 4.x, where they cause the link to fail, or in # general if Tcl and Tk aren't themselves shared # libraries), then this symbol has an empty string # as its value. # SHLIB_SUFFIX - Suffix to use for the names of dynamically loadable # extensions. An empty string means we don't know how # to use shared libraries on this platform. # LIB_SUFFIX - Specifies everything that comes after the "libfoo" # in a static or shared library name, using the $PACKAGE_VERSION variable # to put the version in the right place. This is used # by platforms that need non-standard library names. # Examples: ${PACKAGE_VERSION}.so.1.1 on NetBSD, since it needs # to have a version after the .so, and ${PACKAGE_VERSION}.a # on AIX, since a shared library needs to have # a .a extension whereas shared objects for loadable # extensions have a .so extension. Defaults to # ${PACKAGE_VERSION}${SHLIB_SUFFIX}. # CFLAGS_DEBUG - # Flags used when running the compiler in debug mode # CFLAGS_OPTIMIZE - # Flags used when running the compiler in optimize mode # CFLAGS - Additional CFLAGS added as necessary (usually 64-bit) #-------------------------------------------------------------------- AC_DEFUN([TEA_CONFIG_CFLAGS], [ dnl TEA specific: Make sure we are initialized AC_REQUIRE([TEA_INIT]) # Step 0.a: Enable 64 bit support? AC_MSG_CHECKING([if 64bit support is requested]) AC_ARG_ENABLE(64bit, AC_HELP_STRING([--enable-64bit], [enable 64bit support (default: off)]), [do64bit=$enableval], [do64bit=no]) AC_MSG_RESULT([$do64bit]) # Step 0.b: Enable Solaris 64 bit VIS support? AC_MSG_CHECKING([if 64bit Sparc VIS support is requested]) AC_ARG_ENABLE(64bit-vis, AC_HELP_STRING([--enable-64bit-vis], [enable 64bit Sparc VIS support (default: off)]), [do64bitVIS=$enableval], [do64bitVIS=no]) AC_MSG_RESULT([$do64bitVIS]) # Force 64bit on with VIS AS_IF([test "$do64bitVIS" = "yes"], [do64bit=yes]) # Step 0.c: Check if visibility support is available. Do this here so # that platform specific alternatives can be used below if this fails. AC_CACHE_CHECK([if compiler supports visibility "hidden"], tcl_cv_cc_visibility_hidden, [ hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -Werror" AC_TRY_LINK([ extern __attribute__((__visibility__("hidden"))) void f(void); void f(void) {}], [f();], tcl_cv_cc_visibility_hidden=yes, tcl_cv_cc_visibility_hidden=no) CFLAGS=$hold_cflags]) AS_IF([test $tcl_cv_cc_visibility_hidden = yes], [ AC_DEFINE(MODULE_SCOPE, [extern __attribute__((__visibility__("hidden")))], [Compiler support for module scope symbols]) AC_DEFINE(HAVE_HIDDEN, [1], [Compiler support for module scope symbols]) ]) # Step 0.d: Disable -rpath support? AC_MSG_CHECKING([if rpath support is requested]) AC_ARG_ENABLE(rpath, AC_HELP_STRING([--disable-rpath], [disable rpath support (default: on)]), [doRpath=$enableval], [doRpath=yes]) AC_MSG_RESULT([$doRpath]) # TEA specific: Cross-compiling options for Windows/CE builds? AS_IF([test "${TEA_PLATFORM}" = windows], [ AC_MSG_CHECKING([if Windows/CE build is requested]) AC_ARG_ENABLE(wince, AC_HELP_STRING([--enable-wince], [enable Win/CE support (where applicable)]), [doWince=$enableval], [doWince=no]) AC_MSG_RESULT([$doWince]) ]) # Set the variable "system" to hold the name and version number # for the system. TEA_CONFIG_SYSTEM # Require ranlib early so we can override it in special cases below. AC_REQUIRE([AC_PROG_RANLIB]) # Set configuration options based on system name and version. # This is similar to Tcl's unix/tcl.m4 except that we've added a # "windows" case and removed some core-only vars. do64bit_ok=no # default to '{$LIBS}' and set to "" on per-platform necessary basis SHLIB_LD_LIBS='${LIBS}' # When ld needs options to work in 64-bit mode, put them in # LDFLAGS_ARCH so they eventually end up in LDFLAGS even if [load] # is disabled by the user. [Bug 1016796] LDFLAGS_ARCH="" UNSHARED_LIB_SUFFIX="" # TEA specific: use PACKAGE_VERSION instead of VERSION TCL_TRIM_DOTS='`echo ${PACKAGE_VERSION} | tr -d .`' ECHO_VERSION='`echo ${PACKAGE_VERSION}`' TCL_LIB_VERSIONS_OK=ok CFLAGS_DEBUG=-g AS_IF([test "$GCC" = yes], [ CFLAGS_OPTIMIZE=-O2 CFLAGS_WARNING="-Wall" ], [ CFLAGS_OPTIMIZE=-O CFLAGS_WARNING="" ]) AC_CHECK_TOOL(AR, ar) STLIB_LD='${AR} cr' LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH" AS_IF([test "x$SHLIB_VERSION" = x],[SHLIB_VERSION=""],[SHLIB_VERSION=".$SHLIB_VERSION"]) case $system in # TEA specific: windows) # This is a 2-stage check to make sure we have the 64-bit SDK # We have to know where the SDK is installed. # This magic is based on MS Platform SDK for Win2003 SP1 - hobbs # MACHINE is IX86 for LINK, but this is used by the manifest, # which requires x86|amd64|ia64. MACHINE="X86" if test "$do64bit" != "no" ; then if test "x${MSSDK}x" = "xx" ; then MSSDK="C:/Progra~1/Microsoft Platform SDK" fi MSSDK=`echo "$MSSDK" | sed -e 's!\\\!/!g'` PATH64="" case "$do64bit" in amd64|x64|yes) MACHINE="AMD64" ; # default to AMD64 64-bit build PATH64="${MSSDK}/Bin/Win64/x86/AMD64" ;; ia64) MACHINE="IA64" PATH64="${MSSDK}/Bin/Win64" ;; esac if test "$GCC" != "yes" -a ! -d "${PATH64}" ; then AC_MSG_WARN([Could not find 64-bit $MACHINE SDK to enable 64bit mode]) AC_MSG_WARN([Ensure latest Platform SDK is installed]) do64bit="no" else AC_MSG_RESULT([ Using 64-bit $MACHINE mode]) do64bit_ok="yes" fi fi if test "$doWince" != "no" ; then if test "$do64bit" != "no" ; then AC_MSG_ERROR([Windows/CE and 64-bit builds incompatible]) fi if test "$GCC" = "yes" ; then AC_MSG_ERROR([Windows/CE and GCC builds incompatible]) fi TEA_PATH_CELIB # Set defaults for common evc4/PPC2003 setup # Currently Tcl requires 300+, possibly 420+ for sockets CEVERSION=420; # could be 211 300 301 400 420 ... TARGETCPU=ARMV4; # could be ARMV4 ARM MIPS SH3 X86 ... ARCH=ARM; # could be ARM MIPS X86EM ... PLATFORM="Pocket PC 2003"; # or "Pocket PC 2002" if test "$doWince" != "yes"; then # If !yes then the user specified something # Reset ARCH to allow user to skip specifying it ARCH= eval `echo $doWince | awk -F, '{ \ if (length([$]1)) { printf "CEVERSION=\"%s\"\n", [$]1; \ if ([$]1 < 400) { printf "PLATFORM=\"Pocket PC 2002\"\n" } }; \ if (length([$]2)) { printf "TARGETCPU=\"%s\"\n", toupper([$]2) }; \ if (length([$]3)) { printf "ARCH=\"%s\"\n", toupper([$]3) }; \ if (length([$]4)) { printf "PLATFORM=\"%s\"\n", [$]4 }; \ }'` if test "x${ARCH}" = "x" ; then ARCH=$TARGETCPU; fi fi OSVERSION=WCE$CEVERSION; if test "x${WCEROOT}" = "x" ; then WCEROOT="C:/Program Files/Microsoft eMbedded C++ 4.0" if test ! -d "${WCEROOT}" ; then WCEROOT="C:/Program Files/Microsoft eMbedded Tools" fi fi if test "x${SDKROOT}" = "x" ; then SDKROOT="C:/Program Files/Windows CE Tools" if test ! -d "${SDKROOT}" ; then SDKROOT="C:/Windows CE Tools" fi fi WCEROOT=`echo "$WCEROOT" | sed -e 's!\\\!/!g'` SDKROOT=`echo "$SDKROOT" | sed -e 's!\\\!/!g'` if test ! -d "${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" \ -o ! -d "${WCEROOT}/EVC/${OSVERSION}/bin"; then AC_MSG_ERROR([could not find PocketPC SDK or target compiler to enable WinCE mode [$CEVERSION,$TARGETCPU,$ARCH,$PLATFORM]]) doWince="no" else # We could PATH_NOSPACE these, but that's not important, # as long as we quote them when used. CEINCLUDE="${SDKROOT}/${OSVERSION}/${PLATFORM}/include" if test -d "${CEINCLUDE}/${TARGETCPU}" ; then CEINCLUDE="${CEINCLUDE}/${TARGETCPU}" fi CELIBPATH="${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" fi fi if test "$GCC" != "yes" ; then if test "${SHARED_BUILD}" = "0" ; then runtime=-MT else runtime=-MD fi case "x`echo \${VisualStudioVersion}`" in x1[[4-9]]*) lflags="${lflags} -nodefaultlib:libucrt.lib" TEA_ADD_LIBS([ucrt.lib]) ;; *) ;; esac if test "$do64bit" != "no" ; then # All this magic is necessary for the Win64 SDK RC1 - hobbs CC="\"${PATH64}/cl.exe\"" CFLAGS="${CFLAGS} -I\"${MSSDK}/Include\" -I\"${MSSDK}/Include/crt\" -I\"${MSSDK}/Include/crt/sys\"" RC="\"${MSSDK}/bin/rc.exe\"" lflags="${lflags} -nologo -MACHINE:${MACHINE} -LIBPATH:\"${MSSDK}/Lib/${MACHINE}\"" LINKBIN="\"${PATH64}/link.exe\"" CFLAGS_DEBUG="-nologo -Zi -Od -W3 ${runtime}d" CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}" # Avoid 'unresolved external symbol __security_cookie' # errors, c.f. http://support.microsoft.com/?id=894573 TEA_ADD_LIBS([bufferoverflowU.lib]) elif test "$doWince" != "no" ; then CEBINROOT="${WCEROOT}/EVC/${OSVERSION}/bin" if test "${TARGETCPU}" = "X86"; then CC="\"${CEBINROOT}/cl.exe\"" else CC="\"${CEBINROOT}/cl${ARCH}.exe\"" fi CFLAGS="$CFLAGS -I\"${CELIB_DIR}/inc\" -I\"${CEINCLUDE}\"" RC="\"${WCEROOT}/Common/EVC/bin/rc.exe\"" arch=`echo ${ARCH} | awk '{print tolower([$]0)}'` defs="${ARCH} _${ARCH}_ ${arch} PALM_SIZE _MT _WINDOWS" if test "${SHARED_BUILD}" = "1" ; then # Static CE builds require static celib as well defs="${defs} _DLL" fi for i in $defs ; do AC_DEFINE_UNQUOTED($i, 1, [WinCE def ]$i) done AC_DEFINE_UNQUOTED(_WIN32_WCE, $CEVERSION, [_WIN32_WCE version]) AC_DEFINE_UNQUOTED(UNDER_CE, $CEVERSION, [UNDER_CE version]) CFLAGS_DEBUG="-nologo -Zi -Od" CFLAGS_OPTIMIZE="-nologo -Ox" lversion=`echo ${CEVERSION} | sed -e 's/\(.\)\(..\)/\1\.\2/'` lflags="${lflags} -MACHINE:${ARCH} -LIBPATH:\"${CELIBPATH}\" -subsystem:windowsce,${lversion} -nologo" LINKBIN="\"${CEBINROOT}/link.exe\"" AC_SUBST(CELIB_DIR) else RC="rc" lflags="${lflags} -nologo" LINKBIN="link" CFLAGS_DEBUG="-nologo -Z7 -Od -W3 -WX ${runtime}d" CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}" fi fi if test "$GCC" = "yes"; then # mingw gcc mode AC_CHECK_TOOL(RC, windres) CFLAGS_DEBUG="-g" CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer" SHLIB_LD='${CC} -shared' UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' LDFLAGS_CONSOLE="-wl,--subsystem,console ${lflags}" LDFLAGS_WINDOW="-wl,--subsystem,windows ${lflags}" AC_CACHE_CHECK(for cross-compile version of gcc, ac_cv_cross, AC_TRY_COMPILE([ #ifdef _WIN32 #error cross-compiler #endif ], [], ac_cv_cross=yes, ac_cv_cross=no) ) if test "$ac_cv_cross" = "yes"; then case "$do64bit" in amd64|x64|yes) CC="x86_64-w64-mingw32-gcc" LD="x86_64-w64-mingw32-ld" AR="x86_64-w64-mingw32-ar" RANLIB="x86_64-w64-mingw32-ranlib" RC="x86_64-w64-mingw32-windres" ;; *) CC="i686-w64-mingw32-gcc" LD="i686-w64-mingw32-ld" AR="i686-w64-mingw32-ar" RANLIB="i686-w64-mingw32-ranlib" RC="i686-w64-mingw32-windres" ;; esac fi else SHLIB_LD="${LINKBIN} -dll ${lflags}" # link -lib only works when -lib is the first arg STLIB_LD="${LINKBIN} -lib ${lflags}" UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.lib' PATHTYPE=-w # For information on what debugtype is most useful, see: # http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp # and also # http://msdn2.microsoft.com/en-us/library/y0zzbyt4%28VS.80%29.aspx # This essentially turns it all on. LDFLAGS_DEBUG="-debug -debugtype:cv" LDFLAGS_OPTIMIZE="-release" if test "$doWince" != "no" ; then LDFLAGS_CONSOLE="-link ${lflags}" LDFLAGS_WINDOW=${LDFLAGS_CONSOLE} else LDFLAGS_CONSOLE="-link -subsystem:console ${lflags}" LDFLAGS_WINDOW="-link -subsystem:windows ${lflags}" fi fi SHLIB_SUFFIX=".dll" SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.dll' TCL_LIB_VERSIONS_OK=nodots ;; AIX-*) AS_IF([test "${TCL_THREADS}" = "1" -a "$GCC" != "yes"], [ # AIX requires the _r compiler when gcc isn't being used case "${CC}" in *_r|*_r\ *) # ok ... ;; *) # Make sure only first arg gets _r CC=`echo "$CC" | sed -e 's/^\([[^ ]]*\)/\1_r/'` ;; esac AC_MSG_RESULT([Using $CC for compiling with threads]) ]) LIBS="$LIBS -lc" SHLIB_CFLAGS="" SHLIB_SUFFIX=".so" LD_LIBRARY_PATH_VAR="LIBPATH" # Check to enable 64-bit flags for compiler/linker AS_IF([test "$do64bit" = yes], [ AS_IF([test "$GCC" = yes], [ AC_MSG_WARN([64bit mode not supported with GCC on $system]) ], [ do64bit_ok=yes CFLAGS="$CFLAGS -q64" LDFLAGS_ARCH="-q64" RANLIB="${RANLIB} -X64" AR="${AR} -X64" SHLIB_LD_FLAGS="-b64" ]) ]) AS_IF([test "`uname -m`" = ia64], [ # AIX-5 uses ELF style dynamic libraries on IA-64, but not PPC SHLIB_LD="/usr/ccs/bin/ld -G -z text" AS_IF([test "$GCC" = yes], [ CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' ], [ CC_SEARCH_FLAGS='-R${LIB_RUNTIME_DIR}' ]) LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' ], [ AS_IF([test "$GCC" = yes], [ SHLIB_LD='${CC} -shared -Wl,-bexpall' ], [ SHLIB_LD="/bin/ld -bhalt:4 -bM:SRE -bexpall -H512 -T512 -bnoentry" LDFLAGS="$LDFLAGS -brtl" ]) SHLIB_LD="${SHLIB_LD} ${SHLIB_LD_FLAGS}" CC_SEARCH_FLAGS='-L${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} ]) ;; BeOS*) SHLIB_CFLAGS="-fPIC" SHLIB_LD='${CC} -nostart' SHLIB_SUFFIX=".so" #----------------------------------------------------------- # Check for inet_ntoa in -lbind, for BeOS (which also needs # -lsocket, even if the network functions are in -lnet which # is always linked to, for compatibility. #----------------------------------------------------------- AC_CHECK_LIB(bind, inet_ntoa, [LIBS="$LIBS -lbind -lsocket"]) ;; BSD/OS-4.*) SHLIB_CFLAGS="-export-dynamic -fPIC" SHLIB_LD='${CC} -shared' SHLIB_SUFFIX=".so" LDFLAGS="$LDFLAGS -export-dynamic" CC_SEARCH_FLAGS="" LD_SEARCH_FLAGS="" ;; CYGWIN_*) SHLIB_CFLAGS="" SHLIB_LD='${CC} -shared' SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -Wl,--out-implib,\$[@].a" SHLIB_SUFFIX=".dll" EXEEXT=".exe" do64bit_ok=yes CC_SEARCH_FLAGS="" LD_SEARCH_FLAGS="" ;; Haiku*) LDFLAGS="$LDFLAGS -Wl,--export-dynamic" SHLIB_CFLAGS="-fPIC" SHLIB_SUFFIX=".so" SHLIB_LD='${CC} ${CFLAGS} ${LDFLAGS} -shared' AC_CHECK_LIB(network, inet_ntoa, [LIBS="$LIBS -lnetwork"]) ;; HP-UX-*.11.*) # Use updated header definitions where possible AC_DEFINE(_XOPEN_SOURCE_EXTENDED, 1, [Do we want to use the XOPEN network library?]) # TEA specific: Needed by Tcl, but not most extensions #AC_DEFINE(_XOPEN_SOURCE, 1, [Do we want to use the XOPEN network library?]) #LIBS="$LIBS -lxnet" # Use the XOPEN network library AS_IF([test "`uname -m`" = ia64], [ SHLIB_SUFFIX=".so" # Use newer C++ library for C++ extensions #if test "$GCC" != "yes" ; then # CPPFLAGS="-AA" #fi ], [ SHLIB_SUFFIX=".sl" ]) AC_CHECK_LIB(dld, shl_load, tcl_ok=yes, tcl_ok=no) AS_IF([test "$tcl_ok" = yes], [ LDFLAGS="$LDFLAGS -Wl,-E" CC_SEARCH_FLAGS='-Wl,+s,+b,${LIB_RUNTIME_DIR}:.' LD_SEARCH_FLAGS='+s +b ${LIB_RUNTIME_DIR}:.' LD_LIBRARY_PATH_VAR="SHLIB_PATH" ]) AS_IF([test "$GCC" = yes], [ SHLIB_LD='${CC} -shared' LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} ], [ CFLAGS="$CFLAGS -z" # Users may want PA-RISC 1.1/2.0 portable code - needs HP cc #CFLAGS="$CFLAGS +DAportable" SHLIB_CFLAGS="+z" SHLIB_LD="ld -b" ]) # Check to enable 64-bit flags for compiler/linker AS_IF([test "$do64bit" = "yes"], [ AS_IF([test "$GCC" = yes], [ case `${CC} -dumpmachine` in hppa64*) # 64-bit gcc in use. Fix flags for GNU ld. do64bit_ok=yes SHLIB_LD='${CC} -shared' AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} ;; *) AC_MSG_WARN([64bit mode not supported with GCC on $system]) ;; esac ], [ do64bit_ok=yes CFLAGS="$CFLAGS +DD64" LDFLAGS_ARCH="+DD64" ]) ]) ;; IRIX-6.*) SHLIB_CFLAGS="" SHLIB_LD="ld -n32 -shared -rdata_shared" SHLIB_SUFFIX=".so" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) AS_IF([test "$GCC" = yes], [ CFLAGS="$CFLAGS -mabi=n32" LDFLAGS="$LDFLAGS -mabi=n32" ], [ case $system in IRIX-6.3) # Use to build 6.2 compatible binaries on 6.3. CFLAGS="$CFLAGS -n32 -D_OLD_TERMIOS" ;; *) CFLAGS="$CFLAGS -n32" ;; esac LDFLAGS="$LDFLAGS -n32" ]) ;; IRIX64-6.*) SHLIB_CFLAGS="" SHLIB_LD="ld -n32 -shared -rdata_shared" SHLIB_SUFFIX=".so" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) # Check to enable 64-bit flags for compiler/linker AS_IF([test "$do64bit" = yes], [ AS_IF([test "$GCC" = yes], [ AC_MSG_WARN([64bit mode not supported by gcc]) ], [ do64bit_ok=yes SHLIB_LD="ld -64 -shared -rdata_shared" CFLAGS="$CFLAGS -64" LDFLAGS_ARCH="-64" ]) ]) ;; Linux*|GNU*|NetBSD-Debian) SHLIB_CFLAGS="-fPIC" SHLIB_SUFFIX=".so" # TEA specific: CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer" # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS SHLIB_LD='${CC} ${CFLAGS} ${LDFLAGS_DEFAULT} -shared' LDFLAGS="$LDFLAGS -Wl,--export-dynamic" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} AS_IF([test "`uname -m`" = "alpha"], [CFLAGS="$CFLAGS -mieee"]) AS_IF([test $do64bit = yes], [ AC_CACHE_CHECK([if compiler accepts -m64 flag], tcl_cv_cc_m64, [ hold_cflags=$CFLAGS CFLAGS="$CFLAGS -m64" AC_TRY_LINK(,, tcl_cv_cc_m64=yes, tcl_cv_cc_m64=no) CFLAGS=$hold_cflags]) AS_IF([test $tcl_cv_cc_m64 = yes], [ CFLAGS="$CFLAGS -m64" do64bit_ok=yes ]) ]) # The combo of gcc + glibc has a bug related to inlining of # functions like strtod(). The -fno-builtin flag should address # this problem but it does not work. The -fno-inline flag is kind # of overkill but it works. Disable inlining only when one of the # files in compat/*.c is being linked in. AS_IF([test x"${USE_COMPAT}" != x],[CFLAGS="$CFLAGS -fno-inline"]) ;; Lynx*) SHLIB_CFLAGS="-fPIC" SHLIB_SUFFIX=".so" CFLAGS_OPTIMIZE=-02 SHLIB_LD='${CC} -shared' LD_FLAGS="-Wl,--export-dynamic" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) ;; OpenBSD-*) arch=`arch -s` case "$arch" in alpha|sparc64) SHLIB_CFLAGS="-fPIC" ;; *) SHLIB_CFLAGS="-fpic" ;; esac SHLIB_LD='${CC} ${SHLIB_CFLAGS} -shared' SHLIB_SUFFIX=".so" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so${SHLIB_VERSION}' LDFLAGS="-Wl,-export-dynamic" CFLAGS_OPTIMIZE="-O2" AS_IF([test "${TCL_THREADS}" = "1"], [ # On OpenBSD: Compile with -pthread # Don't link with -lpthread LIBS=`echo $LIBS | sed s/-lpthread//` CFLAGS="$CFLAGS -pthread" ]) # OpenBSD doesn't do version numbers with dots. UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' TCL_LIB_VERSIONS_OK=nodots ;; NetBSD-*) # NetBSD has ELF and can use 'cc -shared' to build shared libs SHLIB_CFLAGS="-fPIC" SHLIB_LD='${CC} ${SHLIB_CFLAGS} -shared' SHLIB_SUFFIX=".so" LDFLAGS="$LDFLAGS -export-dynamic" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} AS_IF([test "${TCL_THREADS}" = "1"], [ # The -pthread needs to go in the CFLAGS, not LIBS LIBS=`echo $LIBS | sed s/-pthread//` CFLAGS="$CFLAGS -pthread" LDFLAGS="$LDFLAGS -pthread" ]) ;; DragonFly-*|FreeBSD-*) # This configuration from FreeBSD Ports. SHLIB_CFLAGS="-fPIC" SHLIB_LD="${CC} -shared" SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -Wl,-soname,\$[@]" SHLIB_SUFFIX=".so" LDFLAGS="" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) AS_IF([test "${TCL_THREADS}" = "1"], [ # The -pthread needs to go in the LDFLAGS, not LIBS LIBS=`echo $LIBS | sed s/-pthread//` CFLAGS="$CFLAGS $PTHREAD_CFLAGS" LDFLAGS="$LDFLAGS $PTHREAD_LIBS"]) case $system in FreeBSD-3.*) # Version numbers are dot-stripped by system policy. TCL_TRIM_DOTS=`echo ${PACKAGE_VERSION} | tr -d .` UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}\$\{DBGX\}.so.1' TCL_LIB_VERSIONS_OK=nodots ;; esac ;; Darwin-*) CFLAGS_OPTIMIZE="-Os" SHLIB_CFLAGS="-fno-common" # To avoid discrepancies between what headers configure sees during # preprocessing tests and compiling tests, move any -isysroot and # -mmacosx-version-min flags from CFLAGS to CPPFLAGS: CPPFLAGS="${CPPFLAGS} `echo " ${CFLAGS}" | \ awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \ if ([$]i~/^(isysroot|mmacosx-version-min)/) print "-"[$]i}'`" CFLAGS="`echo " ${CFLAGS}" | \ awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \ if (!([$]i~/^(isysroot|mmacosx-version-min)/)) print "-"[$]i}'`" AS_IF([test $do64bit = yes], [ case `arch` in ppc) AC_CACHE_CHECK([if compiler accepts -arch ppc64 flag], tcl_cv_cc_arch_ppc64, [ hold_cflags=$CFLAGS CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5" AC_TRY_LINK(,, tcl_cv_cc_arch_ppc64=yes, tcl_cv_cc_arch_ppc64=no) CFLAGS=$hold_cflags]) AS_IF([test $tcl_cv_cc_arch_ppc64 = yes], [ CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5" do64bit_ok=yes ]);; i386) AC_CACHE_CHECK([if compiler accepts -arch x86_64 flag], tcl_cv_cc_arch_x86_64, [ hold_cflags=$CFLAGS CFLAGS="$CFLAGS -arch x86_64" AC_TRY_LINK(,, tcl_cv_cc_arch_x86_64=yes, tcl_cv_cc_arch_x86_64=no) CFLAGS=$hold_cflags]) AS_IF([test $tcl_cv_cc_arch_x86_64 = yes], [ CFLAGS="$CFLAGS -arch x86_64" do64bit_ok=yes ]);; *) AC_MSG_WARN([Don't know how enable 64-bit on architecture `arch`]);; esac ], [ # Check for combined 32-bit and 64-bit fat build AS_IF([echo "$CFLAGS " |grep -E -q -- '-arch (ppc64|x86_64) ' \ && echo "$CFLAGS " |grep -E -q -- '-arch (ppc|i386) '], [ fat_32_64=yes]) ]) # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS SHLIB_LD='${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT}' AC_CACHE_CHECK([if ld accepts -single_module flag], tcl_cv_ld_single_module, [ hold_ldflags=$LDFLAGS LDFLAGS="$LDFLAGS -dynamiclib -Wl,-single_module" AC_TRY_LINK(, [int i;], tcl_cv_ld_single_module=yes, tcl_cv_ld_single_module=no) LDFLAGS=$hold_ldflags]) AS_IF([test $tcl_cv_ld_single_module = yes], [ SHLIB_LD="${SHLIB_LD} -Wl,-single_module" ]) # TEA specific: link shlib with current and compatibility version flags vers=`echo ${PACKAGE_VERSION} | sed -e 's/^\([[0-9]]\{1,5\}\)\(\(\.[[0-9]]\{1,3\}\)\{0,2\}\).*$/\1\2/p' -e d` SHLIB_LD="${SHLIB_LD} -current_version ${vers:-0} -compatibility_version ${vers:-0}" SHLIB_SUFFIX=".dylib" # Don't use -prebind when building for Mac OS X 10.4 or later only: AS_IF([test "`echo "${MACOSX_DEPLOYMENT_TARGET}" | awk -F '10\\.' '{print int([$]2)}'`" -lt 4 -a \ "`echo "${CPPFLAGS}" | awk -F '-mmacosx-version-min=10\\.' '{print int([$]2)}'`" -lt 4], [ LDFLAGS="$LDFLAGS -prebind"]) LDFLAGS="$LDFLAGS -headerpad_max_install_names" AC_CACHE_CHECK([if ld accepts -search_paths_first flag], tcl_cv_ld_search_paths_first, [ hold_ldflags=$LDFLAGS LDFLAGS="$LDFLAGS -Wl,-search_paths_first" AC_TRY_LINK(, [int i;], tcl_cv_ld_search_paths_first=yes, tcl_cv_ld_search_paths_first=no) LDFLAGS=$hold_ldflags]) AS_IF([test $tcl_cv_ld_search_paths_first = yes], [ LDFLAGS="$LDFLAGS -Wl,-search_paths_first" ]) AS_IF([test "$tcl_cv_cc_visibility_hidden" != yes], [ AC_DEFINE(MODULE_SCOPE, [__private_extern__], [Compiler support for module scope symbols]) tcl_cv_cc_visibility_hidden=yes ]) CC_SEARCH_FLAGS="" LD_SEARCH_FLAGS="" LD_LIBRARY_PATH_VAR="DYLD_LIBRARY_PATH" # TEA specific: for combined 32 & 64 bit fat builds of Tk # extensions, verify that 64-bit build is possible. AS_IF([test "$fat_32_64" = yes && test -n "${TK_BIN_DIR}"], [ AS_IF([test "${TEA_WINDOWINGSYSTEM}" = x11], [ AC_CACHE_CHECK([for 64-bit X11], tcl_cv_lib_x11_64, [ for v in CFLAGS CPPFLAGS LDFLAGS; do eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"' done CPPFLAGS="$CPPFLAGS -I/usr/X11R6/include" LDFLAGS="$LDFLAGS -L/usr/X11R6/lib -lX11" AC_TRY_LINK([#include ], [XrmInitialize();], tcl_cv_lib_x11_64=yes, tcl_cv_lib_x11_64=no) for v in CFLAGS CPPFLAGS LDFLAGS; do eval $v'="$hold_'$v'"' done]) ]) AS_IF([test "${TEA_WINDOWINGSYSTEM}" = aqua], [ AC_CACHE_CHECK([for 64-bit Tk], tcl_cv_lib_tk_64, [ for v in CFLAGS CPPFLAGS LDFLAGS; do eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"' done CPPFLAGS="$CPPFLAGS -DUSE_TCL_STUBS=1 -DUSE_TK_STUBS=1 ${TCL_INCLUDES} ${TK_INCLUDES}" LDFLAGS="$LDFLAGS ${TCL_STUB_LIB_SPEC} ${TK_STUB_LIB_SPEC}" AC_TRY_LINK([#include ], [Tk_InitStubs(NULL, "", 0);], tcl_cv_lib_tk_64=yes, tcl_cv_lib_tk_64=no) for v in CFLAGS CPPFLAGS LDFLAGS; do eval $v'="$hold_'$v'"' done]) ]) # remove 64-bit arch flags from CFLAGS et al. if configuration # does not support 64-bit. AS_IF([test "$tcl_cv_lib_tk_64" = no -o "$tcl_cv_lib_x11_64" = no], [ AC_MSG_NOTICE([Removing 64-bit architectures from compiler & linker flags]) for v in CFLAGS CPPFLAGS LDFLAGS; do eval $v'="`echo "$'$v' "|sed -e "s/-arch ppc64 / /g" -e "s/-arch x86_64 / /g"`"' done]) ]) ;; OS/390-*) CFLAGS_OPTIMIZE="" # Optimizer is buggy AC_DEFINE(_OE_SOCKETS, 1, # needed in sys/socket.h [Should OS/390 do the right thing with sockets?]) ;; OSF1-V*) # Digital OSF/1 SHLIB_CFLAGS="" AS_IF([test "$SHARED_BUILD" = 1], [ SHLIB_LD='ld -shared -expect_unresolved "*"' ], [ SHLIB_LD='ld -non_shared -expect_unresolved "*"' ]) SHLIB_SUFFIX=".so" AS_IF([test $doRpath = yes], [ CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) AS_IF([test "$GCC" = yes], [CFLAGS="$CFLAGS -mieee"], [ CFLAGS="$CFLAGS -DHAVE_TZSET -std1 -ieee"]) # see pthread_intro(3) for pthread support on osf1, k.furukawa AS_IF([test "${TCL_THREADS}" = 1], [ CFLAGS="$CFLAGS -DHAVE_PTHREAD_ATTR_SETSTACKSIZE" CFLAGS="$CFLAGS -DTCL_THREAD_STACK_MIN=PTHREAD_STACK_MIN*64" LIBS=`echo $LIBS | sed s/-lpthreads//` AS_IF([test "$GCC" = yes], [ LIBS="$LIBS -lpthread -lmach -lexc" ], [ CFLAGS="$CFLAGS -pthread" LDFLAGS="$LDFLAGS -pthread" ]) ]) ;; QNX-6*) # QNX RTP # This may work for all QNX, but it was only reported for v6. SHLIB_CFLAGS="-fPIC" SHLIB_LD="ld -Bshareable -x" SHLIB_LD_LIBS="" SHLIB_SUFFIX=".so" CC_SEARCH_FLAGS="" LD_SEARCH_FLAGS="" ;; SCO_SV-3.2*) AS_IF([test "$GCC" = yes], [ SHLIB_CFLAGS="-fPIC -melf" LDFLAGS="$LDFLAGS -melf -Wl,-Bexport" ], [ SHLIB_CFLAGS="-Kpic -belf" LDFLAGS="$LDFLAGS -belf -Wl,-Bexport" ]) SHLIB_LD="ld -G" SHLIB_LD_LIBS="" SHLIB_SUFFIX=".so" CC_SEARCH_FLAGS="" LD_SEARCH_FLAGS="" ;; SunOS-5.[[0-6]]) # Careful to not let 5.10+ fall into this case # Note: If _REENTRANT isn't defined, then Solaris # won't define thread-safe library routines. AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?]) AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1, [Do we really want to follow the standard? Yes we do!]) SHLIB_CFLAGS="-KPIC" SHLIB_SUFFIX=".so" AS_IF([test "$GCC" = yes], [ SHLIB_LD='${CC} -shared' CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} ], [ SHLIB_LD="/usr/ccs/bin/ld -G -z text" CC_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} ]) ;; SunOS-5*) # Note: If _REENTRANT isn't defined, then Solaris # won't define thread-safe library routines. AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?]) AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1, [Do we really want to follow the standard? Yes we do!]) SHLIB_CFLAGS="-KPIC" # Check to enable 64-bit flags for compiler/linker AS_IF([test "$do64bit" = yes], [ arch=`isainfo` AS_IF([test "$arch" = "sparcv9 sparc"], [ AS_IF([test "$GCC" = yes], [ AS_IF([test "`${CC} -dumpversion | awk -F. '{print [$]1}'`" -lt 3], [ AC_MSG_WARN([64bit mode not supported with GCC < 3.2 on $system]) ], [ do64bit_ok=yes CFLAGS="$CFLAGS -m64 -mcpu=v9" LDFLAGS="$LDFLAGS -m64 -mcpu=v9" SHLIB_CFLAGS="-fPIC" ]) ], [ do64bit_ok=yes AS_IF([test "$do64bitVIS" = yes], [ CFLAGS="$CFLAGS -xarch=v9a" LDFLAGS_ARCH="-xarch=v9a" ], [ CFLAGS="$CFLAGS -xarch=v9" LDFLAGS_ARCH="-xarch=v9" ]) # Solaris 64 uses this as well #LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH_64" ]) ], [AS_IF([test "$arch" = "amd64 i386"], [ AS_IF([test "$GCC" = yes], [ case $system in SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*) do64bit_ok=yes CFLAGS="$CFLAGS -m64" LDFLAGS="$LDFLAGS -m64";; *) AC_MSG_WARN([64bit mode not supported with GCC on $system]);; esac ], [ do64bit_ok=yes case $system in SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*) CFLAGS="$CFLAGS -m64" LDFLAGS="$LDFLAGS -m64";; *) CFLAGS="$CFLAGS -xarch=amd64" LDFLAGS="$LDFLAGS -xarch=amd64";; esac ]) ], [AC_MSG_WARN([64bit mode not supported for $arch])])]) ]) SHLIB_SUFFIX=".so" AS_IF([test "$GCC" = yes], [ SHLIB_LD='${CC} -shared' CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} AS_IF([test "$do64bit_ok" = yes], [ AS_IF([test "$arch" = "sparcv9 sparc"], [ # We need to specify -static-libgcc or we need to # add the path to the sparv9 libgcc. # JH: static-libgcc is necessary for core Tcl, but may # not be necessary for extensions. SHLIB_LD="$SHLIB_LD -m64 -mcpu=v9 -static-libgcc" # for finding sparcv9 libgcc, get the regular libgcc # path, remove so name and append 'sparcv9' #v9gcclibdir="`gcc -print-file-name=libgcc_s.so` | ..." #CC_SEARCH_FLAGS="${CC_SEARCH_FLAGS},-R,$v9gcclibdir" ], [AS_IF([test "$arch" = "amd64 i386"], [ # JH: static-libgcc is necessary for core Tcl, but may # not be necessary for extensions. SHLIB_LD="$SHLIB_LD -m64 -static-libgcc" ])]) ]) ], [ case $system in SunOS-5.[[1-9]][[0-9]]*) # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS SHLIB_LD='${CC} -G -z text ${LDFLAGS_DEFAULT}';; *) SHLIB_LD='/usr/ccs/bin/ld -G -z text';; esac CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' ]) ;; UNIX_SV* | UnixWare-5*) SHLIB_CFLAGS="-KPIC" SHLIB_LD='${CC} -G' SHLIB_LD_LIBS="" SHLIB_SUFFIX=".so" # Some UNIX_SV* systems (unixware 1.1.2 for example) have linkers # that don't grok the -Bexport option. Test that it does. AC_CACHE_CHECK([for ld accepts -Bexport flag], tcl_cv_ld_Bexport, [ hold_ldflags=$LDFLAGS LDFLAGS="$LDFLAGS -Wl,-Bexport" AC_TRY_LINK(, [int i;], tcl_cv_ld_Bexport=yes, tcl_cv_ld_Bexport=no) LDFLAGS=$hold_ldflags]) AS_IF([test $tcl_cv_ld_Bexport = yes], [ LDFLAGS="$LDFLAGS -Wl,-Bexport" ]) CC_SEARCH_FLAGS="" LD_SEARCH_FLAGS="" ;; esac AS_IF([test "$do64bit" = yes -a "$do64bit_ok" = no], [ AC_MSG_WARN([64bit support being disabled -- don't know magic for this platform]) ]) dnl # Add any CPPFLAGS set in the environment to our CFLAGS, but delay doing so dnl # until the end of configure, as configure's compile and link tests use dnl # both CPPFLAGS and CFLAGS (unlike our compile and link) but configure's dnl # preprocessing tests use only CPPFLAGS. AC_CONFIG_COMMANDS_PRE([CFLAGS="${CFLAGS} ${CPPFLAGS}"; CPPFLAGS=""]) # Add in the arch flags late to ensure it wasn't removed. # Not necessary in TEA, but this is aligned with core LDFLAGS="$LDFLAGS $LDFLAGS_ARCH" # If we're running gcc, then change the C flags for compiling shared # libraries to the right flags for gcc, instead of those for the # standard manufacturer compiler. AS_IF([test "$GCC" = yes], [ case $system in AIX-*) ;; BSD/OS*) ;; CYGWIN_*|MINGW32_*|MINGW64_*) ;; IRIX*) ;; NetBSD-*|DragonFly-*|FreeBSD-*|OpenBSD-*) ;; Darwin-*) ;; SCO_SV-3.2*) ;; windows) ;; *) SHLIB_CFLAGS="-fPIC" ;; esac]) AS_IF([test "$tcl_cv_cc_visibility_hidden" != yes], [ AC_DEFINE(MODULE_SCOPE, [extern], [No Compiler support for module scope symbols]) ]) AS_IF([test "$SHARED_LIB_SUFFIX" = ""], [ # TEA specific: use PACKAGE_VERSION instead of VERSION SHARED_LIB_SUFFIX='${PACKAGE_VERSION}${SHLIB_SUFFIX}']) AS_IF([test "$UNSHARED_LIB_SUFFIX" = ""], [ # TEA specific: use PACKAGE_VERSION instead of VERSION UNSHARED_LIB_SUFFIX='${PACKAGE_VERSION}.a']) if test "${GCC}" = "yes" -a ${SHLIB_SUFFIX} = ".dll"; then AC_CACHE_CHECK(for SEH support in compiler, tcl_cv_seh, AC_TRY_RUN([ #define WIN32_LEAN_AND_MEAN #include #undef WIN32_LEAN_AND_MEAN int main(int argc, char** argv) { int a, b = 0; __try { a = 666 / b; } __except (EXCEPTION_EXECUTE_HANDLER) { return 0; } return 1; } ], tcl_cv_seh=yes, tcl_cv_seh=no, tcl_cv_seh=no) ) if test "$tcl_cv_seh" = "no" ; then AC_DEFINE(HAVE_NO_SEH, 1, [Defined when mingw does not support SEH]) fi # # Check to see if the excpt.h include file provided contains the # definition for EXCEPTION_DISPOSITION; if not, which is the case # with Cygwin's version as of 2002-04-10, define it to be int, # sufficient for getting the current code to work. # AC_CACHE_CHECK(for EXCEPTION_DISPOSITION support in include files, tcl_cv_eh_disposition, AC_TRY_COMPILE([ # define WIN32_LEAN_AND_MEAN # include # undef WIN32_LEAN_AND_MEAN ],[ EXCEPTION_DISPOSITION x; ], tcl_cv_eh_disposition=yes, tcl_cv_eh_disposition=no) ) if test "$tcl_cv_eh_disposition" = "no" ; then AC_DEFINE(EXCEPTION_DISPOSITION, int, [Defined when cygwin/mingw does not support EXCEPTION DISPOSITION]) fi # Check to see if winnt.h defines CHAR, SHORT, and LONG # even if VOID has already been #defined. The win32api # used by mingw and cygwin is known to do this. AC_CACHE_CHECK(for winnt.h that ignores VOID define, tcl_cv_winnt_ignore_void, AC_TRY_COMPILE([ #define VOID void #define WIN32_LEAN_AND_MEAN #include #undef WIN32_LEAN_AND_MEAN ], [ CHAR c; SHORT s; LONG l; ], tcl_cv_winnt_ignore_void=yes, tcl_cv_winnt_ignore_void=no) ) if test "$tcl_cv_winnt_ignore_void" = "yes" ; then AC_DEFINE(HAVE_WINNT_IGNORE_VOID, 1, [Defined when cygwin/mingw ignores VOID define in winnt.h]) fi fi # See if the compiler supports casting to a union type. # This is used to stop gcc from printing a compiler # warning when initializing a union member. AC_CACHE_CHECK(for cast to union support, tcl_cv_cast_to_union, AC_TRY_COMPILE([], [ union foo { int i; double d; }; union foo f = (union foo) (int) 0; ], tcl_cv_cast_to_union=yes, tcl_cv_cast_to_union=no) ) if test "$tcl_cv_cast_to_union" = "yes"; then AC_DEFINE(HAVE_CAST_TO_UNION, 1, [Defined when compiler supports casting to union type.]) fi AC_SUBST(CFLAGS_DEBUG) AC_SUBST(CFLAGS_OPTIMIZE) AC_SUBST(CFLAGS_WARNING) AC_SUBST(STLIB_LD) AC_SUBST(SHLIB_LD) AC_SUBST(SHLIB_LD_LIBS) AC_SUBST(SHLIB_CFLAGS) AC_SUBST(LD_LIBRARY_PATH_VAR) # These must be called after we do the basic CFLAGS checks and # verify any possible 64-bit or similar switches are necessary TEA_TCL_EARLY_FLAGS TEA_TCL_64BIT_FLAGS ]) #-------------------------------------------------------------------- # TEA_SERIAL_PORT # # Determine which interface to use to talk to the serial port. # Note that #include lines must begin in leftmost column for # some compilers to recognize them as preprocessor directives, # and some build environments have stdin not pointing at a # pseudo-terminal (usually /dev/null instead.) # # Arguments: # none # # Results: # # Defines only one of the following vars: # HAVE_SYS_MODEM_H # USE_TERMIOS # USE_TERMIO # USE_SGTTY #-------------------------------------------------------------------- AC_DEFUN([TEA_SERIAL_PORT], [ AC_CHECK_HEADERS(sys/modem.h) AC_CACHE_CHECK([termios vs. termio vs. sgtty], tcl_cv_api_serial, [ AC_TRY_RUN([ #include int main() { struct termios t; if (tcgetattr(0, &t) == 0) { cfsetospeed(&t, 0); t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB; return 0; } return 1; }], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no) if test $tcl_cv_api_serial = no ; then AC_TRY_RUN([ #include int main() { struct termio t; if (ioctl(0, TCGETA, &t) == 0) { t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB; return 0; } return 1; }], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no) fi if test $tcl_cv_api_serial = no ; then AC_TRY_RUN([ #include int main() { struct sgttyb t; if (ioctl(0, TIOCGETP, &t) == 0) { t.sg_ospeed = 0; t.sg_flags |= ODDP | EVENP | RAW; return 0; } return 1; }], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=no, tcl_cv_api_serial=no) fi if test $tcl_cv_api_serial = no ; then AC_TRY_RUN([ #include #include int main() { struct termios t; if (tcgetattr(0, &t) == 0 || errno == ENOTTY || errno == ENXIO || errno == EINVAL) { cfsetospeed(&t, 0); t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB; return 0; } return 1; }], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no) fi if test $tcl_cv_api_serial = no; then AC_TRY_RUN([ #include #include int main() { struct termio t; if (ioctl(0, TCGETA, &t) == 0 || errno == ENOTTY || errno == ENXIO || errno == EINVAL) { t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB; return 0; } return 1; }], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no) fi if test $tcl_cv_api_serial = no; then AC_TRY_RUN([ #include #include int main() { struct sgttyb t; if (ioctl(0, TIOCGETP, &t) == 0 || errno == ENOTTY || errno == ENXIO || errno == EINVAL) { t.sg_ospeed = 0; t.sg_flags |= ODDP | EVENP | RAW; return 0; } return 1; }], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=none, tcl_cv_api_serial=none) fi]) case $tcl_cv_api_serial in termios) AC_DEFINE(USE_TERMIOS, 1, [Use the termios API for serial lines]);; termio) AC_DEFINE(USE_TERMIO, 1, [Use the termio API for serial lines]);; sgtty) AC_DEFINE(USE_SGTTY, 1, [Use the sgtty API for serial lines]);; esac ]) #-------------------------------------------------------------------- # TEA_PATH_X # # Locate the X11 header files and the X11 library archive. Try # the ac_path_x macro first, but if it doesn't find the X stuff # (e.g. because there's no xmkmf program) then check through # a list of possible directories. Under some conditions the # autoconf macro will return an include directory that contains # no include files, so double-check its result just to be safe. # # This should be called after TEA_CONFIG_CFLAGS as setting the # LIBS line can confuse some configure macro magic. # # Arguments: # none # # Results: # # Sets the following vars: # XINCLUDES # XLIBSW # PKG_LIBS (appends to) #-------------------------------------------------------------------- AC_DEFUN([TEA_PATH_X], [ if test "${TEA_WINDOWINGSYSTEM}" = "x11" ; then TEA_PATH_UNIX_X fi ]) AC_DEFUN([TEA_PATH_UNIX_X], [ AC_PATH_X not_really_there="" if test "$no_x" = ""; then if test "$x_includes" = ""; then AC_TRY_CPP([#include ], , not_really_there="yes") else if test ! -r $x_includes/X11/Xlib.h; then not_really_there="yes" fi fi fi if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then AC_MSG_CHECKING([for X11 header files]) found_xincludes="no" AC_TRY_CPP([#include ], found_xincludes="yes", found_xincludes="no") if test "$found_xincludes" = "no"; then dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/X11R6/include /usr/X11R5/include /usr/include/X11R5 /usr/include/X11R4 /usr/openwin/include /usr/X11/include /usr/sww/include" for i in $dirs ; do if test -r $i/X11/Xlib.h; then AC_MSG_RESULT([$i]) XINCLUDES=" -I$i" found_xincludes="yes" break fi done fi else if test "$x_includes" != ""; then XINCLUDES="-I$x_includes" found_xincludes="yes" fi fi if test "$found_xincludes" = "no"; then AC_MSG_RESULT([couldn't find any!]) fi if test "$no_x" = yes; then AC_MSG_CHECKING([for X11 libraries]) XLIBSW=nope dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/X11R6/lib /usr/X11R5/lib /usr/lib/X11R5 /usr/lib/X11R4 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib" for i in $dirs ; do if test -r $i/libX11.a -o -r $i/libX11.so -o -r $i/libX11.sl -o -r $i/libX11.dylib; then AC_MSG_RESULT([$i]) XLIBSW="-L$i -lX11" x_libraries="$i" break fi done else if test "$x_libraries" = ""; then XLIBSW=-lX11 else XLIBSW="-L$x_libraries -lX11" fi fi if test "$XLIBSW" = nope ; then AC_CHECK_LIB(Xwindow, XCreateWindow, XLIBSW=-lXwindow) fi if test "$XLIBSW" = nope ; then AC_MSG_RESULT([could not find any! Using -lX11.]) XLIBSW=-lX11 fi # TEA specific: if test x"${XLIBSW}" != x ; then PKG_LIBS="${PKG_LIBS} ${XLIBSW}" fi ]) #-------------------------------------------------------------------- # TEA_BLOCKING_STYLE # # The statements below check for systems where POSIX-style # non-blocking I/O (O_NONBLOCK) doesn't work or is unimplemented. # On these systems (mostly older ones), use the old BSD-style # FIONBIO approach instead. # # Arguments: # none # # Results: # # Defines some of the following vars: # HAVE_SYS_IOCTL_H # HAVE_SYS_FILIO_H # USE_FIONBIO # O_NONBLOCK #-------------------------------------------------------------------- AC_DEFUN([TEA_BLOCKING_STYLE], [ AC_CHECK_HEADERS(sys/ioctl.h) AC_CHECK_HEADERS(sys/filio.h) TEA_CONFIG_SYSTEM AC_MSG_CHECKING([FIONBIO vs. O_NONBLOCK for nonblocking I/O]) case $system in OSF*) AC_DEFINE(USE_FIONBIO, 1, [Should we use FIONBIO?]) AC_MSG_RESULT([FIONBIO]) ;; *) AC_MSG_RESULT([O_NONBLOCK]) ;; esac ]) #-------------------------------------------------------------------- # TEA_TIME_HANDLER # # Checks how the system deals with time.h, what time structures # are used on the system, and what fields the structures have. # # Arguments: # none # # Results: # # Defines some of the following vars: # USE_DELTA_FOR_TZ # HAVE_TM_GMTOFF # HAVE_TM_TZADJ # HAVE_TIMEZONE_VAR #-------------------------------------------------------------------- AC_DEFUN([TEA_TIME_HANDLER], [ AC_CHECK_HEADERS(sys/time.h) AC_HEADER_TIME AC_STRUCT_TIMEZONE AC_CHECK_FUNCS(gmtime_r localtime_r) AC_CACHE_CHECK([tm_tzadj in struct tm], tcl_cv_member_tm_tzadj, [ AC_TRY_COMPILE([#include ], [struct tm tm; tm.tm_tzadj;], tcl_cv_member_tm_tzadj=yes, tcl_cv_member_tm_tzadj=no)]) if test $tcl_cv_member_tm_tzadj = yes ; then AC_DEFINE(HAVE_TM_TZADJ, 1, [Should we use the tm_tzadj field of struct tm?]) fi AC_CACHE_CHECK([tm_gmtoff in struct tm], tcl_cv_member_tm_gmtoff, [ AC_TRY_COMPILE([#include ], [struct tm tm; tm.tm_gmtoff;], tcl_cv_member_tm_gmtoff=yes, tcl_cv_member_tm_gmtoff=no)]) if test $tcl_cv_member_tm_gmtoff = yes ; then AC_DEFINE(HAVE_TM_GMTOFF, 1, [Should we use the tm_gmtoff field of struct tm?]) fi # # Its important to include time.h in this check, as some systems # (like convex) have timezone functions, etc. # AC_CACHE_CHECK([long timezone variable], tcl_cv_timezone_long, [ AC_TRY_COMPILE([#include ], [extern long timezone; timezone += 1; exit (0);], tcl_cv_timezone_long=yes, tcl_cv_timezone_long=no)]) if test $tcl_cv_timezone_long = yes ; then AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?]) else # # On some systems (eg IRIX 6.2), timezone is a time_t and not a long. # AC_CACHE_CHECK([time_t timezone variable], tcl_cv_timezone_time, [ AC_TRY_COMPILE([#include ], [extern time_t timezone; timezone += 1; exit (0);], tcl_cv_timezone_time=yes, tcl_cv_timezone_time=no)]) if test $tcl_cv_timezone_time = yes ; then AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?]) fi fi ]) #-------------------------------------------------------------------- # TEA_BUGGY_STRTOD # # Under Solaris 2.4, strtod returns the wrong value for the # terminating character under some conditions. Check for this # and if the problem exists use a substitute procedure # "fixstrtod" (provided by Tcl) that corrects the error. # Also, on Compaq's Tru64 Unix 5.0, # strtod(" ") returns 0.0 instead of a failure to convert. # # Arguments: # none # # Results: # # Might defines some of the following vars: # strtod (=fixstrtod) #-------------------------------------------------------------------- AC_DEFUN([TEA_BUGGY_STRTOD], [ AC_CHECK_FUNC(strtod, tcl_strtod=1, tcl_strtod=0) if test "$tcl_strtod" = 1; then AC_CACHE_CHECK([for Solaris2.4/Tru64 strtod bugs], tcl_cv_strtod_buggy,[ AC_TRY_RUN([ extern double strtod(); int main() { char *infString="Inf", *nanString="NaN", *spaceString=" "; char *term; double value; value = strtod(infString, &term); if ((term != infString) && (term[-1] == 0)) { exit(1); } value = strtod(nanString, &term); if ((term != nanString) && (term[-1] == 0)) { exit(1); } value = strtod(spaceString, &term); if (term == (spaceString+1)) { exit(1); } exit(0); }], tcl_cv_strtod_buggy=ok, tcl_cv_strtod_buggy=buggy, tcl_cv_strtod_buggy=buggy)]) if test "$tcl_cv_strtod_buggy" = buggy; then AC_LIBOBJ([fixstrtod]) USE_COMPAT=1 AC_DEFINE(strtod, fixstrtod, [Do we want to use the strtod() in compat?]) fi fi ]) #-------------------------------------------------------------------- # TEA_TCL_EARLY_FLAGS # # Check for what flags are needed to be passed so the correct OS # features are available. # # Arguments: # None # # Results: # # Might define the following vars: # _ISOC99_SOURCE # _LARGEFILE64_SOURCE # _LARGEFILE_SOURCE64 #-------------------------------------------------------------------- AC_DEFUN([TEA_TCL_EARLY_FLAG],[ AC_CACHE_VAL([tcl_cv_flag_]translit($1,[A-Z],[a-z]), AC_TRY_COMPILE([$2], $3, [tcl_cv_flag_]translit($1,[A-Z],[a-z])=no, AC_TRY_COMPILE([[#define ]$1[ 1 ]$2], $3, [tcl_cv_flag_]translit($1,[A-Z],[a-z])=yes, [tcl_cv_flag_]translit($1,[A-Z],[a-z])=no))) if test ["x${tcl_cv_flag_]translit($1,[A-Z],[a-z])[}" = "xyes"] ; then AC_DEFINE($1, 1, [Add the ]$1[ flag when building]) tcl_flags="$tcl_flags $1" fi ]) AC_DEFUN([TEA_TCL_EARLY_FLAGS],[ AC_MSG_CHECKING([for required early compiler flags]) tcl_flags="" TEA_TCL_EARLY_FLAG(_ISOC99_SOURCE,[#include ], [char *p = (char *)strtoll; char *q = (char *)strtoull;]) TEA_TCL_EARLY_FLAG(_LARGEFILE64_SOURCE,[#include ], [struct stat64 buf; int i = stat64("/", &buf);]) TEA_TCL_EARLY_FLAG(_LARGEFILE_SOURCE64,[#include ], [char *p = (char *)open64;]) if test "x${tcl_flags}" = "x" ; then AC_MSG_RESULT([none]) else AC_MSG_RESULT([${tcl_flags}]) fi ]) #-------------------------------------------------------------------- # TEA_TCL_64BIT_FLAGS # # Check for what is defined in the way of 64-bit features. # # Arguments: # None # # Results: # # Might define the following vars: # TCL_WIDE_INT_IS_LONG # TCL_WIDE_INT_TYPE # HAVE_STRUCT_DIRENT64 # HAVE_STRUCT_STAT64 # HAVE_TYPE_OFF64_T #-------------------------------------------------------------------- AC_DEFUN([TEA_TCL_64BIT_FLAGS], [ AC_MSG_CHECKING([for 64-bit integer type]) AC_CACHE_VAL(tcl_cv_type_64bit,[ tcl_cv_type_64bit=none # See if the compiler knows natively about __int64 AC_TRY_COMPILE(,[__int64 value = (__int64) 0;], tcl_type_64bit=__int64, tcl_type_64bit="long long") # See if we should use long anyway Note that we substitute in the # type that is our current guess for a 64-bit type inside this check # program, so it should be modified only carefully... AC_TRY_COMPILE(,[switch (0) { case 1: case (sizeof(]${tcl_type_64bit}[)==sizeof(long)): ; }],tcl_cv_type_64bit=${tcl_type_64bit})]) if test "${tcl_cv_type_64bit}" = none ; then AC_DEFINE(TCL_WIDE_INT_IS_LONG, 1, [Are wide integers to be implemented with C 'long's?]) AC_MSG_RESULT([using long]) elif test "${tcl_cv_type_64bit}" = "__int64" \ -a "${TEA_PLATFORM}" = "windows" ; then # TEA specific: We actually want to use the default tcl.h checks in # this case to handle both TCL_WIDE_INT_TYPE and TCL_LL_MODIFIER* AC_MSG_RESULT([using Tcl header defaults]) else AC_DEFINE_UNQUOTED(TCL_WIDE_INT_TYPE,${tcl_cv_type_64bit}, [What type should be used to define wide integers?]) AC_MSG_RESULT([${tcl_cv_type_64bit}]) # Now check for auxiliary declarations AC_CACHE_CHECK([for struct dirent64], tcl_cv_struct_dirent64,[ AC_TRY_COMPILE([#include #include ],[struct dirent64 p;], tcl_cv_struct_dirent64=yes,tcl_cv_struct_dirent64=no)]) if test "x${tcl_cv_struct_dirent64}" = "xyes" ; then AC_DEFINE(HAVE_STRUCT_DIRENT64, 1, [Is 'struct dirent64' in ?]) fi AC_CACHE_CHECK([for struct stat64], tcl_cv_struct_stat64,[ AC_TRY_COMPILE([#include ],[struct stat64 p; ], tcl_cv_struct_stat64=yes,tcl_cv_struct_stat64=no)]) if test "x${tcl_cv_struct_stat64}" = "xyes" ; then AC_DEFINE(HAVE_STRUCT_STAT64, 1, [Is 'struct stat64' in ?]) fi AC_CHECK_FUNCS(open64 lseek64) AC_MSG_CHECKING([for off64_t]) AC_CACHE_VAL(tcl_cv_type_off64_t,[ AC_TRY_COMPILE([#include ],[off64_t offset; ], tcl_cv_type_off64_t=yes,tcl_cv_type_off64_t=no)]) dnl Define HAVE_TYPE_OFF64_T only when the off64_t type and the dnl functions lseek64 and open64 are defined. if test "x${tcl_cv_type_off64_t}" = "xyes" && \ test "x${ac_cv_func_lseek64}" = "xyes" && \ test "x${ac_cv_func_open64}" = "xyes" ; then AC_DEFINE(HAVE_TYPE_OFF64_T, 1, [Is off64_t in ?]) AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) fi fi ]) ## ## Here ends the standard Tcl configuration bits and starts the ## TEA specific functions ## #------------------------------------------------------------------------ # TEA_INIT -- # # Init various Tcl Extension Architecture (TEA) variables. # This should be the first called TEA_* macro. # # Arguments: # none # # Results: # # Defines and substs the following vars: # CYGPATH # EXEEXT # Defines only: # TEA_VERSION # TEA_INITED # TEA_PLATFORM (windows or unix) # # "cygpath" is used on windows to generate native path names for include # files. These variables should only be used with the compiler and linker # since they generate native path names. # # EXEEXT # Select the executable extension based on the host type. This # is a lightweight replacement for AC_EXEEXT that doesn't require # a compiler. #------------------------------------------------------------------------ AC_DEFUN([TEA_INIT], [ TEA_VERSION="3.13" AC_MSG_CHECKING([TEA configuration]) if test x"${PACKAGE_NAME}" = x ; then AC_MSG_ERROR([ The PACKAGE_NAME variable must be defined by your TEA configure.ac]) fi AC_MSG_RESULT([ok (TEA ${TEA_VERSION})]) # If the user did not set CFLAGS, set it now to keep macros # like AC_PROG_CC and AC_TRY_COMPILE from adding "-g -O2". if test "${CFLAGS+set}" != "set" ; then CFLAGS="" fi case "`uname -s`" in *win32*|*WIN32*|*MINGW32_*|*MINGW64_*) AC_CHECK_PROG(CYGPATH, cygpath, cygpath -m, echo) EXEEXT=".exe" TEA_PLATFORM="windows" ;; *CYGWIN_*) EXEEXT=".exe" # CYGPATH and TEA_PLATFORM are determined later in LOAD_TCLCONFIG ;; *) CYGPATH=echo # Maybe we are cross-compiling.... case ${host_alias} in *mingw32*) EXEEXT=".exe" TEA_PLATFORM="windows" ;; *) EXEEXT="" TEA_PLATFORM="unix" ;; esac ;; esac # Check if exec_prefix is set. If not use fall back to prefix. # Note when adjusted, so that TEA_PREFIX can correct for this. # This is needed for recursive configures, since autoconf propagates # $prefix, but not $exec_prefix (doh!). if test x$exec_prefix = xNONE ; then exec_prefix_default=yes exec_prefix=$prefix fi AC_MSG_NOTICE([configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}]) AC_SUBST(EXEEXT) AC_SUBST(CYGPATH) # This package name must be replaced statically for AC_SUBST to work AC_SUBST(PKG_LIB_FILE) # Substitute STUB_LIB_FILE in case package creates a stub library too. AC_SUBST(PKG_STUB_LIB_FILE) # We AC_SUBST these here to ensure they are subst'ed, # in case the user doesn't call TEA_ADD_... AC_SUBST(PKG_STUB_SOURCES) AC_SUBST(PKG_STUB_OBJECTS) AC_SUBST(PKG_TCL_SOURCES) AC_SUBST(PKG_HEADERS) AC_SUBST(PKG_INCLUDES) AC_SUBST(PKG_LIBS) AC_SUBST(PKG_CFLAGS) # Configure the installer. TEA_INSTALLER ]) #------------------------------------------------------------------------ # TEA_ADD_SOURCES -- # # Specify one or more source files. Users should check for # the right platform before adding to their list. # It is not important to specify the directory, as long as it is # in the generic, win or unix subdirectory of $(srcdir). # # Arguments: # one or more file names # # Results: # # Defines and substs the following vars: # PKG_SOURCES # PKG_OBJECTS #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_SOURCES], [ vars="$@" for i in $vars; do case $i in [\$]*) # allow $-var names PKG_SOURCES="$PKG_SOURCES $i" PKG_OBJECTS="$PKG_OBJECTS $i" ;; *) # check for existence - allows for generic/win/unix VPATH # To add more dirs here (like 'src'), you have to update VPATH # in Makefile.in as well if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ -a ! -f "${srcdir}/macosx/$i" \ ; then AC_MSG_ERROR([could not find source file '$i']) fi PKG_SOURCES="$PKG_SOURCES $i" # this assumes it is in a VPATH dir i=`basename $i` # handle user calling this before or after TEA_SETUP_COMPILER if test x"${OBJEXT}" != x ; then j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}" else j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}" fi PKG_OBJECTS="$PKG_OBJECTS $j" ;; esac done AC_SUBST(PKG_SOURCES) AC_SUBST(PKG_OBJECTS) ]) #------------------------------------------------------------------------ # TEA_ADD_STUB_SOURCES -- # # Specify one or more source files. Users should check for # the right platform before adding to their list. # It is not important to specify the directory, as long as it is # in the generic, win or unix subdirectory of $(srcdir). # # Arguments: # one or more file names # # Results: # # Defines and substs the following vars: # PKG_STUB_SOURCES # PKG_STUB_OBJECTS #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_STUB_SOURCES], [ vars="$@" for i in $vars; do # check for existence - allows for generic/win/unix VPATH if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ -a ! -f "${srcdir}/macosx/$i" \ ; then AC_MSG_ERROR([could not find stub source file '$i']) fi PKG_STUB_SOURCES="$PKG_STUB_SOURCES $i" # this assumes it is in a VPATH dir i=`basename $i` # handle user calling this before or after TEA_SETUP_COMPILER if test x"${OBJEXT}" != x ; then j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}" else j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}" fi PKG_STUB_OBJECTS="$PKG_STUB_OBJECTS $j" done AC_SUBST(PKG_STUB_SOURCES) AC_SUBST(PKG_STUB_OBJECTS) ]) #------------------------------------------------------------------------ # TEA_ADD_TCL_SOURCES -- # # Specify one or more Tcl source files. These should be platform # independent runtime files. # # Arguments: # one or more file names # # Results: # # Defines and substs the following vars: # PKG_TCL_SOURCES #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_TCL_SOURCES], [ vars="$@" for i in $vars; do # check for existence, be strict because it is installed if test ! -f "${srcdir}/$i" ; then AC_MSG_ERROR([could not find tcl source file '${srcdir}/$i']) fi PKG_TCL_SOURCES="$PKG_TCL_SOURCES $i" done AC_SUBST(PKG_TCL_SOURCES) ]) #------------------------------------------------------------------------ # TEA_ADD_HEADERS -- # # Specify one or more source headers. Users should check for # the right platform before adding to their list. # # Arguments: # one or more file names # # Results: # # Defines and substs the following vars: # PKG_HEADERS #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_HEADERS], [ vars="$@" for i in $vars; do # check for existence, be strict because it is installed if test ! -f "${srcdir}/$i" ; then AC_MSG_ERROR([could not find header file '${srcdir}/$i']) fi PKG_HEADERS="$PKG_HEADERS $i" done AC_SUBST(PKG_HEADERS) ]) #------------------------------------------------------------------------ # TEA_ADD_INCLUDES -- # # Specify one or more include dirs. Users should check for # the right platform before adding to their list. # # Arguments: # one or more file names # # Results: # # Defines and substs the following vars: # PKG_INCLUDES #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_INCLUDES], [ vars="$@" for i in $vars; do PKG_INCLUDES="$PKG_INCLUDES $i" done AC_SUBST(PKG_INCLUDES) ]) #------------------------------------------------------------------------ # TEA_ADD_LIBS -- # # Specify one or more libraries. Users should check for # the right platform before adding to their list. For Windows, # libraries provided in "foo.lib" format will be converted to # "-lfoo" when using GCC (mingw). # # Arguments: # one or more file names # # Results: # # Defines and substs the following vars: # PKG_LIBS #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_LIBS], [ vars="$@" for i in $vars; do if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then # Convert foo.lib to -lfoo for GCC. No-op if not *.lib i=`echo "$i" | sed -e 's/^\([[^-]].*\)\.lib[$]/-l\1/i'` fi PKG_LIBS="$PKG_LIBS $i" done AC_SUBST(PKG_LIBS) ]) #------------------------------------------------------------------------ # TEA_ADD_CFLAGS -- # # Specify one or more CFLAGS. Users should check for # the right platform before adding to their list. # # Arguments: # one or more file names # # Results: # # Defines and substs the following vars: # PKG_CFLAGS #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_CFLAGS], [ PKG_CFLAGS="$PKG_CFLAGS $@" AC_SUBST(PKG_CFLAGS) ]) #------------------------------------------------------------------------ # TEA_ADD_CLEANFILES -- # # Specify one or more CLEANFILES. # # Arguments: # one or more file names to clean target # # Results: # # Appends to CLEANFILES, already defined for subst in LOAD_TCLCONFIG #------------------------------------------------------------------------ AC_DEFUN([TEA_ADD_CLEANFILES], [ CLEANFILES="$CLEANFILES $@" ]) #------------------------------------------------------------------------ # TEA_PREFIX -- # # Handle the --prefix=... option by defaulting to what Tcl gave # # Arguments: # none # # Results: # # If --prefix or --exec-prefix was not specified, $prefix and # $exec_prefix will be set to the values given to Tcl when it was # configured. #------------------------------------------------------------------------ AC_DEFUN([TEA_PREFIX], [ if test "${prefix}" = "NONE"; then prefix_default=yes if test x"${TCL_PREFIX}" != x; then AC_MSG_NOTICE([--prefix defaulting to TCL_PREFIX ${TCL_PREFIX}]) prefix=${TCL_PREFIX} else AC_MSG_NOTICE([--prefix defaulting to /usr/local]) prefix=/usr/local fi fi if test "${exec_prefix}" = "NONE" -a x"${prefix_default}" = x"yes" \ -o x"${exec_prefix_default}" = x"yes" ; then if test x"${TCL_EXEC_PREFIX}" != x; then AC_MSG_NOTICE([--exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}]) exec_prefix=${TCL_EXEC_PREFIX} else AC_MSG_NOTICE([--exec-prefix defaulting to ${prefix}]) exec_prefix=$prefix fi fi ]) #------------------------------------------------------------------------ # TEA_SETUP_COMPILER_CC -- # # Do compiler checks the way we want. This is just a replacement # for AC_PROG_CC in TEA configure.ac files to make them cleaner. # # Arguments: # none # # Results: # # Sets up CC var and other standard bits we need to make executables. #------------------------------------------------------------------------ AC_DEFUN([TEA_SETUP_COMPILER_CC], [ # Don't put any macros that use the compiler (e.g. AC_TRY_COMPILE) # in this macro, they need to go into TEA_SETUP_COMPILER instead. AC_PROG_CC AC_PROG_CPP #-------------------------------------------------------------------- # Checks to see if the make program sets the $MAKE variable. #-------------------------------------------------------------------- AC_PROG_MAKE_SET #-------------------------------------------------------------------- # Find ranlib #-------------------------------------------------------------------- AC_CHECK_TOOL(RANLIB, ranlib) #-------------------------------------------------------------------- # Determines the correct binary file extension (.o, .obj, .exe etc.) #-------------------------------------------------------------------- AC_OBJEXT AC_EXEEXT ]) #------------------------------------------------------------------------ # TEA_SETUP_COMPILER -- # # Do compiler checks that use the compiler. This must go after # TEA_SETUP_COMPILER_CC, which does the actual compiler check. # # Arguments: # none # # Results: # # Sets up CC var and other standard bits we need to make executables. #------------------------------------------------------------------------ AC_DEFUN([TEA_SETUP_COMPILER], [ # Any macros that use the compiler (e.g. AC_TRY_COMPILE) have to go here. AC_REQUIRE([TEA_SETUP_COMPILER_CC]) #------------------------------------------------------------------------ # If we're using GCC, see if the compiler understands -pipe. If so, use it. # It makes compiling go faster. (This is only a performance feature.) #------------------------------------------------------------------------ if test -z "$no_pipe" -a -n "$GCC"; then AC_CACHE_CHECK([if the compiler understands -pipe], tcl_cv_cc_pipe, [ hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -pipe" AC_TRY_COMPILE(,, tcl_cv_cc_pipe=yes, tcl_cv_cc_pipe=no) CFLAGS=$hold_cflags]) if test $tcl_cv_cc_pipe = yes; then CFLAGS="$CFLAGS -pipe" fi fi #-------------------------------------------------------------------- # Common compiler flag setup #-------------------------------------------------------------------- AC_C_BIGENDIAN ]) #------------------------------------------------------------------------ # TEA_MAKE_LIB -- # # Generate a line that can be used to build a shared/unshared library # in a platform independent manner. # # Arguments: # none # # Requires: # # Results: # # Defines the following vars: # CFLAGS - Done late here to note disturb other AC macros # MAKE_LIB - Command to execute to build the Tcl library; # differs depending on whether or not Tcl is being # compiled as a shared library. # MAKE_SHARED_LIB Makefile rule for building a shared library # MAKE_STATIC_LIB Makefile rule for building a static library # MAKE_STUB_LIB Makefile rule for building a stub library # VC_MANIFEST_EMBED_DLL Makefile rule for embedded VC manifest in DLL # VC_MANIFEST_EMBED_EXE Makefile rule for embedded VC manifest in EXE #------------------------------------------------------------------------ AC_DEFUN([TEA_MAKE_LIB], [ if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes"; then MAKE_STATIC_LIB="\${STLIB_LD} -out:\[$]@ \$(PKG_OBJECTS)" MAKE_SHARED_LIB="\${SHLIB_LD} \${SHLIB_LD_LIBS} \${LDFLAGS_DEFAULT} -out:\[$]@ \$(PKG_OBJECTS)" AC_EGREP_CPP([manifest needed], [ #if defined(_MSC_VER) && _MSC_VER >= 1400 print("manifest needed") #endif ], [ # Could do a CHECK_PROG for mt, but should always be with MSVC8+ VC_MANIFEST_EMBED_DLL="if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;2 ; fi" VC_MANIFEST_EMBED_EXE="if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;1 ; fi" MAKE_SHARED_LIB="${MAKE_SHARED_LIB} ; ${VC_MANIFEST_EMBED_DLL}" TEA_ADD_CLEANFILES([*.manifest]) ]) MAKE_STUB_LIB="\${STLIB_LD} -nodefaultlib -out:\[$]@ \$(PKG_STUB_OBJECTS)" else MAKE_STATIC_LIB="\${STLIB_LD} \[$]@ \$(PKG_OBJECTS)" MAKE_SHARED_LIB="\${SHLIB_LD} -o \[$]@ \$(PKG_OBJECTS) \${SHLIB_LD_LIBS}" MAKE_STUB_LIB="\${STLIB_LD} \[$]@ \$(PKG_STUB_OBJECTS)" fi if test "${SHARED_BUILD}" = "1" ; then MAKE_LIB="${MAKE_SHARED_LIB} " else MAKE_LIB="${MAKE_STATIC_LIB} " fi #-------------------------------------------------------------------- # Shared libraries and static libraries have different names. # Use the double eval to make sure any variables in the suffix is # substituted. (@@@ Might not be necessary anymore) #-------------------------------------------------------------------- if test "${TEA_PLATFORM}" = "windows" ; then if test "${SHARED_BUILD}" = "1" ; then # We force the unresolved linking of symbols that are really in # the private libraries of Tcl and Tk. if test x"${TK_BIN_DIR}" != x ; then SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TK_BIN_DIR}/${TK_STUB_LIB_FILE}`\"" fi SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}`\"" if test "$GCC" = "yes"; then SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -static-libgcc" fi eval eval "PKG_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${SHARED_LIB_SUFFIX}" else eval eval "PKG_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}" if test "$GCC" = "yes"; then PKG_LIB_FILE=lib${PKG_LIB_FILE} fi fi # Some packages build their own stubs libraries eval eval "PKG_STUB_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}" if test "$GCC" = "yes"; then PKG_STUB_LIB_FILE=lib${PKG_STUB_LIB_FILE} fi # These aren't needed on Windows (either MSVC or gcc) RANLIB=: RANLIB_STUB=: else RANLIB_STUB="${RANLIB}" if test "${SHARED_BUILD}" = "1" ; then SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TCL_STUB_LIB_SPEC}" if test x"${TK_BIN_DIR}" != x ; then SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TK_STUB_LIB_SPEC}" fi eval eval "PKG_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${SHARED_LIB_SUFFIX}" RANLIB=: else eval eval "PKG_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}" fi # Some packages build their own stubs libraries eval eval "PKG_STUB_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}" fi # These are escaped so that only CFLAGS is picked up at configure time. # The other values will be substituted at make time. CFLAGS="${CFLAGS} \${CFLAGS_DEFAULT} \${CFLAGS_WARNING}" if test "${SHARED_BUILD}" = "1" ; then CFLAGS="${CFLAGS} \${SHLIB_CFLAGS}" fi AC_SUBST(MAKE_LIB) AC_SUBST(MAKE_SHARED_LIB) AC_SUBST(MAKE_STATIC_LIB) AC_SUBST(MAKE_STUB_LIB) AC_SUBST(RANLIB_STUB) AC_SUBST(VC_MANIFEST_EMBED_DLL) AC_SUBST(VC_MANIFEST_EMBED_EXE) ]) #------------------------------------------------------------------------ # TEA_LIB_SPEC -- # # Compute the name of an existing object library located in libdir # from the given base name and produce the appropriate linker flags. # # Arguments: # basename The base name of the library without version # numbers, extensions, or "lib" prefixes. # extra_dir Extra directory in which to search for the # library. This location is used first, then # $prefix/$exec-prefix, then some defaults. # # Requires: # TEA_INIT and TEA_PREFIX must be called first. # # Results: # # Defines the following vars: # ${basename}_LIB_NAME The computed library name. # ${basename}_LIB_SPEC The computed linker flags. #------------------------------------------------------------------------ AC_DEFUN([TEA_LIB_SPEC], [ AC_MSG_CHECKING([for $1 library]) # Look in exec-prefix for the library (defined by TEA_PREFIX). tea_lib_name_dir="${exec_prefix}/lib" # Or in a user-specified location. if test x"$2" != x ; then tea_extra_lib_dir=$2 else tea_extra_lib_dir=NONE fi for i in \ `ls -dr ${tea_extra_lib_dir}/$1[[0-9]]*.lib 2>/dev/null ` \ `ls -dr ${tea_extra_lib_dir}/lib$1[[0-9]]* 2>/dev/null ` \ `ls -dr ${tea_lib_name_dir}/$1[[0-9]]*.lib 2>/dev/null ` \ `ls -dr ${tea_lib_name_dir}/lib$1[[0-9]]* 2>/dev/null ` \ `ls -dr /usr/lib/$1[[0-9]]*.lib 2>/dev/null ` \ `ls -dr /usr/lib/lib$1[[0-9]]* 2>/dev/null ` \ `ls -dr /usr/lib64/$1[[0-9]]*.lib 2>/dev/null ` \ `ls -dr /usr/lib64/lib$1[[0-9]]* 2>/dev/null ` \ `ls -dr /usr/local/lib/$1[[0-9]]*.lib 2>/dev/null ` \ `ls -dr /usr/local/lib/lib$1[[0-9]]* 2>/dev/null ` ; do if test -f "$i" ; then tea_lib_name_dir=`dirname $i` $1_LIB_NAME=`basename $i` $1_LIB_PATH_NAME=$i break fi done if test "${TEA_PLATFORM}" = "windows"; then $1_LIB_SPEC=\"`${CYGPATH} ${$1_LIB_PATH_NAME} 2>/dev/null`\" else # Strip off the leading "lib" and trailing ".a" or ".so" tea_lib_name_lib=`echo ${$1_LIB_NAME}|sed -e 's/^lib//' -e 's/\.[[^.]]*$//' -e 's/\.so.*//'` $1_LIB_SPEC="-L${tea_lib_name_dir} -l${tea_lib_name_lib}" fi if test "x${$1_LIB_NAME}" = x ; then AC_MSG_ERROR([not found]) else AC_MSG_RESULT([${$1_LIB_SPEC}]) fi ]) #------------------------------------------------------------------------ # TEA_PRIVATE_TCL_HEADERS -- # # Locate the private Tcl include files # # Arguments: # # Requires: # TCL_SRC_DIR Assumes that TEA_LOAD_TCLCONFIG has # already been called. # # Results: # # Substitutes the following vars: # TCL_TOP_DIR_NATIVE # TCL_INCLUDES #------------------------------------------------------------------------ AC_DEFUN([TEA_PRIVATE_TCL_HEADERS], [ # Allow for --with-tclinclude to take effect and define ${ac_cv_c_tclh} AC_REQUIRE([TEA_PUBLIC_TCL_HEADERS]) AC_MSG_CHECKING([for Tcl private include files]) TCL_SRC_DIR_NATIVE=`${CYGPATH} ${TCL_SRC_DIR}` TCL_TOP_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}\" # Check to see if tclPort.h isn't already with the public headers # Don't look for tclInt.h because that resides with tcl.h in the core # sources, but the Port headers are in a different directory if test "${TEA_PLATFORM}" = "windows" -a \ -f "${ac_cv_c_tclh}/tclWinPort.h"; then result="private headers found with public headers" elif test "${TEA_PLATFORM}" = "unix" -a \ -f "${ac_cv_c_tclh}/tclUnixPort.h"; then result="private headers found with public headers" else TCL_GENERIC_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/generic\" if test "${TEA_PLATFORM}" = "windows"; then TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/win\" else TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/unix\" fi # Overwrite the previous TCL_INCLUDES as this should capture both # public and private headers in the same set. # We want to ensure these are substituted so as not to require # any *_NATIVE vars be defined in the Makefile TCL_INCLUDES="-I${TCL_GENERIC_DIR_NATIVE} -I${TCL_PLATFORM_DIR_NATIVE}" if test "`uname -s`" = "Darwin"; then # If Tcl was built as a framework, attempt to use # the framework's Headers and PrivateHeaders directories case ${TCL_DEFS} in *TCL_FRAMEWORK*) if test -d "${TCL_BIN_DIR}/Headers" -a \ -d "${TCL_BIN_DIR}/PrivateHeaders"; then TCL_INCLUDES="-I\"${TCL_BIN_DIR}/Headers\" -I\"${TCL_BIN_DIR}/PrivateHeaders\" ${TCL_INCLUDES}" else TCL_INCLUDES="${TCL_INCLUDES} ${TCL_INCLUDE_SPEC} `echo "${TCL_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`" fi ;; esac result="Using ${TCL_INCLUDES}" else if test ! -f "${TCL_SRC_DIR}/generic/tclInt.h" ; then AC_MSG_ERROR([Cannot find private header tclInt.h in ${TCL_SRC_DIR}]) fi result="Using srcdir found in tclConfig.sh: ${TCL_SRC_DIR}" fi fi AC_SUBST(TCL_TOP_DIR_NATIVE) AC_SUBST(TCL_INCLUDES) AC_MSG_RESULT([${result}]) ]) #------------------------------------------------------------------------ # TEA_PUBLIC_TCL_HEADERS -- # # Locate the installed public Tcl header files # # Arguments: # None. # # Requires: # CYGPATH must be set # # Results: # # Adds a --with-tclinclude switch to configure. # Result is cached. # # Substitutes the following vars: # TCL_INCLUDES #------------------------------------------------------------------------ AC_DEFUN([TEA_PUBLIC_TCL_HEADERS], [ AC_MSG_CHECKING([for Tcl public headers]) AC_ARG_WITH(tclinclude, [ --with-tclinclude directory containing the public Tcl header files], with_tclinclude=${withval}) AC_CACHE_VAL(ac_cv_c_tclh, [ # Use the value from --with-tclinclude, if it was given if test x"${with_tclinclude}" != x ; then if test -f "${with_tclinclude}/tcl.h" ; then ac_cv_c_tclh=${with_tclinclude} else AC_MSG_ERROR([${with_tclinclude} directory does not contain tcl.h]) fi else list="" if test "`uname -s`" = "Darwin"; then # If Tcl was built as a framework, attempt to use # the framework's Headers directory case ${TCL_DEFS} in *TCL_FRAMEWORK*) list="`ls -d ${TCL_BIN_DIR}/Headers 2>/dev/null`" ;; esac fi # Look in the source dir only if Tcl is not installed, # and in that situation, look there before installed locations. if test -f "${TCL_BIN_DIR}/Makefile" ; then list="$list `ls -d ${TCL_SRC_DIR}/generic 2>/dev/null`" fi # Check order: pkg --prefix location, Tcl's --prefix location, # relative to directory of tclConfig.sh. eval "temp_includedir=${includedir}" list="$list \ `ls -d ${temp_includedir} 2>/dev/null` \ `ls -d ${TCL_PREFIX}/include 2>/dev/null` \ `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`" if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then list="$list /usr/local/include /usr/include" if test x"${TCL_INCLUDE_SPEC}" != x ; then d=`echo "${TCL_INCLUDE_SPEC}" | sed -e 's/^-I//'` list="$list `ls -d ${d} 2>/dev/null`" fi fi for i in $list ; do if test -f "$i/tcl.h" ; then ac_cv_c_tclh=$i break fi done fi ]) # Print a message based on how we determined the include path if test x"${ac_cv_c_tclh}" = x ; then AC_MSG_ERROR([tcl.h not found. Please specify its location with --with-tclinclude]) else AC_MSG_RESULT([${ac_cv_c_tclh}]) fi # Convert to a native path and substitute into the output files. INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tclh}` TCL_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" AC_SUBST(TCL_INCLUDES) ]) #------------------------------------------------------------------------ # TEA_PRIVATE_TK_HEADERS -- # # Locate the private Tk include files # # Arguments: # # Requires: # TK_SRC_DIR Assumes that TEA_LOAD_TKCONFIG has # already been called. # # Results: # # Substitutes the following vars: # TK_INCLUDES #------------------------------------------------------------------------ AC_DEFUN([TEA_PRIVATE_TK_HEADERS], [ # Allow for --with-tkinclude to take effect and define ${ac_cv_c_tkh} AC_REQUIRE([TEA_PUBLIC_TK_HEADERS]) AC_MSG_CHECKING([for Tk private include files]) TK_SRC_DIR_NATIVE=`${CYGPATH} ${TK_SRC_DIR}` TK_TOP_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}\" # Check to see if tkPort.h isn't already with the public headers # Don't look for tkInt.h because that resides with tk.h in the core # sources, but the Port headers are in a different directory if test "${TEA_PLATFORM}" = "windows" -a \ -f "${ac_cv_c_tkh}/tkWinPort.h"; then result="private headers found with public headers" elif test "${TEA_PLATFORM}" = "unix" -a \ -f "${ac_cv_c_tkh}/tkUnixPort.h"; then result="private headers found with public headers" else TK_GENERIC_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/generic\" TK_XLIB_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/xlib\" if test "${TEA_PLATFORM}" = "windows"; then TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/win\" else TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/unix\" fi # Overwrite the previous TK_INCLUDES as this should capture both # public and private headers in the same set. # We want to ensure these are substituted so as not to require # any *_NATIVE vars be defined in the Makefile TK_INCLUDES="-I${TK_GENERIC_DIR_NATIVE} -I${TK_PLATFORM_DIR_NATIVE}" # Detect and add ttk subdir if test -d "${TK_SRC_DIR}/generic/ttk"; then TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/generic/ttk\"" fi if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then TK_INCLUDES="${TK_INCLUDES} -I\"${TK_XLIB_DIR_NATIVE}\"" fi if test "${TEA_WINDOWINGSYSTEM}" = "aqua"; then TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/macosx\"" fi if test "`uname -s`" = "Darwin"; then # If Tk was built as a framework, attempt to use # the framework's Headers and PrivateHeaders directories case ${TK_DEFS} in *TK_FRAMEWORK*) if test -d "${TK_BIN_DIR}/Headers" -a \ -d "${TK_BIN_DIR}/PrivateHeaders"; then TK_INCLUDES="-I\"${TK_BIN_DIR}/Headers\" -I\"${TK_BIN_DIR}/PrivateHeaders\" ${TK_INCLUDES}" else TK_INCLUDES="${TK_INCLUDES} ${TK_INCLUDE_SPEC} `echo "${TK_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`" fi ;; esac result="Using ${TK_INCLUDES}" else if test ! -f "${TK_SRC_DIR}/generic/tkInt.h" ; then AC_MSG_ERROR([Cannot find private header tkInt.h in ${TK_SRC_DIR}]) fi result="Using srcdir found in tkConfig.sh: ${TK_SRC_DIR}" fi fi AC_SUBST(TK_TOP_DIR_NATIVE) AC_SUBST(TK_XLIB_DIR_NATIVE) AC_SUBST(TK_INCLUDES) AC_MSG_RESULT([${result}]) ]) #------------------------------------------------------------------------ # TEA_PUBLIC_TK_HEADERS -- # # Locate the installed public Tk header files # # Arguments: # None. # # Requires: # CYGPATH must be set # # Results: # # Adds a --with-tkinclude switch to configure. # Result is cached. # # Substitutes the following vars: # TK_INCLUDES #------------------------------------------------------------------------ AC_DEFUN([TEA_PUBLIC_TK_HEADERS], [ AC_MSG_CHECKING([for Tk public headers]) AC_ARG_WITH(tkinclude, [ --with-tkinclude directory containing the public Tk header files], with_tkinclude=${withval}) AC_CACHE_VAL(ac_cv_c_tkh, [ # Use the value from --with-tkinclude, if it was given if test x"${with_tkinclude}" != x ; then if test -f "${with_tkinclude}/tk.h" ; then ac_cv_c_tkh=${with_tkinclude} else AC_MSG_ERROR([${with_tkinclude} directory does not contain tk.h]) fi else list="" if test "`uname -s`" = "Darwin"; then # If Tk was built as a framework, attempt to use # the framework's Headers directory. case ${TK_DEFS} in *TK_FRAMEWORK*) list="`ls -d ${TK_BIN_DIR}/Headers 2>/dev/null`" ;; esac fi # Look in the source dir only if Tk is not installed, # and in that situation, look there before installed locations. if test -f "${TK_BIN_DIR}/Makefile" ; then list="$list `ls -d ${TK_SRC_DIR}/generic 2>/dev/null`" fi # Check order: pkg --prefix location, Tk's --prefix location, # relative to directory of tkConfig.sh, Tcl's --prefix location, # relative to directory of tclConfig.sh. eval "temp_includedir=${includedir}" list="$list \ `ls -d ${temp_includedir} 2>/dev/null` \ `ls -d ${TK_PREFIX}/include 2>/dev/null` \ `ls -d ${TK_BIN_DIR}/../include 2>/dev/null` \ `ls -d ${TCL_PREFIX}/include 2>/dev/null` \ `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`" if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then list="$list /usr/local/include /usr/include" if test x"${TK_INCLUDE_SPEC}" != x ; then d=`echo "${TK_INCLUDE_SPEC}" | sed -e 's/^-I//'` list="$list `ls -d ${d} 2>/dev/null`" fi fi for i in $list ; do if test -f "$i/tk.h" ; then ac_cv_c_tkh=$i break fi done fi ]) # Print a message based on how we determined the include path if test x"${ac_cv_c_tkh}" = x ; then AC_MSG_ERROR([tk.h not found. Please specify its location with --with-tkinclude]) else AC_MSG_RESULT([${ac_cv_c_tkh}]) fi # Convert to a native path and substitute into the output files. INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tkh}` TK_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" AC_SUBST(TK_INCLUDES) if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then # On Windows and Aqua, we need the X compat headers AC_MSG_CHECKING([for X11 header files]) if test ! -r "${INCLUDE_DIR_NATIVE}/X11/Xlib.h"; then INCLUDE_DIR_NATIVE="`${CYGPATH} ${TK_SRC_DIR}/xlib`" TK_XINCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" AC_SUBST(TK_XINCLUDES) fi AC_MSG_RESULT([${INCLUDE_DIR_NATIVE}]) fi ]) #------------------------------------------------------------------------ # TEA_PATH_CONFIG -- # # Locate the ${1}Config.sh file and perform a sanity check on # the ${1} compile flags. These are used by packages like # [incr Tk] that load *Config.sh files from more than Tcl and Tk. # # Arguments: # none # # Results: # # Adds the following arguments to configure: # --with-$1=... # # Defines the following vars: # $1_BIN_DIR Full path to the directory containing # the $1Config.sh file #------------------------------------------------------------------------ AC_DEFUN([TEA_PATH_CONFIG], [ # # Ok, lets find the $1 configuration # First, look for one uninstalled. # the alternative search directory is invoked by --with-$1 # if test x"${no_$1}" = x ; then # we reset no_$1 in case something fails here no_$1=true AC_ARG_WITH($1, [ --with-$1 directory containing $1 configuration ($1Config.sh)], with_$1config=${withval}) AC_MSG_CHECKING([for $1 configuration]) AC_CACHE_VAL(ac_cv_c_$1config,[ # First check to see if --with-$1 was specified. if test x"${with_$1config}" != x ; then case ${with_$1config} in */$1Config.sh ) if test -f ${with_$1config}; then AC_MSG_WARN([--with-$1 argument should refer to directory containing $1Config.sh, not to $1Config.sh itself]) with_$1config=`echo ${with_$1config} | sed 's!/$1Config\.sh$!!'` fi;; esac if test -f "${with_$1config}/$1Config.sh" ; then ac_cv_c_$1config=`(cd ${with_$1config}; pwd)` else AC_MSG_ERROR([${with_$1config} directory doesn't contain $1Config.sh]) fi fi # then check for a private $1 installation if test x"${ac_cv_c_$1config}" = x ; then for i in \ ../$1 \ `ls -dr ../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ `ls -dr ../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ `ls -dr ../$1*[[0-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ ../../$1 \ `ls -dr ../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ `ls -dr ../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ `ls -dr ../../$1*[[0-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ ../../../$1 \ `ls -dr ../../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ `ls -dr ../../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ `ls -dr ../../../$1*[[0-9]].[[0-9]] 2>/dev/null` \ `ls -dr ../../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ ${srcdir}/../$1 \ `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]] 2>/dev/null` \ `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ ; do if test -f "$i/$1Config.sh" ; then ac_cv_c_$1config=`(cd $i; pwd)` break fi if test -f "$i/unix/$1Config.sh" ; then ac_cv_c_$1config=`(cd $i/unix; pwd)` break fi done fi # check in a few common install locations if test x"${ac_cv_c_$1config}" = x ; then for i in `ls -d ${libdir} 2>/dev/null` \ `ls -d ${exec_prefix}/lib 2>/dev/null` \ `ls -d ${prefix}/lib 2>/dev/null` \ `ls -d /usr/local/lib 2>/dev/null` \ `ls -d /usr/contrib/lib 2>/dev/null` \ `ls -d /usr/pkg/lib 2>/dev/null` \ `ls -d /usr/lib 2>/dev/null` \ `ls -d /usr/lib64 2>/dev/null` \ ; do if test -f "$i/$1Config.sh" ; then ac_cv_c_$1config=`(cd $i; pwd)` break fi done fi ]) if test x"${ac_cv_c_$1config}" = x ; then $1_BIN_DIR="# no $1 configs found" AC_MSG_WARN([Cannot find $1 configuration definitions]) exit 0 else no_$1= $1_BIN_DIR=${ac_cv_c_$1config} AC_MSG_RESULT([found $$1_BIN_DIR/$1Config.sh]) fi fi ]) #------------------------------------------------------------------------ # TEA_LOAD_CONFIG -- # # Load the $1Config.sh file # # Arguments: # # Requires the following vars to be set: # $1_BIN_DIR # # Results: # # Substitutes the following vars: # $1_SRC_DIR # $1_LIB_FILE # $1_LIB_SPEC #------------------------------------------------------------------------ AC_DEFUN([TEA_LOAD_CONFIG], [ AC_MSG_CHECKING([for existence of ${$1_BIN_DIR}/$1Config.sh]) if test -f "${$1_BIN_DIR}/$1Config.sh" ; then AC_MSG_RESULT([loading]) . "${$1_BIN_DIR}/$1Config.sh" else AC_MSG_RESULT([file not found]) fi # # If the $1_BIN_DIR is the build directory (not the install directory), # then set the common variable name to the value of the build variables. # For example, the variable $1_LIB_SPEC will be set to the value # of $1_BUILD_LIB_SPEC. An extension should make use of $1_LIB_SPEC # instead of $1_BUILD_LIB_SPEC since it will work with both an # installed and uninstalled version of Tcl. # if test -f "${$1_BIN_DIR}/Makefile" ; then AC_MSG_WARN([Found Makefile - using build library specs for $1]) $1_LIB_SPEC=${$1_BUILD_LIB_SPEC} $1_STUB_LIB_SPEC=${$1_BUILD_STUB_LIB_SPEC} $1_STUB_LIB_PATH=${$1_BUILD_STUB_LIB_PATH} $1_INCLUDE_SPEC=${$1_BUILD_INCLUDE_SPEC} $1_LIBRARY_PATH=${$1_LIBRARY_PATH} fi AC_SUBST($1_VERSION) AC_SUBST($1_BIN_DIR) AC_SUBST($1_SRC_DIR) AC_SUBST($1_LIB_FILE) AC_SUBST($1_LIB_SPEC) AC_SUBST($1_STUB_LIB_FILE) AC_SUBST($1_STUB_LIB_SPEC) AC_SUBST($1_STUB_LIB_PATH) # Allow the caller to prevent this auto-check by specifying any 2nd arg AS_IF([test "x$2" = x], [ # Check both upper and lower-case variants # If a dev wanted non-stubs libs, this function could take an option # to not use _STUB in the paths below AS_IF([test "x${$1_STUB_LIB_SPEC}" = x], [TEA_LOAD_CONFIG_LIB(translit($1,[a-z],[A-Z])_STUB)], [TEA_LOAD_CONFIG_LIB($1_STUB)]) ]) ]) #------------------------------------------------------------------------ # TEA_LOAD_CONFIG_LIB -- # # Helper function to load correct library from another extension's # ${PACKAGE}Config.sh. # # Results: # Adds to LIBS the appropriate extension library #------------------------------------------------------------------------ AC_DEFUN([TEA_LOAD_CONFIG_LIB], [ AC_MSG_CHECKING([For $1 library for LIBS]) # This simplifies the use of stub libraries by automatically adding # the stub lib to your path. Normally this would add to SHLIB_LD_LIBS, # but this is called before CONFIG_CFLAGS. More importantly, this adds # to PKG_LIBS, which becomes LIBS, and that is only used by SHLIB_LD. if test "x${$1_LIB_SPEC}" != "x" ; then if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes" ; then TEA_ADD_LIBS([\"`${CYGPATH} ${$1_LIB_PATH}`\"]) AC_MSG_RESULT([using $1_LIB_PATH ${$1_LIB_PATH}]) else TEA_ADD_LIBS([${$1_LIB_SPEC}]) AC_MSG_RESULT([using $1_LIB_SPEC ${$1_LIB_SPEC}]) fi else AC_MSG_RESULT([file not found]) fi ]) #------------------------------------------------------------------------ # TEA_EXPORT_CONFIG -- # # Define the data to insert into the ${PACKAGE}Config.sh file # # Arguments: # # Requires the following vars to be set: # $1 # # Results: # Substitutes the following vars: #------------------------------------------------------------------------ AC_DEFUN([TEA_EXPORT_CONFIG], [ #-------------------------------------------------------------------- # These are for $1Config.sh #-------------------------------------------------------------------- # pkglibdir must be a fully qualified path and (not ${exec_prefix}/lib) eval pkglibdir="[$]{libdir}/$1${PACKAGE_VERSION}" if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then eval $1_LIB_FLAG="-l$1${PACKAGE_VERSION}${DBGX}" eval $1_STUB_LIB_FLAG="-l$1stub${PACKAGE_VERSION}${DBGX}" else eval $1_LIB_FLAG="-l$1`echo ${PACKAGE_VERSION} | tr -d .`${DBGX}" eval $1_STUB_LIB_FLAG="-l$1stub`echo ${PACKAGE_VERSION} | tr -d .`${DBGX}" fi $1_BUILD_LIB_SPEC="-L`$CYGPATH $(pwd)` ${$1_LIB_FLAG}" $1_LIB_SPEC="-L`$CYGPATH ${pkglibdir}` ${$1_LIB_FLAG}" $1_BUILD_STUB_LIB_SPEC="-L`$CYGPATH $(pwd)` [$]{$1_STUB_LIB_FLAG}" $1_STUB_LIB_SPEC="-L`$CYGPATH ${pkglibdir}` [$]{$1_STUB_LIB_FLAG}" $1_BUILD_STUB_LIB_PATH="`$CYGPATH $(pwd)`/[$]{PKG_STUB_LIB_FILE}" $1_STUB_LIB_PATH="`$CYGPATH ${pkglibdir}`/[$]{PKG_STUB_LIB_FILE}" AC_SUBST($1_BUILD_LIB_SPEC) AC_SUBST($1_LIB_SPEC) AC_SUBST($1_BUILD_STUB_LIB_SPEC) AC_SUBST($1_STUB_LIB_SPEC) AC_SUBST($1_BUILD_STUB_LIB_PATH) AC_SUBST($1_STUB_LIB_PATH) AC_SUBST(MAJOR_VERSION) AC_SUBST(MINOR_VERSION) AC_SUBST(PATCHLEVEL) ]) #------------------------------------------------------------------------ # TEA_PATH_CELIB -- # # Locate Keuchel's celib emulation layer for targeting Win/CE # # Arguments: # none # # Results: # # Adds the following arguments to configure: # --with-celib=... # # Defines the following vars: # CELIB_DIR Full path to the directory containing # the include and platform lib files #------------------------------------------------------------------------ AC_DEFUN([TEA_PATH_CELIB], [ # First, look for one uninstalled. # the alternative search directory is invoked by --with-celib if test x"${no_celib}" = x ; then # we reset no_celib in case something fails here no_celib=true AC_ARG_WITH(celib,[ --with-celib=DIR use Windows/CE support library from DIR], with_celibconfig=${withval}) AC_MSG_CHECKING([for Windows/CE celib directory]) AC_CACHE_VAL(ac_cv_c_celibconfig,[ # First check to see if --with-celibconfig was specified. if test x"${with_celibconfig}" != x ; then if test -d "${with_celibconfig}/inc" ; then ac_cv_c_celibconfig=`(cd ${with_celibconfig}; pwd)` else AC_MSG_ERROR([${with_celibconfig} directory doesn't contain inc directory]) fi fi # then check for a celib library if test x"${ac_cv_c_celibconfig}" = x ; then for i in \ ../celib-palm-3.0 \ ../celib \ ../../celib-palm-3.0 \ ../../celib \ `ls -dr ../celib-*3.[[0-9]]* 2>/dev/null` \ ${srcdir}/../celib-palm-3.0 \ ${srcdir}/../celib \ `ls -dr ${srcdir}/../celib-*3.[[0-9]]* 2>/dev/null` \ ; do if test -d "$i/inc" ; then ac_cv_c_celibconfig=`(cd $i; pwd)` break fi done fi ]) if test x"${ac_cv_c_celibconfig}" = x ; then AC_MSG_ERROR([Cannot find celib support library directory]) else no_celib= CELIB_DIR=${ac_cv_c_celibconfig} CELIB_DIR=`echo "$CELIB_DIR" | sed -e 's!\\\!/!g'` AC_MSG_RESULT([found $CELIB_DIR]) fi fi ]) #------------------------------------------------------------------------ # TEA_INSTALLER -- # # Configure the installer. # # Arguments: # none # # Results: # Substitutes the following vars: # INSTALL # INSTALL_DATA_DIR # INSTALL_DATA # INSTALL_PROGRAM # INSTALL_SCRIPT # INSTALL_LIBRARY #------------------------------------------------------------------------ AC_DEFUN([TEA_INSTALLER], [ INSTALL='$(SHELL) $(srcdir)/tclconfig/install-sh -c' INSTALL_DATA_DIR='${INSTALL} -d -m 755' INSTALL_DATA='${INSTALL} -m 644' INSTALL_PROGRAM='${INSTALL} -m 755' INSTALL_SCRIPT='${INSTALL} -m 755' TEA_CONFIG_SYSTEM case $system in HP-UX-*) INSTALL_LIBRARY='${INSTALL} -m 755' ;; *) INSTALL_LIBRARY='${INSTALL} -m 644' ;; esac AC_SUBST(INSTALL) AC_SUBST(INSTALL_DATA_DIR) AC_SUBST(INSTALL_DATA) AC_SUBST(INSTALL_PROGRAM) AC_SUBST(INSTALL_SCRIPT) AC_SUBST(INSTALL_LIBRARY) ]) ### # Tip 430 - ZipFS Modifications ### #------------------------------------------------------------------------ # SC_ZIPFS_SUPPORT # Locate a zip encoder installed on the system path, or none. # # Arguments: # none # # Results: # Substitutes the following vars: # TCL_ZIP_FILE # TCL_ZIPFS_SUPPORT # TCL_ZIPFS_FLAG # ZIP_PROG #------------------------------------------------------------------------ #------------------------------------------------------------------------ # SC_PROG_ZIP # Locate a zip encoder installed on the system path, or none. # # Arguments: # none # # Results: # Substitutes the following vars: # ZIP_PROG # ZIP_PROG_OPTIONS # ZIP_PROG_VFSSEARCH # ZIP_INSTALL_OBJS #------------------------------------------------------------------------ AC_DEFUN([TEA_ZIPFS_SUPPORT], [ AC_MSG_CHECKING([for zipfs support]) ZIP_PROG="" ZIP_PROG_OPTIONS="" ZIP_PROG_VFSSEARCH="" INSTALL_MSGS="" # If our native tclsh processes the "install" command line option # we can use it to mint zip files AS_IF([$TCLSH_PROG install],[ ZIP_PROG=${TCLSH_PROG} ZIP_PROG_OPTIONS="install mkzip" ZIP_PROG_VFSSEARCH="." AC_MSG_RESULT([Can use Native Tclsh for Zip encoding]) ]) if test "x$ZIP_PROG" = "x" ; then AC_CACHE_VAL(ac_cv_path_zip, [ search_path=`echo ${PATH} | sed -e 's/:/ /g'` for dir in $search_path ; do for j in `ls -r $dir/zip 2> /dev/null` \ `ls -r $dir/zip 2> /dev/null` ; do if test x"$ac_cv_path_zip" = x ; then if test -f "$j" ; then ac_cv_path_zip=$j break fi fi done done ]) if test -f "$ac_cv_path_zip" ; then ZIP_PROG="$ac_cv_path_zip " AC_MSG_RESULT([$ZIP_PROG]) ZIP_PROG_OPTIONS="-rq" ZIP_PROG_VFSSEARCH="." AC_MSG_RESULT([Found INFO Zip in environment]) # Use standard arguments for zip fi fi if test "x$ZIP_PROG" = "x" ; then # It is not an error if an installed version of Zip can't be located. ZIP_PROG="" ZIP_PROG_OPTIONS="" ZIP_PROG_VFSSEARCH="" TCL_ZIPFS_SUPPORT=0 TCL_ZIPFS_FLAG= else # ZIPFS Support eval "TCL_ZIP_FILE=\"${TCL_ZIP_FILE}\"" if test ${TCL_ZIP_FILE} = "" ; then TCL_ZIPFS_SUPPORT=0 TCL_ZIPFS_FLAG= INSTALL_LIBRARIES=install-libraries INSTALL_MSGS=install-msgs else if test ${SHARED_BUILD} = 1 ; then TCL_ZIPFS_SUPPORT=1 INSTALL_LIBRARIES=install-libraries-zipfs-shared else TCL_ZIPFS_SUPPORT=2 INSTALL_LIBRARIES=install-libraries-zipfs-static fi TCL_ZIPFS_FLAG=-DTCL_ZIPFS_SUPPORT fi fi AC_SUBST(TCL_ZIP_FILE) AC_SUBST(TCL_ZIPFS_SUPPORT) AC_SUBST(TCL_ZIPFS_FLAG) AC_SUBST(ZIP_PROG) AC_SUBST(ZIP_PROG_OPTIONS) AC_SUBST(ZIP_PROG_VFSSEARCH) AC_SUBST(INSTALL_LIBRARIES) AC_SUBST(INSTALL_MSGS) ]) # Local Variables: # mode: autoconf # End: tkcon-2.7.3/tkcon-console.desktop000066400000000000000000000002571357645571500170400ustar00rootroot00000000000000[Desktop Entry] Encoding=UTF-8 Name=tkcon GenericName=Tk console Comment=Tk console Exec=tkcon Icon=tkcon-icon Terminal=false Type=Application Categories=Development;Utility; tkcon-2.7.3/tkcon.tcl000077500000000000000000006036301357645571500145200ustar00rootroot00000000000000#!/bin/sh # -*- tcl -*- # \ exec wish "$0" ${1+"$@"} # ## tkcon.tcl ## Enhanced Tk Console, part of the VerTcl system ## ## Originally based off Brent Welch's Tcl Shell Widget ## (from "Practical Programming in Tcl and Tk") ## ## Thanks to the following (among many) for early bug reports & code ideas: ## Steven Wahl, Jan Nijtmans, Mark Crimmins, Wart ## ## Copyright (c) 1995-2011 Jeffrey Hobbs, jeff(a)hobbs(.)org ## Initiated: Thu Aug 17 15:36:47 PDT 1995 ## ## source standard_disclaimer.tcl ## source bourbon_ware.tcl ## # Proxy support for retrieving the current version of Tkcon. # # Mon Jun 25 12:19:56 2001 - Pat Thoyts # # In your tkcon.cfg or .tkconrc file put your proxy details into the # `proxy' member of the `PRIV' array. e.g.: # # set ::tkcon::PRIV(proxy) wwwproxy:8080 # # If you want to be prompted for proxy authentication details (eg for # an NT proxy server) make the second element of this variable non-nil - eg: # # set ::tkcon::PRIV(proxy) {wwwproxy:8080 1} # # Or you can set the above variable from within tkcon by calling # # tkcon master set ::tkcon:PRIV(proxy) wwwproxy:8080 # if {$tcl_version < 8.4} { return -code error "tkcon requires at least Tcl/Tk 8.4" } else { package require Tk 8.4 } # We need to load some package to get what's available, and we # choose ctext because we'll use it if its available in the editor catch {package require ctext} foreach pkg [info loaded {}] { set file [lindex $pkg 0] set name [lindex $pkg 1] if {![catch {set version [package require $name]}]} { if {[package ifneeded $name $version] eq ""} { package ifneeded $name $version [list load $file $name] } } } # Unset temporary global vars catch {unset pkg file name version} # Initialize the ::tkcon namespace # namespace eval ::tkcon { # when modifying this line, make sure that the auto-upgrade check # for version still works. variable VERSION "2.7" # The OPT variable is an array containing most of the optional # info to configure. COLOR has the color data. variable OPT variable COLOR # PRIV is used for internal data that only tkcon should fiddle with. variable PRIV set PRIV(WWW) [info exists embed_args] set PRIV(AQUA) [expr {$::tcl_version >= 8.4 && [tk windowingsystem] == "aqua"}] set PRIV(CTRL) [expr {$PRIV(AQUA) ? "Command-" : "Control-"}] set PRIV(ACC) [expr {$PRIV(AQUA) ? "Command-" : "Ctrl+"}] variable EXPECT 0 } ## ::tkcon::Init - inits tkcon # # Calls: ::tkcon::InitUI # Outputs: errors found in tkcon's resource file ## proc ::tkcon::Init {args} { variable VERSION variable OPT variable COLOR variable PRIV global tcl_platform env tcl_interactive errorInfo set tcl_interactive 1 set argc [llength $args] ## ## When setting up all the default values, we always check for ## prior existence. This allows users who embed tkcon to modify ## the initial state before tkcon initializes itself. ## # bg == {} will get bg color from the main toplevel (in InitUI) foreach {key default} { bg {} blink \#FFFF00 cursor \#000000 disabled \#4D4D4D proc \#008800 var \#FFC0D0 prompt \#8F4433 stdin \#000000 stdout \#0000FF stderr \#FF0000 } { if {![info exists COLOR($key)]} { set COLOR($key) $default } } # expandorder could also include 'Methodname' for XOTcl/NSF methods foreach {key default} { autoload {} blinktime 500 blinkrange 1 buffer 512 maxlinelen 0 calcmode 0 cols 80 debugPrompt {(level \#$level) debug [history nextid] > } dead {} edit edit expandorder {Pathname Variable Procname} font {} history 48 hoterrors 1 library {} lightbrace 1 lightcmd 1 maineval {} maxmenu 18 nontcl 0 prompt1 {ignore this, it's set below} rows 20 scrollypos right showmenu 1 showmultiple 1 showstatusbar 1 slaveeval {} slaveexit close subhistory 1 tabspace 8 gc-delay 60000 gets {congets} overrideexit 1 usehistory 1 resultfilter {} exec slave } { if {![info exists OPT($key)]} { set OPT($key) $default } } foreach {key default} { app {} appname {} apptype slave namesp :: cmd {} cmdbuf {} cmdsave {} event 1 deadapp 0 deadsock 0 debugging 0 displayWin . histid 0 find {} find,case 0 find,reg 0 errorInfo {} protocol exit showOnStartup 1 slaveprocs { alias clear dir dump echo idebug lremove tkcon_puts tkcon_gets observe observe_var unalias which what } RCS {RCS: @(#) $Id: tkcon.tcl,v 1.124 2016/09/14 21:14:43 hobbs Exp $} HEADURL {http://tkcon.cvs.sourceforge.net/viewvc/tkcon/tkcon/tkcon.tcl} docs "http://tkcon.sourceforge.net/" email {jeff(a)hobbs(.)org} root . uid 0 tabs {} } { if {![info exists PRIV($key)]} { set PRIV($key) $default } } foreach {key default} { slavealias { $OPT(edit) more less tkcon } } { if {![info exists PRIV($key)]} { set PRIV($key) [subst $default] } } set PRIV(version) $VERSION if {[info exists PRIV(name)]} { set title $PRIV(name) } else { MainInit # some main initialization occurs later in this proc, # to go after the UI init set MainInit 1 set title Main } ## NOTES FOR STAYING IN PRIMARY INTERPRETER: ## ## If you set ::tkcon::OPT(exec) to {}, then instead of a multiple ## interp model, you get tkcon operating in the main interp by default. ## This can be useful when attaching to programs that like to operate ## in the main interpter (for example, based on special wish'es). ## You can set this from the command line with -exec "" ## A side effect is that all tkcon command line args will be used ## by the first console only. #set OPT(exec) {} if {$PRIV(WWW)} { lappend PRIV(slavealias) history set OPT(prompt1) {[history nextid] % } } else { lappend PRIV(slaveprocs) tcl_unknown unknown set OPT(prompt1) {([file tail [pwd]]) [history nextid] % } } ## If we are using the default '.' toplevel, and there appear to be ## children of '.', then make sure we use a disassociated toplevel. if {$PRIV(root) == "." && [llength [winfo children .]]} { set PRIV(root) .tkcon } ## Do platform specific configuration here, other than defaults ### Use tkcon.cfg filename for resource filename on non-unix systems ### Determine what directory the resource file should be in switch $tcl_platform(platform) { macintosh { if {![interp issafe]} {cd [file dirname [info script]]} set envHome PREF_FOLDER set rcfile tkcon.cfg set histfile tkcon.hst catch {console hide} } windows { set envHome HOME set rcfile tkcon.cfg set histfile tkcon.hst } unix { set envHome HOME set rcfile .tkconrc set histfile .tkcon_history } } if {[info exists env($envHome)]} { set home $env($envHome) if {[file pathtype $home] == "volumerelative"} { # Convert 'C:' to 'C:/' if necessary, innocuous otherwise append home / } if {![info exists PRIV(rcfile)]} { set PRIV(rcfile) [file join $home $rcfile] } if {![info exists PRIV(histfile)]} { set PRIV(histfile) [file join $home $histfile] } } ## Handle command line arguments before sourcing resource file to ## find if resource file is being specified (let other args pass). if {[set i [lsearch -exact $args -rcfile]] != -1} { set PRIV(rcfile) [lindex $args [incr i]] } if {!$PRIV(WWW) && [file exists $PRIV(rcfile)]} { set code [catch {uplevel \#0 [list source $PRIV(rcfile)]} err] } if {[info exists env(TK_CON_LIBRARY)]} { lappend ::auto_path $env(TK_CON_LIBRARY) } elseif {$OPT(library) != ""} { lappend ::auto_path $OPT(library) } if {![info exists ::tcl_pkgPath]} { set dir [file join [file dirname [info nameofexec]] lib] if {[llength [info commands @scope]]} { set dir [file join $dir itcl] } catch {source [file join $dir pkgIndex.tcl]} } catch {tclPkgUnknown dummy-name dummy-version} ## Handle rest of command line arguments after sourcing resource file ## and slave is created, but before initializing UI or setting packages. set slaveargs {} set slavefiles {} set slaveargv0 {} set truth {^(1|yes|true|on)$} for {set i 0} {$i < $argc} {incr i} { set arg [lindex $args $i] if {[string match {-*} $arg]} { set val [lindex $args [incr i]] ## Handle arg based options switch -glob -- $arg { -- - -argv - -args { set slaveargs [concat $slaveargs [lrange $args $i end]] set ::argv $slaveargs set ::argc [llength $::argv] break } -color-* { set COLOR([string range $arg 7 end]) $val } -exec { set OPT(exec) $val } -main - -e - -eval { append OPT(maineval) \n$val\n } -package - -load { lappend OPT(autoload) $val if {$val eq "nsf" || $val eq "nx" || $val eq "XOTcl" } { # If xotcl is loaded, prepend expand order for it set OPT(expandorder) [concat Methodname $OPT(expandorder)] } } -slave { append OPT(slaveeval) \n$val\n } -nontcl { set OPT(nontcl) [regexp -nocase $truth $val]} -root { set PRIV(root) $val } -font { set OPT(font) $val } -rcfile {} default { lappend slaveargs $arg; incr i -1 } } } elseif {[file isfile $arg]} { if {$i == 0} { set slaveargv0 $arg } lappend slavefiles $arg } else { lappend slaveargs $arg } } ## Create slave executable if {"" != $OPT(exec)} { InitSlave $OPT(exec) $slaveargs $slaveargv0 } else { set argc [llength $slaveargs] set args $slaveargs uplevel \#0 $slaveargs } # Try not to make tkcon override too many standard defaults, and only # do it for the tkcon bits set optclass [tk appname]$PRIV(root) option add $optclass*Menu.tearOff 0 option add $optclass*Menu.borderWidth 1 option add $optclass*Menu.activeBorderWidth 1 if {!$PRIV(AQUA)} { option add $optclass*Scrollbar.borderWidth 1 } ## Attach to the slave, EvalAttached will then be effective Attach $PRIV(appname) $PRIV(apptype) InitUI $title if {"" != $OPT(exec)} { # override exit to DeleteTab now that tab has been created $OPT(exec) alias exit ::tkcon::DeleteTab $PRIV(curtab) $OPT(exec) } ## swap puts and gets with the tkcon versions to make sure all ## input and output is handled by tkcon if {![catch {rename ::puts ::tkcon_tcl_puts}]} { interp alias {} ::puts {} ::tkcon_puts if {[llength [info commands ::tcl::chan::puts]]} { interp alias {} ::tcl::chan::puts {} ::tkcon_puts } } if {($OPT(gets) != "") && ![catch {rename ::gets ::tkcon_tcl_gets}]} { interp alias {} ::gets {} ::tkcon_gets if {[llength [info commands ::tcl::chan::gets]]} { interp alias {} ::tcl::chan::gets {} ::tkcon_gets } } EvalSlave history keep $OPT(history) if {[info exists MainInit]} { # Source history file only for the main console, as all slave # consoles will adopt from the main's history, but still # keep separate histories if {!$PRIV(WWW) && $OPT(usehistory) && [file exists $PRIV(histfile)]} { puts -nonewline "loading history file ... " # The history file is built to be loaded in and # understood by tkcon if {[catch {uplevel \#0 [list source $PRIV(histfile)]} herr]} { puts stderr "error:\n$herr" append PRIV(errorInfo) $errorInfo\n } set PRIV(event) [EvalSlave history nextid] puts "[expr {$PRIV(event)-1}] events added" } } ## Autoload specified packages in slave set pkgs [EvalSlave package names] foreach pkg $OPT(autoload) { puts -nonewline "autoloading package \"$pkg\" ... " if {[lsearch -exact $pkgs $pkg]>-1} { if {[catch {EvalSlave package require [list $pkg]} pkgerr]} { puts stderr "error:\n$pkgerr" append PRIV(errorInfo) $errorInfo\n } else { puts "OK" } } else { puts stderr "error: package does not exist" } } ## Evaluate maineval in slave if {($OPT(maineval) ne "") && [catch {uplevel \#0 $OPT(maineval)} merr]} { puts stderr "error in eval:\n$merr" append PRIV(errorInfo) $errorInfo\n } ## Source extra command line argument files into slave executable foreach fn $slavefiles { puts -nonewline "slave sourcing \"$fn\" ... " if {[catch {EvalSlave uplevel \#0 [list source $fn]} fnerr]} { puts stderr "error:\n$fnerr" append PRIV(errorInfo) $errorInfo\n } else { puts "OK" } } ## Evaluate slaveeval in slave if {($OPT(slaveeval) ne "") && [catch {interp eval $OPT(exec) $OPT(slaveeval)} serr]} { puts stderr "error in slave eval:\n$serr" append PRIV(errorInfo) $errorInfo\n } ## Output any error/output that may have been returned from rcfile if {[info exists code] && $code && ($err ne "")} { puts stderr "error in $PRIV(rcfile):\n$err" append PRIV(errorInfo) $errorInfo } if {$OPT(exec) ne ""} { StateCheckpoint [concat $PRIV(name) $OPT(exec)] slave } StateCheckpoint $PRIV(name) slave puts "buffer line limit:\ [expr {$OPT(buffer)?$OPT(buffer):{unlimited}}] \ max line length:\ [expr {$OPT(maxlinelen)?$OPT(maxlinelen):{unlimited}}]" Prompt "$title console display active (Tcl$::tcl_patchLevel / Tk$::tk_patchLevel)\n" } ## ::tkcon::InitSlave - inits the slave by placing key procs and aliases in it ## It's arg[cv] are based on passed in options, while argv0 is the same as ## the master. tcl_interactive is the same as the master as well. # ARGS: slave - name of slave to init. If it does not exist, it is created. # args - args to pass to a slave as argv/argc ## proc ::tkcon::InitSlave {slave {slaveargs {}} {slaveargv0 {}}} { variable OPT variable COLOR variable PRIV global argv0 tcl_interactive tcl_library env auto_path tk_library if {$slave eq ""} { return -code error "Don't init the master interpreter, goofball" } if {![interp exists $slave]} { interp create $slave } if {[interp eval $slave info command source] == ""} { $slave alias source SafeSource $slave $slave alias load SafeLoad $slave $slave alias open SafeOpen $slave $slave alias file file interp eval $slave \ [list set auto_path [lremove $auto_path $tk_library]] interp eval $slave [dump var -nocomplain tcl_library env] interp eval $slave { catch {source [file join $tcl_library init.tcl]} } interp eval $slave { catch unknown } } # This will likely be overridden to call DeleteTab where possible $slave alias exit exit interp eval $slave { # Do package require before changing around puts/gets catch {set __tkcon_error ""; set __tkcon_error $errorInfo} catch {package require bogus-package-name} catch {rename ::puts ::tkcon_tcl_puts} set errorInfo ${__tkcon_error} unset __tkcon_error } foreach cmd $PRIV(slaveprocs) { $slave eval [dump proc $cmd] } foreach cmd $PRIV(slavealias) { $slave alias $cmd $cmd } interp alias $slave ::ls $slave ::dir -full interp alias $slave ::puts $slave ::tkcon_puts if {[llength [info commands ::tcl::chan::puts]]} { interp alias $slave ::tcl::chan::puts $slave ::tkcon_puts } if {$OPT(gets) != ""} { interp eval $slave { catch {rename ::gets ::tkcon_tcl_gets} } interp alias $slave ::gets $slave ::tkcon_gets if {[llength [info commands ::tcl::chan::gets]]} { interp alias $slave ::tcl::chan::gets $slave ::tkcon_gets } } if {$slaveargv0 != ""} { # If tkcon was invoked with 1 or more filenames, then make the # first filename argv0 in the slave, as tclsh/wish would do it. interp eval $slave [list set argv0 $slaveargv0] } else { if {[info exists argv0]} {interp eval $slave [list set argv0 $argv0]} } interp eval $slave set tcl_interactive $tcl_interactive \; \ set auto_path [list [lremove $auto_path $tk_library]] \; \ set argc [llength $slaveargs] \; \ set argv [list $slaveargs] \; { if {![llength [info command bgerror]]} { proc bgerror err { global errorInfo set body [info body bgerror] rename ::bgerror {} if {[auto_load bgerror]} { return [bgerror $err] } proc bgerror err $body tkcon bgerror $err $errorInfo } } } foreach pkg [lremove [package names] Tcl] { foreach v [package versions $pkg] { interp eval $slave [list package ifneeded $pkg $v \ [package ifneeded $pkg $v]] } } } ## ::tkcon::InitInterp - inits an interpreter by placing key ## procs and aliases in it. # ARGS: name - interp name # type - interp type (slave|interp) ## proc ::tkcon::InitInterp {name type} { variable OPT variable PRIV ## Don't allow messing up a local master interpreter if {($type eq "namespace") || (($type eq "slave") && [regexp {^([Mm]ain|Slave[0-9]+)$} $name])} { return } set old [Attach] set oldname $PRIV(namesp) catch { Attach $name $type EvalAttached { catch {rename ::puts ::tkcon_tcl_puts} } foreach cmd $PRIV(slaveprocs) { EvalAttached [dump proc $cmd] } switch -exact $type { slave { foreach cmd $PRIV(slavealias) { Main [list interp alias $name ::$cmd $PRIV(name) ::$cmd] } } interp { set thistkcon [::send::appname] foreach cmd $PRIV(slavealias) { EvalAttached "proc $cmd args { ::send::send [list $thistkcon] $cmd \$args }" } } } ## Catch in case it's a 7.4 (no 'interp alias') interp EvalAttached { catch {interp alias {} ::ls {} ::dir -full} if {[catch {interp alias {} ::puts {} ::tkcon_puts}]} { catch {rename ::tkcon_puts ::puts} } elseif {[llength [info commands ::tcl::chan::puts]]} { catch {interp alias {} ::tcl::chan::puts {} ::tkcon_puts} } } if {$OPT(gets) != ""} { EvalAttached { catch {rename ::gets ::tkcon_tcl_gets} if {[catch {interp alias {} ::gets {} ::tkcon_gets}]} { catch {rename ::tkcon_gets ::gets} } elseif {[llength [info commands ::tcl::chan::gets]]} { catch {interp alias {} ::tcl::chan::gets {} ::tkcon_gets} } } } return } {err} eval Attach $old AttachNamespace $oldname if {$err ne ""} { return -code error $err } } ## ::tkcon::InitUI - inits UI portion (console) of tkcon ## Creates all elements of the console window and sets up the text tags # ARGS: root - widget pathname of the tkcon console root # title - title for the console root and main (.) windows # Calls: ::tkcon::InitMenus, ::tkcon::Prompt ## proc ::tkcon::InitUI {title} { variable OPT variable PRIV variable COLOR set root $PRIV(root) if {$root eq "."} { set w {} } else { set w [toplevel $root] } if {!$PRIV(WWW)} { wm withdraw $root wm protocol $root WM_DELETE_WINDOW $PRIV(protocol) } set PRIV(base) $w catch {font create tkconfixed -family Courier -size -12} catch {font create tkconfixedbold -family Courier -size -12 -weight bold} set PRIV(statusbar) [set sbar [frame $w.fstatus]] set PRIV(tabframe) [frame $sbar.tabs] set PRIV(X) [button $sbar.deltab -text "X" -command ::tkcon::DeleteTab \ -activeforeground red -fg red -font tkconfixedbold \ -highlightthickness 0 -padx 2 -pady 0 -borderwidth 1 \ -state disabled -relief flat -takefocus 0] catch {$PRIV(X) configure -overrelief raised} label $sbar.cursor -relief sunken -borderwidth 1 -anchor e -width 6 \ -textvariable ::tkcon::PRIV(StatusCursor) set padx [expr {![info exists ::tcl_platform(os)] || ($::tcl_platform(os) ne "Windows CE")}] grid $PRIV(X) $PRIV(tabframe) $sbar.cursor -sticky news -padx $padx grid configure $PRIV(tabframe) -sticky nsw grid configure $PRIV(X) -pady 0 -padx 0 grid columnconfigure $sbar 1 -weight 1 grid rowconfigure $sbar 0 -weight 1 grid rowconfigure $PRIV(tabframe) 0 -weight 1 if {$PRIV(AQUA)} { # resize control space and correct "X" button space grid columnconfigure $sbar [lindex [grid size $sbar] 0] -minsize 16 $PRIV(X) configure -pady 5 -padx 4 } ## Create console tab set con [InitTab $w] set PRIV(curtab) $con # Only apply this for the first console $con configure -setgrid 1 -width $OPT(cols) -height $OPT(rows) bind $PRIV(root) { if {"%W" == $::tkcon::PRIV(root)} { scan [wm geometry [winfo toplevel %W]] "%%dx%%d" \ ::tkcon::OPT(cols) ::tkcon::OPT(rows) if {[info exists ::tkcon::EXP(spawn_id)]} { catch {stty rows $::tkcon::OPT(rows) columns \ $::tkcon::OPT(cols) < $::tkcon::EXP(slave,name)} } } } # scrollbar set sy [scrollbar $w.sy -takefocus 0 -command [list $con yview]] if {!$PRIV(WWW) && ($::tcl_platform(os) eq "Windows CE")} { $w.sy configure -width 10 } $con configure -yscrollcommand [list $sy set] set PRIV(console) $con set PRIV(scrolly) $sy ## Menus ## catch against use in plugin if {[catch {menu $w.mbar} PRIV(menubar)]} { set PRIV(menubar) [frame $w.mbar -relief raised -borderwidth 1] } InitMenus $PRIV(menubar) $title Bindings if {$OPT(showmenu)} { $root configure -menu $PRIV(menubar) } grid $con -row 1 -column 1 -sticky news grid $sy -row 1 -column [expr {$OPT(scrollypos)=="left"?0:2}] -sticky ns grid $sbar -row 2 -column 0 -columnspan 3 -sticky ew grid columnconfigure $root 1 -weight 1 grid rowconfigure $root 1 -weight 1 if {!$OPT(showstatusbar)} { grid remove $sbar } # If we can locate the XDG icon file then make use of it. if {[package vsatisfies [package provide Tk] 8.6]} { if {[tk windowingsystem] eq "x11"} { if {[set icon [locate_xdg_icon tkcon-icon.png]] ne ""} { image create photo tkcon_icon -file $icon wm iconphoto $root tkcon_icon } } } if {!$PRIV(WWW)} { wm title $root "tkcon $PRIV(version) $title" if {$PRIV(showOnStartup)} { # this may throw an error if toplevel is embedded catch {wm deiconify $root} } } if {$PRIV(showOnStartup)} { focus -force $PRIV(console) } if {$OPT(gc-delay)} { after $OPT(gc-delay) ::tkcon::GarbageCollect } } # Hunt around the XDG defined directories for the icon. # Note: hicolor is the standard theme used by xdg-icon-resource. proc ::tkcon::locate_xdg_icon {name} { global env set dirs [list /usr/local/share /usr/share] if {[info exists env(XDG_DATA_DIRS)]} { set dirs [split $env(XDG_DATA_DIRS) :] } if {[file isdirectory ~/.local/share]} { set dirs [linsert $dirs 0 ~/.local/share] } foreach dir $dirs { foreach path [list icons icons/hicolor/48x48/apps] { set path [file join $dir $path $name] if {[file exists $path]} { return $path } } } return "" } proc ::tkcon::InitTab {w} { variable OPT variable PRIV variable COLOR variable ATTACH # text console set con $w.tab[incr PRIV(uid)] text $con -wrap char -foreground $COLOR(stdin) \ -insertbackground $COLOR(cursor) -borderwidth 1 -highlightthickness 0 $con mark set output 1.0 $con mark set limit 1.0 if {$COLOR(bg) ne ""} { $con configure -background $COLOR(bg) } set COLOR(bg) [$con cget -background] if {$OPT(font) ne ""} { ## Set user-requested font, if any $con configure -font $OPT(font) } elseif {$::tcl_platform(platform) ne "unix"} { ## otherwise make sure the font is monospace set font [$con cget -font] if {![font metrics $font -fixed]} { $con configure -font tkconfixed } } else { $con configure -font tkconfixed } set OPT(font) [$con cget -font] bindtags $con [list $con TkConsole TkConsolePost $PRIV(root) all] # scrollbar if {!$PRIV(WWW)} { if {$::tcl_platform(os) eq "Windows CE"} { font configure tkconfixed -family Tahoma -size 8 $con configure -font tkconfixed -borderwidth 0 -padx 0 -pady 0 set cw [font measure tkconfixed "0"] set ch [font metrics tkconfixed -linespace] set sw [winfo screenwidth $con] set sh [winfo screenheight $con] # We need the magic hard offsets until I find a way to # correctly assume size if {$cw*($OPT(cols)+2) > $sw} { set OPT(cols) [expr {($sw / $cw) - 2}] } if {$ch*($OPT(rows)+3) > $sh} { set OPT(rows) [expr {($sh / $ch) - 3}] } # Place it so that the titlebar underlaps the CE titlebar wm geometry $PRIV(root) +0+0 } } $con configure -height $OPT(rows) -width $OPT(cols) foreach col {prompt stdout stderr stdin proc} { $con tag configure $col -foreground $COLOR($col) } $con tag configure var -background $COLOR(var) $con tag raise sel $con tag configure blink -background $COLOR(blink) $con tag configure find -background $COLOR(blink) set ATTACH($con) [Attach] set rb [radiobutton $PRIV(tabframe).cb[winfo name $con] -takefocus 0 \ -textvariable ::tkcon::ATTACH($con) \ -selectcolor white -relief sunken \ -indicatoron 0 -padx 0 -pady 0 -borderwidth 1 \ -variable ::tkcon::PRIV(curtab) -value $con \ -command [list ::tkcon::GotoTab $con]] if {$::tcl_version >= 8.4} { $rb configure -offrelief flat -overrelief raised } if {$PRIV(AQUA)} { $rb configure -padx 4 -pady 4 -highlightthickness 0 } grid $rb -row 0 -column [lindex [grid size $PRIV(tabframe)] 0] -sticky ns grid $con -row 1 -column 1 -sticky news lappend PRIV(tabs) $con return $con } proc ::tkcon::GotoTab {con} { variable PRIV variable ATTACH set numtabs [llength $PRIV(tabs)] #if {$numtabs == 1} { return } if {[regexp {^[0-9]+$} $con]} { set curtab [lsearch -exact $PRIV(tabs) $PRIV(console)] set nexttab [expr {$curtab + $con}] if {$nexttab >= $numtabs} { set nexttab 0 } elseif {$nexttab < 0} { set nexttab "end" } set con [lindex $PRIV(tabs) $nexttab] } elseif {$con == $PRIV(console)} { return } # adjust console if {[winfo exists $PRIV(console)]} { lower $PRIV(console) $PRIV(console) configure -yscrollcommand {} set ATTACH($PRIV(console)) [Attach] } set PRIV(console) $con $con configure -yscrollcommand [list $PRIV(scrolly) set] $PRIV(scrolly) configure -command [list $con yview] # adjust attach eval [linsert $ATTACH($con) 0 Attach] set PRIV(curtab) $con raise $con if {[$con compare 1.0 == end-1c]} { Prompt } # set StatusCursor set PRIV(StatusCursor) [$con index insert] focus -force $con } proc ::tkcon::NewTab {{con {}}} { variable PRIV variable ATTACH set con [InitTab $PRIV(base)] set slave [GetSlave] InitSlave $slave $slave alias exit ::tkcon::DeleteTab $con $slave if {$PRIV(name) != ""} { set ATTACH($con) [list [list $PRIV(name) $slave] slave] } else { set ATTACH($con) [list $slave slave] } $PRIV(X) configure -state normal MenuConfigure Console "Delete Tab" -state normal GotoTab $con } # The extra code arg is for the alias of exit to this function proc ::tkcon::DeleteTab {{con {}} {slave {}} {code 0}} { variable PRIV set numtabs [llength $PRIV(tabs)] if {$numtabs <= 2} { $PRIV(X) configure -state disabled MenuConfigure Console "Delete Tab" -state disabled } if {$numtabs == 1} { # in the master, it should do the right thing # currently the first master still exists - need rearch to fix exit # we might end up here, depending on how exit is rerouted return } if {$con == ""} { set con $PRIV(console) } catch {unset ATTACH($con)} set curtab [lsearch -exact $PRIV(tabs) $con] set PRIV(tabs) [lreplace $PRIV(tabs) $curtab $curtab] set numtabs [llength $PRIV(tabs)] set nexttab $curtab if {$nexttab >= $numtabs} { set nexttab end } set nexttab [lindex $PRIV(tabs) $nexttab] GotoTab $nexttab if {$slave != "" && $slave != $::tkcon::OPT(exec)} { interp delete $slave } destroy $PRIV(tabframe).cb[winfo name $con] destroy $con } ## ::tkcon::GarbageCollect - do various cleanup ops periodically to our setup ## proc ::tkcon::GarbageCollect {} { variable OPT variable PRIV foreach w $PRIV(tabs) { if {[winfo exists $w]} { ## Remove error tags that no longer span anything ## Make sure the tag pattern matches the unique tag prefix foreach tag [$w tag names] { if {[string match _tag* $tag] && ![llength [$w tag ranges $tag]]} { $w tag delete $tag } } } } if {$OPT(gc-delay)} { after $OPT(gc-delay) ::tkcon::GarbageCollect } } ## ::tkcon::Eval - evaluates commands input into console window ## This is the first stage of the evaluating commands in the console. ## They need to be broken up into consituent commands (by ::tkcon::CmdSep) in ## case a multiple commands were pasted in, then each is eval'ed (by ## ::tkcon::EvalCmd) in turn. Any uncompleted command will not be eval'ed. # ARGS: w - console text widget # Calls: ::tkcon::CmdGet, ::tkcon::CmdSep, ::tkcon::EvalCmd ## proc ::tkcon::Eval {w} { set complete [CmdSep [CmdGet $w] cmds last] $w mark set insert end-1c $w insert end \n if {[llength $cmds]} { foreach c $cmds {EvalCmd $w $c} $w insert insert $last {} } elseif {$complete} { EvalCmd $w $last } if {[winfo exists $w]} { $w see insert } } ## ::tkcon::EvalCmd - evaluates a single command, adding it to history # ARGS: w - console text widget # cmd - the command to evaluate # Calls: ::tkcon::Prompt # Outputs: result of command to stdout (or stderr if error occured) # Returns: next event number ## proc ::tkcon::EvalCmd {w cmd} { variable OPT variable PRIV $w mark set output end if {$cmd ne ""} { set code 0 if {$OPT(subhistory)} { set ev [EvalSlave history nextid] incr ev -1 ## FIX: calcmode doesn't work with requesting history events if {$cmd eq "!!"} { set code [catch {EvalSlave history event $ev} cmd] if {!$code} {$w insert output $cmd\n stdin} } elseif {[regexp {^!(.+)$} $cmd dummy event]} { ## Check last event because history event is broken set code [catch {EvalSlave history event $ev} cmd] if {!$code && ![string match ${event}* $cmd]} { set code [catch {EvalSlave history event $event} cmd] } if {!$code} {$w insert output $cmd\n stdin} } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $cmd dummy old new]} { set code [catch {EvalSlave history event $ev} cmd] if {!$code} { regsub -all -- $old $cmd $new cmd $w insert output $cmd\n stdin } } elseif {$OPT(calcmode) && ![catch {expr $cmd} err]} { AddSlaveHistory $cmd set cmd $err set code -1 } } if {$code} { $w insert output $cmd\n stderr } else { ## We are about to evaluate the command, so move the limit ## mark to ensure that further s don't cause double ## evaluation of this command - for cases like the command ## has a vwait or something in it $w mark set limit end if {$OPT(nontcl) && ($PRIV(apptype) eq "interp")} { set code [catch {EvalSend $cmd} res] if {$code == 1} { set PRIV(errorInfo) "Non-Tcl errorInfo not available" } } elseif {$PRIV(apptype) eq "socket"} { set code [catch {EvalSocket $cmd} res] if {$code == 1} { set PRIV(errorInfo) "Socket-based errorInfo not available" } } else { set code [catch {EvalAttached $cmd} res] if {$code == 1} { if {[catch {EvalAttached [list set errorInfo]} err]} { set PRIV(errorInfo) "Error getting errorInfo:\n$err" } else { set PRIV(errorInfo) $err } } } if {![winfo exists $w]} { # early abort - must be a deleted tab return } AddSlaveHistory $cmd # Run any user defined result filter command. The command is # passed result code and data. if {[llength $OPT(resultfilter)]} { set cmd [linsert $OPT(resultfilter) end $code $res] if {[catch {EvalAttached $cmd} res2]} { $w insert output "Filter failed: $res2" stderr \n stdout } else { set res $res2 } } catch {EvalAttached [list set _ $res]} set maxlen $OPT(maxlinelen) set trailer "" if {($maxlen > 0) && ([string length $res] > $maxlen)} { # If we exceed maximum desired output line length, truncate # the result and add "...+${num}b" in error coloring set trailer ...+[expr {[string length $res]-$maxlen}]b set res [string range $res 0 $maxlen] } if {$code} { if {$OPT(hoterrors)} { set tag [UniqueTag $w] $w insert output $res [list stderr $tag] \n$trailer stderr $w tag bind $tag \ [list $w tag configure $tag -underline 1] $w tag bind $tag \ [list $w tag configure $tag -underline 0] $w tag bind $tag \ "if {!\[info exists tk::Priv(mouseMoved)\] || !\$tk::Priv(mouseMoved)} \ {[list $OPT(edit) -attach [Attach] -type error -- $PRIV(errorInfo)]}" } else { $w insert output $res\n$trailer stderr } } elseif {$res ne ""} { $w insert output $res stdout $trailer stderr \n stdout } } } Prompt set PRIV(event) [EvalSlave history nextid] } ## ::tkcon::EvalSlave - evaluates the args in the associated slave ## args should be passed to this procedure like they would be at ## the command line (not like to 'eval'). # ARGS: args - the command and args to evaluate ## proc ::tkcon::EvalSlave args { interp eval $::tkcon::OPT(exec) $args } ## ::tkcon::EvalOther - evaluate a command in a foreign interp or slave ## without attaching to it. No check for existence is made. # ARGS: app - interp/slave name # type - (slave|interp) ## proc ::tkcon::EvalOther { app type args } { if {$type eq "slave"} { return [Slave $app $args] } else { return [uplevel 1 ::send::send [list $app] $args] } } ## ::tkcon::AddSlaveHistory - ## Command is added to history only if different from previous command. ## This also doesn't cause the history id to be incremented, although the ## command will be evaluated. # ARGS: cmd - command to add ## proc ::tkcon::AddSlaveHistory cmd { set ev [EvalSlave history nextid] incr ev -1 set code [catch {EvalSlave history event $ev} lastCmd] if {$code || $cmd ne $lastCmd} { EvalSlave history add $cmd # Save history every time so it's not lost in case of an abnormal termination. # Do not warn in case of an error: we don't want an error message # after each command if the history file is not writable. catch {SaveHistory} } } ## ::tkcon::EvalSend - sends the args to the attached interpreter ## Varies from 'send' by determining whether attachment is dead ## when an error is received # ARGS: cmd - the command string to send across # Returns: the result of the command ## proc ::tkcon::EvalSend cmd { variable OPT variable PRIV if {$PRIV(deadapp)} { if {[lsearch -exact [::send::interps] $PRIV(app)]<0} { return } else { set PRIV(appname) [string range $PRIV(appname) 5 end] set PRIV(deadapp) 0 Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)] } } set code [catch {::send::send -displayof $PRIV(displayWin) $PRIV(app) $cmd} result] if {$code && [lsearch -exact [::send::interps] $PRIV(app)]<0} { ## Interpreter disappeared if {($OPT(dead) ne "leave") && (($OPT(dead) eq "ignore") || [tk_messageBox -title "Dead Attachment" -type yesno \ -icon info -message \ "\"$PRIV(app)\" appears to have died.\ \nReturn to primary slave interpreter?"] eq "no")} { set PRIV(appname) "DEAD:$PRIV(appname)" set PRIV(deadapp) 1 } else { set err "Attached Tk interpreter \"$PRIV(app)\" died." Attach {} set PRIV(deadapp) 0 EvalSlave set errorInfo $err } Prompt \n [CmdGet $PRIV(console)] } return -code $code $result } ## ::tkcon::EvalSocket - sends the string to an interpreter attached via ## a tcp/ip socket ## ## In the EvalSocket case, ::tkcon::PRIV(app) is the socket id ## ## Must determine whether socket is dead when an error is received # ARGS: cmd - the data string to send across # Returns: the result of the command ## proc ::tkcon::EvalSocket cmd { variable OPT variable PRIV global tcl_version if {$PRIV(deadapp)} { if {![info exists PRIV(app)] || \ [catch {eof $PRIV(app)} eof] || $eof} { return } else { set PRIV(appname) [string range $PRIV(appname) 5 end] set PRIV(deadapp) 0 Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)] } } # Sockets get \'s interpreted, so that users can # send things like \n\r or explicit hex values set cmd [subst -novariables -nocommands $cmd] #puts [list $PRIV(app) $cmd] set code [catch {puts $PRIV(app) $cmd ; flush $PRIV(app)} result] if {$code && [eof $PRIV(app)]} { ## Interpreter died or disappeared puts "$code eof [eof $PRIV(app)]" EvalSocketClosed $PRIV(app) } return -code $code $result } ## ::tkcon::EvalSocketEvent - fileevent command for an interpreter attached ## via a tcp/ip socket ## Must determine whether socket is dead when an error is received # ARGS: args - the args to send across # Returns: the result of the command ## proc ::tkcon::EvalSocketEvent {sock} { variable PRIV if {[gets $sock line] == -1} { if {[eof $sock]} { EvalSocketClosed $sock } return } puts $line } ## ::tkcon::EvalSocketClosed - takes care of handling a closed eval socket ## # ARGS: args - the args to send across # Returns: the result of the command ## proc ::tkcon::EvalSocketClosed {sock} { variable OPT variable PRIV catch {close $sock} if {$sock ne $PRIV(app)} { # If we are not still attached to that socket, just return. # Might be nice to tell the user the socket closed ... return } if {$OPT(dead) ne "leave" && ($OPT(dead) eq "ignore" || [tk_messageBox -title "Dead Attachment" -type yesno \ -icon question \ -message "\"$PRIV(app)\" appears to have died.\ \nReturn to primary slave interpreter?"] eq "no")} { set PRIV(appname) "DEAD:$PRIV(appname)" set PRIV(deadapp) 1 } else { set err "Attached Tk interpreter \"$PRIV(app)\" died." Attach {} set PRIV(deadapp) 0 EvalSlave set errorInfo $err } Prompt \n [CmdGet $PRIV(console)] } ## ::tkcon::EvalNamespace - evaluates the args in a particular namespace ## This is an override for ::tkcon::EvalAttached for when the user wants ## to attach to a particular namespace of the attached interp # ARGS: attached # namespace the namespace to evaluate in # args the args to evaluate # RETURNS: the result of the command ## proc ::tkcon::EvalNamespace { attached namespace args } { if {[llength $args]} { uplevel \#0 $attached \ [list [concat [list namespace eval $namespace] $args]] } } ## ::tkcon::Namespaces - return all the namespaces descendent from $ns ## # ## proc ::tkcon::Namespaces {{ns ::} {l {}}} { if {$ns ne ""} { lappend l $ns } foreach i [EvalAttached [list namespace children $ns]] { set l [Namespaces $i $l] } return $l } ## ::tkcon::CmdGet - gets the current command from the console widget # ARGS: w - console text widget # Returns: text which compromises current command line ## proc ::tkcon::CmdGet w { if {![llength [$w tag nextrange prompt limit end]]} { $w tag add stdin limit end-1c return [$w get limit end-1c] } } ## ::tkcon::CmdSep - separates multiple commands into a list and remainder # ARGS: cmd - (possible) multiple command to separate # list - varname for the list of commands that were separated. # last - varname of any remainder (like an incomplete final command). # If there is only one command, it's placed in this var. # Returns: constituent command info in varnames specified by list & rmd. ## proc ::tkcon::CmdSep {cmd list last} { upvar 1 $list cmds $last inc set inc {} set cmds {} foreach c [split [string trimleft $cmd] \n] { if {$inc ne ""} { append inc \n$c } else { append inc [string trimleft $c] } if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} { if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc} set inc {} } } set i [string equal $inc {}] if {$i && $cmds ne "" && ![string match *\n $cmd]} { set inc [lindex $cmds end] set cmds [lreplace $cmds end end] } return $i } ## ::tkcon::CmdSplit - splits multiple commands into a list # ARGS: cmd - (possible) multiple command to separate # Returns: constituent commands in a list ## proc ::tkcon::CmdSplit {cmd} { set inc {} set cmds {} foreach cmd [split [string trimleft $cmd] \n] { if {$inc ne ""} { append inc \n$cmd } else { append inc [string trimleft $cmd] } if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} { #set inc [string trimright $inc] if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc} set inc {} } } if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc} return $cmds } ## ::tkcon::UniqueTag - creates a uniquely named tag, reusing names ## Called by ::tkcon::EvalCmd # ARGS: w - text widget # Outputs: tag name guaranteed unique in the widget ## proc ::tkcon::UniqueTag {w} { set tags [$w tag names] set idx 0 while {[lsearch -exact $tags _tag[incr idx]] != -1} {} return _tag$idx } ## ::tkcon::ConstrainBuffer - This limits the amount of data in the text widget ## Called by ::tkcon::Prompt and in tkcon proc buffer/console switch cases # ARGS: w - console text widget # size - # of lines to constrain to # Outputs: may delete data in console widget ## proc ::tkcon::ConstrainBuffer {w size} { if {$size && ([$w index end] > $size)} { $w delete 1.0 [expr {int([$w index end])-$size}].0 } } ## ::tkcon::Prompt - displays the prompt in the console widget # ARGS: w - console text widget # Outputs: prompt (specified in ::tkcon::OPT(prompt1)) to console ## proc ::tkcon::Prompt {{pre {}} {post {}} {prompt {}}} { variable OPT variable PRIV set w $PRIV(console) if {![winfo exists $w]} { return } if {$pre ne ""} { $w insert end $pre stdout } set i [$w index end-1c] if {!$OPT(showstatusbar)} { if {$PRIV(appname) ne ""} { $w insert end ">$PRIV(appname)< " prompt } if {$PRIV(namesp) ne "::"} { $w insert end "<$PRIV(namesp)> " prompt } } if {$prompt ne ""} { $w insert end $prompt prompt } else { $w insert end [EvalSlave subst $OPT(prompt1)] prompt } $w mark set output $i $w mark set insert end $w mark set limit insert $w mark gravity limit left if {$post ne ""} { $w insert end $post stdin } ConstrainBuffer $w $OPT(buffer) set ::tkcon::PRIV(StatusCursor) [$w index insert] $w see end } proc ::tkcon::RePrompt {{pre {}} {post {}} {prompt {}}} { # same as prompt, but does nothing for those actions where we # only wanted to refresh the prompt on attach change when the # statusbar is showing (which carries that info instead) variable OPT if {!$OPT(showstatusbar)} { Prompt $pre $post $prompt } } ## ::tkcon::About - gives about info for tkcon ## proc ::tkcon::About {} { variable OPT variable PRIV variable COLOR set w $PRIV(base).about if {![winfo exists $w]} { global tk_patchLevel tcl_patchLevel tcl_version toplevel $w wm withdraw $w wm transient $w $PRIV(root) wm group $w $PRIV(root) catch {wm attributes $w -type dialog} wm title $w "About tkcon v$PRIV(version)" wm resizable $w 0 0 button $w.b -text Dismiss -command [list wm withdraw $w] text $w.text -height 9 -width 60 \ -foreground $COLOR(stdin) \ -background $COLOR(bg) \ -font $OPT(font) -borderwidth 1 -highlightthickness 0 grid $w.text -sticky news grid $w.b -sticky se -padx 6 -pady 4 $w.text tag config center -justify center $w.text tag config title -justify center -font {Courier -18 bold} # strip down the RCS info displayed in the about box regexp {,v ([0-9\./: ]*)} $PRIV(RCS) -> RCS $w.text insert 1.0 "About tkcon v$PRIV(version)" title \ "\n\nCopyright 1995-2002 Jeffrey Hobbs, $PRIV(email)\ \nRelease Info: v$PRIV(version), CVS v$RCS\ \nDocumentation available at:\n$PRIV(docs)\ \nUsing: Tcl v$tcl_patchLevel / Tk v$tk_patchLevel" center $w.text config -state disabled bind $w [list destroy $w] } wm deiconify $w } ## ::tkcon::InitMenus - inits the menubar and popup for the console # ARGS: w - console text widget ## proc ::tkcon::InitMenus {w title} { variable OPT variable PRIV variable COLOR global tcl_platform if {[catch {menu $w.pop}]} { label $w.label -text "Menus not available in plugin mode" grid $w.label -sticky ew return } menu $w.context -disabledforeground $COLOR(disabled) set PRIV(context) $w.context set PRIV(popup) $w.pop proc MenuButton {w m l} { $w add cascade -label $m -underline 0 -menu $w.$l return $w.$l } proc MenuConfigure {m l args} { variable PRIV eval [list $PRIV(menubar).[string tolower $m] entryconfigure $l] $args eval [list $PRIV(popup).[string tolower $m] entryconfigure $l] $args } foreach m [list File Console Edit Interp Prefs History Help] { set l [string tolower $m] MenuButton $w $m $l $w.pop add cascade -label $m -underline 0 -menu $w.pop.$l } ## File Menu ## foreach m [list [menu $w.file -disabledforeground $COLOR(disabled)] \ [menu $w.pop.file -disabledforeground $COLOR(disabled)]] { $m add command -label "Load File" -underline 0 -command ::tkcon::Load $m add cascade -label "Save ..." -underline 0 -menu $m.save $m add separator $m add command -label "Quit" -underline 0 -accel $PRIV(ACC)q \ -command exit ## Save Menu ## set s $m.save menu $s -disabledforeground $COLOR(disabled) $s add command -label "All" -underline 0 \ -command {::tkcon::Save {} all} $s add command -label "History" -underline 0 \ -command {::tkcon::Save {} history} $s add command -label "Stdin" -underline 3 \ -command {::tkcon::Save {} stdin} $s add command -label "Stdout" -underline 3 \ -command {::tkcon::Save {} stdout} $s add command -label "Stderr" -underline 3 \ -command {::tkcon::Save {} stderr} } ## Console Menu ## foreach m [list [menu $w.console -disabledfore $COLOR(disabled)] \ [menu $w.pop.console -disabledfore $COLOR(disabled)]] { $m add command -label "$title Console" -state disabled $m add command -label "New Console" -underline 0 -accel $PRIV(ACC)N \ -command ::tkcon::New $m add command -label "New Tab" -underline 4 -accel $PRIV(ACC)T \ -command ::tkcon::NewTab $m add command -label "Delete Tab" -underline 0 \ -command ::tkcon::DeleteTab -state disabled $m add command -label "Close Console" -underline 0 -accel $PRIV(ACC)w \ -command ::tkcon::Destroy $m add command -label "Clear Console" -underline 1 -accel Ctrl-l \ -command { clear; ::tkcon::Prompt } if {[tk windowingsystem] eq "x11"} { $m add separator $m add command -label "Make Xauth Secure" -und 5 \ -command ::tkcon::XauthSecure } $m add separator $m add cascade -label "Attach To ..." -underline 0 -menu $m.attach ## Attach Console Menu ## set sub [menu $m.attach -disabledforeground $COLOR(disabled)] $sub add cascade -label "Interpreter" -underline 0 -menu $sub.apps $sub add cascade -label "Namespace" -underline 0 -menu $sub.name ## Attach Console Menu ## menu $sub.apps -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::AttachMenu $sub.apps] ## Attach Namespace Menu ## menu $sub.name -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::NamespaceMenu $sub.name] ## Attach Socket Menu ## $sub add cascade -label "Socket" -underline 0 -menu $sub.sock menu $sub.sock -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::SocketMenu $sub.sock] if {[tk windowingsystem] eq "x11"} { ## Attach Display Menu ## $sub add cascade -label "Display" -underline 0 -menu $sub.disp menu $sub.disp -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::DisplayMenu $sub.disp] } } ## Edit Menu ## set text $PRIV(console) foreach m [list [menu $w.edit] [menu $w.pop.edit]] { $m add command -label "Cut" -underline 2 -accel $PRIV(ACC)x \ -command [list ::tkcon::Cut $text] $m add command -label "Copy" -underline 0 -accel $PRIV(ACC)c \ -command [list ::tkcon::Copy $text] $m add command -label "Paste" -underline 0 -accel $PRIV(ACC)v \ -command [list ::tkcon::Paste $text] $m add separator $m add command -label "Find" -underline 0 -accel $PRIV(ACC)F \ -command [list ::tkcon::FindBox $text] } ## Interp Menu ## foreach m [list $w.interp $w.pop.interp] { menu $m -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::InterpMenu $m] } ## Prefs Menu ## foreach m [list [menu $w.prefs] [menu $w.pop.prefs]] { $m add check -label "Brace Highlighting" \ -underline 0 -variable ::tkcon::OPT(lightbrace) $m add check -label "Command Highlighting" \ -underline 0 -variable ::tkcon::OPT(lightcmd) $m add check -label "History Substitution" \ -underline 0 -variable ::tkcon::OPT(subhistory) $m add check -label "Hot Errors" \ -underline 4 -variable ::tkcon::OPT(hoterrors) $m add check -label "Non-Tcl Attachments" \ -underline 0 -variable ::tkcon::OPT(nontcl) $m add check -label "Calculator Mode" \ -underline 1 -variable ::tkcon::OPT(calcmode) $m add check -label "Show Multiple Matches" \ -underline 0 -variable ::tkcon::OPT(showmultiple) if {!$PRIV(AQUA)} { $m add check -label "Show Menubar" \ -underline 5 -variable ::tkcon::OPT(showmenu) \ -command { $::tkcon::PRIV(root) configure \ -menu [expr {$::tkcon::OPT(showmenu) ? $::tkcon::PRIV(menubar) : {}}] } } $m add check -label "Show Statusbar" \ -underline 5 -variable ::tkcon::OPT(showstatusbar) \ -command { if {$::tkcon::OPT(showstatusbar)} { grid $::tkcon::PRIV(statusbar) } else { grid remove $::tkcon::PRIV(statusbar) } } $m add cascade -label "Scrollbar" -underline 2 -menu $m.scroll ## Scrollbar Menu ## set m [menu $m.scroll] $m add radio -label "Left" -value left \ -variable ::tkcon::OPT(scrollypos) \ -command { grid configure $::tkcon::PRIV(scrolly) -column 0 } $m add radio -label "Right" -value right \ -variable ::tkcon::OPT(scrollypos) \ -command { grid configure $::tkcon::PRIV(scrolly) -column 2 } } ## History Menu ## foreach m [list $w.history $w.pop.history] { menu $m -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::HistoryMenu $m] } ## Help Menu ## foreach m [list [menu $w.help] [menu $w.pop.help]] { $m add command -label "About " -underline 0 -accel $PRIV(ACC)A \ -command ::tkcon::About $m add command -label "Retrieve Latest Version" -underline 0 \ -command ::tkcon::Retrieve if {![catch {package require ActiveTcl} ver]} { set cmd "" if {$tcl_platform(platform) == "windows"} { package require registry set ver [join [lrange [split $ver .] 0 3] .] set key {HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\ActiveTcl} if {![catch {registry get "$key\\$ver\\Help" ""} help] && [file exists $help]} { set cmd [list exec $::env(COMSPEC) /c start {} $help] } } elseif {$tcl_platform(os) == "Darwin"} { set ver ActiveTcl-[join [lrange [split $ver .] 0 1] .] set rsc "/Library/Frameworks/Tcl.framework/Resources" set help "$rsc/English.lproj/$ver/index.html" if {[file exists $help]} { set cmd [list exec open $help] } } elseif {$tcl_platform(platform) == "unix"} { set help [file dirname [info nameofexe]] append help /../html/index.html if {[file exists $help]} { set cmd [list puts "Start $help"] } } if {$cmd != ""} { $m add separator $m add command -label "ActiveTcl Help" -underline 10 \ -command $cmd } } } } ## ::tkcon::HistoryMenu - dynamically build the menu for attached interpreters ## # ARGS: m - menu widget ## proc ::tkcon::HistoryMenu m { variable PRIV if {![winfo exists $m]} return set id [EvalSlave history nextid] if {$PRIV(histid)==$id} return set PRIV(histid) $id $m delete 0 end while {($id>1) && ($id>$PRIV(histid)-10) && \ ![catch {EvalSlave history event [incr id -1]} tmp]} { set lbl $tmp if {[string len $lbl]>32} { set lbl [string range $tmp 0 28]... } $m add command -label "$id: $lbl" -command " $::tkcon::PRIV(console) delete limit end $::tkcon::PRIV(console) insert limit [list $tmp] $::tkcon::PRIV(console) see end ::tkcon::Eval $::tkcon::PRIV(console)" } } ## ::tkcon::InterpMenu - dynamically build the menu for attached interpreters ## # ARGS: w - menu widget ## proc ::tkcon::InterpMenu w { variable OPT variable PRIV variable COLOR if {![winfo exists $w]} return $w delete 0 end foreach {app type} [Attach] break $w add command -label "[string toupper $type]: $app" -state disabled if {($OPT(nontcl) && $type eq "interp") || $PRIV(deadapp)} { $w add separator $w add command -state disabled -label "Communication disabled to" $w add command -state disabled -label "dead or non-Tcl interps" return } ## Show Last Error ## $w add separator $w add command -label "Show Last Error" \ -command [list tkcon error $app $type] ## Packages Cascaded Menu ## $w add separator $w add command -label "Manage Packages" -underline 0 \ -command [list ::tkcon::InterpPkgs $app $type] ## State Checkpoint/Revert ## $w add separator $w add command -label "Checkpoint State" \ -command [list ::tkcon::StateCheckpoint $app $type] $w add command -label "Revert State" \ -command [list ::tkcon::StateRevert $app $type] $w add command -label "View State Change" \ -command [list ::tkcon::StateCompare $app $type] ## Init Interp ## $w add separator $w add command -label "Send tkcon Commands" \ -command [list ::tkcon::InitInterp $app $type] } ## ::tkcon::PkgMenu - fill in in the applications sub-menu ## with a list of all the applications that currently exist. ## proc ::tkcon::InterpPkgs {app type} { variable PRIV set t $PRIV(base).interppkgs if {![winfo exists $t]} { toplevel $t wm withdraw $t wm title $t "$app Packages" wm transient $t $PRIV(root) wm group $t $PRIV(root) catch {wm attributes $t -type dialog} bind $t [list destroy $t] label $t.ll -text "Loadable:" -anchor w label $t.lr -text "Loaded:" -anchor w listbox $t.loadable -font tkconfixed -background white -borderwidth 1 \ -yscrollcommand [list $t.llsy set] -selectmode extended listbox $t.loaded -font tkconfixed -background white -borderwidth 1 \ -yscrollcommand [list $t.lrsy set] scrollbar $t.llsy -command [list $t.loadable yview] scrollbar $t.lrsy -command [list $t.loaded yview] button $t.load -borderwidth 1 -text ">>" \ -command [list ::tkcon::InterpPkgLoad $app $type $t.loadable] if {$::tcl_version >= 8.4} { $t.load configure -relief flat -overrelief raised } set f [frame $t.btns] button $f.refresh -width 8 -text "Refresh" -command [info level 0] button $f.dismiss -width 8 -text "Dismiss" -command [list destroy $t] grid $f.refresh $f.dismiss -padx 4 -pady 3 -sticky ew if {$PRIV(AQUA)} { # corner resize control space grid columnconfigure $f [lindex [grid size $f] 0] -minsize 16 } grid $t.ll x x $t.lr x -sticky ew grid $t.loadable $t.llsy $t.load $t.loaded $t.lrsy -sticky news grid $t.btns -sticky e -columnspan 5 grid columnconfigure $t {0 3} -weight 1 grid rowconfigure $t 1 -weight 1 grid configure $t.load -sticky "" bind $t.loadable "[list $t.load invoke]; break" } $t.loaded delete 0 end $t.loadable delete 0 end # just in case stuff has been added to the auto_path # we have to make sure that the errorInfo doesn't get screwed up EvalAttached { set __tkcon_error $errorInfo catch {package require bogus-package-name} set errorInfo ${__tkcon_error} unset __tkcon_error } # get all packages loaded into current interp foreach pkg [EvalAttached [list info loaded {}]] { set pkg [lindex $pkg 1] set loaded($pkg) [package provide $pkg] } # get all package names currently visible foreach pkg [lremove [EvalAttached {package names}] Tcl] { set version [EvalAttached [list package provide $pkg]] if {$version ne ""} { set loaded($pkg) $version } elseif {![info exists loaded($pkg)]} { set loadable($pkg) package } } # get packages that are loaded in any interp foreach pkg [EvalAttached {info loaded}] { set pkg [lindex $pkg 1] if {![info exists loaded($pkg)] && ![info exists loadable($pkg)]} { set loadable($pkg) load } } foreach pkg [lsort -dictionary [array names loadable]] { foreach v [EvalAttached [list package version $pkg]] { $t.loadable insert end [list $pkg $v "($loadable($pkg))"] } } foreach pkg [lsort -dictionary [array names loaded]] { $t.loaded insert end [list $pkg $loaded($pkg)] } wm deiconify $t raise $t } proc ::tkcon::InterpPkgLoad {app type lb} { # load the lb entry items into the interp foreach sel [$lb curselection] { foreach {pkg ver method} [$lb get $sel] { break } if {$method == "(package)"} { set code [catch {::tkcon::EvalOther $app $type \ package require $pkg $ver} msg] } elseif {$method == "(load)"} { set code [catch {::tkcon::EvalOther $app $type load {} $pkg} msg] } else { set code 1 set msg "Incorrect entry in Loadable selection" } if {$code} { tk_messageBox -icon error -title "Error requiring $pkg" -type ok \ -message "Error requiring $pkg $ver:\n$msg\n$::errorInfo" } } # refresh package list InterpPkgs $app $type } ## ::tkcon::AttachMenu - fill in in the applications sub-menu ## with a list of all the applications that currently exist. ## proc ::tkcon::AttachMenu m { variable OPT variable PRIV array set interps [set tmp [Interps]] foreach {i j} $tmp { set tknames($j) {} } $m delete 0 end set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} $m add radio -label {None (use local slave) } -accel $PRIV(ACC)1 \ -variable ::tkcon::PRIV(app) \ -value [concat $::tkcon::PRIV(name) $::tkcon::OPT(exec)] \ -command "::tkcon::Attach {}; $cmd" $m add separator $m add command -label "Foreign Tk Interpreters" -state disabled foreach i [lsort [lremove [::send::interps] [array names tknames]]] { $m add radio -label $i -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $i] interp; $cmd" } $m add separator $m add command -label "tkcon Interpreters" -state disabled foreach i [lsort [array names interps]] { if {$interps($i) eq ""} { set interps($i) "no Tk" } if {[regexp {^Slave[0-9]+} $i]} { set opts [list -label "$i ($interps($i))" \ -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $i] slave; $cmd"] if {$PRIV(name) eq $i} { append opts " -accel $PRIV(ACC)2" } eval [list $m add radio] $opts } else { set name [concat Main $i] if {$name eq "Main"} { $m add radio -label "$name ($interps($i))" -accel $PRIV(ACC)3 \ -variable ::tkcon::PRIV(app) -value Main \ -command "::tkcon::Attach [list $name] slave; $cmd" } else { $m add radio -label "$name ($interps($i))" \ -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $name] slave; $cmd" } } } } ## Displays Cascaded Menu ## proc ::tkcon::DisplayMenu m { $m delete 0 end set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} $m add command -label "New Display" -command ::tkcon::NewDisplay foreach disp [Display] { $m add separator $m add command -label $disp -state disabled set res [Display $disp] set win [lindex $res 0] foreach i [lsort [lindex $res 1]] { $m add radio -label $i -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $i] [list dpy:$win]; $cmd" } } } ## Sockets Cascaded Menu ## proc ::tkcon::SocketMenu m { $m delete 0 end set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} $m add command -label "Create Connection" \ -command "::tkcon::NewSocket; $cmd" foreach sock [file channels sock*] { $m add radio -label $sock -variable ::tkcon::PRIV(app) -value $sock \ -command "::tkcon::Attach $sock socket; $cmd" } } ## Namepaces Cascaded Menu ## proc ::tkcon::NamespaceMenu m { variable PRIV variable OPT $m delete 0 end if {($PRIV(deadapp) || $PRIV(apptype) eq "socket" || \ ($OPT(nontcl) && $PRIV(apptype) eq "interp"))} { $m add command -label "No Namespaces" -state disabled return } ## Same command as for ::tkcon::AttachMenu items set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} set names [lsort [Namespaces ::]] if {[llength $names] > $OPT(maxmenu)} { $m add command -label "Attached to $PRIV(namesp)" -state disabled $m add command -label "List Namespaces" \ -command [list ::tkcon::NamespacesList $names] } else { foreach i $names { if {$i eq "::"} { $m add radio -label "Main" -value $i \ -variable ::tkcon::PRIV(namesp) \ -command "::tkcon::AttachNamespace [list $i]; $cmd" } else { $m add radio -label $i -value $i \ -variable ::tkcon::PRIV(namesp) \ -command "::tkcon::AttachNamespace [list $i]; $cmd" } } } } ## Namepaces List ## proc ::tkcon::NamespacesList {names} { variable PRIV set f $PRIV(base).namespaces catch {destroy $f} toplevel $f catch {wm attributes $f -type dialog} listbox $f.names -width 30 -height 15 -selectmode single \ -yscrollcommand [list $f.scrollv set] \ -xscrollcommand [list $f.scrollh set] \ -background white -borderwidth 1 scrollbar $f.scrollv -command [list $f.names yview] scrollbar $f.scrollh -command [list $f.names xview] -orient horizontal frame $f.buttons button $f.cancel -text "Cancel" -command [list destroy $f] grid $f.names $f.scrollv -sticky nesw grid $f.scrollh -sticky ew grid $f.buttons -sticky nesw grid $f.cancel -in $f.buttons -pady 6 grid columnconfigure $f 0 -weight 1 grid rowconfigure $f 0 -weight 1 #fill the listbox foreach i $names { if {$i eq "::"} { $f.names insert 0 Main } else { $f.names insert end $i } } #Bindings bind $f.names { ## Catch in case the namespace disappeared on us catch { ::tkcon::AttachNamespace [%W get [%W nearest %y]] } ::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] destroy [winfo toplevel %W] } } # ::tkcon::XauthSecure -- # # This removes all the names in the xhost list, and secures # the display for Tk send commands. Of course, this prevents # what might have been otherwise allowable X connections # # Arguments: # none # Results: # Returns nothing # proc ::tkcon::XauthSecure {} { global tcl_platform if {[tk windowingsystem] ne "x11"} { # This makes no sense outside of Unix return } set hosts [exec xhost] # the first line is info only foreach host [lrange [split $hosts \n] 1 end] { exec xhost -$host } exec xhost - tk_messageBox -title "Xhost secured" -message "Xhost secured" -icon info } ## ::tkcon::FindBox - creates minimal dialog interface to ::tkcon::Find # ARGS: w - text widget # str - optional seed string for ::tkcon::PRIV(find) ## proc ::tkcon::FindBox {w {str {}}} { variable PRIV set base $PRIV(base).find if {![winfo exists $base]} { toplevel $base wm withdraw $base catch {wm attributes $base -type dialog} wm title $base "tkcon Find" wm resizable $base 1 0 label $base.l -text "Find:" -anchor e entry $base.e -textvariable ::tkcon::PRIV(find) checkbutton $base.case -text "Case Sensitive" \ -variable ::tkcon::PRIV(find,case) checkbutton $base.re -text "Use Regexp" \ -variable ::tkcon::PRIV(find,reg) frame $base.sep -borderwidth 1 -relief sunken -height 2 frame $base.btn grid $base.l $base.e - - -sticky ew grid $base.case - $base.re -sticky ew grid $base.sep -columnspan 4 -sticky ew grid $base.btn -columnspan 4 -sticky ew grid columnconfigure $base 3 -weight 1 button $base.btn.fnd -text "Find" -width 6 button $base.btn.clr -text "Clear" -width 6 button $base.btn.dis -text "Dismiss" -width 6 eval grid [winfo children $base.btn] -padx 4 -pady 2 -sticky ew if {$PRIV(AQUA)} { # corner resize control space grid columnconfigure $base.btn \ [lindex [grid size $base.btn] 0] -minsize 16 } focus $base.e bind $base.e [list $base.btn.fnd invoke] bind $base.e [list $base.btn.dis invoke] } $base.btn.fnd config -command "::tkcon::Find [list $w] \$::tkcon::PRIV(find) \ -case \$::tkcon::PRIV(find,case) -reg \$::tkcon::PRIV(find,reg)" $base.btn.clr config -command " [list $w] tag remove find 1.0 end set ::tkcon::PRIV(find) {} " $base.btn.dis config -command " [list $w] tag remove find 1.0 end wm withdraw [list $base] " if {$str ne ""} { set PRIV(find) $str $base.btn.fnd invoke } if {[wm state $base] ne "normal"} { wm deiconify $base } else { raise $base } $base.e select range 0 end } ## ::tkcon::Find - searches in text widget $w for $str and highlights it ## If $str is empty, it just deletes any highlighting # ARGS: w - text widget # str - string to search for # -case TCL_BOOLEAN whether to be case sensitive DEFAULT: 0 # -regexp TCL_BOOLEAN whether to use $str as pattern DEFAULT: 0 ## proc ::tkcon::Find {w str args} { $w tag remove find 1.0 end set truth {^(1|yes|true|on)$} set opts {} foreach {key val} $args { switch -glob -- $key { -c* { if {[regexp -nocase $truth $val]} { set case 1 } } -r* { if {[regexp -nocase $truth $val]} { lappend opts -regexp } } default { return -code error "Unknown option $key" } } } if {![info exists case]} { lappend opts -nocase } if {$str eq ""} { return } $w mark set findmark 1.0 while {[set ix [eval $w search $opts -count numc -- \ [list $str] findmark end]] ne ""} { $w tag add find $ix ${ix}+${numc}c $w mark set findmark ${ix}+1c } $w tag configure find -background $::tkcon::COLOR(blink) catch {$w see find.first} return [expr {[llength [$w tag ranges find]]/2}] } ## ::tkcon::Attach - called to attach tkcon to an interpreter # ARGS: name - application name to which tkcon sends commands # This is either a slave interperter name or tk appname. # type - (slave|interp) type of interpreter we're attaching to # slave means it's a tkcon interpreter # interp means we'll need to 'send' to it. # Results: ::tkcon::EvalAttached is recreated to evaluate in the # appropriate interpreter ## proc ::tkcon::Attach {{name } {type slave} {ns {}}} { variable PRIV variable OPT variable ATTACH if {[llength [info level 0]] == 1} { # no args were specified, return the attach info instead return [AttachId] } set path [concat $PRIV(name) $OPT(exec)] set PRIV(displayWin) . if {$type eq "namespace"} { return [uplevel 1 ::tkcon::AttachNamespace $name] } elseif {[string match dpy:* $type]} { set PRIV(displayWin) [string range $type 4 end] } elseif {[string match sock* $type]} { global tcl_version if {[catch {eof $name} res]} { return -code error "No known channel \"$name\"" } elseif {$res} { catch {close $name} return -code error "Channel \"$name\" returned EOF" } set app $name set type socket } elseif {$name ne ""} { array set interps [Interps] if {[string match {[Mm]ain} [lindex $name 0]]} { set name [lrange $name 1 end] } if {$name eq $path} { set name {} set app $path set type slave } elseif {[info exists interps($name)]} { if {$name eq ""} { set name Main; set app Main } set type slave } elseif {[interp exists $name]} { set name [concat $PRIV(name) $name] set type slave } elseif {[interp exists [concat $OPT(exec) $name]]} { set name [concat $path $name] set type slave } elseif {[lsearch -exact [::send::interps] $name] > -1} { if {[EvalSlave info exists tk_library] && $name eq [EvalSlave tk appname]} { set name {} set app $path set type slave } elseif {[set i [lsearch -exact \ [Main set ::tkcon::PRIV(interps)] $name]] != -1} { set name [lindex [Main set ::tkcon::PRIV(slaves)] $i] if {[string match {[Mm]ain} $name]} { set app Main } set type slave } else { set type interp } } else { return -code error "No known interpreter \"$name\"" } } else { set app $path } if {![info exists app]} { set app $name } array set PRIV [list app $app appname $name apptype $type deadapp 0] ## ::tkcon::EvalAttached - evaluates the args in the attached interp ## args should be passed to this procedure as if they were being ## passed to the 'eval' procedure. This procedure is dynamic to ## ensure evaluation occurs in the right interp. # ARGS: args - the command and args to evaluate ## set PRIV(namesp) :: set namespOK 0 switch -glob -- $type { slave { if {$name eq ""} { interp alias {} ::tkcon::EvalAttached {} \ ::tkcon::EvalSlave uplevel \#0 } elseif {$PRIV(app) eq "Main"} { interp alias {} ::tkcon::EvalAttached {} ::tkcon::Main } elseif {$PRIV(name) eq $PRIV(app)} { interp alias {} ::tkcon::EvalAttached {} uplevel \#0 } else { interp alias {} ::tkcon::EvalAttached {} \ ::tkcon::Slave $::tkcon::PRIV(app) } set namespOK 1 } sock* { interp alias {} ::tkcon::EvalAttached {} \ ::tkcon::EvalSlave uplevel \#0 # The file event will just puts whatever data is found # into the interpreter fconfigure $name -buffering line -blocking 0 fileevent $name readable [list ::tkcon::EvalSocketEvent $name] } dpy:* - interp { if {$OPT(nontcl)} { interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalSlave } else { interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalSend set namespOK 1 } } default { return -code error "[lindex [info level 0] 0] did not specify\ a valid type: must be slave or interp" } } if {$ns ne "" && $namespOK} { AttachNamespace $ns } return [AttachId] } proc ::tkcon::AttachId {} { # return Attach info in a form that Attach accepts again variable PRIV if {$PRIV(appname) eq ""} { variable OPT set appname [concat $PRIV(name) $OPT(exec)] } else { set appname $PRIV(appname) } set id [list $appname $PRIV(apptype)] # only display ns info if it isn't "::" as that is what is also # used to indicate no eval in namespace if {$PRIV(namesp) ne "::"} { lappend id $PRIV(namesp) } if {[info exists PRIV(console)]} { variable ATTACH set ATTACH($PRIV(console)) $id } return $id } ## ::tkcon::AttachNamespace - called to attach tkcon to a namespace # ARGS: name - namespace name in which tkcon should eval commands # Results: ::tkcon::EvalAttached will be modified ## proc ::tkcon::AttachNamespace { name } { variable PRIV variable OPT # We could enable 'socket' bound Tcl interps, but we'd have to create # a return listening socket if {($OPT(nontcl) && $PRIV(apptype) eq "interp") || $PRIV(apptype) eq "socket" || $PRIV(deadapp)} { return -code error "can't attach to namespace in attached environment" } if {$name eq "Main"} {set name ::} if {$name ne "" && [lsearch [Namespaces ::] $name] == -1} { return -code error "No known namespace \"$name\"" } if {[regexp {^(|::)$} $name]} { ## If name=={} || ::, we want the primary namespace set alias [interp alias {} ::tkcon::EvalAttached] if {[string match ::tkcon::EvalNamespace* $alias]} { eval [list interp alias {} ::tkcon::EvalAttached {}] \ [lindex $alias 1] } set name :: } else { interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalNamespace \ [interp alias {} ::tkcon::EvalAttached] [list $name] } set PRIV(namesp) $name return [AttachId] } ## ::tkcon::NewSocket - called to create a socket to connect to # ARGS: none # Results: It will create a socket, and attach if requested ## proc ::tkcon::NewSocket {} { variable PRIV set t $PRIV(base).newsock if {![winfo exists $t]} { toplevel $t wm withdraw $t catch {wm attributes $t -type dialog} wm title $t "tkcon Create Socket" wm resizable $t 1 0 label $t.lhost -text "Host: " entry $t.host -width 16 -takefocus 1 label $t.lport -text "Port: " entry $t.port -width 4 -takefocus 1 button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1} -width 4 \ -takefocus 1 bind $t.host [list focus $t.port] bind $t.port [list focus $t.ok] bind $t.ok [list $t.ok invoke] grid $t.lhost $t.host $t.lport $t.port $t.ok -sticky ew grid configure $t.ok -padx 4 -pady 2 grid columnconfig $t 1 -weight 1 grid rowconfigure $t 1 -weight 1 if {$PRIV(AQUA)} { # corner resize control space grid columnconfigure $t [lindex [grid size $t] 0] -minsize 16 } wm transient $t $PRIV(root) wm group $t $PRIV(root) wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \ reqwidth $t]) / 2}]+[expr {([winfo \ screenheight $t]-[winfo reqheight $t]) / 2}] bind $t [list destroy $t] } #$t.host delete 0 end #$t.port delete 0 end wm deiconify $t raise $t grab $t focus $t.host vwait ::tkcon::PRIV(grab) grab release $t wm withdraw $t set host [$t.host get] set port [$t.port get] if {$host == ""} { return } if {[catch { set sock [socket $host $port] } err]} { tk_messageBox -title "Socket Connection Error" \ -message "Unable to connect to \"$host:$port\":\n$err" \ -icon error -type ok } else { Attach $sock socket } } ## ::tkcon::Load - sources a file into the console ## The file is actually sourced in the currently attached's interp # ARGS: fn - (optional) filename to source in # Returns: selected filename ({} if nothing was selected) ## proc ::tkcon::Load { {fn ""} } { set types { {{Tcl Files} {.tcl .tk}} {{Text Files} {.txt}} {{All Files} *} } # Allow for VFS directories, use Tk dialogs automatically when in # VFS-based areas set check [expr {$fn == "" ? [pwd] : $fn}] if {$::tcl_version >= 8.4 && [lindex [file system $check] 0] == "tclvfs"} { set opencmd [list ::tk::dialog::file:: open] } else { set opencmd [list tk_getOpenFile] } if {$fn eq "" && ([catch {tk_getOpenFile -filetypes $types \ -title "Source File"} fn] || $fn eq "") } { return } EvalAttached [list source $fn] } ## ::tkcon::Save - saves the console or other widget buffer to a file ## This does not eval in a slave because it's not necessary # ARGS: w - console text widget # fn - (optional) filename to save to ## proc ::tkcon::Save { {fn ""} {type ""} {opt ""} {mode w} } { variable PRIV if {![regexp -nocase {^(all|history|stdin|stdout|stderr|widget)$} $type]} { array set s { 0 All 1 History 2 Stdin 3 Stdout 4 Stderr 5 Cancel } ## Allow user to specify what kind of stuff to save set type [tk_dialog $PRIV(base).savetype "Save Type" \ "What part of the text do you want to save?" \ questhead 0 $s(0) $s(1) $s(2) $s(3) $s(4) $s(5)] if {$type == 5 || $type == -1} return set type $s($type) } # Allow for VFS directories, use Tk dialogs automatically when in # VFS-based areas set check [expr {$opt == "" ? [pwd] : $opt}] if {$::tcl_version >= 8.4 && [lindex [file system $check] 0] == "tclvfs"} { set savecmd [list ::tk::dialog::file:: save] } else { set savecmd [list tk_getSaveFile] } if {$fn eq ""} { set types { {{Tcl Files} {.tcl .tk}} {{Text Files} {.txt}} {{All Files} *} } if {[catch {eval $savecmd [list -defaultextension .tcl \ -filetypes $types \ -title "Save $type"]} fn] || $fn eq ""} return } set type [string tolower $type] switch $type { stdin - stdout - stderr { set data {} foreach {first last} [$PRIV(console) tag ranges $type] { lappend data [$PRIV(console) get $first $last] } set data [join $data \n] } history { set data [tkcon history] } all - default { set data [$PRIV(console) get 1.0 end-1c] } widget { set data [$opt get 1.0 end-1c] } } if {[catch {open $fn $mode} fid]} { return -code error "Save Error: Unable to open '$fn' for writing\n$fid" } puts -nonewline $fid $data close $fid } ## ::tkcon::MainInit ## This is only called for the main interpreter to include certain procs ## that we don't want to include (or rather, just alias) in slave interps. ## proc ::tkcon::MainInit {} { variable PRIV variable OPT if {![info exists PRIV(slaves)]} { array set PRIV [list slave 0 slaves Main name {} \ interps [list [tk appname]]] } interp alias {} ::tkcon::Main {} ::tkcon::InterpEval Main interp alias {} ::tkcon::Slave {} ::tkcon::InterpEval proc ::tkcon::GetSlave {{slave {}}} { set i 0 while {[Slave $slave [list interp exists Slave[incr i]]]} { # oh my god, an empty loop! } set interp [Slave $slave [list interp create Slave$i]] return $interp } ## ::tkcon::New - create new console window ## Creates a slave interpreter and sources in this script. ## All other interpreters also get a command to eval function in the ## new interpreter. ## proc ::tkcon::New {} { variable PRIV global argv0 argc argv set tmp [GetSlave] lappend PRIV(slaves) $tmp load {} Tk $tmp # If we have tbcload, then that should be autoloaded into slaves. set idx [lsearch [info loaded] "* Tbcload"] if {$idx != -1} { catch {load {} Tbcload $tmp} } lappend PRIV(interps) [$tmp eval [list tk appname \ "[tk appname] $tmp"]] if {[info exists argv0]} {$tmp eval [list set argv0 $argv0]} if {[info exists argc]} {$tmp eval [list set argc $argc]} if {[info exists argv]} {$tmp eval [list set argv $argv]} $tmp eval [list namespace eval ::tkcon {}] $tmp eval [list set ::tkcon::PRIV(name) $tmp] $tmp eval [list set ::tkcon::PRIV(SCRIPT) $::tkcon::PRIV(SCRIPT)] $tmp alias exit ::tkcon::Exit $tmp $tmp alias ::tkcon::Destroy ::tkcon::Destroy $tmp $tmp alias ::tkcon::New ::tkcon::New $tmp alias ::tkcon::GetSlave ::tkcon::GetSlave $tmp $tmp alias ::tkcon::Main ::tkcon::InterpEval Main $tmp alias ::tkcon::Slave ::tkcon::InterpEval $tmp alias ::tkcon::Interps ::tkcon::Interps $tmp alias ::tkcon::NewDisplay ::tkcon::NewDisplay $tmp alias ::tkcon::Display ::tkcon::Display $tmp alias ::tkcon::StateCheckpoint ::tkcon::StateCheckpoint $tmp alias ::tkcon::StateCleanup ::tkcon::StateCleanup $tmp alias ::tkcon::StateCompare ::tkcon::StateCompare $tmp alias ::tkcon::StateRevert ::tkcon::StateRevert $tmp eval { if [catch {source -rsrc tkcon}] { source $::tkcon::PRIV(SCRIPT) } } return $tmp } ## ::tkcon::Exit - full exit OR destroy slave console ## This proc should only be called in the main interpreter from a slave. ## The master determines whether we do a full exit or just kill the slave. ## proc ::tkcon::Exit {slave args} { variable PRIV variable OPT ## Slave interpreter exit request if {$OPT(slaveexit) eq "exit" || [llength $PRIV(interps)] == 1} { ## Only exit if it specifically is stated to do so, or this ## is the last interp uplevel 1 exit $args } else { ## Otherwise we will delete the slave interp and associated data Destroy $slave } } ## ::tkcon::Destroy - destroy console window ## This proc should only be called by the main interpreter. If it is ## called from there, it will ask before exiting tkcon. All others ## (slaves) will just have their slave interpreter deleted, closing them. ## proc ::tkcon::Destroy {{slave {}}} { variable PRIV # Just close on the last one if {[llength $PRIV(interps)] == 1} { exit } if {"" == $slave} { ## Main interpreter close request if {[tk_messageBox -parent $PRIV(root) -title "Quit tkcon?" \ -message "Close all windows and exit tkcon?" \ -icon question -type yesno] == "yes"} { exit } return } elseif {$slave == $::tkcon::OPT(exec)} { set name [tk appname] set slave "Main" } else { ## Slave interpreter close request set name [InterpEval $slave] interp delete $slave } set PRIV(interps) [lremove $PRIV(interps) [list $name]] set PRIV(slaves) [lremove $PRIV(slaves) [list $slave]] StateCleanup $slave } if {$OPT(overrideexit)} { ## We want to do a couple things before exiting... if {[catch {rename ::exit ::tkcon::FinalExit} err]} { puts stderr "tkcon might panic:\n$err" } proc ::exit args { if {$::tkcon::OPT(usehistory)} { if {[catch {::tkcon::SaveHistory} msg]} { puts stderr "unable to save history file:\n$msg" # pause a moment, because we are about to die finally... after 1000 } } uplevel 1 ::tkcon::FinalExit $args } } ## ::tkcon::SaveHistory - saves history to history file ## If the history file is not writable it raises an error proc ::tkcon::SaveHistory {} { if {$::tkcon::OPT(usehistory)} { if {[catch {open $::tkcon::PRIV(histfile) w} fid]} { error $fid } else { set max [::tkcon::EvalSlave history nextid] set id [expr {$max - $::tkcon::OPT(history)}] if {$id < 1} { set id 1 } ## FIX: This puts history in backwards!! while {($id < $max) && ![catch \ {::tkcon::EvalSlave history event $id} cmd]} { if {$cmd ne ""} { puts $fid "::tkcon::EvalSlave\ history add [list $cmd]" } incr id } close $fid } } } ## ::tkcon::InterpEval - passes evaluation to another named interpreter ## If the interpreter is named, but no args are given, it returns the ## [tk appname] of that interps master (not the associated eval slave). ## proc ::tkcon::InterpEval {{slave {}} args} { variable PRIV if {[llength [info level 0]] == 1} { # no args given return $PRIV(slaves) } elseif {[string match {[Mm]ain} $slave]} { set slave {} } if {[llength $args]} { return [interp eval $slave uplevel \#0 $args] } else { # beware safe interps with Tk if {[interp eval $slave {llength [info commands tk]}]} { if {[catch {interp eval $slave tk appname} name]} { return "safetk" } return $name } } } proc ::tkcon::Interps {{ls {}} {interp {}}} { if {$interp eq ""} { lappend ls {} [tk appname] } foreach i [interp slaves $interp] { if {$interp ne ""} { set i "$interp $i" } if {[interp eval $i package provide Tk] ne ""} { # beware safe interps with Tk if {[catch {interp eval $i tk appname} name]} { set name {} } lappend ls $i $name } else { lappend ls $i {} } set ls [Interps $ls $i] } return $ls } proc ::tkcon::Display {{disp {}}} { variable DISP set res {} if {$disp != ""} { if {![info exists DISP($disp)]} { return } return [list $DISP($disp) [winfo interps -displayof $DISP($disp)]] } return [lsort -dictionary [array names DISP]] } proc ::tkcon::NewDisplay {} { variable PRIV variable DISP set t $PRIV(base).newdisp if {![winfo exists $t]} { toplevel $t wm withdraw $t catch {wm attributes $t -type dialog} wm title $t "tkcon Attach to Display" label $t.gets -text "New Display: " entry $t.data -width 32 button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1} bind $t.data [list $t.ok invoke] bind $t.ok [list $t.ok invoke] grid $t.gets $t.data -sticky ew grid $t.ok - -sticky ew grid columnconfig $t 1 -weight 1 grid rowconfigure $t 1 -weight 1 wm transient $t $PRIV(root) wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \ reqwidth $t]) / 2}]+[expr {([winfo \ screenheight $t]-[winfo reqheight $t]) / 2}] } $t.data delete 0 end wm deiconify $t raise $t grab $t focus $t.data vwait ::tkcon::PRIV(grab) grab release $t wm withdraw $t set disp [$t.data get] if {$disp == ""} { return } regsub -all {\.} [string tolower $disp] ! dt set dt $PRIV(base).$dt destroy $dt if {[catch { toplevel $dt -screen $disp set interps [winfo interps -displayof $dt] if {![llength $interps]} { error "No other Tk interpreters on $disp" } ::send::send -displayof $dt [lindex $interps 0] [list info tclversion] } err]} { global env if {[info exists env(DISPLAY)]} { set myd $env(DISPLAY) } else { set myd "myDisplay:0" } tk_messageBox -title "Display Connection Error" \ -message "Unable to connect to \"$disp\":\n$err\ \nMake sure you have xauth-based permissions\ (xauth add $myd . `mcookie`), and xhost is disabled\ (xhost -) on \"$disp\"" \ -icon error -type ok destroy $dt return } set DISP($disp) $dt wm withdraw $dt bind $dt [subst {catch {unset ::tkcon::DISP($disp)}}] tk_messageBox -title "$disp Connection" \ -message "Connected to \"$disp\", found:\n[join $interps \n]" \ -type ok } ## ## The following state checkpoint/revert procedures are very sketchy ## and prone to problems. They do not track modifications to currently ## existing procedures/variables, and they can really screw things up ## if you load in libraries (especially Tk) between checkpoint and ## revert. Only with this knowledge in mind should you use these. ## ## ::tkcon::StateCheckpoint - checkpoints the current state of the system ## This allows you to return to this state with ::tkcon::StateRevert # ARGS: ## proc ::tkcon::StateCheckpoint {app type} { variable CPS variable PRIV if {[info exists CPS($type,$app,cmd)] && \ [tk_dialog $PRIV(base).warning "Overwrite Previous State?" \ "Are you sure you want to lose previously checkpointed\ state of $type \"$app\"?" questhead 1 "Do It" "Cancel"]} return set CPS($type,$app,cmd) [EvalOther $app $type info commands *] set CPS($type,$app,var) [EvalOther $app $type info vars *] return } ## ::tkcon::StateCompare - compare two states and output difference # ARGS: ## proc ::tkcon::StateCompare {app type {verbose 0}} { variable CPS variable PRIV variable OPT variable COLOR if {![info exists CPS($type,$app,cmd)]} { return -code error \ "No previously checkpointed state for $type \"$app\"" } set w $PRIV(base).compare if {[winfo exists $w]} { $w.text config -state normal $w.text delete 1.0 end } else { toplevel $w catch {wm attributes $w -type dialog} frame $w.btn scrollbar $w.sy -command [list $w.text yview] text $w.text -yscrollcommand [list $w.sy set] -height 12 \ -foreground $COLOR(stdin) \ -background $COLOR(bg) \ -insertbackground $COLOR(cursor) \ -font $OPT(font) -borderwidth 1 -highlightthickness 0 $w.text tag config red -foreground red button $w.close -text "Dismiss" -width 8 \ -command [list destroy $w] button $w.check -text "Recheckpoint" -width 11 button $w.revert -text "Revert" -width 8 button $w.expand -text "Verbose" -width 8 button $w.update -text "Update" -width 8 grid $w.text - - - - - $w.sy -sticky news grid x $w.check $w.revert $w.expand $w.update $w.close grid configure $w.close -padx {4 0} grid rowconfigure $w 0 -weight 1 grid columnconfigure $w 0 -weight 1 } wm title $w "Compare State: $type [list $app]" $w.check config \ -command "::tkcon::StateCheckpoint [list $app] $type; \ ::tkcon::StateCompare [list $app] $type $verbose" $w.revert config \ -command "::tkcon::StateRevert [list $app] $type; \ ::tkcon::StateCompare [list $app] $type $verbose" $w.update config -command [info level 0] if {$verbose} { $w.expand config -text Brief \ -command [list ::tkcon::StateCompare $app $type 0] } else { $w.expand config -text Verbose \ -command [list ::tkcon::StateCompare $app $type 1] } ## Don't allow verbose mode unless 'dump' exists in $app ## We're assuming this is tkcon's dump command set hasdump [llength [EvalOther $app $type info commands dump]] if {$hasdump} { $w.expand config -state normal } else { $w.expand config -state disabled } set cmds [lremove [EvalOther $app $type info commands *] \ $CPS($type,$app,cmd)] set vars [lremove [EvalOther $app $type info vars *] \ $CPS($type,$app,var)] if {$hasdump && $verbose} { set cmds [EvalOther $app $type eval dump c -nocomplain $cmds] set vars [EvalOther $app $type eval dump v -nocomplain $vars] } $w.text insert 1.0 "NEW COMMANDS IN \"$app\":\n" red \ $cmds {} "\n\nNEW VARIABLES IN \"$app\":\n" red $vars {} raise $w $w.text config -state disabled } ## ::tkcon::StateRevert - reverts interpreter to previous state # ARGS: ## proc ::tkcon::StateRevert {app type} { variable CPS variable PRIV if {![info exists CPS($type,$app,cmd)]} { return -code error \ "No previously checkpointed state for $type \"$app\"" } if {![tk_dialog $PRIV(base).warning "Revert State?" \ "Are you sure you want to revert the state in $type \"$app\"?"\ questhead 1 "Do It" "Cancel"]} { foreach i [lremove [EvalOther $app $type info commands *] \ $CPS($type,$app,cmd)] { catch {EvalOther $app $type rename $i {}} } foreach i [lremove [EvalOther $app $type info vars *] \ $CPS($type,$app,var)] { catch {EvalOther $app $type unset $i} } } } ## ::tkcon::StateCleanup - cleans up state information in master array # ## proc ::tkcon::StateCleanup {args} { variable CPS if {![llength $args]} { foreach state [array names CPS slave,*] { if {![interp exists [string range $state 6 end]]} { unset CPS($state) } } } else { set app [lindex $args 0] set type [lindex $args 1] if {[regexp {^(|slave)$} $type]} { foreach state [array names CPS "slave,$app\[, \]*"] { if {![interp exists [string range $state 6 end]]} { unset CPS($state) } } } else { catch {unset CPS($type,$app)} } } } } ## ::tkcon::Event - get history event, search if string != {} ## look forward (next) if $int>0, otherwise look back (prev) # ARGS: W - console widget ## proc ::tkcon::Event {int {str {}}} { if {!$int} return variable PRIV set w $PRIV(console) set nextid [EvalSlave history nextid] if {$str ne ""} { ## String is not empty, do an event search set event $PRIV(event) if {$int < 0 && $event == $nextid} { set PRIV(cmdbuf) $str } set len [string len $PRIV(cmdbuf)] incr len -1 if {$int > 0} { ## Search history forward while {$event < $nextid} { if {[incr event] == $nextid} { $w delete limit end $w insert limit $PRIV(cmdbuf) break } elseif { ![catch {EvalSlave history event $event} res] && [set p [string first $PRIV(cmdbuf) $res]] > -1 } { set p2 [expr {$p + [string length $PRIV(cmdbuf)]}] $w delete limit end $w insert limit $res Blink $w "limit + $p c" "limit + $p2 c" break } } set PRIV(event) $event } else { ## Search history reverse while {![catch {EvalSlave history event [incr event -1]} res]} { if {[set p [string first $PRIV(cmdbuf) $res]] > -1} { set p2 [expr {$p + [string length $PRIV(cmdbuf)]}] $w delete limit end $w insert limit $res set PRIV(event) $event Blink $w "limit + $p c" "limit + $p2 c" break } } } } else { ## String is empty, just get next/prev event if {$int > 0} { ## Goto next command in history if {$PRIV(event) < $nextid} { $w delete limit end if {[incr PRIV(event)] == $nextid} { $w insert limit $PRIV(cmdbuf) } else { $w insert limit [EvalSlave history event $PRIV(event)] } } } else { ## Goto previous command in history if {$PRIV(event) == $nextid} { set PRIV(cmdbuf) [CmdGet $w] } if {[catch {EvalSlave history event [incr PRIV(event) -1]} res]} { incr PRIV(event) } else { $w delete limit end $w insert limit $res } } } $w mark set insert end $w see end } ## ::tkcon::Highlight - magic highlighting ## beware: voodoo included # ARGS: ## proc ::tkcon::Highlight {w type} { variable COLOR variable OPT switch -exact $type { "error" { HighlightError $w } "tcl" - "test" { if {[winfo class $w] != "Ctext"} { return } foreach {app type} [tkcon attach] {break} set cmds [::tkcon::EvalOther $app $type info commands] set classes [list \ [list comment ClassForRegexp "^\\s*#\[^\n\]*" $COLOR(stderr)] \ [list var ClassWithOnlyCharStart "\$" $COLOR(stdout)] \ [list syntax ClassForSpecialChars "\[\]{}\"" $COLOR(prompt)] \ [list command Class $cmds $COLOR(proc)] \ ] # Remove all highlight classes from a widget ctext::clearHighlightClasses $w foreach class $classes { foreach {cname ctype cptn ccol} $class break ctext::addHighlight$ctype $w $cname $ccol $cptn } $w highlight 1.0 end } } } ## ::tkcon::HighlightError - magic error highlighting ## beware: voodoo included # ARGS: ## proc ::tkcon::HighlightError w { variable COLOR variable OPT ## do voodoo here set app [Attach] # we have to pull the text out, because text regexps are screwed on \n's. set info [$w get 1.0 end-1c] # Check for specific line error in a proc set exp(proc) "\"(\[^\"\]+)\"\n\[\t \]+\\\(procedure \"(\[^\"\]+)\"" # Check for too few args to a proc set exp(param) "parameter \"(\[^\"\]+)\" to \"(\[^\"\]+)\"" set start 1.0 while { [regexp -indices -- $exp(proc) $info junk what cmd] || [regexp -indices -- $exp(param) $info junk what cmd] } { foreach {w0 w1} $what {c0 c1} $cmd {break} set what [string range $info $w0 $w1] set cmd [string range $info $c0 $c1] if {[string match *::* $cmd]} { set res [uplevel 1 ::tkcon::EvalOther $app namespace eval \ [list [namespace qualifiers $cmd] \ [list info procs [namespace tail $cmd]]]] } else { set res [uplevel 1 ::tkcon::EvalOther $app info procs [list $cmd]] } if {[llength $res]==1} { set tag [UniqueTag $w] $w tag add $tag $start+${c0}c $start+1c+${c1}c $w tag configure $tag -foreground $COLOR(stdout) $w tag bind $tag [list $w tag configure $tag -underline 1] $w tag bind $tag [list $w tag configure $tag -underline 0] $w tag bind $tag "if {!\$tk::Priv(mouseMoved)} \ {[list $OPT(edit) -attach $app -type proc -find $what -- $cmd]}" } set info [string range $info $c1 end] set start [$w index $start+${c1}c] } ## Next stage, check for procs that start a line set start 1.0 set exp(cmd) "^\"\[^\" \t\n\]+" while { [string compare {} [set ix \ [$w search -regexp -count numc -- $exp(cmd) $start end]]] } { set start [$w index $ix+${numc}c] # +1c to avoid the first quote set cmd [$w get $ix+1c $start] if {[string match *::* $cmd]} { set res [uplevel 1 ::tkcon::EvalOther $app namespace eval \ [list [namespace qualifiers $cmd] \ [list info procs [namespace tail $cmd]]]] } else { set res [uplevel 1 ::tkcon::EvalOther $app info procs [list $cmd]] } if {[llength $res]==1} { set tag [UniqueTag $w] $w tag add $tag $ix+1c $start $w tag configure $tag -foreground $COLOR(proc) $w tag bind $tag [list $w tag configure $tag -underline 1] $w tag bind $tag [list $w tag configure $tag -underline 0] $w tag bind $tag "if {!\$tk::Priv(mouseMoved)} \ {[list $OPT(edit) -attach $app -type proc -- $cmd]}" } } } proc ::tkcon::ExpectInit {{termcap 1} {terminfo 1}} { global env if {$termcap} { set env(TERM) "tt" set env(TERMCAP) {tt: :ks=\E[KS: :ke=\E[KE: :cm=\E[%d;%dH: :up=\E[A: :nd=\E[C: :cl=\E[H\E[J: :do=^J: :so=\E[7m: :se=\E[m: :k1=\EOP: :k2=\EOQ: :k3=\EOR: :k4=\EOS: :k5=\EOT: :k6=\EOU: :k7=\EOV: :k8=\EOW: :k9=\EOX: } } if {$terminfo} { set env(TERM) "tkterm" if {![info exists env(TEMP)]} { set env(TEMP) /tmp } set env(TERMINFO) $env(TEMP) set ttsrc [file join $env(TEMP) tt.src] set file [open $ttsrc w] puts $file {tkterm|Don Libes' tk text widget terminal emulator, smkx=\E[KS, rmkx=\E[KE, cup=\E[%p1%d;%p2%dH, cuu1=\E[A, cuf1=\E[C, clear=\E[H\E[J, ind=\n, cr=\r, smso=\E[7m, rmso=\E[m, kf1=\EOP, kf2=\EOQ, kf3=\EOR, kf4=\EOS, kf5=\EOT, kf6=\EOU, kf7=\EOV, kf8=\EOW, kf9=\EOX, } close $file if {[catch {exec tic $ttsrc} msg]} { return -code error \ "tic failed, you may not have terminfo support:\n$msg" } file delete $ttsrc } } # term_exit is called if the spawned process exits proc ::tkcon::term_exit {w} { variable EXP catch {exp_close -i $EXP(spawn_id)} set EXP(forever) 1 unset EXP } # term_chars_changed is called after every change to the displayed chars # You can use if you want matches to occur in the background (a la bind) # If you want to test synchronously, then just do so - you don't need to # redefine this procedure. proc ::tkcon::term_chars_changed {w args} { } # term_cursor_changed is called after the cursor is moved proc ::tkcon::term_cursor_changed {w args} { } proc ::tkcon::term_update_cursor {w args} { variable OPT variable EXP $w mark set insert $EXP(row).$EXP(col) $w see insert term_cursor_changed $w } proc ::tkcon::term_clear {w args} { $w delete 1.0 end term_init $w } proc ::tkcon::term_init {w args} { variable OPT variable EXP # initialize it with blanks to make insertions later more easily set blankline [string repeat " " $OPT(cols)]\n for {set i 1} {$i <= $OPT(rows)} {incr i} { $w insert $i.0 $blankline } set EXP(row) 1 set EXP(col) 0 $w mark set insert $EXP(row).$EXP(col) } proc ::tkcon::term_down {w args} { variable OPT variable EXP if {$EXP(row) < $OPT(rows)} { incr EXP(row) } else { # already at last line of term, so scroll screen up $w delete 1.0 2.0 # recreate line at end $w insert end [string repeat " " $OPT(cols)]\n } } proc ::tkcon::term_insert {w s} { variable OPT variable EXP set chars_rem_to_write [string length $s] set space_rem_on_line [expr {$OPT(cols) - $EXP(col)}] set tag_action [expr {$EXP(standout) ? "add" : "remove"}] ################## # write first line ################## if {$chars_rem_to_write > $space_rem_on_line} { set chars_to_write $space_rem_on_line set newline 1 } else { set chars_to_write $chars_rem_to_write set newline 0 } $w delete $EXP(row).$EXP(col) \ $EXP(row).[expr {$EXP(col) + $chars_to_write}] $w insert $EXP(row).$EXP(col) \ [string range $s 0 [expr {$space_rem_on_line-1}]] $w tag $tag_action standout $EXP(row).$EXP(col) \ $EXP(row).[expr {$EXP(col) + $chars_to_write}] # discard first line already written incr chars_rem_to_write -$chars_to_write set s [string range $s $chars_to_write end] # update EXP(col) incr EXP(col) $chars_to_write # update EXP(row) if {$newline} { term_down $w } ################## # write full lines ################## while {$chars_rem_to_write >= $OPT(cols)} { $w delete $EXP(row).0 $EXP(row).end $w insert $EXP(row).0 [string range $s 0 [expr {$OPT(cols)-1}]] $w tag $tag_action standout $EXP(row).0 $EXP(row).end # discard line from buffer set s [string range $s $OPT(cols) end] incr chars_rem_to_write -$OPT(cols) set EXP(col) 0 term_down $w } ################# # write last line ################# if {$chars_rem_to_write} { $w delete $EXP(row).0 $EXP(row).$chars_rem_to_write $w insert $EXP(row).0 $s $w tag $tag_action standout $EXP(row).0 $EXP(row).$chars_rem_to_write set EXP(col) $chars_rem_to_write } term_chars_changed $w } proc ::tkcon::Expect {cmd} { variable OPT variable PRIV variable EXP set EXP(standout) 0 set EXP(row) 0 set EXP(col) 0 set env(LINES) $OPT(rows) set env(COLUMNS) $OPT(cols) ExpectInit log_user 0 set ::stty_init "-tabs" uplevel \#0 [linsert $cmd 0 spawn] set EXP(spawn_id) $::spawn_id if {[info exists ::spawn_out(slave,name)]} { set EXP(slave,name) $::spawn_out(slave,name) catch {stty rows $OPT(rows) columns $OPT(cols) < $::spawn_out(slave,name)} } if {[string index $cmd end] == "&"} { set cmd expect_background } else { set cmd expect } bind $PRIV(console) { if {"%A" != ""} { exp_send -i $::tkcon::EXP(spawn_id) "\033%A" break } } bind $PRIV(console) { exp_send -i $::tkcon::EXP(spawn_id) -- %A break } bind $PRIV(console) {exp_send -null} set code [catch { term_init $PRIV(console) while {[info exists EXP(spawn_id)]} { $cmd { -i $::tkcon::EXP(spawn_id) -re "^\[^\x01-\x1f\]+" { # Text ::tkcon::term_insert $::tkcon::PRIV(console) \ $expect_out(0,string) ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\r" { # (cr,) Go to beginning of line update idle set ::tkcon::EXP(col) 0 ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\n" { # (ind,do) Move cursor down one line if {$::tcl_platform(platform) eq "windows"} { # Windows seems to get the LF without the CR update idle set ::tkcon::EXP(col) 0 } ::tkcon::term_down $::tkcon::PRIV(console) ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\b" { # Backspace nondestructively incr ::tkcon::EXP(col) -1 ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\a" { bell } "^\t" { # Tab, shouldn't happen send_error "got a tab!?" } eof { ::tkcon::term_exit $::tkcon::PRIV(console) } "^\x1b\\\[A" { # Cursor Up (cuu1,up) incr ::tkcon::EXP(row) -1 ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\x1b\\\[B" { # Cursor Down incr ::tkcon::EXP(row) ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\x1b\\\[C" { # Cursor Right (cuf1,nd) incr ::tkcon::EXP(col) ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\x1b\\\[D" { # Cursor Left incr ::tkcon::EXP(col) ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\x1b\\\[H" { # Cursor Home } -re "^\x1b\\\[(\[0-9\]*);(\[0-9\]*)H" { # (cup,cm) Move to row y col x set ::tkcon::EXP(row) [expr {$expect_out(1,string)+1}] set ::tkcon::EXP(col) $expect_out(2,string) ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\x1b\\\[H\x1b\\\[J" { # (clear,cl) Clear screen ::tkcon::term_clear $::tkcon::PRIV(console) ::tkcon::term_update_cursor $::tkcon::PRIV(console) } "^\x1b\\\[7m" { # (smso,so) Begin standout mode set ::tkcon::EXP(standout) 1 } "^\x1b\\\[m" { # (rmso,se) End standout mode set ::tkcon::EXP(standout) 0 } "^\x1b\\\[KS" { # (smkx,ks) start keyboard-transmit mode # terminfo invokes these when going in/out of graphics mode # In graphics mode, we should have no scrollbars #graphicsSet 1 } "^\x1b\\\[KE" { # (rmkx,ke) end keyboard-transmit mode # Out of graphics mode, we should have scrollbars #graphicsSet 0 } } } #vwait ::tkcon::EXP(forever) } err] bind $PRIV(console) {} bind $PRIV(console) {} bind $PRIV(console) {} catch {unset EXP} if {$code} { return -code $code -errorinfo $::errorInfo $err } } ## tkcon - command that allows control over the console ## This always exists in the main interpreter, and is aliased into ## other connected interpreters # ARGS: totally variable, see internal comments ## proc tkcon {cmd args} { variable ::tkcon::PRIV variable ::tkcon::OPT global errorInfo switch -glob -- $cmd { buf* { ## 'buffer' Sets/Query the buffer size if {[llength $args]} { if {[regexp {^[1-9][0-9]*$} $args]} { set OPT(buffer) $args # catch in case the console doesn't exist yet catch {::tkcon::ConstrainBuffer $PRIV(console) \ $OPT(buffer)} } else { return -code error "buffer must be a valid integer" } } return $OPT(buffer) } linelen* { ## 'linelength' Sets/Query the maximum line length if {[llength $args]} { if {[regexp {^-?[0-9]+$} $args]} { set OPT(maxlinelen) $args } else { return -code error "buffer must be a valid integer" } } return $OPT(maxlinelen) } bg* { ## 'bgerror' Brings up an error dialog set errorInfo [lindex $args 1] bgerror [lindex $args 0] } cl* { ## 'close' Closes the console ::tkcon::Destroy } cons* { ## 'console' - passes the args to the text widget of the console. set result [uplevel 1 $PRIV(console) $args] ::tkcon::ConstrainBuffer $PRIV(console) $OPT(buffer) return $result } congets { ## 'congets' a replacement for [gets stdin] # Use the 'gets' alias of 'tkcon_gets' command instead of # calling the *get* methods directly for best compatability if {[llength $args]} { return -code error "wrong # args: must be \"tkcon congets\"" } tkcon show set old [bind TkConsole <>] bind TkConsole <> { set ::tkcon::PRIV(wait) 0 } set w $PRIV(console) # Make sure to move the limit to get the right data $w mark set limit end-1c $w mark gravity limit left $w mark set insert end $w see end vwait ::tkcon::PRIV(wait) set line [::tkcon::CmdGet $w] $w insert end \n bind TkConsole <> $old return $line } exp* { ::tkcon::Expect [lindex $args 0] } getc* { ## 'getcommand' a replacement for [gets stdin] ## This forces a complete command to be input though if {[llength $args]} { return -code error "wrong # args: must be \"tkcon getcommand\"" } tkcon show set old [bind TkConsole <>] bind TkConsole <> { set ::tkcon::PRIV(wait) 0 } set w $PRIV(console) # Make sure to move the limit to get the right data $w mark set insert end $w mark set limit insert $w see end vwait ::tkcon::PRIV(wait) set line [::tkcon::CmdGet $w] $w insert end \n while {![info complete $line] || [regexp {[^\\]\\$} $line]} { vwait ::tkcon::PRIV(wait) set line [::tkcon::CmdGet $w] $w insert end \n $w see end } bind TkConsole <> $old return $line } get - gets { ## 'gets' - a replacement for [gets stdin] ## This pops up a text widget to be used for stdin (local grabbed) if {[llength $args]} { return -code error "wrong # args: should be \"tkcon gets\"" } set t $PRIV(base).gets if {![winfo exists $t]} { toplevel $t wm withdraw $t catch {wm attributes $t -type dialog} wm title $t "tkcon gets stdin request" label $t.gets -text "\"gets stdin\" request:" text $t.data -width 32 -height 5 -wrap none \ -xscrollcommand [list $t.sx set] \ -yscrollcommand [list $t.sy set] -borderwidth 1 scrollbar $t.sx -orient h -takefocus 0 -highlightthickness 0 \ -command [list $t.data xview] scrollbar $t.sy -orient v -takefocus 0 -highlightthickness 0 \ -command [list $t.data yview] button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1} bind $t.ok { %W invoke } grid $t.gets - -sticky ew grid $t.data $t.sy -sticky news grid $t.sx -sticky ew grid $t.ok - -sticky ew grid columnconfig $t 0 -weight 1 grid rowconfig $t 1 -weight 1 wm transient $t $PRIV(root) wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \ reqwidth $t]) / 2}]+[expr {([winfo \ screenheight $t]-[winfo reqheight $t]) / 2}] } $t.data delete 1.0 end wm deiconify $t raise $t grab $t focus $t.data vwait ::tkcon::PRIV(grab) grab release $t wm withdraw $t return [$t.data get 1.0 end-1c] } err* { ## Outputs stack caused by last error. ## error handling with pizazz (but with pizza would be nice too) if {[llength $args]==2} { set app [lindex $args 0] set type [lindex $args 1] if {[catch {::tkcon::EvalOther $app $type set errorInfo} info]} { set info "error getting info from $type $app:\n$info" } } else { set info $PRIV(errorInfo) } if {[string match {} $info]} { set info "errorInfo empty" } ## If args is empty, the -attach switch just ignores it $OPT(edit) -attach $args -type error -- $info } fi* { ## 'find' string ::tkcon::Find $PRIV(console) $args } fo* { ## 'font' ?fontname? - gets/sets the font of the console if {[llength $args]} { if {[info exists PRIV(console)] && \ [winfo exists $PRIV(console)]} { $PRIV(console) config -font $args set OPT(font) [$PRIV(console) cget -font] } else { set OPT(font) $args } } return $OPT(font) } hid* - with* { ## 'hide' 'withdraw' - hides the console. if {[info exists PRIV(root)] && [winfo exists $PRIV(root)]} { wm withdraw $PRIV(root) } } his* { ## 'history' set sub {\2} if {[string match -new* $args]} { append sub "\n"} set h [::tkcon::EvalSlave history] regsub -all "( *\[0-9\]+ |\t)(\[^\n\]*\n?)" $h $sub h return $h } ico* { ## 'iconify' - iconifies the console with 'iconify'. if {[info exists PRIV(root)] && [winfo exists $PRIV(root)]} { wm iconify $PRIV(root) } } mas* - eval { ## 'master' - evals contents in master interpreter uplevel \#0 $args } result* { ## 'resultfilter' Sets/queries the result filter command if {[llength $args]} { set OPT(resultfilter) $args } return $OPT(resultfilter) } set { ## 'set' - set (or get, or unset) simple vars (not whole arrays) ## from the master console interpreter ## possible formats: ## tkcon set ## tkcon set ## tkcon set w ## tkcon set u ## tkcon set r if {[llength $args]==5} { ## This is for use w/ 'tkcon upvar' and only works with slaves foreach {var i var1 var2 op} $args break if {[string compare {} $var2]} { append var1 "($var2)" } switch $op { u { uplevel \#0 [list unset $var] } w { return [uplevel \#0 [list set $var \ [interp eval $i [list set $var1]]]] } r { return [interp eval $i [list set $var1 \ [uplevel \#0 [list set $var]]]] } } } elseif {[llength $args] == 1} { upvar \#0 [lindex $args 0] var if {[array exists var]} { return [array get var] } else { return $var } } return [uplevel \#0 set $args] } append { ## Modify a var in the master environment using append return [uplevel \#0 append $args] } lappend { ## Modify a var in the master environment using lappend return [uplevel \#0 lappend $args] } sh* - dei* { ## 'show|deiconify' - deiconifies the console. if {![info exists PRIV(root)]} { # We are likely in some embedded console configuration. # Make default setup reflect that. set PRIV(showOnStartup) 0 set PRIV(protocol) {tkcon hide} set PRIV(root) .tkcon set OPT(exec) "" } if {![winfo exists $PRIV(root)]} { eval [linsert $args 0 ::tkcon::Init] } # this may throw an error if toplevel is embedded catch {wm deiconify $PRIV(root); raise $PRIV(root)} focus -force $PRIV(console) } ti* { ## 'title' ?title? - gets/sets the console's title if {[llength $args]} { return [wm title $PRIV(root) [join $args]] } else { return [wm title $PRIV(root)] } } upv* { ## 'upvar' masterVar slaveVar ## link slave variable slaveVar to the master variable masterVar ## only works masters<->slave set masterVar [lindex $args 0] set slaveVar [lindex $args 1] if {[info exists $masterVar]} { interp eval $OPT(exec) \ [list set $slaveVar [set $masterVar]] } else { catch {interp eval $OPT(exec) [list unset $slaveVar]} } interp eval $OPT(exec) \ [list trace variable $slaveVar rwu \ [list tkcon set $masterVar $OPT(exec)]] return } v* { return $PRIV(version) } default { ## tries to determine if the command exists, otherwise throws error set new ::tkcon::[string toupper \ [string index $cmd 0]][string range $cmd 1 end] if {[llength [info command $new]]} { uplevel \#0 $new $args } else { return -code error "bad option \"$cmd\": must be\ [join [lsort [list attach close console destroy \ font hide iconify load main master new save show \ slave deiconify version title bgerror]] {, }]" } } } } ## ## Some procedures to make up for lack of built-in shell commands ## ## tkcon_puts - ## This allows me to capture all stdout/stderr to the console window ## This will be renamed to 'puts' at the appropriate time during init ## # ARGS: same as usual # Outputs: the string with a color-coded text tag ## proc tkcon_puts args { set len [llength $args] foreach {arg1 arg2 arg3} $args { break } if {$len == 1} { tkcon console insert output "$arg1\n" stdout } elseif {$len == 2} { if {![string compare $arg1 -nonewline]} { tkcon console insert output $arg2 stdout } elseif {![string compare $arg1 stdout] \ || ![string compare $arg1 stderr]} { tkcon console insert output "$arg2\n" $arg1 } else { set len 0 } } elseif {$len == 3} { if {![string compare $arg1 -nonewline] \ && (![string compare $arg2 stdout] \ || ![string compare $arg2 stderr])} { tkcon console insert output $arg3 $arg2 } elseif {(![string compare $arg1 stdout] \ || ![string compare $arg1 stderr]) \ && ![string compare $arg3 nonewline]} { tkcon console insert output $arg2 $arg1 } else { set len 0 } } else { set len 0 } ## $len == 0 means it wasn't handled by tkcon above. ## if {$len == 0} { global errorCode errorInfo if {[catch "tkcon_tcl_puts $args" msg]} { regsub tkcon_tcl_puts $msg puts msg regsub -all tkcon_tcl_puts $errorInfo puts errorInfo return -code error $msg } return $msg } ## WARNING: This update should behave well because it uses idletasks, ## however, if there are weird looping problems with events, or ## hanging in waits, try commenting this out. if {$len} { tkcon console see output update idletasks } } ## tkcon_gets - ## This allows me to capture all stdin input without needing to stdin ## This will be renamed to 'gets' at the appropriate time during init ## # ARGS: same as gets # Outputs: same as gets ## proc tkcon_gets args { set len [llength $args] if {$len != 1 && $len != 2} { return -code error \ "wrong # args: should be \"gets channelId ?varName?\"" } if {[string compare stdin [lindex $args 0]]} { return [uplevel 1 tkcon_tcl_gets $args] } set gtype [tkcon set ::tkcon::OPT(gets)] if {$gtype == ""} { set gtype congets } set data [tkcon $gtype] if {$len == 2} { upvar 1 [lindex $args 1] var set var $data return [string length $data] } return $data } ## edit - opens a file/proc/var for reading/editing ## # Arguments: # type proc/file/var # what the actual name of the item # Returns: nothing ## proc edit {args} { variable ::tkcon::PRIV variable ::tkcon::COLOR variable ::tkcon::OPT array set opts {-find {} -type {} -attach {} -wrap {none}} while {[string match -* [lindex $args 0]]} { switch -glob -- [lindex $args 0] { -f* { set opts(-find) [lindex $args 1] } -a* { set opts(-attach) [lindex $args 1] } -t* { set opts(-type) [lindex $args 1] } -w* { set opts(-wrap) [lindex $args 1] } -- { set args [lreplace $args 0 0]; break } default {return -code error "unknown option \"[lindex $args 0]\""} } set args [lreplace $args 0 1] } # determine who we are dealing with if {[llength $opts(-attach)]} { foreach {app type} $opts(-attach) {break} } else { foreach {app type} [tkcon attach] {break} } set word [lindex $args 0] if {$opts(-type) == {}} { if {[llength [::tkcon::EvalOther $app $type info commands [list $word]]]} { set opts(-type) "proc" } elseif {[llength [::tkcon::EvalOther $app $type info vars [list $word]]]} { set opts(-type) "var" } elseif {[::tkcon::EvalOther $app $type file isfile [list $word]]} { set opts(-type) "file" } } if {$opts(-type) == {}} { return -code error "unrecognized type '$word'" } # Create unique edit window toplevel set w $PRIV(base).__edit set i 0 while {[winfo exists $w[incr i]]} {} append w $i toplevel $w wm withdraw $w if {[string length $word] > 20} { wm title $w "[string range $word 0 16]... - tkcon Edit" } else { wm title $w "$word - tkcon Edit" } if {[package provide ctext] != ""} { set txt [ctext $w.text] } else { set txt [text $w.text] } $w.text configure -wrap $opts(-wrap) \ -xscrollcommand [list $w.sx set] \ -yscrollcommand [list $w.sy set] \ -foreground $COLOR(stdin) \ -background $COLOR(bg) \ -insertbackground $COLOR(cursor) \ -font $::tkcon::OPT(font) -borderwidth 1 -highlightthickness 0 \ -undo 1 catch { # 8.5+ stuff set tabsp [expr {$OPT(tabspace) * [font measure $OPT(font) 0]}] $w.text configure -tabs [list $tabsp left] -tabstyle wordprocessor } scrollbar $w.sx -orient h -command [list $w.text xview] scrollbar $w.sy -orient v -command [list $w.text yview] set menu [menu $w.mbar] $w configure -menu $menu ## File Menu ## set m [menu [::tkcon::MenuButton $menu File file]] $m add command -label "Save As..." -underline 0 \ -command [list ::tkcon::Save {} widget $w.text] $m add command -label "Append To..." -underline 0 \ -command [list ::tkcon::Save {} widget $w.text a+] $m add separator $m add command -label "Dismiss" -underline 0 -accel $PRIV(ACC)w \ -command [list destroy $w] bind $w <$PRIV(CTRL)w> [list destroy $w] bind $w [list destroy $w] ## Edit Menu ## set text $w.text set m [menu [::tkcon::MenuButton $menu Edit edit]] $m add command -label "Cut" -underline 2 \ -command [list tk_textCut $text] $m add command -label "Copy" -underline 0 \ -command [list tk_textCopy $text] $m add command -label "Paste" -underline 0 \ -command [list tk_textPaste $text] $m add separator $m add command -label "Find" -underline 0 \ -command [list ::tkcon::FindBox $text] ## Send To Menu ## set m [menu [::tkcon::MenuButton $menu "Send To..." send]] $m add command -label "Send To $app" -underline 0 \ -command "::tkcon::EvalOther [list $app] $type \ eval \[$w.text get 1.0 end-1c\]" set other [tkcon attach] if {[string compare $other [list $app $type]]} { $m add command -label "Send To [lindex $other 0]" \ -command "::tkcon::EvalOther $other \ eval \[$w.text get 1.0 end-1c\]" } grid $w.text - $w.sy -sticky news grid $w.sx - -sticky ew grid columnconfigure $w 0 -weight 1 grid columnconfigure $w 1 -weight 1 grid rowconfigure $w 0 -weight 1 switch -glob -- $opts(-type) { proc* { $w.text insert 1.0 \ [::tkcon::EvalOther $app $type dump proc [list $word]] after idle [::tkcon::Highlight $w.text tcl] } var* { $w.text insert 1.0 \ [::tkcon::EvalOther $app $type dump var [list $word]] after idle [::tkcon::Highlight $w.text tcl] } file { $w.text insert 1.0 [::tkcon::EvalOther $app $type eval \ [subst -nocommands { set __tkcon(fid) [open {$word} r] set __tkcon(data) [read \$__tkcon(fid)] close \$__tkcon(fid) after 1000 unset __tkcon return \$__tkcon(data) } ]] after idle [::tkcon::Highlight $w.text \ [string trimleft [file extension $word] .]] } error* { $w.text insert 1.0 [join $args \n] after idle [::tkcon::Highlight $w.text error] } default { $w.text insert 1.0 [join $args \n] } } # prevent stuff above being "undoable" in newer Tk catch { $w.text edit reset ; $w.text edit modified 0 } wm deiconify $w focus $w.text if {[string compare $opts(-find) {}]} { ::tkcon::Find $w.text $opts(-find) -case 1 } } interp alias {} ::more {} ::edit interp alias {} ::less {} ::edit ## echo ## Relaxes the one string restriction of 'puts' # ARGS: any number of strings to output to stdout ## proc echo args { puts stdout [concat $args] } ## clear - clears the buffer of the console (not the history though) ## This is executed in the parent interpreter ## proc clear {{pcnt 100}} { if {![regexp {^[0-9]*$} $pcnt] || $pcnt < 1 || $pcnt > 100} { return -code error \ "invalid percentage to clear: must be 1-100 (100 default)" } elseif {$pcnt == 100} { tkcon console delete 1.0 end } else { set tmp [expr {$pcnt/100.0*[tkcon console index end]}] tkcon console delete 1.0 "$tmp linestart" } } ## alias - akin to the csh alias command ## If called with no args, then it dumps out all current aliases ## If called with one arg, returns the alias of that arg (or {} if none) # ARGS: newcmd - (optional) command to bind alias to # args - command and args being aliased ## proc alias {{newcmd {}} args} { if {[string match {} $newcmd]} { set res {} foreach a [interp aliases] { lappend res [list $a -> [interp alias {} $a]] } return [join $res \n] } elseif {![llength $args]} { interp alias {} $newcmd } else { eval interp alias [list {} $newcmd {}] $args } } ## unalias - unaliases an alias'ed command # ARGS: cmd - command to unbind as an alias ## proc unalias {cmd} { interp alias {} $cmd {} } ## dump - outputs variables/procedure/widget info in source'able form. ## Accepts glob style pattern matching for the names # # ARGS: type - type of thing to dump: must be variable, procedure, widget # # OPTS: -nocomplain # don't complain if no items of the specified type are found # -filter pattern # specifies a glob filter pattern to be used by the variable # method as an array filter pattern (it filters down for # nested elements) and in the widget method as a config # option filter pattern # -- forcibly ends options recognition # # Returns: the values of the requested items in a 'source'able form ## proc dump {type args} { set whine 1 set code ok if {![llength $args]} { ## If no args, assume they gave us something to dump and ## we'll try anything set args $type set type any } while {[string match -* [lindex $args 0]]} { switch -glob -- [lindex $args 0] { -n* { set whine 0; set args [lreplace $args 0 0] } -f* { set fltr [lindex $args 1]; set args [lreplace $args 0 1] } -- { set args [lreplace $args 0 0]; break } default {return -code error "unknown option \"[lindex $args 0]\""} } } if {$whine && ![llength $args]} { return -code error "wrong \# args: [lindex [info level 0] 0] type\ ?-nocomplain? ?-filter pattern? ?--? pattern ?pattern ...?" } set res {} switch -glob -- $type { c* { # command # outputs commands by figuring out, as well as possible, what it is # this does not attempt to auto-load anything foreach arg $args { if {[llength [set cmds [info commands $arg]]]} { foreach cmd [lsort $cmds] { if {[lsearch -exact [interp aliases] $cmd] > -1} { append res "\#\# ALIAS: $cmd =>\ [interp alias {} $cmd]\n" } elseif { [llength [info procs $cmd]] || ([string match *::* $cmd] && [llength [namespace eval [namespace qual $cmd] \ info procs [namespace tail $cmd]]]) } { if {[catch {dump p -- $cmd} msg] && $whine} { set code error } append res $msg\n } else { append res "\#\# COMMAND: $cmd\n" } } } elseif {$whine} { append res "\#\# No known command $arg\n" set code error } } } v* { # variable # outputs variables value(s), whether array or simple. if {![info exists fltr]} { set fltr * } foreach arg $args { if {![llength [set vars [uplevel 1 info vars [list $arg]]]]} { if {[uplevel 1 info exists $arg]} { set vars $arg } elseif {$whine} { append res "\#\# No known variable $arg\n" set code error continue } else { continue } } foreach var [lsort $vars] { if {[uplevel 1 [list info locals $var]] == ""} { # use the proper scope of the var, but namespace which # won't id locals or some upvar'ed vars correctly set new [uplevel 1 \ [list namespace which -variable $var]] if {$new != ""} { set var $new } } upvar 1 $var v if {[array exists v] || [catch {string length $v}]} { set nst {} append res "array set [list $var] \{\n" if {[array size v]} { foreach i \ [lsort -dictionary [array names v $fltr]] { upvar 0 v\($i\) __a if {[array exists __a]} { append nst "\#\# NESTED ARRAY ELEM: $i\n" append nst "upvar 0 [list $var\($i\)] __a;\ [dump v -filter $fltr __a]\n" } else { append res " [list $i]\t[list $v($i)]\n" } } } else { ## empty array append res " empty array\n" if {$var == ""} { append nst "unset (empty)\n" } else { append nst "unset [list $var](empty)\n" } } append res "\}\n$nst" } else { append res [list set $var $v]\n } } } } p* { # procedure foreach arg $args { if { ![llength [set procs [info proc $arg]]] && ([string match *::* $arg] && [llength [set ps [namespace eval \ [namespace qualifier $arg] \ info procs [namespace tail $arg]]]]) } { set procs {} set namesp [namespace qualifier $arg] foreach p $ps { lappend procs ${namesp}::$p } } if {[llength $procs]} { foreach p [lsort $procs] { set as {} foreach a [info args $p] { if {[info default $p $a tmp]} { lappend as [list $a $tmp] } else { lappend as $a } } append res [list proc $p $as [info body $p]]\n } } elseif {$whine} { append res "\#\# No known proc $arg\n" set code error } } } w* { # widget ## The user should have Tk loaded if {![llength [info command winfo]]} { return -code error "winfo not present, cannot dump widgets" } if {![info exists fltr]} { set fltr .* } foreach arg $args { if {[llength [set ws [info command $arg]]]} { foreach w [lsort $ws] { if {[winfo exists $w]} { if {[catch {$w configure} cfg]} { append res "\#\# Widget $w\ does not support configure method" set code error } else { append res "\#\# [winfo class $w]\ $w\n$w configure" foreach c $cfg { if {[llength $c] != 5} continue ## Check to see that the option does ## not match the default, then check ## the item against the user filter if {[string compare [lindex $c 3] \ [lindex $c 4]] && \ [regexp -nocase -- $fltr $c]} { append res " \\\n\t[list [lindex $c 0]\ [lindex $c 4]]" } } append res \n } } } } elseif {$whine} { append res "\#\# No known widget $arg\n" set code error } } } a* { ## see if we recognize it, other complain if {[regexp {(var|com|proc|widget)} \ [set types [uplevel 1 what $args]]]} { foreach type $types { if {[regexp {(var|com|proc|widget)} $type]} { append res "[uplevel 1 dump $type $args]\n" } } } else { set res "dump was unable to resolve type for \"$args\"" set code error } } default { return -code error "bad [lindex [info level 0] 0] option\ \"$type\": must be variable, command, procedure,\ or widget" } } return -code $code [string trimright $res \n] } ## idebug - interactive debugger # # idebug body ?level? # # Prints out the body of the command (if it is a procedure) at the # specified level. level defaults to the current level. # # idebug break # # Creates a breakpoint within a procedure. This will only trigger # if idebug is on and the id matches the pattern. If so, TkCon will # pop to the front with the prompt changed to an idebug prompt. You # are given the basic ability to observe the call stack an query/set # variables or execute Tcl commands at any level. A separate history # is maintained in debugging mode. # # idebug echo|{echo ?id?} ?args? # # Behaves just like "echo", but only triggers when idebug is on. # You can specify an optional id to further restrict triggering. # If no id is specified, it defaults to the name of the command # in which the call was made. # # idebug id ?id? # # Query or set the idebug id. This id is used by other idebug # methods to determine if they should trigger or not. The idebug # id can be a glob pattern and defaults to *. # # idebug off # # Turns idebug off. # # idebug on ?id? # # Turns idebug on. If 'id' is specified, it sets the id to it. # # idebug puts|{puts ?id?} args # # Behaves just like "puts", but only triggers when idebug is on. # You can specify an optional id to further restrict triggering. # If no id is specified, it defaults to the name of the command # in which the call was made. # # idebug show type ?level? ?VERBOSE? # # 'type' must be one of vars, locals or globals. This method # will output the variables/locals/globals present in a particular # level. If VERBOSE is added, then it actually 'dump's out the # values as well. 'level' defaults to the level in which this # method was called. # # idebug trace ?level? # # Prints out the stack trace from the specified level up to the top # level. 'level' defaults to the current level. # ## proc idebug {opt args} { global IDEBUG if {![info exists IDEBUG(on)]} { array set IDEBUG { on 0 id * debugging 0 } } set level [expr {[info level]-1}] switch -glob -- $opt { on { # id is just arg0 [bug #50] if {[llength $args]} { set IDEBUG(id) [lindex $args 0] } return [set IDEBUG(on) 1] } off { return [set IDEBUG(on) 0] } id { if {![llength $args]} { return $IDEBUG(id) } else { return [set IDEBUG(id) [lindex $args 0]] } } break { if {!$IDEBUG(on) || $IDEBUG(debugging) || \ ([llength $args] && \ ![string match $IDEBUG(id) $args]) || [info level]<1} { return } set IDEBUG(debugging) 1 puts stderr "idebug at level \#$level: [lindex [info level -1] 0]" set tkcon [llength [info command tkcon]] if {$tkcon} { tkcon master eval set ::tkcon::OPT(prompt2) \$::tkcon::OPT(prompt1) tkcon master eval set ::tkcon::OPT(prompt1) \$::tkcon::OPT(debugPrompt) set slave [tkcon set ::tkcon::OPT(exec)] set event [tkcon set ::tkcon::PRIV(event)] tkcon set ::tkcon::OPT(exec) [tkcon master interp create debugger] tkcon set ::tkcon::PRIV(event) 1 } set max $level while 1 { set err {} if {$tkcon} { # tkcon's overload of gets is advanced enough to not need # this, but we get a little better control this way. tkcon evalSlave set level $level tkcon prompt set line [tkcon getcommand] tkcon console mark set output end } else { puts -nonewline stderr "(level \#$level) debug > " gets stdin line while {![info complete $line]} { puts -nonewline "> " append line "\n[gets stdin]" } } if {[string match {} $line]} continue set key [regexp -inline {\S+} $line] if {![regexp {^\s*\S+\s+([#-]?[0-9]+)} $line -> lvl]} { set lvl \#$level } set res {}; set c 0 switch -- $key { + { ## Allow for jumping multiple levels if {$level < $max} { idebug trace [incr level] $level 0 VERBOSE } } - { ## Allow for jumping multiple levels if {$level > 1} { idebug trace [incr level -1] $level 0 VERBOSE } } . { set c [catch {idebug trace $level $level 0 VERBOSE} res] } v { set c [catch {idebug show vars $lvl } res] } V { set c [catch {idebug show vars $lvl VERBOSE} res] } l { set c [catch {idebug show locals $lvl } res] } L { set c [catch {idebug show locals $lvl VERBOSE} res] } g { set c [catch {idebug show globals $lvl } res] } G { set c [catch {idebug show globals $lvl VERBOSE} res] } t { set c [catch {idebug trace 1 $max $level } res] } T { set c [catch {idebug trace 1 $max $level VERBOSE} res]} b { set c [catch {idebug body $lvl} res] } o { set res [set IDEBUG(on) [expr {!$IDEBUG(on)}]] } h - ? { puts stderr " + Move down in call stack - Move up in call stack . Show current proc name and params v Show names of variables currently in scope V Show names of variables currently in scope with values l Show names of local (transient) variables L Show names of local (transient) variables with values g Show names of declared global variables G Show names of declared global variables with values t Show a stack trace T Show a verbose stack trace b Show body of current proc o Toggle on/off any further debugging c,q Continue regular execution (Quit debugger) h,? Print this help default Evaluate line at current level (\#$level)" } c - q break default { set c [catch {uplevel \#$level $line} res] } } if {$tkcon} { tkcon set ::tkcon::PRIV(event) \ [tkcon evalSlave eval history add [list $line]\ \; history nextid] } if {$c} { puts stderr $res } elseif {[string compare {} $res]} { puts $res } } set IDEBUG(debugging) 0 if {$tkcon} { tkcon master interp delete debugger tkcon master eval set ::tkcon::OPT(prompt1) \$::tkcon::OPT(prompt2) tkcon set ::tkcon::OPT(exec) $slave tkcon set ::tkcon::PRIV(event) $event tkcon prompt } } bo* { if {[regexp {^([#-]?[0-9]+)} $args level]} { return [uplevel $level {dump c -no [lindex [info level 0] 0]}] } } t* { if {[llength $args]<2} return set min [set max [set lvl $level]] set exp {^#?([0-9]+)? ?#?([0-9]+) ?#?([0-9]+)? ?(VERBOSE)?} if {![regexp $exp $args junk min max lvl verbose]} return for {set i $max} { $i>=$min && ![catch {uplevel \#$i info level 0} info] } {incr i -1} { if {$i==$lvl} { puts -nonewline stderr "* \#$i:\t" } else { puts -nonewline stderr " \#$i:\t" } set name [lindex $info 0] if {[string compare VERBOSE $verbose] || \ ![llength [info procs $name]]} { puts $info } else { puts "proc $name {[info args $name]} { ... }" set idx 0 foreach arg [info args $name] { if {[string match args $arg]} { puts "\t$arg = [lrange $info [incr idx] end]" break } else { puts "\t$arg = [lindex $info [incr idx]]" } } } } } s* { #var, local, global set level \#$level if {![regexp {^([vgl][^ ]*) ?([#-]?[0-9]+)? ?(VERBOSE)?} \ $args junk type level verbose]} return switch -glob -- $type { v* { set vars [uplevel $level {lsort [info vars]}] } l* { set vars [uplevel $level {lsort [info locals]}] } g* { set vars [lremove [uplevel $level {info vars}] \ [uplevel $level {info locals}]] } } if {[string match VERBOSE $verbose]} { return [uplevel $level dump var -nocomplain $vars] } else { return $vars } } e* - pu* { if {[llength $opt]==1 && [catch {lindex [info level -1] 0} id]} { set id [lindex [info level 0] 0] } else { set id [lindex $opt 1] } if {$IDEBUG(on) && [string match $IDEBUG(id) $id]} { if {[string match e* $opt]} { puts [concat $args] } else { eval puts $args } } } default { return -code error "bad [lindex [info level 0] 0] option \"$opt\",\ must be: [join [lsort [list on off id break print body\ trace show puts echo]] {, }]" } } } ## observe - like trace, but not # ARGS: opt - option # name - name of variable or command ## proc observe {opt name args} { global tcl_observe switch -glob -- $opt { co* { if {[regexp {^(catch|lreplace|set|puts|for|incr|info|uplevel)$} \ $name]} { return -code error "cannot observe \"$name\":\ infinite eval loop will occur" } set old ${name}@ while {[llength [info command $old]]} { append old @ } rename $name $old set max 4 regexp {^[0-9]+} $args max # handle the observe'ing of 'proc' set proccmd "proc" if {[string match "proc" $name]} { set proccmd $old } ## idebug trace could be used here $proccmd $name args " for {set i \[info level\]; set max \[expr \[info level\]-$max\]} { \$i>=\$max && !\[catch {uplevel \#\$i info level 0} info\] } {incr i -1} { puts -nonewline stderr \" \#\$i:\t\" puts \$info } uplevel \[lreplace \[info level 0\] 0 0 $old\] " set tcl_observe($name) $old } cd* { if {[info exists tcl_observe($name)] && [catch { rename $name {} rename $tcl_observe($name) $name unset tcl_observe($name) } err]} { return -code error $err } } ci* { ## What a useless method... if {[info exists tcl_observe($name)]} { set i $tcl_observe($name) set res "\"$name\" observes true command \"$i\"" while {[info exists tcl_observe($i)]} { append res "\n\"$name\" observes true command \"$i\"" set i $tcl_observe($name) } return $res } } va* - vd* { set type [lindex $args 0] set args [lrange $args 1 end] if {![regexp {^[rwu]} $type type]} { return -code error "bad [lindex [info level 0] 0] $opt type\ \"$type\", must be: read, write or unset" } if {![llength $args]} { set args observe_var } foreach c [uplevel 1 [list trace vinfo $name]] { # don't double up on the traces if {[list $type $args] == $c} { return } } uplevel 1 [list trace $opt $name $type $args] } vi* { uplevel 1 [list trace vinfo $name] } default { return -code error "bad [lindex [info level 0] 0] option\ \"[lindex $args 0]\", must be: [join [lsort \ [list command cdelete cinfo variable vdelete vinfo]] {, }]" } } } ## observe_var - auxilary function for observing vars, called by trace ## via observe # ARGS: name - variable name # el - array element name, if any # op - operation type (rwu) ## proc observe_var {name el op} { if {[string match u $op]} { if {[string compare {} $el]} { puts "unset \"${name}($el)\"" } else { puts "unset \"$name\"" } } else { upvar 1 $name $name if {[info exists ${name}($el)]} { puts [dump v ${name}($el)] } else { puts [dump v $name] } } } ## which - tells you where a command is found # ARGS: cmd - command name # Returns: where command is found (internal / external / unknown) ## proc which cmd { ## This tries to auto-load a command if not recognized set types [uplevel 1 [list what $cmd 1]] if {[llength $types]} { set out {} foreach type $types { switch -- $type { alias { set res "$cmd: aliased to [alias $cmd]" } procedure { set res "$cmd: procedure" } command { set res "$cmd: internal command" } executable { lappend out [auto_execok $cmd] } variable { lappend out "$cmd: $type" } } if {[info exists res]} { global auto_index if {[info exists auto_index($cmd)]} { ## This tells you where the command MIGHT have come from - ## not true if the command was redefined interactively or ## existed before it had to be auto_loaded. This is just ## provided as a hint at where it MAY have come from append res " ($auto_index($cmd))" } lappend out $res unset res } } return [join $out \n] } else { return -code error "$cmd: command not found" } } ## what - tells you what a string is recognized as # ARGS: str - string to id # Returns: id types of command as list ## proc what {str {autoload 0}} { set types {} if {[llength [info commands $str]] || ($autoload && \ [auto_load $str] && [llength [info commands $str]])} { if {[lsearch -exact [interp aliases] $str] > -1} { lappend types "alias" } elseif { [llength [info procs $str]] || ([string match *::* $str] && [llength [namespace eval [namespace qualifier $str] \ info procs [namespace tail $str]]]) } { lappend types "procedure" } else { lappend types "command" } } if {[llength [uplevel 1 info vars $str]]} { upvar 1 $str var if {[array exists var]} { lappend types array variable } else { lappend types scalar variable } } if {[file isdirectory $str]} { lappend types "directory" } if {[file isfile $str]} { lappend types "file" } if {[llength [info commands winfo]] && [winfo exists $str]} { lappend types "widget" } if {[string compare {} [auto_execok $str]]} { lappend types "executable" } return $types } ## dir - directory list # ARGS: args - names/glob patterns of directories to list # OPTS: -all - list hidden files as well (Unix dot files) # -long - list in full format "permissions size date filename" # -full - displays / after directories and link paths for links # Returns: a directory listing ## proc dir {args} { array set s { all 0 full 0 long 0 0 --- 1 --x 2 -w- 3 -wx 4 r-- 5 r-x 6 rw- 7 rwx } while {[string match \-* [lindex $args 0]]} { set str [lindex $args 0] set args [lreplace $args 0 0] switch -glob -- $str { -a* {set s(all) 1} -f* {set s(full) 1} -l* {set s(long) 1} -- break default { return -code error "unknown option \"$str\",\ should be one of: -all, -full, -long" } } } set sep [string trim [file join . .] .] if {![llength $args]} { set args [list [pwd]] } if {$::tcl_version >= 8.3} { # Newer glob args allow safer dir processing. The user may still # want glob chars, but really only for file matching. foreach arg $args { if {[file isdirectory $arg]} { if {$s(all)} { lappend out [list $arg [lsort \ [glob -nocomplain -directory $arg .* *]]] } else { lappend out [list $arg [lsort \ [glob -nocomplain -directory $arg *]]] } } else { set dir [file dirname $arg] lappend out [list $dir$sep [lsort \ [glob -nocomplain -directory $dir [file tail $arg]]]] } } } else { foreach arg $args { if {[file isdirectory $arg]} { set arg [string trimright $arg $sep]$sep if {$s(all)} { lappend out [list $arg [lsort [glob -nocomplain -- $arg.* $arg*]]] } else { lappend out [list $arg [lsort [glob -nocomplain -- $arg*]]] } } else { lappend out [list [file dirname $arg]$sep \ [lsort [glob -nocomplain -- $arg]]] } } } if {$s(long)} { set old [clock scan {1 year ago}] set fmt "%s%9ld %s %s\n" foreach o $out { set d [lindex $o 0] append res $d:\n foreach f [lindex $o 1] { file lstat $f st set f [file tail $f] if {$s(full)} { switch -glob $st(type) { d* { append f $sep } l* { append f "@ -> [file readlink $d$sep$f]" } default { if {[file exec $d$sep$f]} { append f * } } } } if {[string match file $st(type)]} { set mode - } else { set mode [string index $st(type) 0] } foreach j [split [format %03o [expr {$st(mode)&0777}]] {}] { append mode $s($j) } if {$st(mtime)>$old} { set cfmt {%b %d %H:%M} } else { set cfmt {%b %d %Y} } append res [format $fmt $mode $st(size) \ [clock format $st(mtime) -format $cfmt] $f] } append res \n } } else { foreach o $out { set d [lindex $o 0] append res "$d:\n" set i 0 foreach f [lindex $o 1] { if {[string len [file tail $f]] > $i} { set i [string len [file tail $f]] } } set i [expr {$i+2+$s(full)}] set j 80 ## This gets the number of cols in the tkcon console widget if {[llength [info commands tkcon]]} { set j [expr {[tkcon master set ::tkcon::OPT(cols)]/$i}] } set k 0 foreach f [lindex $o 1] { set f [file tail $f] if {$s(full)} { switch -glob [file type $d$sep$f] { d* { append f $sep } l* { append f @ } default { if {[file exec $d$sep$f]} { append f * } } } } append res [format "%-${i}s" $f] if {$j == 0 || [incr k]%$j == 0} { set res [string trimright $res]\n } } append res \n\n } } return [string trimright $res] } interp alias {} ::ls {} ::dir -full ## lremove - remove items from a list # OPTS: # -all remove all instances of each item # -glob remove all instances matching glob pattern # -regexp remove all instances matching regexp pattern # ARGS: l a list to remove items from # args items to remove (these are 'join'ed together) ## proc lremove {args} { array set opts {-all 0 pattern -exact} while {[string match -* [lindex $args 0]]} { switch -glob -- [lindex $args 0] { -a* { set opts(-all) 1 } -g* { set opts(pattern) -glob } -r* { set opts(pattern) -regexp } -- { set args [lreplace $args 0 0]; break } default {return -code error "unknown option \"[lindex $args 0]\""} } set args [lreplace $args 0 0] } set l [lindex $args 0] foreach i [join [lreplace $args 0 0]] { if {[set ix [lsearch $opts(pattern) $l $i]] == -1} continue set l [lreplace $l $ix $ix] if {$opts(-all)} { while {[set ix [lsearch $opts(pattern) $l $i]] != -1} { set l [lreplace $l $ix $ix] } } } return $l } if {!$::tkcon::PRIV(WWW)} {; ## Unknown changed to get output into tkcon window # unknown: # Invoked automatically whenever an unknown command is encountered. # Works through a list of "unknown handlers" that have been registered # to deal with unknown commands. Extensions can integrate their own # handlers into the 'unknown' facility via 'unknown_handler'. # # If a handler exists that recognizes the command, then it will # take care of the command action and return a valid result or a # Tcl error. Otherwise, it should return "-code continue" (=2) # and responsibility for the command is passed to the next handler. # # Arguments: # args - A list whose elements are the words of the original # command, including the command name. proc unknown args { global unknown_handler_order unknown_handlers errorInfo errorCode # # Be careful to save error info now, and restore it later # for each handler. Some handlers generate their own errors # and disrupt handling. # set savedErrorCode $errorCode set savedErrorInfo $errorInfo if {![info exists unknown_handler_order] || \ ![info exists unknown_handlers]} { set unknown_handlers(tcl) tcl_unknown set unknown_handler_order tcl } foreach handler $unknown_handler_order { set status [catch {uplevel 1 $unknown_handlers($handler) $args} result] if {$status == 1} { # # Strip the last five lines off the error stack (they're # from the "uplevel" command). # set new [split $errorInfo \n] set new [join [lrange $new 0 [expr {[llength $new]-6}]] \n] return -code $status -errorcode $errorCode \ -errorinfo $new $result } elseif {$status != 4} { return -code $status $result } set errorCode $savedErrorCode set errorInfo $savedErrorInfo } set name [lindex $args 0] return -code error "invalid command name \"$name\"" } # tcl_unknown: # Invoked when a Tcl command is invoked that doesn't exist in the # interpreter: # # 1. See if the autoload facility can locate the command in a # Tcl script file. If so, load it and execute it. # 2. If the command was invoked interactively at top-level: # (a) see if the command exists as an executable UNIX program. # If so, "exec" the command. # (b) see if the command requests csh-like history substitution # in one of the common forms !!, !, or ^old^new. If # so, emulate csh's history substitution. # (c) see if the command is a unique abbreviation for another # command. If so, invoke the command. # # Arguments: # args - A list whose elements are the words of the original # command, including the command name. proc tcl_unknown args { global auto_noexec auto_noload env unknown_pending tcl_interactive global errorCode errorInfo # If the command word has the form "namespace inscope ns cmd" # then concatenate its arguments onto the end and evaluate it. set cmd [lindex $args 0] if {[regexp "^:*namespace\[ \t\n\]+inscope" $cmd] \ && [llength $cmd] == 4} { set arglist [lrange $args 1 end] set ret [catch {uplevel 1 $cmd $arglist} result] if {$ret == 0} { return $result } else { return -code $ret -errorcode $errorCode $result } } # Save the values of errorCode and errorInfo variables, since they # may get modified if caught errors occur below. The variables will # be restored just before re-executing the missing command. set savedErrorCode $errorCode set savedErrorInfo $errorInfo set name [lindex $args 0] if {![info exists auto_noload]} { # # Make sure we're not trying to load the same proc twice. # if {[info exists unknown_pending($name)]} { return -code error "self-referential recursion in \"unknown\" for command \"$name\"" } set unknown_pending($name) pending if {[llength [info args auto_load]]==1} { set ret [catch {auto_load $name} msg] } else { set ret [catch {auto_load $name [uplevel 1 {namespace current}]} msg] } unset unknown_pending($name) if {$ret} { return -code $ret -errorcode $errorCode \ "error while autoloading \"$name\": $msg" } if {![array size unknown_pending]} { unset unknown_pending } if {$msg} { set errorCode $savedErrorCode set errorInfo $savedErrorInfo set code [catch {uplevel 1 $args} msg] if {$code == 1} { # # Strip the last five lines off the error stack (they're # from the "uplevel" command). # set new [split $errorInfo \n] set new [join [lrange $new 0 [expr {[llength $new]-6}]] \n] return -code error -errorcode $errorCode \ -errorinfo $new $msg } else { return -code $code $msg } } } if {[info level] == 1 && [string match {} [info script]] \ && [info exists tcl_interactive] && $tcl_interactive} { if {![info exists auto_noexec]} { set new [auto_execok $name] if {[string compare {} $new]} { set errorCode $savedErrorCode set errorInfo $savedErrorInfo if {[info exists ::tkcon::EXPECT] && $::tkcon::EXPECT && [package provide Expect] != ""} { return [tkcon expect [concat $new [lrange $args 1 end]]] } else { return [uplevel 1 exec $new [lrange $args 1 end]] } #return [uplevel exec >&@stdout <@stdin $new [lrange $args 1 end]] } } set errorCode $savedErrorCode set errorInfo $savedErrorInfo ## ## History substitution moved into ::tkcon::EvalCmd ## if {[string compare $name "::"] == 0} { set name "" } if {$ret != 0} { return -code $ret -errorcode $errorCode \ "error in unknown while checking if \"$name\" is a unique command abbreviation: $msg" } set cmds [info commands $name*] if {[llength $cmds] == 1} { return [uplevel 1 [lreplace $args 0 0 $cmds]] } if {[llength $cmds]} { if {$name == ""} { return -code error "empty command name \"\"" } else { return -code error \ "ambiguous command name \"$name\": [lsort $cmds]" } } ## We've got nothing so far ## Check and see if Tk wasn't loaded, but it appears to be a Tk cmd if {![uplevel \#0 info exists tk_version]} { lappend tkcmds bell bind bindtags button \ canvas checkbutton clipboard destroy \ entry event focus font frame grab grid image \ label labelframe listbox lower menu menubutton message \ option pack panedwindow place radiobutton raise \ scale scrollbar selection send spinbox \ text tk tkwait toplevel winfo wm if {[lsearch -exact $tkcmds $name] >= 0 && \ [tkcon master tk_messageBox -icon question -parent . \ -title "Load Tk?" -type retrycancel -default retry \ -message "This appears to be a Tk command, but Tk\ has not yet been loaded. Shall I retry the command\ with loading Tk first?"] == "retry"} { return [uplevel 1 "load {} Tk; $args"] } } } return -code continue } } ; # end exclusionary code for WWW proc ::tkcon::Bindings {} { variable PRIV global tcl_platform tk_version #----------------------------------------------------------------------- # Elements of tk::Priv that are used in this file: # # mouseMoved - Non-zero means the mouse has moved a significant # amount since the button went down (so, for example, # start dragging out a selection). #----------------------------------------------------------------------- ## Get all Text bindings into TkConsole foreach ev [bind Text] { bind TkConsole $ev [bind Text $ev] } ## We really didn't want the newline insertion bind TkConsole {} if {$PRIV(AQUA)} { bind TkConsole <> {tk::TextSetCursor %W limit} } ## in 8.6b3, the virtual events <> and <> # mess up our history feature bind TkConsole <> {} bind TkConsole <> {} ## Now make all our virtual event bindings set bindings { <> <$PRIV(CTRL)-q> <> <$PRIV(CTRL)-N> <> <$PRIV(CTRL)-T> <> <> <> <$PRIV(CTRL)-w> <> <$PRIV(CTRL)-A> <> <$PRIV(CTRL)F> <> <$PRIV(CTRL)Key-1> <> <$PRIV(CTRL)Key-2> <> <$PRIV(CTRL)Key-3> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> } if {$PRIV(AQUA)} { lappend bindings <> \ <> } else { lappend bindings <> } foreach {ev key} [subst -nocommand -noback $bindings] { event add $ev $key ## Make sure the specific key won't be defined bind TkConsole $key {} } ## Make the ROOT bindings bind $PRIV(root) <> exit bind $PRIV(root) <> { ::tkcon::New } bind $PRIV(root) <> { ::tkcon::NewTab } bind $PRIV(root) <> { ::tkcon::GotoTab 1 ; break } bind $PRIV(root) <> { ::tkcon::GotoTab -1 ; break } bind $PRIV(root) <> { ::tkcon::Destroy } bind $PRIV(root) <> { ::tkcon::About } bind $PRIV(root) <> { ::tkcon::FindBox $::tkcon::PRIV(console) } bind $PRIV(root) <> { ::tkcon::Attach {} ::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] } bind $PRIV(root) <> { if {[string compare {} $::tkcon::PRIV(name)]} { ::tkcon::Attach $::tkcon::PRIV(name) } else { ::tkcon::Attach Main } ::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] } bind $PRIV(root) <> { ::tkcon::Attach Main ::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] } bind $PRIV(root) <> { ::tkcon::PopupMenu %X %Y } ## Menu items need null TkConsolePost bindings to avoid the TagProc ## foreach ev [bind $PRIV(root)] { bind TkConsolePost $ev { # empty } } # ::tkcon::ClipboardKeysyms -- # This procedure is invoked to identify the keys that correspond to # the copy, cut, and paste functions for the clipboard. # # Arguments: # copy - Name of the key (keysym name plus modifiers, if any, # such as "Meta-y") used for the copy operation. # cut - Name of the key used for the cut operation. # paste - Name of the key used for the paste operation. proc ::tkcon::ClipboardKeysyms {copy cut paste} { bind TkConsole <$copy> {::tkcon::Copy %W} bind TkConsole <$cut> {::tkcon::Cut %W} bind TkConsole <$paste> {::tkcon::Paste %W} } proc ::tkcon::GetSelection {w} { if { ![catch {selection get -displayof $w -type UTF8_STRING} txt] || ![catch {selection get -displayof $w} txt] || ![catch {selection get -displayof $w -selection CLIPBOARD} txt] } { return $txt } return -code error "could not find default selection" } proc ::tkcon::Cut w { if {[string match $w [selection own -displayof $w]]} { clipboard clear -displayof $w catch { set txt [selection get -displayof $w] clipboard append -displayof $w $txt if {[$w compare sel.first >= limit]} { $w delete sel.first sel.last } } } } proc ::tkcon::Copy w { if {[string match $w [selection own -displayof $w]]} { clipboard clear -displayof $w catch { set txt [selection get -displayof $w] clipboard append -displayof $w $txt } } } proc ::tkcon::Paste w { if {![catch {GetSelection $w} txt]} { catch { if {[$w compare sel.first >= limit]} { $w delete sel.first sel.last } } if {[$w compare insert < limit]} { $w mark set insert end } $w insert insert $txt $w see insert if {[string match *\n* $txt]} { ::tkcon::Eval $w } } } ## Redefine for TkConsole what we need ## event delete <> <$PRIV(CTRL)V> ::tkcon::ClipboardKeysyms bind TkConsole { catch { ::tkcon::Insert %W [::tkcon::GetSelection %W] } } bind TkConsole {+ catch { eval %W tag remove sel [%W tag nextrange prompt sel.first sel.last] eval %W tag remove sel sel.last-1c %W mark set insert sel.first } } ## binding editor needed ## binding for .tkconrc bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W path} break ; # could check "%K" == "Tab" } bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W proc} break ; # could check "%K" == "Tab" } bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W var} break ; # could check "%K" == "Tab" } bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W} break ; # could check "%K" == "Tab" } bind TkConsole <> { if {[%W compare insert >= limit]} { ::tkcon::Insert %W \t } } bind TkConsole <> { if {[%W compare insert >= limit]} { ::tkcon::Insert %W \n } } bind TkConsole <> { ::tkcon::Eval %W } bind TkConsole { if {[llength [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif {[%W compare insert >= limit]} { %W delete insert %W see insert } } bind TkConsole { if {[llength [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif {[%W compare insert != 1.0] && [%W compare insert > limit]} { %W delete insert-1c %W see insert } } bind TkConsole [bind TkConsole ] bind TkConsole { ::tkcon::Insert %W %A } bind TkConsole { if {[%W compare {limit linestart} == {insert linestart}]} { tk::TextSetCursor %W limit } else { tk::TextSetCursor %W {insert linestart} } } bind TkConsole [bind TkConsole ] bind TkConsole { if {[%W compare insert < limit]} break %W delete insert } bind TkConsole { if {[%W compare insert < limit]} break if {[%W compare insert == {insert lineend}]} { %W delete insert } else { %W delete insert {insert lineend} } } bind TkConsole <> { ## Clear console buffer, without losing current command line input set ::tkcon::PRIV(tmp) [::tkcon::CmdGet %W] clear ::tkcon::Prompt {} $::tkcon::PRIV(tmp) } bind TkConsole <> { if {[%W compare {insert linestart} != {limit linestart}]} { tk::TextSetCursor %W [tk::TextUpDownLine %W -1] } else { ::tkcon::Event -1 } } bind TkConsole <> { if {[%W compare {insert linestart} != {end-1c linestart}]} { tk::TextSetCursor %W [tk::TextUpDownLine %W 1] } else { ::tkcon::Event 1 } } bind TkConsole <> { ::tkcon::Event 1 } bind TkConsole <> { ::tkcon::Event -1 } bind TkConsole <> { ::tkcon::Event -1 [::tkcon::CmdGet %W] } bind TkConsole <> { ::tkcon::Event 1 [::tkcon::CmdGet %W] } bind TkConsole <> { ## Transpose current and previous chars if {[%W compare insert > "limit+1c"]} { tk::TextTranspose %W } } bind TkConsole <> { ## Clear command line (Unix shell staple) %W delete limit end } bind TkConsole <> { ## Save command buffer (swaps with current command) set ::tkcon::PRIV(tmp) $::tkcon::PRIV(cmdsave) set ::tkcon::PRIV(cmdsave) [::tkcon::CmdGet %W] if {[string match {} $::tkcon::PRIV(cmdsave)]} { set ::tkcon::PRIV(cmdsave) $::tkcon::PRIV(tmp) } else { %W delete limit end-1c } ::tkcon::Insert %W $::tkcon::PRIV(tmp) %W see end } catch {bind TkConsole { tk::TextScrollPages %W -1 }} catch {bind TkConsole { tk::TextScrollPages %W -1 }} catch {bind TkConsole { tk::TextScrollPages %W 1 }} catch {bind TkConsole { tk::TextScrollPages %W 1 }} bind TkConsole { if {[%W compare insert >= limit]} { %W delete insert {insert wordend} } } bind TkConsole { if {[%W compare {insert -1c wordstart} >= limit]} { %W delete {insert -1c wordstart} insert } } bind TkConsole { if {[%W compare insert >= limit]} { %W delete insert {insert wordend} } } bind TkConsole { if { (!$tk::Priv(mouseMoved) || $tk_strictMotif) && ![catch {::tkcon::GetSelection %W} ::tkcon::PRIV(tmp)] } { if {[%W compare @%x,%y < limit]} { %W insert end $::tkcon::PRIV(tmp) } else { %W insert @%x,%y $::tkcon::PRIV(tmp) } if {[string match *\n* $::tkcon::PRIV(tmp)]} {::tkcon::Eval %W} } } ## ## End TkConsole bindings ## ## ## Bindings for doing special things based on certain keys ## bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchPair %W \( \) limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchPair %W \[ \] limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchPair %W \{ \} limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchQuote %W limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {[winfo exists "%W"]} { if {$::tkcon::OPT(lightcmd) && [string compare {} %A]} { ::tkcon::TagProc %W } set ::tkcon::PRIV(StatusCursor) [%W index insert] } } bind TkConsolePost { set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { set ::tkcon::PRIV(StatusCursor) [%W index insert] } } ## # ::tkcon::PopupMenu - what to do when the popup menu is requested ## proc ::tkcon::PopupMenu {X Y} { variable PRIV variable OPT set w $PRIV(console) if {[string compare $w [winfo containing $X $Y]]} { tk_popup $PRIV(popup) $X $Y return } set x [expr {$X-[winfo rootx $w]}] set y [expr {$Y-[winfo rooty $w]}] if {[llength [set tags [$w tag names @$x,$y]]]} { if {[lsearch -exact $tags "proc"] >= 0} { lappend type "proc" foreach {first last} [$w tag prevrange proc @$x,$y] { set word [$w get $first $last]; break } } if {[lsearch -exact $tags "var"] >= 0} { lappend type "var" foreach {first last} [$w tag prevrange var @$x,$y] { set word [$w get $first $last]; break } } } if {![info exists type]} { set exp "(^|\[^\\\\\]\[ \t\n\r\])" set exp2 "\[\[\\\\\\?\\*\]" set i [$w search -backwards -regexp $exp @$x,$y "@$x,$y linestart"] if {[string compare {} $i]} { if {![string match *.0 $i]} {append i +2c} if {[string compare {} \ [set j [$w search -regexp $exp $i "$i lineend"]]]} { append j +1c } else { set j "$i lineend" } regsub -all $exp2 [$w get $i $j] {\\\0} word set word [string trim $word {\"$[]{}',?#*}] if {[llength [EvalAttached [list info commands $word]]]} { lappend type "proc" } if {[llength [EvalAttached [list info vars $word]]]} { lappend type "var" } if {[EvalAttached [list file isfile $word]]} { lappend type "file" } } } if {![info exists type] || ![info exists word]} { tk_popup $PRIV(popup) $X $Y return } $PRIV(context) delete 0 end $PRIV(context) add command -label "$word" -state disabled $PRIV(context) add separator set app [Attach] if {[lsearch $type proc] != -1} { $PRIV(context) add command -label "View Procedure" \ -command [list $OPT(edit) -attach $app -type proc -- $word] } if {[lsearch $type var] != -1} { $PRIV(context) add command -label "View Variable" \ -command [list $OPT(edit) -attach $app -type var -- $word] } if {[lsearch $type file] != -1} { $PRIV(context) add command -label "View File" \ -command [list $OPT(edit) -attach $app -type file -- $word] } tk_popup $PRIV(context) $X $Y } ## ::tkcon::TagProc - tags a procedure in the console if it's recognized ## This procedure is not perfect. However, making it perfect wastes ## too much CPU time... ## proc ::tkcon::TagProc w { set exp "\[^\\\\\]\[\[ \t\n\r\;{}\"\$\]" set i [$w search -backwards -regexp $exp insert-1c limit-1c] if {[string compare {} $i]} {append i +2c} else {set i limit} regsub -all "\[\[\\\\\\?\\*\]" [$w get $i "insert-1c wordend"] {\\\0} c if {[llength [EvalAttached [list info commands $c]]]} { $w tag add proc $i "insert-1c wordend" } else { $w tag remove proc $i "insert-1c wordend" } if {[llength [EvalAttached [list info vars $c]]]} { $w tag add var $i "insert-1c wordend" } else { $w tag remove var $i "insert-1c wordend" } } ## ::tkcon::MatchPair - blinks a matching pair of characters ## c2 is assumed to be at the text index 'insert'. ## This proc is really loopy and took me an hour to figure out given ## all possible combinations with escaping except for escaped \'s. ## It doesn't take into account possible commenting... Oh well. If ## anyone has something better, I'd like to see/use it. This is really ## only efficient for small contexts. # ARGS: w - console text widget # c1 - first char of pair # c2 - second char of pair # Calls: ::tkcon::Blink ## proc ::tkcon::MatchPair {w c1 c2 {lim 1.0}} { if {[string compare {} [set ix [$w search -back $c1 insert $lim]]]} { while { [string match {\\} [$w get $ix-1c]] && [string compare {} [set ix [$w search -back $c1 $ix-1c $lim]]] } {} set i1 insert-1c while {[string compare {} $ix]} { set i0 $ix set j 0 while {[string compare {} [set i0 [$w search $c2 $i0 $i1]]]} { append i0 +1c if {[string match {\\} [$w get $i0-2c]]} continue incr j } if {!$j} break set i1 $ix while {$j && [string compare {} \ [set ix [$w search -back $c1 $ix $lim]]]} { if {[string match {\\} [$w get $ix-1c]]} continue incr j -1 } } if {[string match {} $ix]} { set ix [$w index $lim] } } else { set ix [$w index $lim] } if {$::tkcon::OPT(blinkrange)} { Blink $w $ix [$w index insert] } else { Blink $w $ix $ix+1c [$w index insert-1c] [$w index insert] } } ## ::tkcon::MatchQuote - blinks between matching quotes. ## Blinks just the quote if it's unmatched, otherwise blinks quoted string ## The quote to match is assumed to be at the text index 'insert'. # ARGS: w - console text widget # Calls: ::tkcon::Blink ## proc ::tkcon::MatchQuote {w {lim 1.0}} { set i insert-1c set j 0 while {[string compare [set i [$w search -back \" $i $lim]] {}]} { if {[string match {\\} [$w get $i-1c]]} continue if {!$j} {set i0 $i} incr j } if {$j&1} { if {$::tkcon::OPT(blinkrange)} { Blink $w $i0 [$w index insert] } else { Blink $w $i0 $i0+1c [$w index insert-1c] [$w index insert] } } else { Blink $w [$w index insert-1c] [$w index insert] } } ## ::tkcon::Blink - blinks between n index pairs for a specified duration. # ARGS: w - console text widget # i1 - start index to blink region # i2 - end index of blink region # dur - duration in usecs to blink for # Outputs: blinks selected characters in $w ## proc ::tkcon::Blink {w args} { eval [list $w tag add blink] $args after $::tkcon::OPT(blinktime) [list $w] tag remove blink $args return } ## ::tkcon::Insert ## Insert a string into a text console at the point of the insertion cursor. ## If there is a selection in the text, and it covers the point of the ## insertion cursor, then delete the selection before inserting. # ARGS: w - text window in which to insert the string # s - string to insert (usually just a single char) # Outputs: $s to text widget ## proc ::tkcon::Insert {w s} { if {[string match {} $s] || [string match disabled [$w cget -state]]} { return } variable EXP if {[info exists EXP(spawn_id)]} { exp_send -i $EXP(spawn_id) -- $s return } if {[$w comp insert < limit]} { $w mark set insert end } if {[llength [$w tag ranges sel]] && \ [$w comp sel.first <= insert] && [$w comp sel.last >= insert]} { $w delete sel.first sel.last } $w insert insert $s $w see insert } ## ::tkcon::Expand - # ARGS: w - text widget in which to expand str # type - type of expansion (path / proc / variable) # Calls: ::tkcon::Expand(Pathname|Procname|Variable) # Outputs: The string to match is expanded to the longest possible match. # If ::tkcon::OPT(showmultiple) is non-zero and the user longest # match equaled the string to expand, then all possible matches # are output to stdout. Triggers bell if no matches are found. # Returns: number of matches found ## proc ::tkcon::Expand {w {type ""}} { set exp "\[^\\\\\]\[\[ \t\n\r\\\{\"$\]" set tmp [$w search -backwards -regexp $exp insert-1c limit-1c] if {[string compare {} $tmp]} {append tmp +2c} else {set tmp limit} set str [$w get $tmp insert] # Expand procs can return "break" to indicate not to try further # matches, otherwise "continue" says "I got nothing, continue on" # We can ignore return codes from the specific expand type checks switch -glob $type { pa* { set code [catch {ExpandPathname $str} res] } pr* { set code [catch {ExpandProcname $str} res] } v* { set code [catch {ExpandVariable $str} res] } default { # XXX could be extended to allow the results of all matches # XXX to be amalgamted ... may be confusing to user set res {} foreach t $::tkcon::OPT(expandorder) { set code [catch {Expand$t $str} res] if {$code == 0 || $code == 3} { break } set res {} } } } set len [llength $res] if {$len} { $w delete $tmp insert $w insert $tmp [lindex $res 0] if {$len > 1} { if {$::tkcon::OPT(showmultiple) && \ ![string compare [lindex $res 0] $str]} { puts stdout [lsort [lreplace $res 0 0]] } } } else { bell } return [incr len -1] } ## ::tkcon::ExpandPathname - expand a file pathname based on $str ## This is based on UNIX file name conventions # ARGS: str - partial file pathname to expand # Calls: ::tkcon::ExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc ::tkcon::ExpandPathname str { # require at least a single character, otherwise continue if {$str eq ""} {return -code continue} set pwd [EvalAttached pwd] # Cause a string like {C:/Program\ Files/} to become "C:/Program Files/" regsub -all {\\([][ ])} $str {\1} str if {[catch {EvalAttached [list cd [file dirname $str]]} err]} { return -code error $err } set dir [file tail $str] ## Check to see if it was known to be a directory and keep the trailing ## slash if so (file tail cuts it off) if {[string match */ $str]} { append dir / } # Create a safely glob-able name regsub -all {([][])} $dir {\\\1} safedir if {[catch {lsort [EvalAttached [list glob $safedir*]]} m]} { set match {} } else { if {[llength $m] > 1} { global tcl_platform if {[string match windows $tcl_platform(platform)]} { ## Windows is screwy because it's case insensitive set tmp [ExpandBestMatch [string tolower $m] \ [string tolower $dir]] ## Don't change case if we haven't changed the word if {[string length $dir]==[string length $tmp]} { set tmp $dir } } else { set tmp [ExpandBestMatch $m $dir] } if {[string match */* $str]} { set tmp [string trimright [file dirname $str] /]/$tmp } regsub -all {([^\\])([][ ])} $tmp {\1\\\2} tmp set match [linsert $m 0 $tmp] } else { ## This may look goofy, but it handles spaces in path names eval append match $m if {[file isdirectory $match]} {append match /} if {[string match */* $str]} { set match [string trimright [file dirname $str] /]/$match } regsub -all {([^\\])([][ ])} $match {\1\\\2} match ## Why is this one needed and the ones below aren't!! set match [list $match] } } EvalAttached [list cd $pwd] return -code [expr {$match eq "" ? "continue" : "break"}] $match } ## ::tkcon::ExpandProcname - expand a tcl proc name based on $str # ARGS: str - partial proc name to expand # Calls: ::tkcon::ExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc ::tkcon::ExpandProcname str { # require at least a single character, otherwise continue if {$str eq ""} {return -code continue} set match [EvalAttached [list info commands $str*]] if {[llength $match] == 0} { set ns [EvalAttached \ "namespace children \[namespace current\] [list $str*]"] if {[llength $ns]==1} { set match [EvalAttached [list info commands ${ns}::*]] } else { set match $ns } } if {[llength $match] > 1} { regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } str set match [linsert $match 0 $str] } else { regsub -all {([^\\]) } $match {\1\\ } match } return -code [expr {$match eq "" ? "continue" : "break"}] $match } ## ::tkcon::ExpandMethodname - expand an NSF/XOTcl method name based on $str # ARGS: str - partial proc name to expand # Calls: ::tkcon::ExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc ::tkcon::ExpandMethodname str { # In a first step, obtain the typed-in cmd from the console set typedCmd [::tkcon::CmdGet $::tkcon::PRIV(console)] set obj [lindex $typedCmd 0] if {$obj eq $typedCmd} { # just a single word, can't be a method expansion return -code continue } # Get the full string after the object set sub [string trimleft [string range $typedCmd [string length [list $obj]] end]] if {[EvalAttached [list info exists ::nsf::version]]} { # Next Scripting Framework is loaded if {![EvalAttached [list ::nsf::object::exists $obj]]} {return -code continue} if {[string match ::* $sub]} { # NSF allows dispatch of unregistered methods via absolute # paths set cmd "concat \[info commands $sub*\] \[namespace children \[namespace qualifiers $sub\] $sub*\]" } else { set cmd [list $obj ::nsf::methods::object::info::lookupmethods -callprotection public -path -- $sub*] } } elseif {[EvalAttached [list info exists ::xotcl::version]]} { # XOTcl < 2.* is loaded if {![EvalAttached [list ::xotcl::Object isobject $obj]]} {return -code continue} set cmd [list $obj info methods $sub*] } else { # No NSF/XOTcl loaded return -code continue } set match [EvalAttached $cmd] if {[llength $match] > 1} { regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } bestMatch if {$str eq "" && [string match "* " $bestMatch]} { set match [linsert $match 0 ""] } else { regsub -all {\\ } $bestMatch { } bestMatch set match [linsert $match 0 [lindex $bestMatch end]] } } else { set match [lindex [lindex $match 0] end] } return -code break $match } ## ::tkcon::ExpandVariable - expand a tcl variable name based on $str # ARGS: str - partial tcl var name to expand # Calls: ::tkcon::ExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc ::tkcon::ExpandVariable str { # require at least a single character, otherwise continue if {$str eq ""} {return -code continue} if {[regexp {([^\(]*)\((.*)} $str junk ary str]} { ## Looks like they're trying to expand an array. set match [EvalAttached [list array names $ary $str*]] if {[llength $match] > 1} { set vars $ary\([ExpandBestMatch $match $str] foreach var $match {lappend vars $ary\($var\)} return $vars } elseif {[llength $match] == 1} { set match $ary\($match\) } ## Space transformation avoided for array names. } else { set match [EvalAttached [list info vars $str*]] if {[llength $match] > 1} { regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } str set match [linsert $match 0 $str] } else { regsub -all {([^\\]) } $match {\1\\ } match } } return -code [expr {$match eq "" ? "continue" : "break"}] $match } ## ::tkcon::ExpandBestMatch2 - finds the best unique match in a list of names ## Improves upon the speed of the below proc only when $l is small ## or $e is {}. $e is extra for compatibility with proc below. # ARGS: l - list to find best unique match in # Returns: longest unique match in the list ## proc ::tkcon::ExpandBestMatch2 {l {e {}}} { set s [lindex $l 0] if {[llength $l]>1} { set i [expr {[string length $s]-1}] foreach l $l { while {$i>=0 && [string first $s $l]} { set s [string range $s 0 [incr i -1]] } } } return $s } ## ::tkcon::ExpandBestMatch - finds the best unique match in a list of names ## The extra $e in this argument allows us to limit the innermost loop a ## little further. This improves speed as $l becomes large or $e becomes long. # ARGS: l - list to find best unique match in # e - currently best known unique match # Returns: longest unique match in the list ## proc ::tkcon::ExpandBestMatch {l {e {}}} { set ec [lindex $l 0] if {[llength $l]>1} { set e [string length $e]; incr e -1 set ei [string length $ec]; incr ei -1 foreach l $l { while {$ei>=$e && [string first $ec $l]} { set ec [string range $ec 0 [incr ei -1]] } } } return $ec } # Here is a group of functions that is only used when Tkcon is # executed in a safe interpreter. It provides safe versions of # missing functions. For example: # # - "tk appname" returns "tkcon.tcl" but cannot be set # - "toplevel" is equivalent to 'frame', only it is automatically # packed. # - The 'source', 'load', 'open', 'file' and 'exit' functions are # mapped to corresponding functions in the parent interpreter. # # Further on, Tk cannot be really loaded. Still the safe 'load' # provedes a speciall case. The Tk can be divided into 4 groups, # that each has a safe handling procedure. # # - "::tkcon::SafeItem" handles commands like 'button', 'canvas' ...... # Each of these functions has the window name as first argument. # - "::tkcon::SafeManage" handles commands like 'pack', 'place', 'grid', # 'winfo', which can have multiple window names as arguments. # - "::tkcon::SafeWindow" handles all windows, such as '.'. For every # window created, a new alias is formed which also is handled by # this function. # - Other (e.g. bind, bindtag, image), which need their own function. # ## These functions courtesy Jan Nijtmans ## if {![llength [info commands tk]]} { proc tk {option args} { if {![string match app* $option]} { error "wrong option \"$option\": should be appname" } return "tkcon.tcl" } } if {![llength [info command toplevel]]} { proc toplevel {name args} { eval [linsert $args 0 frame $name] grid $name -sticky news } } proc ::tkcon::SafeSource {i f} { set fd [open $f r] set r [read $fd] close $fd if {[catch {interp eval $i $r} msg]} { error $msg } } proc ::tkcon::SafeOpen {i f {m r}} { set fd [open $f $m] interp transfer {} $fd $i return $fd } proc ::tkcon::SafeLoad {i f p} { global tk_version tk_patchLevel tk_library auto_path if {[string compare $p Tk]} { load $f $p $i } else { foreach command {button canvas checkbutton entry frame label listbox message radiobutton scale scrollbar spinbox text toplevel} { $i alias $command ::tkcon::SafeItem $i $command } $i alias image ::tkcon::SafeImage $i foreach command {pack place grid destroy winfo} { $i alias $command ::tkcon::SafeManage $i $command } if {[llength [info command event]]} { $i alias event ::tkcon::SafeManage $i $command } frame .${i}_dot -width 300 -height 300 -relief raised pack .${i}_dot -side left $i alias tk tk $i alias bind ::tkcon::SafeBind $i $i alias bindtags ::tkcon::SafeBindtags $i $i alias . ::tkcon::SafeWindow $i {} foreach var {tk_version tk_patchLevel tk_library auto_path} { $i eval [list set $var [set $var]] } $i eval { package provide Tk $tk_version if {[lsearch -exact $auto_path $tk_library] < 0} { lappend auto_path $tk_library } } return "" } } proc ::tkcon::SafeSubst {i a} { set arg1 "" foreach {arg value} $a { if {![string compare $arg -textvariable] || ![string compare $arg -variable]} { set newvalue "[list $i] $value" global $newvalue if {[interp eval $i info exists $value]} { set $newvalue [interp eval $i set $value] } else { catch {unset $newvalue} } $i eval trace variable $value rwu \{[list tkcon set $newvalue $i]\} set value $newvalue } elseif {![string compare $arg -command]} { set value [list $i eval $value] } lappend arg1 $arg $value } return $arg1 } proc ::tkcon::SafeItem {i command w args} { set args [::tkcon::SafeSubst $i $args] set code [catch "$command [list .${i}_dot$w] $args" msg] $i alias $w ::tkcon::SafeWindow $i $w regsub -all .${i}_dot $msg {} msg return -code $code $msg } proc ::tkcon::SafeManage {i command args} { set args1 "" foreach arg $args { if {[string match . $arg]} { set arg .${i}_dot } elseif {[string match .* $arg]} { set arg ".${i}_dot$arg" } lappend args1 $arg } set code [catch "$command $args1" msg] regsub -all .${i}_dot $msg {} msg return -code $code $msg } # # FIX: this function doesn't work yet if the binding starts with '+'. # proc ::tkcon::SafeBind {i w args} { if {[string match . $w]} { set w .${i}_dot } elseif {[string match .* $w]} { set w ".${i}_dot$w" } if {[llength $args] > 1} { set args [list [lindex $args 0] \ "[list $i] eval [list [lindex $args 1]]"] } set code [catch "bind $w $args" msg] if {[llength $args] <2 && $code == 0} { set msg [lindex $msg 3] } return -code $code $msg } proc ::tkcon::SafeImage {i option args} { set code [catch "image $option $args" msg] if {[string match cr* $option]} { $i alias $msg $msg } return -code $code $msg } proc ::tkcon::SafeBindtags {i w {tags {}}} { if {[string match . $w]} { set w .${i}_dot } elseif {[string match .* $w]} { set w ".${i}_dot$w" } set newtags {} foreach tag $tags { if {[string match . $tag]} { lappend newtags .${i}_dot } elseif {[string match .* $tag]} { lappend newtags ".${i}_dot$tag" } else { lappend newtags $tag } } if {[string match $tags {}]} { set code [catch {bindtags $w} msg] regsub -all \\.${i}_dot $msg {} msg } else { set code [catch {bindtags $w $newtags} msg] } return -code $code $msg } proc ::tkcon::SafeWindow {i w option args} { if {[string match conf* $option] && [llength $args] > 1} { set args [::tkcon::SafeSubst $i $args] } elseif {[string match itemco* $option] && [llength $args] > 2} { set args "[list [lindex $args 0]] [::tkcon::SafeSubst $i [lrange $args 1 end]]" } elseif {[string match cr* $option]} { if {[llength $args]%2} { set args "[list [lindex $args 0]] [::tkcon::SafeSubst $i [lrange $args 1 end]]" } else { set args [::tkcon::SafeSubst $i $args] } } elseif {[string match bi* $option] && [llength $args] > 2} { set args [list [lindex $args 0] [lindex $args 1] "[list $i] eval [list [lindex $args 2]]"] } set code [catch ".${i}_dot$w $option $args" msg] if {$code} { regsub -all .${i}_dot $msg {} msg } elseif {[string match conf* $option] || [string match itemco* $option]} { if {[llength $args] == 1} { switch -- $args { -textvariable - -variable { set msg "[lrange $msg 0 3] [list [lrange [lindex $msg 4] 1 end]]" } -command - updatecommand { set msg "[lrange $msg 0 3] [list [lindex [lindex $msg 4] 2]]" } } } elseif {[llength $args] == 0} { set args1 "" foreach el $msg { switch -- [lindex $el 0] { -textvariable - -variable { set el "[lrange $el 0 3] [list [lrange [lindex $el 4] 1 end]]" } -command - updatecommand { set el "[lrange $el 0 3] [list [lindex [lindex $el 4] 2]]" } } lappend args1 $el } set msg $args1 } } elseif {[string match cg* $option] || [string match itemcg* $option]} { switch -- $args { -textvariable - -variable { set msg [lrange $msg 1 end] } -command - updatecommand { set msg [lindex $msg 2] } } } elseif {[string match bi* $option]} { if {[llength $args] == 2 && $code == 0} { set msg [lindex $msg 2] } } return -code $code $msg } proc ::tkcon::RetrieveFilter {host} { variable PRIV set result {} if {[info exists PRIV(proxy)]} { if {![regexp "^(localhost|127\.0\.0\.1)" $host]} { set result [lrange [split [lindex $PRIV(proxy) 0] :] 0 1] } } return $result } proc ::tkcon::RetrieveAuthentication {} { package require Tk if {[catch {package require base64}]} { if {[catch {package require Trf}]} { error "base64 support not available" } else { set local64 "base64 -mode enc" } } else { set local64 "base64::encode" } set dlg [toplevel .auth] catch {wm attributes $dlg -type dialog} wm title $dlg "Authenticating Proxy Configuration" set f1 [frame ${dlg}.f1] set f2 [frame ${dlg}.f2] button $f2.b -text "OK" -command "destroy $dlg" pack $f2.b -side right label $f1.l2 -text "Username" label $f1.l3 -text "Password" entry $f1.e2 -textvariable "[namespace current]::conf_userid" entry $f1.e3 -textvariable "[namespace current]::conf_passwd" -show * grid $f1.l2 -column 0 -row 0 -sticky e grid $f1.l3 -column 0 -row 1 -sticky e grid $f1.e2 -column 1 -row 0 -sticky news grid $f1.e3 -column 1 -row 1 -sticky news grid columnconfigure $f1 1 -weight 1 pack $f2 -side bottom -fill x pack $f1 -side top -anchor n -fill both -expand 1 tkwait window $dlg set result {} if {[info exists [namespace current]::conf_userid]} { set data [subst $[namespace current]::conf_userid] append data : [subst $[namespace current]::conf_passwd] set data [$local64 $data] set result [list "Proxy-Authorization" "Basic $data"] } unset [namespace current]::conf_passwd return $result } proc ::tkcon::Retrieve {} { # A little bit'o'magic to grab the latest tkcon from CVS and # save it locally. It doesn't support proxies though... variable PRIV set defExt "" if {[string match "windows" $::tcl_platform(platform)]} { set defExt ".tcl" } set file [tk_getSaveFile -title "Save Latest tkcon to ..." \ -defaultextension $defExt \ -initialdir [file dirname $PRIV(SCRIPT)] \ -initialfile [file tail $PRIV(SCRIPT)] \ -parent $PRIV(root) \ -filetypes {{"Tcl Files" {.tcl .tk}} {"All Files" {*.*}}}] if {[string compare $file ""]} { package require http 2 set headers {} if {[info exists PRIV(proxy)]} { ::http::config -proxyfilter [namespace origin RetrieveFilter] if {[lindex $PRIV(proxy) 1] != {}} { set headers [RetrieveAuthentication] } } set token [::http::geturl $PRIV(HEADURL) \ -headers $headers -timeout 30000] ::http::wait $token set code [catch { set ncode [::http::ncode $token] set i 0 while {(($ncode >= 301) && ($ncode <= 307)) && [incr i] < 5} { # redirect to meta Location array set meta [::http::meta $token] ::http::cleanup $token if {![info exists meta(Location)]} { break } set url $meta(Location) if {![string match "http*" $url] && [regexp {https?://[^/]+} $PRIV(HEADURL) srvr]} { # attach the same http server info set url $srvr/$url } set token [::http::geturl $url -headers $headers -timeout 30000] ::http::wait $token set ncode [::http::ncode $token] } if {$ncode != 200} { return "expected http return code 200, received $ncode" } set status [::http::status $token] if {$status == "ok"} { set data [::http::data $token] regexp {Id: tkcon.tcl,v (\d+\.\d+)} $data -> rcsVersion regexp {VERSION\s+"(\d+\.\d+[^\"]*)"} $data -> tkconVersion if {(![info exists rcsVersion] || ![info exists tkconVersion]) && [tk_messageBox -type yesno -icon warning \ -parent $PRIV(root) \ -title "Invalid tkcon source code" \ -message "Source code retrieved does not appear\ to be correct.\nContinue with save to \"$file\"?"] \ == "no"} { return "invalid tkcon source code retrieved" } set fid [open $file w] # We don't want newline mode to change fconfigure $fid -translation binary puts -nonewline $fid $data close $fid } else { return "expected http status ok, received $status" } } err] ::http::cleanup $token if {$code == 2} { tk_messageBox -type ok -icon info -parent $PRIV(root) \ -title "Failed to retrieve source" \ -message "Failed to retrieve latest tkcon source:\n$err\n$PRIV(HEADURL)" } elseif {$code} { return -code error $err } else { if {![info exists rcsVersion]} { set rcsVersion "UNKNOWN" } if {![info exists tkconVersion]} { set tkconVersion "UNKNOWN" } if {[tk_messageBox -type yesno -icon info -parent $PRIV(root) \ -title "Retrieved tkcon v$tkconVersion, RCS $rcsVersion" \ -message "Successfully retrieved tkcon v$tkconVersion,\ RCS $rcsVersion. Shall I resource (not restart) this\ version now?"] == "yes"} { set PRIV(SCRIPT) $file set PRIV(version) $tkconVersion.$rcsVersion ::tkcon::Resource } } } } ## 'send' package that handles multiple communication variants ## # Try using Tk send first, then look for a winsend interp, # then try dde and finally have a go at comm namespace eval ::send {} proc ::send::send {args} { set winfoInterpCmd [list ::winfo interps] array set opts [list displayof {} async 0] while {[string match -* [lindex $args 0]]} { switch -exact -- [lindex $args 0] { -displayof { set opts(displayof) [Pop args 1] lappend winfoInterpCmd -displayof $opts(displayof) } -async { set opts(async) 1 } -- { Pop args ; break } default { return -code error "bad option \"[lindex $args 0]\":\ should be -displayof, -async or --" } } Pop args } set app [Pop args] if {[llength [info commands ::winfo]] && [lsearch -exact [eval $winfoInterpCmd] $app] > -1} { set cmd [list ::send] if {$opts(async) == 1} {lappend cmd -async} if {$opts(displayof) != {}} {lappend cmd -displayof $opts(displayof)} lappend cmd $app eval $cmd $args } elseif {[llength [info commands ::winsend]] && [lsearch -exact [::winsend interps] $app] > -1} { eval [list ::winsend send $app] $args } elseif {[llength [info commands ::dde]] && [lsearch -exact [dde services TclEval {}] \ [list TclEval $app]] > -1} { eval [list ::dde eval $app] $args } elseif {[package provide comm] != {} && [regexp {^[0-9]+$} [lindex $app 0]]} { #if {$opts(displayof) != {} && [llength $app] == 1} { # lappend app $opts(displayof) #} eval [list ::comm::comm send $app] $args } else { return -code error "bad interp: \"$app\" could not be found" } } proc ::send::interps {args} { set winfoInterpCmd [list ::winfo interps] array set opts [list displayof {}] while {[string match -* [lindex $args 0]]} { switch -exact -- [lindex $args 0] { -displayof { set opts(displayof) [Pop args 1] lappend winfoInterpCmd -displayof $opts(displayof) } -- { Pop args ; break } default { return -code error "bad option \"[lindex $args 0]\":\ should be -displayof or --" } } Pop args } set interps {} if {[llength [info commands ::winfo]]} { set interps [concat $interps [eval $winfoInterpCmd]] } if {[llength [info commands ::winsend]]} { set interps [concat $interps [::winsend interps]] } if {[llength [info commands ::dde]]} { set servers {} foreach server [::dde services TclEval {}] { lappend servers [lindex $server 1] } set interps [concat $interps $servers] } if {[package provide comm] != {}} { set interps [concat $interps [::comm::comm interps]] } return $interps } proc ::send::appname {args} { set appname {} if {[llength [info commands ::tk]]} { set appname [eval ::tk appname $args] } if {[llength [info commands ::winsend]]} { set appname [concat $appname [eval ::winsend appname $args]] } if {[llength [info commands ::dde]]} { set appname [concat $appname [eval ::dde servername $args]] } # comm? can set port num and local/global interface. return [lsort -unique $appname] } proc ::send::Pop {varname {nth 0}} { upvar $varname args set r [lindex $args $nth] set args [lreplace $args $nth $nth] return $r } ## ## end 'send' package ## special case 'tk appname' in Tcl plugin if {$::tkcon::PRIV(WWW)} { rename tk ::tkcon::_tk proc tk {cmd args} { if {$cmd == "appname"} { return "tkcon/WWW" } else { return [uplevel 1 ::tkcon::_tk [list $cmd] $args] } } } ## ::tkcon::Resource - re'source's this script into current console ## Meant primarily for my development of this program. It follows ## links until the ultimate source is found. ## proc ::tkcon::Resource {} { uplevel \#0 { if {[catch {source -rsrc tkcon}]} { source $::tkcon::PRIV(SCRIPT) } } Bindings InitSlave $::tkcon::OPT(exec) } ## Initialize only if we haven't yet, and do other stuff that prepares to ## run. It only actually inits (and runs) tkcon if it is the main script. ## proc ::tkcon::AtSource {} { variable PRIV # the info script assumes we always call this while being sourced set PRIV(SCRIPT) [info script] if {!$PRIV(WWW) && [string length $PRIV(SCRIPT)]} { if {[info tclversion] >= 8.4} { set PRIV(SCRIPT) [file normalize $PRIV(SCRIPT)] } else { # we use a catch here because some wrap apps choke on 'file type' # because TclpLstat wasn't wrappable until 8.4. catch { while {[string match link [file type $PRIV(SCRIPT)]]} { set link [file readlink $PRIV(SCRIPT)] if {[string match relative [file pathtype $link]]} { set PRIV(SCRIPT) \ [file join [file dirname $PRIV(SCRIPT)] $link] } else { set PRIV(SCRIPT) $link } } catch {unset link} if {[string match relative [file pathtype $PRIV(SCRIPT)]]} { set PRIV(SCRIPT) [file join [pwd] $PRIV(SCRIPT)] } } } } # normalize argv0 if it was tkcon to ensure that we'll be able # to load slaves correctly. if {[info exists ::argv0] && [info script] == $::argv0} { set ::argv0 $PRIV(SCRIPT) } if {(![info exists PRIV(root)] || ![winfo exists $PRIV(root)]) \ && ([info exists ::argv0] && $PRIV(SCRIPT) == $::argv0)} { global argv if {[info exists argv]} { eval ::tkcon::Init $argv } else { ::tkcon::Init } } } tkcon::AtSource package provide tkcon $::tkcon::VERSION