From 38d941c01b73c1d0611976e4cb9d361592ff30bd Mon Sep 17 00:00:00 2001 From: William Joye Date: Tue, 8 Jan 2019 15:15:33 -0500 Subject: update TEA 3.13 --- tkcon/ChangeLog | 607 ---- tkcon/Makefile.in | 458 --- tkcon/README.txt | 42 - tkcon/aclocal.m4 | 9 - tkcon/configure | 6263 --------------------------------------- tkcon/configure.ac | 191 -- tkcon/docs/bindings.html | 154 - tkcon/docs/changes.txt | 815 ----- tkcon/docs/demopic.png | Bin 42253 -> 0 bytes tkcon/docs/dump.html | 100 - tkcon/docs/dump.n.man | 60 - tkcon/docs/idebug.html | 125 - tkcon/docs/idebug.n.man | 83 - tkcon/docs/index.html | 81 - tkcon/docs/license.terms | 33 - tkcon/docs/limits.html | 76 - tkcon/docs/nontcl.html | 75 - tkcon/docs/observe.html | 104 - tkcon/docs/observe.n.man | 55 - tkcon/docs/perl.txt | 109 - tkcon/docs/plugin.html | 113 - tkcon/docs/procs.html | 167 -- tkcon/docs/purpose.html | 87 - tkcon/docs/start.html | 358 --- tkcon/docs/style.css | 50 - tkcon/docs/tkcon.1.man | 369 --- tkcon/docs/tkcon.html | 189 -- tkcon/docs/tkcon.n.man | 140 - tkcon/docs/tkconrc.5.man | 249 -- tkcon/docs/todo.html | 99 - tkcon/extra/console1_1.tcl | 2209 -------------- tkcon/extra/stripped.tcl | 1083 ------- tkcon/icons/tkcon-small.svg | 534 ---- tkcon/icons/tkcon-small48.png | Bin 4183 -> 0 bytes tkcon/index.html | 70 - tkcon/install-desktop-menu.sh | 26 - tkcon/pkgIndex.tcl | 11 - tkcon/tclconfig/ChangeLog | 1003 ------- tkcon/tclconfig/README.txt | 26 - tkcon/tclconfig/install-sh | 528 ---- tkcon/tclconfig/tcl.m4 | 4176 -------------------------- tkcon/tkcon-console.desktop | 10 - tkcon/tkcon.tcl | 6539 ----------------------------------------- 43 files changed, 27476 deletions(-) delete mode 100644 tkcon/ChangeLog delete mode 100644 tkcon/Makefile.in delete mode 100644 tkcon/README.txt delete mode 100644 tkcon/aclocal.m4 delete mode 100755 tkcon/configure delete mode 100644 tkcon/configure.ac delete mode 100755 tkcon/docs/bindings.html delete mode 100755 tkcon/docs/changes.txt delete mode 100644 tkcon/docs/demopic.png delete mode 100755 tkcon/docs/dump.html delete mode 100644 tkcon/docs/dump.n.man delete mode 100755 tkcon/docs/idebug.html delete mode 100644 tkcon/docs/idebug.n.man delete mode 100755 tkcon/docs/index.html delete mode 100755 tkcon/docs/license.terms delete mode 100755 tkcon/docs/limits.html delete mode 100755 tkcon/docs/nontcl.html delete mode 100755 tkcon/docs/observe.html delete mode 100644 tkcon/docs/observe.n.man delete mode 100755 tkcon/docs/perl.txt delete mode 100755 tkcon/docs/plugin.html delete mode 100755 tkcon/docs/procs.html delete mode 100755 tkcon/docs/purpose.html delete mode 100755 tkcon/docs/start.html delete mode 100644 tkcon/docs/style.css delete mode 100644 tkcon/docs/tkcon.1.man delete mode 100755 tkcon/docs/tkcon.html delete mode 100644 tkcon/docs/tkcon.n.man delete mode 100644 tkcon/docs/tkconrc.5.man delete mode 100755 tkcon/docs/todo.html delete mode 100644 tkcon/extra/console1_1.tcl delete mode 100755 tkcon/extra/stripped.tcl delete mode 100644 tkcon/icons/tkcon-small.svg delete mode 100644 tkcon/icons/tkcon-small48.png delete mode 100755 tkcon/index.html delete mode 100755 tkcon/install-desktop-menu.sh delete mode 100644 tkcon/pkgIndex.tcl delete mode 100644 tkcon/tclconfig/ChangeLog delete mode 100644 tkcon/tclconfig/README.txt delete mode 100755 tkcon/tclconfig/install-sh delete mode 100644 tkcon/tclconfig/tcl.m4 delete mode 100644 tkcon/tkcon-console.desktop delete mode 100755 tkcon/tkcon.tcl diff --git a/tkcon/ChangeLog b/tkcon/ChangeLog deleted file mode 100644 index 5931e4d..0000000 --- a/tkcon/ChangeLog +++ /dev/null @@ -1,607 +0,0 @@ -2016-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 diff --git a/tkcon/Makefile.in b/tkcon/Makefile.in deleted file mode 100644 index 3749010..0000000 --- a/tkcon/Makefile.in +++ /dev/null @@ -1,458 +0,0 @@ -# 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 pkgIndex.tcl -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: diff --git a/tkcon/README.txt b/tkcon/README.txt deleted file mode 100644 index cd9b6cc..0000000 --- a/tkcon/README.txt +++ /dev/null @@ -1,42 +0,0 @@ -WHAT: 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! diff --git a/tkcon/aclocal.m4 b/tkcon/aclocal.m4 deleted file mode 100644 index 0b05739..0000000 --- a/tkcon/aclocal.m4 +++ /dev/null @@ -1,9 +0,0 @@ -# -# Include the TEA standard macro set -# - -builtin(include,tclconfig/tcl.m4) - -# -# Add here whatever m4 macros you want to define for your package -# diff --git a/tkcon/configure b/tkcon/configure deleted file mode 100755 index 3c057b5..0000000 --- a/tkcon/configure +++ /dev/null @@ -1,6263 +0,0 @@ -#! /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 - diff --git a/tkcon/configure.ac b/tkcon/configure.ac deleted file mode 100644 index 19121db..0000000 --- a/tkcon/configure.ac +++ /dev/null @@ -1,191 +0,0 @@ -#!/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() diff --git a/tkcon/docs/bindings.html b/tkcon/docs/bindings.html deleted file mode 100755 index f6a13c5..0000000 --- a/tkcon/docs/bindings.html +++ /dev/null @@ -1,154 +0,0 @@ - - -tkcon: Special Bindings - - - - - -
- - - - - - -
tkcon: Special Bindings - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
Online Demo -(requires Tk plugin)Using TkCon with other Tk Languages
- -
- - - - - - - - - - - - - - -
Getting StartedSpecial BindingsProceduresScreenshot
dumptkconidebugobserve
- -
-
-

