From 6c0553c8c504d4c6da20857abeec80648d841b72 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Sun, 20 Jul 2008 17:04:58 +0000
Subject: openocd@duaneellis.com fix naming confusion. Use ocd_ prefix for ocd
 API consistently.

git-svn-id: svn://svn.berlios.de/openocd/trunk@839 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/helper/startup.tcl | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'src/helper/startup.tcl')

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index 2f90911..4e12e30 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -40,7 +40,7 @@ proc board_test {} {
 proc flash_banks {} { 
 	set i 0 	
 	set result ""
-	foreach {a} [openocd_flash_banks] {
+	foreach {a} [ocd_flash_banks] {
 		if {$i > 0} {
 			set result "$result\n"
 		}
@@ -53,7 +53,7 @@ proc flash_banks {} {
 # We need to explicitly redirect this to the OpenOCD command
 # as Tcl defines the exit proc
 proc exit {} {
-	openocd_throw exit
+	ocd_throw exit
 }
 
 #Print help text for a command. Word wrap
@@ -94,17 +94,17 @@ add_help_text help "Tcl implementation of help command"
 
 
 #a bit of backwards compatibility
-proc openocd_throw {cmd} {
-	set openocd_output ""
+proc ocd_throw {cmd} {
+	set ocd_output ""
 	eval $cmd
-	return $openocd_output
+	return $ocd_output
 }
 
 #a bit of backwards compatibility
 proc openocd {cmd} {
-	set openocd_output ""
+	set ocd_output ""
 	eval $cmd
-	return $openocd_output
+	return $ocd_output
 }
 
 # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command
@@ -137,17 +137,17 @@ proc target_script {target_num eventname scriptname} {
 # Try flipping / and \ to find file if the filename does not
 # match the precise spelling
 proc find {filename} {
-	if {[catch {openocd_find $filename} t]==0} {
+	if {[catch {ocd_find $filename} t]==0} {
 		return $t
 	}  
-	if {[catch {openocd_find [string map {\ /} $filename} t]==0} {
+	if {[catch {ocd_find [string map {\ /} $filename} t]==0} {
 		return $t
 	}  
-	if {[catch {openocd_find [string map {/ \\} $filename} t]==0} {
+	if {[catch {ocd_find [string map {/ \\} $filename} t]==0} {
 		return $t
 	}  
 	# make sure error message matches original input string
-	return [openocd_find $filename]
+	return [ocd_find $filename]
 }
 add_help_text find "<file> - print full path to file according to OpenOCD search rules"
 
-- 
cgit v1.1