Improved gettext build scripts for Windows systems.

Author: pinhead84

i18n-compile.tcl

@@ -39,7 +39,7 @@ foreach po [glob -nocomplain -directory $I18N_PO_DIR -type f  "*.po"] {
   set lang [string range $name 0 [expr {$pos - 1}]]
   set msg [file join $SRC_MSGS_DIR [concat $name ".msg"]]
 
-  if { [catch {exec $MSGFMT --tcl $po -l $lang -d $SRC_MSGS_DIR} result] } {
+  if { [catch {exec $MSGFMT --tcl [file nativename $po] -l $lang -d [file nativename $SRC_MSGS_DIR]} result] } {
     puts "ERROR: Can't compile translation!"
     puts "at: $po"
     puts $::errorInfo

i18n-extract.tcl

@@ -31,11 +31,9 @@ cd $SRC_APP_DIR
 foreach tcl [glob -nocomplain -directory $SRC_APP_DIR -type f  "*.tcl"] {
   puts "process $tcl"
   set f [file tail $tcl]
-  if { [catch {exec $XGETTEXT -j -c -o $I18N_POT -L Tcl -k_ --copyright-holder=$AUTHOR_NAME --msgid-bugs-address=$AUTHOR_EMAIL --package-name=$PROJECT --package-version=$VERSION $f} result] } {
+  if { [catch {exec $XGETTEXT -j -c -o [file nativename $I18N_POT] -L Tcl -k_ --copyright-holder=$AUTHOR_NAME --msgid-bugs-address=$AUTHOR_EMAIL $f} result] } {
     puts "ERROR: Can't extract translation!"
     puts "from: $tcl"
     puts $::errorInfo
   }
 }
-
-

i18n-merge.tcl

@@ -23,7 +23,7 @@ if {$MSGMERGE == "" || ![file isfile $MSGMERGE] || ![file executable $MSGMERGE]}
 
 foreach po [glob -nocomplain -directory $I18N_PO_DIR -type f  "*.po"] {
   puts "merge $po"
-  if { [catch {exec $MSGMERGE -q -U $po $I18N_POT} result] } {
+  if { [catch {exec $MSGMERGE -q -U [file nativename $po] [file nativename $I18N_POT]} result] } {
     puts "ERROR: Can't merge translation!"
     puts "at: $po"
     puts $::errorInfo

utils/touch.bat

@@ -0,0 +1,33 @@
+@echo off
+goto :TopOfCode
+
+================================================================================
+
+Create an empty file at the specified path.
+
+Copyright (c) 2015-2017 OpenIndex.de
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+
+================================================================================
+
+:TopOfCode
+
+set FILE=%1
+type nul >>%FILE% & copy %FILE% +,,

utils/utils.tcl

@@ -122,7 +122,8 @@ proc touch {path} {
     return
   }
   if {[is_windows]} {
-    if {[catch {exec copy "/b" "$path" "+,,"} result]} {
+    global UTILS_DIR
+    if {[catch {exec [file nativename [file join $UTILS_DIR touch.bat]] [file nativename $path]} result]} {
       puts "ERROR: Can't execute touch!"
       if {$result != ""} { puts $result }
       puts $::errorInfo