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