Mercurial > flash_v2

changeset 564:b2555133d1ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* src/heapgen.tcl: Accommodate POSIX-style arguments under Cygwin.
author jld
date Tue, 04 Feb 2003 10:25:19 +0000
parents c5c3401da4c4
children 7e4907f574a7
files packages/services/memalloc/common/current/ChangeLog packages/services/memalloc/common/current/src/heapgen.tcl
diffstat 2 files changed, 16 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/packages/services/memalloc/common/current/ChangeLog
+++ b/packages/services/memalloc/common/current/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-04  John Dallaway  <jld@ecoscentric.com>
+
+	* src/heapgen.tcl: Accommodate POSIX-style arguments
+	under Cygwin.
+
 2003-01-29  John Dallaway  <jld@ecoscentric.com>
 
 	* src/heapgen.tcl: Accommodate latest Cygwin Tcl shell
--- a/packages/services/memalloc/common/current/src/heapgen.tcl
+++ b/packages/services/memalloc/common/current/src/heapgen.tcl
@@ -72,6 +72,15 @@ proc dputs { args } {
     }
 }
 
+proc tcl_path { posix_path } {
+    global tcl_platform
+    if { $tcl_platform(platform) == "windows" } {
+        return [ exec cygpath -w $posix_path ]
+    } else {
+        return $posix_path
+    }
+}
+
 dputs "argc=" $argc
 dputs "argv=" $argv
 
@@ -79,8 +88,8 @@ if { $argc != 2 } {
     error "Usage: heapgen.tcl installdir builddir"
 }
 
-set installdir [ lindex $argv 0 ]
-set builddir   [ lindex $argv 1 ]
+set installdir [ tcl_path [ lindex $argv 0 ] ]
+set builddir   [ tcl_path [ lindex $argv 1 ] ]
 
 dputs "builddir=" $builddir
 dputs "installdir=" $installdir