From f59d59814a627b55732edbf2b7a2838eaa00d58c Mon Sep 17 00:00:00 2001 From: Kallfaktorn Date: Thu, 3 Feb 2011 14:09:57 +0100 Subject: [PATCH] renaming Mnesia/ to mnesia/ --- mnesia/.gamedb.erl.swp | Bin 0 -> 12288 bytes mnesia/gamedb.erl | 50 ++++++++++++++++++++++++++++++++++++++++ mnesia/gamedb.hrl | 6 +++++ mnesia/gamedb_usage.txt | 12 ++++++++++ 4 files changed, 68 insertions(+) create mode 100644 mnesia/.gamedb.erl.swp create mode 100644 mnesia/gamedb.erl create mode 100644 mnesia/gamedb.hrl create mode 100644 mnesia/gamedb_usage.txt diff --git a/mnesia/.gamedb.erl.swp b/mnesia/.gamedb.erl.swp new file mode 100644 index 0000000000000000000000000000000000000000..469b1f85b2ecf7663f6f99f957c41243aa53c9d9 GIT binary patch literal 12288 zcmeI2zfTlF6vqcEQBk9XjV9wE^c~uUwxG9A3wj3SpnmAjS;oFXpP_fq7W5WsLG#cJs2}=` z*tenA&^%Ow94N`@1lEK?CIUo&2oM1xKm>@u|3rXec*zmXaifJFiH1>upT8UXg)*~~ z>5#r#WV<)}R~3ve1=%yL;PBeT2;Jn`8LfGIzc+H@1JWO|Mq+22omqCbw2|9xebwV&MdL9H&}jaz%JyTka;4q><#@S!BC3>)Gzy4_c#PjEwfs92d$g zeDw@9$s((11KAk4Xhgj&_xgNpO&Ft9Jx0hyu4N<8?xOOSg8Y(_Z5Pkd9xtpfAbI60 zlk|Vj0invbZ5$|a&pud5`Hgn$%6u+6_TAF$9KtKfl`zmIKWF2tIK{3yRjS4AN?}1q zeKFlpwTffYEh!vShrbk{ec%Od40`En@qpXv@LICLF(fp^C$W{KAKaj^+l+SvsEbH) z>}FiYzERkptP}oRXk`n+an@anrYxtnjUZgrs@XD}k2uvTuc1mxM0`dXBXtxd^zbqf jn-*N!@$V9T6Fa9h3+=0-$)+b%yW9vo`z7sdlVX1X$Qr-k literal 0 HcmV?d00001 diff --git a/mnesia/gamedb.erl b/mnesia/gamedb.erl new file mode 100644 index 0000000..751eb92 --- /dev/null +++ b/mnesia/gamedb.erl @@ -0,0 +1,50 @@ +%%%%---------------------------------------------------- +%%% @author Mattias Pettersson +%%% @copyright 2011 Mattias Pettersson +%%% @doc Database for runtime game variable storage. +%%% @end + + Test Mnesia +-module(gamedb). +-import(mnesia). +-export([init/0,insert_player/1,example_player/0,read_player/1,test_player/0]). +-include("gamedb.hrl"). + +%%----------------------------------------------------- +%% Creation +%%----------------------------------------------------- +init() -> + mnesia:create_table(player, [{attributes, record_info(fields, player)}]). + +%%----------------------------------------------------- +%% Test +%%----------------------------------------------------- +test_player() -> + insert_player(example_player()), + read_player(0001). + +example_player() -> + #player{id = 0001, + name = "Tux"}. + +%%----------------------------------------------------- +%% Insertions +%%----------------------------------------------------- +insert_player(Player) -> + Fun = fun() -> + mnesia:write(Player) + end, + mnesia:transaction(Fun). + + +%%----------------------------------------------------- +%% Querries +%%----------------------------------------------------- +read_player(Player_Key) -> + Fun = fun() -> + [P] = mnesia:read(player, Player_Key), + Name = P#player.name, + io:format("Player name: ~s~n",[Name]) + end, + mnesia:transaction(Fun). + diff --git a/mnesia/gamedb.hrl b/mnesia/gamedb.hrl new file mode 100644 index 0000000..1ae9c8f --- /dev/null +++ b/mnesia/gamedb.hrl @@ -0,0 +1,6 @@ +%% gamedb.hrl + +-record(player, {id, name}). + + + diff --git a/mnesia/gamedb_usage.txt b/mnesia/gamedb_usage.txt new file mode 100644 index 0000000..b3a07a0 --- /dev/null +++ b/mnesia/gamedb_usage.txt @@ -0,0 +1,12 @@ +1. From terminal: erl -mnesia dir '"/home/user/dir/to/GGS/GameDB.Player"' +2. mnesia:create_schema([node()]). +3. mnesia:start(). +4. c(gamedb). +5. gamedb:init(). +6. mnesia:info(). +7. gamedb:test_player(). + +Last output should be: + Player name: Tux + {atomic,ok} +