14
15
16
17
18
19
20
21
22
23
|
#
###############################################################################
if {![package vsatisfies [package provide Tcl] 8.4]} then {return}
if {[string length [package provide Eagle]] > 0} then {return}
package ifneeded HelloWorld 1.0 [list apply [list { dir } {
puts stdout [exec [file join $dir HelloWorld.exe]]
package provide HelloWorld 1.0
}] $dir]
|
>
>
|
>
|
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#
###############################################################################
if {![package vsatisfies [package provide Tcl] 8.4]} then {return}
if {[string length [package provide Eagle]] > 0} then {return}
package ifneeded HelloWorld 1.0 [list apply [list { dir } {
set command [list exec]
if {![isWindows]} then {lappend command mono}
lappend command [file join $dir HelloWorld.exe]
puts stdout [eval $command]
package provide HelloWorld 1.0
}] $dir]
|