-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
- - - diff --git a/tkcon/docs/changes.txt b/tkcon/docs/changes.txt deleted file mode 100755 index b0c8ed6..0000000 --- a/tkcon/docs/changes.txt +++ /dev/null @@ -1,815 +0,0 @@ -ENHANCED 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 diff --git a/tkcon/docs/demopic.png b/tkcon/docs/demopic.png deleted file mode 100644 index 799c09c..0000000 Binary files a/tkcon/docs/demopic.png and /dev/null differ diff --git a/tkcon/docs/dump.html b/tkcon/docs/dump.html deleted file mode 100755 index 87e7873..0000000 --- a/tkcon/docs/dump.html +++ /dev/null @@ -1,100 +0,0 @@ - - -tkcon: dump procedure - - - - - -
- - - - - - -
tkcon: dump procedure - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
Online Demo -(requires Tk plugin)Using TkCon with other Tk Languages
- -
- - - - - - - - - - - - - - -
Getting StartedSpecial BindingsProceduresScreenshot
dumptkconidebugobserve
- -
-
-

-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
- - - diff --git a/tkcon/docs/dump.n.man b/tkcon/docs/dump.n.man deleted file mode 100644 index 9dbccdb..0000000 --- a/tkcon/docs/dump.n.man +++ /dev/null @@ -1,60 +0,0 @@ -[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] - diff --git a/tkcon/docs/idebug.html b/tkcon/docs/idebug.html deleted file mode 100755 index 8a98ec1..0000000 --- a/tkcon/docs/idebug.html +++ /dev/null @@ -1,125 +0,0 @@ - - -tkcon: idebug procedure - - - - - -
- - - - - - -
tkcon: idebug procedure - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
Online Demo -(requires Tk plugin)Using TkCon with other Tk Languages
- -
- - - - - - - - - - - - - - -
Getting StartedSpecial BindingsProceduresScreenshot
dumptkconidebugobserve
- -
-
-

