Tcl Source Code

Artifact 15bf94d5bb7706ca1cd92f8cbbf3634c0ed491a9:

Attachment "demo432499.tcl" to ticket [432499ffff] added by andreas_kupries 2001-08-24 02:37:46.

---

#! tclsh
# -*- tcl -*-
# Test 'exec' on Windows for applications with spaces in the path.
# Example: p4.exe (Perforce)

set fullpath 0

if {$fullpath} {
    # This should be ok
    puts "full path ..."
    puts [exec "c:\\Program Files\\Perforce\\p4.exe" help]
} else {
    # And this fails.
    puts "no path, searching ..."
    puts [exec p4.exe help]
}