Adding error message when shmat fails - naim
[dyninst.git] / paradyn / tcl / focusUtils.tcl
1 #these commands are used to translate between different formats for 
2 # a focus
3
4 # $Log: focusUtils.tcl,v $
5 # Revision 1.1  1994/05/03 06:35:58  karavan
6 # Initial version.
7 #
8
9 proc convToPath {lis} {
10   return [join /$lis /]
11 }
12
13 proc convToFocus {inp} {
14
15   foreach a $inp {
16     lappend lis [convToPath $a]
17   }
18
19   set retval <[join $lis ,]>
20   return $retval
21 }
22
23 proc convFromPath {path} {
24   return [lrange [split $path /] 1 end]  
25 }
26
27 proc convFromFocus {focus} {
28   set meat [string range $focus 1 [expr [string length $focus] - 2]]
29   set lis [split $meat ,]
30   foreach p $lis {
31     lappend retval [convFromPath $p]
32   }   
33   return $retval
34 }
35