#  Emulate the POSIX dirname command to extract all but the last level
#  of a pathname.

#  Usage:   dirname string

#  Copyright (c) 1996-2012 by Hamilton Laboratories.  All rights reserved.

proc dirname( string )
   if (string != "") then
      local dir, i, j

      @ dir = $string:h
      for i = strlen(dir) by -1 to 1 do
         @ j = substr(dir, i, 1)
         if (j != '/' && j != '\') break
      end
      if (j == '/' || j == '\') then
         @ dir = '\'
      else
         if (j == ':' && i == 2) @ dir = concat(substr(dir, 1, 2), '\')
      end

      return dir
   else
      return "."
   end

end

dirname $argv