From 1001c3f6cfefd880c1721f2b80c1795197d05365 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Tue, 10 Apr 2018 13:01:12 +0200 Subject: Changing how the server services are organized... --- src/shim/database_shim.erl | 137 --------------------------------------------- 1 file changed, 137 deletions(-) delete mode 100644 src/shim/database_shim.erl (limited to 'src/shim/database_shim.erl') diff --git a/src/shim/database_shim.erl b/src/shim/database_shim.erl deleted file mode 100644 index a26087d..0000000 --- a/src/shim/database_shim.erl +++ /dev/null @@ -1,137 +0,0 @@ --module(database_shim). - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% --export -( - [ - generate_db/1, - fetch/2, - commit/4 - ] -). - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% --spec create_db (pid()) -> 'ok'. -create_db (_Heir) -> - ets:new - ( - db_shim, - [ - set, - public, - named_table, - {keypos, 1}, - {read_concurrency, true} - ] - ), - io:format("~ndb_shim ets created.~n"), - ok. - --spec add_to_db (any(), any()) -> 'ok'. -add_to_db (ID, Val) -> - io:format("~nadd to db_shim: ~p.~n", [{ID, Val}]), - ets:insert(db_shim, {ID, Val}), - ok. - --spec generate_random_characters - ( - non_neg_integer(), - non_neg_integer(), - non_neg_integer(), - non_neg_integer(), - list(character:struct()) - ) - -> list(character:struct()). -generate_random_characters -( - 0, - 0, - _CharactersPerPlayer, - _TotalCharacterCount, - Result -) -> - Result; -generate_random_characters -( - MaxPlayerID, - 0, - CharactersPerPlayer, - TotalCharacterCount, - Result -) -> - generate_random_characters - ( - (MaxPlayerID - 1), - CharactersPerPlayer, - CharactersPerPlayer, - TotalCharacterCount, - Result - ); -generate_random_characters -( - MaxPlayerID, - PlayerCharacterCount, - CharactersPerPlayer, - TotalCharacterCount, - Result -) -> - NewCharacter = - character:random - ( - TotalCharacterCount, - list_to_binary(integer_to_list(MaxPlayerID)) - ), - generate_random_characters - ( - MaxPlayerID, - (PlayerCharacterCount - 1), - CharactersPerPlayer, - (TotalCharacterCount + 1), - [NewCharacter|Result] - ). - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% --spec generate_db (pid()) -> 'ok'. -generate_db (Heir) -> - Pid = self(), - spawn(fun () -> create_db(Heir), Pid ! ok, receive ok -> ok end end), - receive - ok -> ok - end, - BattlemapWidth = roll:between(16, 64), - BattlemapHeight = roll:between(16, 64), - Battlemap = battlemap:random(0, BattlemapWidth, BattlemapHeight), - Characters = generate_random_characters(1, 8, 8, 0, []), - PlayersAsList = [player:new(<<"0">>), player:new(<<"1">>)], - Battle = - battle:random - ( - <<"0">>, - PlayersAsList, - Battlemap, - Characters - ), - - add_to_db({battle_db, <<"0">>}, Battle). - --spec fetch (atom(), any()) -> ({'ok', any()} | 'nothing'). -fetch (DB, ObjectID) -> - io:format("~ndb_shim lookup: ~p.~n", [{DB, ObjectID}]), - case ets:lookup(db_shim, {DB, ObjectID}) of - [{_Key, Value}] -> {ok, Value}; - [] -> nothing - end. - --spec commit (atom(), any(), any(), any()) -> 'ok'. -commit (DB, _Owner, ObjectID, Value) -> - add_to_db({DB, ObjectID}, Value). -- cgit v1.2.3-70-g09d2