/*
// File: path_file.c
// From the wonderful people at Portals.
*/

mixed *path_file(mixed full_path) {
   mixed *tmp, *dirs;
   int i;

   if(pointerp(full_path)) {
      dirs = allocate(2);
      dirs[0] = ({ });
      dirs[1] = ({ });
      for(i = 0; i < sizeof(full_path); i++) {
         tmp = path_file(full_path[i]);
         dirs[0] = dirs[0] + ({ tmp[0] });
         dirs[1] = dirs[1] + ({ tmp[1] });
      }
      return dirs;
   }

   if(full_path == "/")
      return ({ "/","" });

   if(file_size(full_path) == -2)
      return ({ full_path, "" });
   dirs = explode(full_path,"/");
   tmp = dirs[0 .. sizeof(dirs) - 2];
   return ({ "/" + implode(tmp,"/"), dirs[sizeof(dirs) - 1] });
}