On Wed Nov 08 09:17:21 2006, ptc wrote: > Implement the stub routine 'dirname' in > languages/tcl/runtime/builtin/file.pir > > This ticket is in response to cage task #39704.
Implemented in revision 16967, this implementation looks more complicated that what should be in order to cover some edge cases. This could use some windows OS base testing. Here are some live examples on linux: ** Tclsh: % file dirname "." . % file dirname "file" . % file dirname "file.ext" . % file dirname "/path/file.ext" /path % file dirname "/path/" / % file dirname "///./more/com.pli.ca.ted/path/file.ext" /./more/com.pli.ca.ted/path ** Parrot's Tcl: % file dirname "." . % file dirname "file" . % file dirname "file.ext" . % file dirname "/path/file.ext" /path % file dirname "/path/" / % file dirname "///./more/com.pli.ca.ted/path/file.ext" /./more/com.pli.ca.ted/path Please, let me me know if you find any missing case. I wouldn't like to close this ticket until this is tweaked and testd for Windows. ./smash