# HG changeset patch
# User jld
# Date 1044354319 0
# Node ID b2555133d1ad912f96cb885f8c806ac07e5b7b02
# Parent  c5c3401da4c4746598b736c666764c4c669b4b5c
* src/heapgen.tcl: Accommodate POSIX-style arguments under Cygwin.

diff --git a/packages/services/memalloc/common/current/ChangeLog b/packages/services/memalloc/common/current/ChangeLog
--- 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
diff --git a/packages/services/memalloc/common/current/src/heapgen.tcl b/packages/services/memalloc/common/current/src/heapgen.tcl
--- 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