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 | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b8ffe55b406232efadff6c4a834e6687 |
| User & Date: | dkf 2012-04-27 08:51:06 |
Context
|
2012-04-27
| ||
| 14:37 | Move CYGWIN-specific stuff from tclPort.h to tclUnixPort.h, where it belongs check-in: add6ea1397 user: jan.nijtmans tags: trunk | |
| 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 | |
|
2012-04-26
| ||
| 19:59 | get rid of _ANSI_ARGS_ and CONST check-in: ce95e51ad2 user: jan.nijtmans tags: trunk | |
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_ and CONST * generic/tclIO.c * generic/tclIOCmd.c * generic/tclTest.c * unix/tclUnixChan.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_ and CONST * generic/tclIO.c * generic/tclIOCmd.c * generic/tclTest.c * unix/tclUnixChan.c |
| ︙ | ︙ |
Changes to library/init.tcl.
| ︙ | ︙ | |||
647 648 649 650 651 652 653 |
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]
}
| | | 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 |
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]
}
|
| ︙ | ︙ |