- prepared vdmc for demo

mcstas/dmc/gumibatch.tcl

@@ -76,6 +76,7 @@ proc treatcscan {scanpath command out} {
 #----------------------------------------------------------------
 proc translateCommand {command out} {
     set drivelist [list drive dr run]
+    set textList [list for while source if]
 #    clientput "Translating: $command"
     set command [string trim $command]
     if {[string length $command] < 2} {
@@ -85,16 +86,30 @@ proc translateCommand {command out} {
     set obj [string trim [lindex $l 0]]
 #------- check for drive commands
     set idx [lsearch $drivelist $obj]
-    if {$idx > 0} {
+    if {$idx >= 0} {
 	set dev [lindex $l 1]
 	set path [searchPathForDrivable $dev]
 	if {[string compare $path NONE] != 0} {
+	    set realTxt [hgetprop $path sicsdev]
+	    set realL [split $realTxt =]
+	    set realDev [lindex $realL 1]
+	    set mapList [list $dev $realDev]
+	    set newCom [string map $mapList $command]
 	    puts $out "\#NODE: $path"
 	    puts $out "clientput BatchPos  = 1"
-	    puts $out $command
+	    puts $out $newCom
 	    return
         }
     }
+#------ check for well known broken commands
+    set idx [lsearch $textList $obj]
+    if {$idx >= 0} {
+	puts $out "\#NODE: /batch/commandtext"
+	puts $out "clientput BatchPos = 1"
+	set buffer [string map {\n @nl@} $command]
+	puts $out "hset /batch/commandtext $buffer"
+	return
+    }
 #--------- check for simple commands
     set path [searchForCommand $command]
     if {[string compare $path NONE] != 0} {