-module(database_shim).
-export
(
   [
      generate_db/1,
      fetch/2
   ]
).

-include("timed_cache_data.hrl").

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% LOCAL %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
create_db (_Heir) ->
   ets:new
   (
      db_shim,
      [
         set,
         public,
         named_table,
         {keypos, 1},
         {read_concurrency, true}
      ]
   ).

add_to_db (ID, Val) ->
   ets:store(db_shim, {ID, Val}).

generate_char_instances (Battlemap, Characters) ->
   lists:map
   (
      fun (Char) ->
         {
            Char#character.id,
            #character_instance
            {
               x = rand:uniform(Battlemap#battlemap.width - 1),
               y = rand:uniform(Battlemap#battlemap.height - 1),
               team = (rand:uniform(2) - 1)
            }
         }
      end,
      Characters
   ).

generate_map_instance (CharInts) ->
   #battlemap_instance
   {
      id = <<"0">>,
      chars = dict:from_list(CharInts),
      curr_player = <<"0">>,
      rem_chars = [],
      last_turn = []
   }.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% EXPORTED %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
generate_db (Heir) ->
   Pid = self(),
   spawn(fun () -> create_db(Heir), Pid ! ok, receive ok -> ok end end),
   receive
      ok -> ok
   end,
   Battlemap = battlemap_shim:generate(),
   Characters = character_shim:generate(rand:uniform(14) + 2),
   CharacterInsts = generate_char_instances(Battlemap, Characters),
   BattlemapInstance = generate_map_instance(CharacterInsts),
   add_to_db({battlemap_db, Battlemap#battlemap.id}, Battlemap),
   lists:map
   (
      fun (Char) ->
         add_to_db({character_sb, Char#character.id}, Char)
      end,
      Characters
   ),
   add_to_db
   (
      {battlemap_instance_db, BattlemapInstance#battlemap_instance.id},
      BattlemapInstance
   ).

fetch (DB, Object_ID) ->
   ets:first(db_shim), %% It appears the db does not exist...
   case ets:lookup(db_shim, {DB, Object_ID}) of
      [{_Key, Value}] -> {ok, Value};
      [] -> nothing
   end.