From 6e9a0dacc2454f0d1fbd3348c91b59657b0c6862 Mon Sep 17 00:00:00 2001 From: wtschueller Date: Mon, 13 Apr 2020 15:15:41 +0200 Subject: [PATCH] Force tcl files to have lf line endings inside tclkit. Otherwise, fcopy would produce crlf if on Windows. Files may be read directly using mk4tcl/uplevel commands without automatic \ substitution. \ occur inside mk4vfs.tcl. The resulting error is silently suppressed, but leads to a not functional access to the vfs like the one decribed here http://kitcreator.rkeene.org/fossil/tktview?name=3428b6ae06 --- kitsh/buildsrc/kitsh-0.0/installvfs.tcl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/kitsh/buildsrc/kitsh-0.0/installvfs.tcl b/kitsh/buildsrc/kitsh-0.0/installvfs.tcl index c3e83f8..22c57c2 100644 --- a/kitsh/buildsrc/kitsh-0.0/installvfs.tcl +++ b/kitsh/buildsrc/kitsh-0.0/installvfs.tcl @@ -37,6 +37,9 @@ proc copy_file {srcfile destfile} { set ifd [open $srcfile r] set ofd [open $destfile w] + # Force tcl files to have lf line endings inside tclkit. + fconfigure $ofd -translation lf + set ret [fcopy $ifd $ofd] close $ofd