-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
- - - diff --git a/tkcon/docs/idebug.n.man b/tkcon/docs/idebug.n.man deleted file mode 100644 index 1547081..0000000 --- a/tkcon/docs/idebug.n.man +++ /dev/null @@ -1,83 +0,0 @@ -[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] - diff --git a/tkcon/docs/index.html b/tkcon/docs/index.html deleted file mode 100755 index 9d4709b..0000000 --- a/tkcon/docs/index.html +++ /dev/null @@ -1,81 +0,0 @@ - - -tkcon: Documentation - - - - - -
- - - - - - -
tkcon Documentation (June 2001) - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
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 Bindingstkcon ProceduresScreenshot
dump proctkcon procidebug procobserve proc
- -
- -
-
© Jeffrey Hobbs
- - - diff --git a/tkcon/docs/license.terms b/tkcon/docs/license.terms deleted file mode 100755 index 5b757ba..0000000 --- a/tkcon/docs/license.terms +++ /dev/null @@ -1,33 +0,0 @@ - * 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. diff --git a/tkcon/docs/limits.html b/tkcon/docs/limits.html deleted file mode 100755 index 072501d..0000000 --- a/tkcon/docs/limits.html +++ /dev/null @@ -1,76 +0,0 @@ - - -tkcon: Limitations - - - - - -
- - - - - - -
tkcon: Limitations - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
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
- - - diff --git a/tkcon/docs/nontcl.html b/tkcon/docs/nontcl.html deleted file mode 100755 index 47dbbe9..0000000 --- a/tkcon/docs/nontcl.html +++ /dev/null @@ -1,75 +0,0 @@ - - -tkcon for Non-Tcl Users - - - - - -
- - - - - - -
tkcon: Non-Tcl Usage - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
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
- - - diff --git a/tkcon/docs/observe.html b/tkcon/docs/observe.html deleted file mode 100755 index f597534..0000000 --- a/tkcon/docs/observe.html +++ /dev/null @@ -1,104 +0,0 @@ - - -tkcon: observe procedure - - - - - -
- - - - - - -
tkcon: observe procedure - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
Online Demo -(requires Tk plugin)Using TkCon with other Tk Languages
- -
- - - - - - - - - - - - - - -
Getting StartedSpecial BindingsProceduresScreenshot
dumptkconidebugobserve
- -
-
-

-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
- - - diff --git a/tkcon/docs/observe.n.man b/tkcon/docs/observe.n.man deleted file mode 100644 index d9630ba..0000000 --- a/tkcon/docs/observe.n.man +++ /dev/null @@ -1,55 +0,0 @@ -[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] - diff --git a/tkcon/docs/perl.txt b/tkcon/docs/perl.txt deleted file mode 100755 index 37463b5..0000000 --- a/tkcon/docs/perl.txt +++ /dev/null @@ -1,109 +0,0 @@ -#!/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 diff --git a/tkcon/docs/plugin.html b/tkcon/docs/plugin.html deleted file mode 100755 index 1cc1896..0000000 --- a/tkcon/docs/plugin.html +++ /dev/null @@ -1,113 +0,0 @@ - - -tkcon: Tcl Plugin Stripped Demo - - - - - -
- - - - - - -
tkcon Documentation (May 2001) - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
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
- - - diff --git a/tkcon/docs/procs.html b/tkcon/docs/procs.html deleted file mode 100755 index c2a0279..0000000 --- a/tkcon/docs/procs.html +++ /dev/null @@ -1,167 +0,0 @@ - - -tkcon: Procedures - - - - - -
- - - - - - -
tkcon: Procedures - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
Online Demo -(requires Tk plugin)Using TkCon with other Tk Languages
- -
- - - - - - - - - - - - - - -
Getting StartedSpecial BindingsProceduresScreenshot
dumptkconidebugobserve
- -
-
-

