From ee4059ac5a1d308f1020ff8385de9579b93a4a2a Mon Sep 17 00:00:00 2001
From: Kallfaktorn <mattiaspgames@gmail.com>
Date: Mon, 21 Feb 2011 20:43:00 +0100
Subject: [PATCH] getItem, setItem complete. Added scripts.

---
 mnesia/build_db        |  4 ++++
 mnesia/build_test_db   |  4 ++++
 mnesia/ggs_db.erl      | 47 ++++++++++++++++++++++++++++++++++++++++++
 mnesia/ggs_db.hrl      |  6 ++++++
 mnesia/ggs_db_test.erl | 31 ++++++++++++++++++++++++++++
 mnesia/test_db         |  3 +++
 6 files changed, 95 insertions(+)
 create mode 100755 mnesia/build_db
 create mode 100755 mnesia/build_test_db
 create mode 100644 mnesia/ggs_db.erl
 create mode 100644 mnesia/ggs_db.hrl
 create mode 100644 mnesia/ggs_db_test.erl
 create mode 100755 mnesia/test_db

diff --git a/mnesia/build_db b/mnesia/build_db
new file mode 100755
index 0000000..0aa2042
--- /dev/null
+++ b/mnesia/build_db
@@ -0,0 +1,4 @@
+#!/usr/bin/env bash
+
+	erlc -o . ggs_db.erl
+    erlc -o . ggs_db_test.erl
diff --git a/mnesia/build_test_db b/mnesia/build_test_db
new file mode 100755
index 0000000..f5aa938
--- /dev/null
+++ b/mnesia/build_test_db
@@ -0,0 +1,4 @@
+#!/usr/bin/env bash
+
+./build_db
+./test_db
diff --git a/mnesia/ggs_db.erl b/mnesia/ggs_db.erl
new file mode 100644
index 0000000..5067e16
--- /dev/null
+++ b/mnesia/ggs_db.erl
@@ -0,0 +1,47 @@
+%%%%----------------------------------------------------
+%%% @author     Mattias Pettersson <mattiaspgames@gmail.com>
+%%% @copyright  2011 Mattias Pettersson
+%%% @doc        Database for runtime game variable storage.
+%%% @end
+
+-module(ggs_db).
+-import(mnesia).
+-export([init/0,setItem/4,getItem/3]).
+-include("ggs_db.hrl").
+
+%%-----------------------------------------------------
+%% Creation
+%%-----------------------------------------------------
+init() ->
+    mnesia:create_table(data, [{attributes, record_info(fields, data)}]).
+
+%%-----------------------------------------------------
+%% Test
+%%-----------------------------------------------------
+
+%test_data() ->
+%    set(0, "Hello"),
+%    get(0).
+
+%%-----------------------------------------------------
+%% Insertions
+%%-----------------------------------------------------
+setItem(Db,Ns,Key,Value) ->
+    Fun = fun() ->
+                  Data = #data{key = {Db,Ns,Key}, value = Value},
+                  mnesia:write(Data) 
+          end,
+    mnesia:transaction(Fun).
+
+
+
+%%-----------------------------------------------------
+%% Querries
+%%-----------------------------------------------------
+getItem(Db,Ns,Key) ->
+    Fun = fun() -> 
+                [Data] = mnesia:read(data, {Db,Ns,Key}),
+                Data#data.value
+          end,
+    mnesia:transaction(Fun).
+ 
diff --git a/mnesia/ggs_db.hrl b/mnesia/ggs_db.hrl
new file mode 100644
index 0000000..bc13c3a
--- /dev/null
+++ b/mnesia/ggs_db.hrl
@@ -0,0 +1,6 @@
+%% gamedb.hrl
+
+-record(player, {id, name}).
+-record(data, {key, value}).
+
+
diff --git a/mnesia/ggs_db_test.erl b/mnesia/ggs_db_test.erl
new file mode 100644
index 0000000..4baaaed
--- /dev/null
+++ b/mnesia/ggs_db_test.erl
@@ -0,0 +1,31 @@
+-module(ggs_db_test).
+%-compile({no_auto_import,[get/1,set/2]}).
+-include_lib("eunit/include/eunit.hrl").
+  
+%ggs_db_test_() ->
+%    {spawn,
+%        {setup, fun setup/0, fun cleanup/1,[ fun ggs_db_test/0 ]}
+%    }.
+
+
+%Key should be a tuple of two elements
+setup_test() -> 
+    mnesia:start(),
+    ggs_db:init(),
+    ggs_db:setItem("dbname","nsname","keyname","Hello"),
+    ?assertMatch({atomic,"Hello"},ggs_db:getItem("dbname","nsname","keyname")),
+    mnesia:stop().
+
+%cleanup(Val) ->
+%    mnesia:stop().
+
+
+
+%tests() ->
+%    ggs_db_test().
+
+%ggs_db_test() ->
+%    ggs_db:set(0, "Hello"),
+    %io:format("~s",[Val]),
+%    ?assertMatch({atomic,"Hello"},ggs_db:get(0)).
+
diff --git a/mnesia/test_db b/mnesia/test_db
new file mode 100755
index 0000000..958b005
--- /dev/null
+++ b/mnesia/test_db
@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+erl -eval 'eunit:test(ggs_db_test), q().'