melville/
melville/cmds/
melville/cmds/admin/
melville/data/
melville/data/mail/
melville/data/player/
melville/data/system/
melville/data/user/
melville/doc/functions/
melville/doc/help/
melville/inherit/
melville/log/
melville/obj/
melville/system/auto/
melville/system/player/
melville/system/user/
melville/users/
melville/users/mobydick/
melville/world/
/* Print the cwd of this user back to him. */

int do_command() {

    string pwd, pwf ;

    pwd = previous_object()->query_cwd() ;
    if (pwd!="/") pwd = "/" + pwd ;
    write ("Current working directory: "+pwd+"\n") ;
    pwf = previous_object()->query_cwf() ;
    write ("Current working file: "+pwf+"\n") ;
    return 1 ;
}