__CASROOT__ in amk case is current dir ($pwd - lin; %~dp0 - win)

diff --git a/src/WOKsite/wok_tclshrc.tcl b/src/WOKsite/wok_tclshrc.tcl
index d856e07ec778976df44b16859ca692d51c03fd1e..0e9b0f13761b273a60ce552fc5f7ce367e94ef35 100644 (file)
--- a/src/WOKsite/wok_tclshrc.tcl
+++ b/src/WOKsite/wok_tclshrc.tcl
@@ -242,8 +242,10 @@ proc wgenprojbat {thePath theIDE} {
   wokcd $aWokCD
 
   set aPlatformExt sh
+  set aPlatformCurrentDir "\$PWD" 
   if { "$::tcl_platform(platform)" == "windows" } {
     set aPlatformExt bat
+    set aPlatformCurrentDir "\%\~dp0" 
   }
 
   set aBox [file normalize "$thePath/.."]
@@ -265,7 +267,7 @@ proc wgenprojbat {thePath theIDE} {
     set anOsIncPath [relativePath "$aBox" "$anOsRootPath"]
 
     if { "$theIDE" == "amk" } {
-      regsub -all -- {__CASROOT__}   $anEnvTmpl "\$PWD" anEnvTmpl
+      regsub -all -- {__CASROOT__}   $anEnvTmpl "$aPlatformCurrentDir" anEnvTmpl
       regsub -all -- {__CASBIN__}    $anEnvTmpl ""      anEnvTmpl
       regsub -all -- {__BIN_PATH__}  $anEnvTmpl "BIN_PATH=\${CASBIN}bin\${CASDEB}"  anEnvTmpl
       regsub -all -- {__LIBS_PATH__} $anEnvTmpl "LIBS_PATH=\${CASBIN}lib\${CASDEB}" anEnvTmpl