-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
- - - diff --git a/tkcon/docs/purpose.html b/tkcon/docs/purpose.html deleted file mode 100755 index 1d5a087..0000000 --- a/tkcon/docs/purpose.html +++ /dev/null @@ -1,87 +0,0 @@ - - -tkcon: Purpose & Features - - - - - -
- - - - - - -
tkcon: Purpose & Features - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
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
- - - diff --git a/tkcon/docs/start.html b/tkcon/docs/start.html deleted file mode 100755 index 5cc9808..0000000 --- a/tkcon/docs/start.html +++ /dev/null @@ -1,358 +0,0 @@ - - -tkcon: Getting Started - - - - - -
- - - - - - -
tkcon: Getting Started - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
Online Demo -(requires Tk plugin)Using TkCon with other Tk Languages
- -
- - - - - - - - - - - - - - -
Getting StartedSpecial BindingsProceduresScreenshot
dumptkconidebugobserve
- -
-
-

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
- - - diff --git a/tkcon/docs/style.css b/tkcon/docs/style.css deleted file mode 100644 index 7aee5e8..0000000 --- a/tkcon/docs/style.css +++ /dev/null @@ -1,50 +0,0 @@ -body, 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; -} diff --git a/tkcon/docs/tkcon.1.man b/tkcon/docs/tkcon.1.man deleted file mode 100644 index 25ba74b..0000000 --- a/tkcon/docs/tkcon.1.man +++ /dev/null @@ -1,369 +0,0 @@ -[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] - diff --git a/tkcon/docs/tkcon.html b/tkcon/docs/tkcon.html deleted file mode 100755 index cb88a52..0000000 --- a/tkcon/docs/tkcon.html +++ /dev/null @@ -1,189 +0,0 @@ - - -tkcon: tkcon procedure - - - - - -
- - - - - - -
tkcon: tkcon procedure - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
Online Demo -(requires Tk plugin)Using TkCon with other Tk Languages
- -
- - - - - - - - - - - - - - -
Getting StartedSpecial BindingsProceduresScreenshot
dumptkconidebugobserve
- -
-
-

