such as the configure scripts. This is needed for MSYS/Mingw.
git-svn-id: svn://svn.equi4.com/kitgen/trunk@1397
9e558909-932a-0410-a563-
af77432da1eb
proc src-cvs {path {module ""}} {
if {$module eq ""} { set module [file tail $path]}
if {[string first @ $path] < 0} { set path :pserver:anonymous@$path }
- Sh cvs -d $path -z3 co -P -d tmp $module
+ Run cvs -d $path -z3 co -P -d tmp $module
file rename tmp [Srcdir]
}
proc src-svn {path} {
- Sh svn co $path [Srcdir]
+ Run svn co $path [Srcdir]
}
proc src-fetch {path} {
}
}
- proc Sh {args} {
+ proc Run {args} {
lappend args >@stdout 2>@stderr
eval [linsert $args 0 exec]
}