Fixing wayward constness and general tidy-up.
[dyninst.git] / paradyn / tcl / focusUtils.tcl
1 # $Id: focusUtils.tcl,v 1.2 1998/03/03 23:09:46 wylie Exp $
2 # these commands are used to translate between different formats for a focus
3 #
4
5 proc convToPath {lis} {
6   return [join /$lis /]
7 }
8
9 proc convToFocus {inp} {
10
11   foreach a $inp {
12     lappend lis [convToPath $a]
13   }
14
15   set retval <[join $lis ,]>
16   return $retval
17 }
18
19 proc convFromPath {path} {
20   return [lrange [split $path /] 1 end]  
21 }
22
23 proc convFromFocus {focus} {
24   set meat [string range $focus 1 [expr [string length $focus] - 2]]
25   set lis [split $meat ,]
26   foreach p $lis {
27     lappend retval [convFromPath $p]
28   }   
29   return $retval
30 }
31