From 5a2b824b2650b5a7ee8366f6dfca5b6c2a9c3033 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Thu, 10 Jul 2008 09:22:28 +0000
Subject: fix quoting problem when handling OpenOCD commands.

git-svn-id: svn://svn.berlios.de/openocd/trunk@784 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/tcl/commands.tcl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index 1da8f1b2..8d7cdb82 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -45,7 +45,13 @@ proc flash args {
 # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command
 proc unknown {args} {
 	if {[string length $args]>0} {
-		openocd_throw $args
+		set cmd ""
+		# We need to add back quotes for arguments w/space
+		# for args without space, we can add quotes anyway
+		foreach {a} $args {
+			set cmd "$cmd \"$a\""
+		}
+		openocd_throw $cmd
 	}
 	# openocd_throw outputs while running and also sets the
 	# primary return value to the output of the command
-- 
cgit v1.2.3