void main( string str ) {
  string path;
  object *objs;
  object *players;
  object ob;
  object old_room;
  int i;


  if( str == "" ) {
    str = this_player()->query_env( "cwf" );
  }

  if( str == 0 || str == "" ) {
    write( "You need to specify a filename." );
    return;
  }

  path = this_player()->query_env( "cwd" );

  if( strlen(str) > 2 ) {
    if( str[strlen(str)-2] == '.' 
	&& str[strlen(str)-1] == 'c' )
      str = str[..strlen(str)-3];
  }

  path = normalize_path( str, path );
  if( path == "" ) {
    write( "Access denied.\n" );
    return;
  }

  if( str == "here" ) {
    str = this_environment()->base_name();

    /* Check for errors before moving people out of the room */

    this_player()->write( str + "\n" ); 

    ob = compile_object( str );

    if( ob != 0 ) {
      /* It compiled fine. Move'em. */
      objs = this_environment()->query_inventory();
      players = ({ });
      for( i = 0; i < sizeof( objs ); i++ ) {
	if( objs[i]->is_player() )
	  players += ({ objs[i] });
      }
      
      old_room = this_environment();
      
      for( i = 0; i < sizeof( players ); i++ ) {
	players[i]->move( "/domains/gurba/void" );
      }
      
      old_room->destruct();

      /* And move into the new room */

      call_other( str, "???" );

      for( i = 0; i < sizeof( players ); i++ ) {
	players[i]->move( str );
      }
      this_player()->do_look( 0 );
    }
  } else if( file_exists( path + ".c" ) ) {
    this_player()->set_env( "cwf", path );
    ob = compile_object( path );
    if( ob ) {
      write( "Compilation successful.\n" );
    }
  } else {
    write( "File not found.\n" );
  }
}