Jim Tcl support added

git-svn-id: svn://svn.berlios.de/openocd/trunk@739 b42882b7-edfa-0310-969c-e2dbd0fdcd60
2008-07-04 06:31:43 +00:00
parent 4d858f7136
commit a521e674cf
3 changed files with 182 additions and 5 deletions
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -0,0 +1,4 @@
+# implements Tcl procedures/functions
+proc peek {address} {
+	return [openocd mdw $address]
+}