fix line-endings for kitgen use on Windows

git-svn-id: svn://svn.equi4.com/kitgen/trunk@1460 9e558909-932a-0410-a563-af77432da1eb

diff --git a/setupvfs.tcl b/setupvfs.tcl
index 1895de18f1ff2eefd9bf52bc7d4de9e372c7c4fd..ef5e7f8ab67dfea6f58bd24722a78fc1521ca176 100644 (file)
--- a/setupvfs.tcl
+++ b/setupvfs.tcl
@@ -197,8 +197,25 @@ proc vfscopy {argv} {
       file mkdir $d
     }
 
-    set n [locatefile $f]
-    file copy $n $vfs/$f
+    set src [locatefile $f]
+    set dest $vfs/$f
+    
+    switch -- [file extension $src] {
+      .tcl - .txt - .msg - .test {
+        # get line-endings right for text files - this is crucial for boot.tcl
+        # and several scripts in lib/vlerq4/ which are loaded before vfs works
+        set fin [open $src r]
+        set fout [open $dest w]
+        fcopy $fin $fout
+        close $fin
+        close $fout
+      }
+      default {
+        file copy $src $dest
+      }
+    }
+    
+    file mtime $dest [file mtime $src]
   }
 }