/*
// 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] });
}