home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / SystemCode / BackCompatibility.tcl < prev    next >
Encoding:
Text File  |  1998-11-21  |  1.8 KB  |  70 lines  |  [TEXT/ALFA]
  1. # You should avoid calling any of these procs:
  2. # They are slower, and may be removed at some point in the future.
  3.  
  4. # just wrappers around other procs
  5.  
  6. proc pushMark {} {pushPosition}
  7. proc popMark {} {popPosition}
  8. proc pushPosition {args} {uplevel placeBookmark $args}
  9. proc popPosition {args} {uplevel returnToBookmark $args}
  10. proc absolutePath {filename} {file::absolutePath $filename}
  11. proc openFileQuietly {filename} {
  12.     edit -c -w $filename
  13. }
  14. proc searchInFile {filename searchString {indices 0}} {
  15.     file::searchFor $filename $searchString $indices
  16. }
  17.  
  18. proc readFile {fileName} {file::readAll $fileName}
  19. proc writeFile {filename {text {}} {overwrite 0}} {
  20.     file::writeAll $filename $text $overwrite
  21. }
  22. proc gotoFileLine {fname line {mesg {}}} {
  23.     file::gotoLine $fname $line $mesg
  24. }
  25.  
  26. proc buildSubMenu {args} {
  27.     eval menu::buildHierarchy $args
  28. }
  29.  
  30. proc listSubfolders {folder {depth 3}} {
  31.     file::hierarchy $folder $depth
  32. }
  33.  
  34. proc getIncludeFiles {} { optClickTB_List }
  35. proc editIncludeFile {item} { optClickTB_Pick $item}
  36. proc tryElseDump {name script} {
  37.     try::level \#0 $script -reporting log -while $name
  38. }
  39. proc text::genericIndent {} { ::indentLine }
  40.  
  41. proc revertTheseFiles {flist} {eval file::revertThese $flist}
  42.  
  43.  
  44. ########################################
  45. #                           #
  46. #    A few random lisp'ish functions.  #
  47. #                       #
  48. ########################################
  49.  
  50. proc car {l} {lindex $l 0}
  51. proc cadr {l} {lindex $l 1}
  52. proc caddr {l} {lindex $l 2}
  53. proc cadddr {l} {lindex $l 3}
  54. proc caddddr {l} {lindex $l 4}
  55. proc cdr {l} {lrange $l 1 end}
  56. proc cddr {l} {lrange $l 2 end}
  57.  
  58. proc mapcar args {return [eval map $args]}
  59.  
  60. proc map {func l} {
  61.     set out {}
  62.     foreach el $l {
  63.     lappend out [eval $func [list $el]]
  64.     }
  65.     return $out
  66. }
  67.  
  68. proc cons {e l} {concat [list $e] $l}
  69.  
  70.