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