home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jlistlib.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  2.5 KB  |  79 lines
  1. # jlistlib.tcl - procedures for manipulating lists and paths
  2. # 
  3. # Copyright 1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non¡profit, noncommercial use.
  6. # 
  7. # 
  8. # these procedures are required by
  9. #     browser.tk
  10. #     edit.tk
  11. #     help.tk
  12. #     more.tk
  13. #     people.tk
  14. #     prefs.tk
  15. # they may be located in the file "~/.tk/jlibrary.tcl" (where they will
  16. # be source'd by those applications on startup), or in the site-wide
  17. # tk library directory, where they will be found (and loaded) by the
  18. # default tk  unknown  procedure.
  19. ######################################################################
  20.  
  21. ###### maybe jlist:listtopath and jlist:pathtolist should be in the
  22. ###### browser rather than in a library (because might want to
  23. ###### override them for special modes).
  24.  
  25. ######################################################################
  26. # jlist:listtopath list - translate a list to a full unix path
  27. ######################################################################
  28.  
  29. proc jlist:listtopath {list} {
  30.   if {"x$list" == "x"} {return "/"}
  31.   set path ""
  32.   foreach element $list {
  33.     append path "/$element"
  34.   }
  35.   return $path
  36. }
  37.  
  38. ######################################################################
  39. # jlist:pathtolist path - translate unix path to full list
  40. #   if path is relative, it has [pwd] prepended
  41. ######################################################################
  42.  
  43. proc jlist:pathtolist {path} {
  44.   if {! [string match "/*" $path]} {
  45.     if [catch {pwd} cwd] {
  46.       j:alert -text "Can't get current directory for relative path `$path'."
  47.     } else {
  48.       set path "$cwd/$path"
  49.     }
  50.   }
  51.   set path [string trimleft $path /]
  52.   return [split $path "/"]
  53. }
  54.  
  55. ######################################################################
  56. # jlist:tail list - return last element of list
  57. ######################################################################
  58.  
  59. proc jlist:tail {list} {
  60.   set last [expr [llength $list] - 1]
  61.   return [lindex $list $last]        ;# returns {} on negative numbers
  62. }
  63.  
  64. ######################################################################
  65. # jlist:ancestor generation list - return generation'th ancestor of list
  66. #   ([jlist:ancestor 0] is list itself; [jlist:ancestor 1] is parent)
  67. ######################################################################
  68.  
  69. proc jlist:ancestor {generation list} {
  70.   if {$generation == 0} {return $list}
  71.   set first [expr [llength $list] - $generation]
  72.   if {$first < 0} {
  73.     return {}
  74.   } else {
  75.     return [lreplace $list $first end]    ;# with nothing
  76.   }
  77. }
  78.  
  79.