home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / tcl / tcl_1 / !Tcl_library_posix < prev    next >
Encoding:
Text File  |  1994-09-04  |  202 b   |  15 lines
  1. proc cd {name} { system "dir $name" }
  2.  
  3. proc pwd {} {file full @}
  4.  
  5. proc directory {name}\
  6.  { regsub {\.[^.]*$} $name "" x
  7.    return $x
  8.  }
  9.  
  10. proc leaf {name}\
  11.  { regsub {^.*\.} $name "" x
  12.    return $x
  13.  }
  14.  
  15.