-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
- - - diff --git a/tkcon/docs/tkcon.n.man b/tkcon/docs/tkcon.n.man deleted file mode 100644 index 6f99fa5..0000000 --- a/tkcon/docs/tkcon.n.man +++ /dev/null @@ -1,140 +0,0 @@ -[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] - diff --git a/tkcon/docs/tkconrc.5.man b/tkcon/docs/tkconrc.5.man deleted file mode 100644 index b10af92..0000000 --- a/tkcon/docs/tkconrc.5.man +++ /dev/null @@ -1,249 +0,0 @@ -[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] - diff --git a/tkcon/docs/todo.html b/tkcon/docs/todo.html deleted file mode 100755 index f9c2b3a..0000000 --- a/tkcon/docs/todo.html +++ /dev/null @@ -1,99 +0,0 @@ - - -tkcon: To Do Ideas - - - - - -
- - - - - - -
tkcon: To Do Ideas - -SourceForge Logo -
- - -
- - - - - - - - - - - - -
DocumentationPurpose & FeaturesLimitationsTo DoLicense
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
- - - diff --git a/tkcon/extra/console1_1.tcl b/tkcon/extra/console1_1.tcl deleted file mode 100644 index 78975f0..0000000 --- a/tkcon/extra/console1_1.tcl +++ /dev/null @@ -1,2209 +0,0 @@ -## -## 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 diff --git a/tkcon/extra/stripped.tcl b/tkcon/extra/stripped.tcl deleted file mode 100755 index 64ef1f5..0000000 --- a/tkcon/extra/stripped.tcl +++ /dev/null @@ -1,1083 +0,0 @@ -#!/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 diff --git a/tkcon/icons/tkcon-small.svg b/tkcon/icons/tkcon-small.svg deleted file mode 100644 index 8d6287b..0000000 --- a/tkcon/icons/tkcon-small.svg +++ /dev/null @@ -1,534 +0,0 @@ - - - - - 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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tkcon/icons/tkcon-small48.png b/tkcon/icons/tkcon-small48.png deleted file mode 100644 index 8797a76..0000000 Binary files a/tkcon/icons/tkcon-small48.png and /dev/null differ diff --git a/tkcon/index.html b/tkcon/index.html deleted file mode 100755 index 7c53084..0000000 --- a/tkcon/index.html +++ /dev/null @@ -1,70 +0,0 @@ - - -Enhanced Tk Console: tkcon - - - - - -
- - - - - - -
Enhanced Tk Console: tkcon - -SourceForge Logo -
- - -
- - - - - - - - - - - - - - -
DocumentationScreenshotOnline 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)
- - - diff --git a/tkcon/install-desktop-menu.sh b/tkcon/install-desktop-menu.sh deleted file mode 100755 index 1e4c4eb..0000000 --- a/tkcon/install-desktop-menu.sh +++ /dev/null @@ -1,26 +0,0 @@ -#!/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 - - diff --git a/tkcon/pkgIndex.tcl b/tkcon/pkgIndex.tcl deleted file mode 100644 index 431442a..0000000 --- a/tkcon/pkgIndex.tcl +++ /dev/null @@ -1,11 +0,0 @@ -# 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]] diff --git a/tkcon/tclconfig/ChangeLog b/tkcon/tclconfig/ChangeLog deleted file mode 100644 index 9504def..0000000 --- a/tkcon/tclconfig/ChangeLog +++ /dev/null @@ -1,1003 +0,0 @@ -2016-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)/.. diff --git a/tkcon/tclconfig/README.txt b/tkcon/tclconfig/README.txt deleted file mode 100644 index 59b5a3e..0000000 --- a/tkcon/tclconfig/README.txt +++ /dev/null @@ -1,26 +0,0 @@ -These files comprise the basic building blocks for a Tcl Extension -Architecture (TEA) extension. For more information on TEA see: - - http://www.tcl.tk/doc/tea/ - -This package is part of the Tcl project at SourceForge, and latest -sources should be available there: - - http://tcl.sourceforge.net/ - -This package is a freely available open source package. You can do -virtually anything you like with it, such as modifying it, redistributing -it, and selling it either in whole or in part. - -CONTENTS -======== -The following is a short description of the files you will find in -the sample extension. - -README.txt This file - -install-sh Program used for copying binaries and script files - to their install locations. - -tcl.m4 Collection of Tcl autoconf macros. Included by a package's - aclocal.m4 to define TEA_* macros. diff --git a/tkcon/tclconfig/install-sh b/tkcon/tclconfig/install-sh deleted file mode 100755 index 7c34c3f..0000000 --- a/tkcon/tclconfig/install-sh +++ /dev/null @@ -1,528 +0,0 @@ -#!/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: diff --git a/tkcon/tclconfig/tcl.m4 b/tkcon/tclconfig/tcl.m4 deleted file mode 100644 index 655be25..0000000 --- a/tkcon/tclconfig/tcl.m4 +++ /dev/null @@ -1,4176 +0,0 @@ -# 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: diff --git a/tkcon/tkcon-console.desktop b/tkcon/tkcon-console.desktop deleted file mode 100644 index 0be3094..0000000 --- a/tkcon/tkcon-console.desktop +++ /dev/null @@ -1,10 +0,0 @@ -[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; diff --git a/tkcon/tkcon.tcl b/tkcon/tkcon.tcl deleted file mode 100755 index 57e8017..0000000 --- a/tkcon/tkcon.tcl +++ /dev/null @@ -1,6539 +0,0 @@ -#!/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 {} - - ## 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 -- cgit v0.12