Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Make 'auto_execok START' do the Right Thing |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
cdcff6d669de3c0eb80462970c9faff9 |
| User & Date: | dkf 2012-04-27 08:49:40 |
Context
|
2012-04-27
| ||
| 14:30 | Move CYGWIN-specific stuff from tclPort.h to tclUnixPort.h, where it belongs check-in: 533c11d007 user: jan.nijtmans tags: core-8-5-branch | |
| 08:51 | Make 'auto_execok START' do the Right Thing check-in: b8ffe55b40 user: dkf tags: trunk | |
| 08:49 | Make 'auto_execok START' do the Right Thing check-in: cdcff6d669 user: dkf tags: core-8-5-branch | |
| 08:46 | Make 'auto_execok START' do the Right Thing check-in: 4f8e0283c6 user: dkf tags: core-8-4-branch | |
|
2012-04-26
| ||
| 19:42 | get rid of _ANSI_ARGS_ check-in: a3f95a3b3d user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2012-04-26 Jan Nijtmans <[email protected]> * generic/tclStubInit.c: get rid of _ANSI_ARGS_ * generic/tclIntPlatDecls.h * unix/tclUnixPort.h * unix/tclAppInit.c * win/tclAppInit.c | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2012-04-27 Donal K. Fellows <[email protected]> * library/init.tcl (auto_execok): Allow shell builtins to be detected even if they are upper-cased. 2012-04-26 Jan Nijtmans <[email protected]> * generic/tclStubInit.c: get rid of _ANSI_ARGS_ * generic/tclIntPlatDecls.h * unix/tclUnixPort.h * unix/tclAppInit.c * win/tclAppInit.c |
| ︙ | ︙ |
Changes to library/init.tcl.
| ︙ | ︙ | |||
656 657 658 659 660 661 662 |
if {[info exists env(PATHEXT)]} {
# Add an initial ; to have the {} extension check first.
set execExtensions [split ";$env(PATHEXT)" ";"]
} else {
set execExtensions [list {} .com .exe .bat .cmd]
}
| | | 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 |
if {[info exists env(PATHEXT)]} {
# Add an initial ; to have the {} extension check first.
set execExtensions [split ";$env(PATHEXT)" ";"]
} else {
set execExtensions [list {} .com .exe .bat .cmd]
}
if {[string tolower $name] in $shellBuiltins} {
# When this is command.com for some reason on Win2K, Tcl won't
# exec it unless the case is right, which this corrects. COMSPEC
# may not point to a real file, so do the check.
set cmd $env(COMSPEC)
if {[file exists $cmd]} {
set cmd [file attributes $cmd -shortname]
}
|
| ︙ | ︙ |