/* /adm/sefun/absolute_path.c * from Foundation II * returns the full path of a string based on a relative path * created by Huthar@Portals as resolv_path.c * modifications by Pallando@Dead Souls 930526 * changed to absolute_path() by Descartes of Borg 940501 * features added and speed doubled by Pallando, 940531 */ string absolute_path(string curr, string newp) { int i, len; string *tmp; string name, rest; if(curr && (curr == "cwd") && this_player()) curr = (string)this_player()->query_cwd(); if(!newp || newp == "" || newp == ".") return curr; if( (newp == "here") && this_player() ) { return file_name(environment(this_player())) + ".c"; } len = strlen( newp ); switch( newp[0..0] ) { case "~": if( newp == "~" || newp == "~/" ) newp = user_path( (string)this_player()-> GetKeyName() )[0..<2]; else if( newp[1..1] == "/" ) newp = user_path( (string)this_player()-> GetKeyName() ) + newp[2..len]; else if( sscanf( newp, "~%s/%s", name, rest ) == 2 ) newp = user_path( name ) + rest; else newp = user_path( newp[1..len] )[0..<2]; break; case "^": newp = "/domains/" + newp[1..len]; break; case "/": break; default: if( curr != "/" ) newp = curr + "/" + newp; else newp = curr + newp; } if( -1 == strsrch( newp, ".." ) ) return newp; if( newp[<1] != '/' ) newp += "/"; tmp = explode(newp,"/"); if (!tmp) tmp = ({"/"}); for(i = 0; i < sizeof(tmp); i++) if(tmp[i] == "..") { if(sizeof(tmp) > 2) { tmp = tmp[0..(i-2)] + tmp[(i+1)..(sizeof(tmp)-1)]; i -= 2; } else { tmp = tmp[2 ..(sizeof(tmp)-1)]; i = 0; } } newp = "/" + implode(tmp,"/"); if(newp == "//") newp = "/"; return newp; }