Get debug to okay the src files.

3 files changed, 0 insertions, 376 deletions

diff --git a/src/shared/struct/shr_db_item.erl b/src/shared/struct/shr_db_item.erl
deleted file mode 100644
index 417e772..0000000
--- a/src/shared/struct/shr_db_item.erl
+++ /dev/null
@@ -1,96 +0,0 @@
--module(shr_db_item).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--record
-(
-   db_item,
-   {
-      id :: any(),
-      read_perm :: shr_db_user:permission(),
-      write_perm :: shr_db_user:permission(),
-      val :: any()
-   }
-).
-
--type db_item() :: #db_item{}.
-
--type type() :: db_item().
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export_type([type/0]).
-
--export
-(
-   [
-      new/4,
-
-      get_id/1,
-      get_read_permission/1,
-      get_write_permission/1,
-      get_value/1,
-
-      set_read_permission/2,
-      set_write_permission/2,
-      set_value/2,
-
-      get_id_field/0,
-      get_record_info/0,
-      get_record_name/0
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec new
-   (
-      any(),
-      shr_db_user:permission(),
-      shr_db_user:permission(),
-      any()
-   ) -> type().
-new (ID, ReadPermission, WritePermission, Value) ->
-   #db_item
-   {
-      id = ID,
-      read_perm = ReadPermission,
-      write_perm = WritePermission,
-      val = Value
-   }.
-
--spec get_id (type()) -> any().
-get_id (#db_item { id = Result }) -> Result.
-
--spec get_read_permission (type()) -> shr_db_user:permission().
-get_read_permission (#db_item { read_perm = Result }) -> Result.
-
--spec get_write_permission (type()) -> shr_db_user:permission().
-get_write_permission (#db_item { write_perm = Result }) -> Result.
-
--spec get_value (type()) -> any().
-get_value (#db_item { val = Result }) -> Result.
-
--spec set_read_permission (shr_db_user:permission(), type()) -> type().
-set_read_permission (Perm, Item) -> Item#db_item{ read_perm = Perm }.
-
--spec set_write_permission (shr_db_user:permission(), type()) -> type().
-set_write_permission (Perm, Item) -> Item#db_item{ write_perm = Perm }.
-
--spec set_value (any(), type()) -> type().
-set_value (Value, Item) -> Item#db_item{ val = Value }.
-
--spec get_id_field () -> non_neg_integer().
-get_id_field () -> #db_item.id.
-
-get_record_info () -> record_info(fields, db_item).
-
-get_record_name () -> db_item.
-
diff --git a/src/shared/struct/shr_db_query.erl b/src/shared/struct/shr_db_query.erl
deleted file mode 100644
index af8b080..0000000
--- a/src/shared/struct/shr_db_query.erl
+++ /dev/null
@@ -1,241 +0,0 @@
--module(shr_db_query).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--record
-(
-   set_field,
-   {
-      field :: non_neg_integer(),
-      value :: any()
-   }
-).
-
--record
-(
-   add_to_field,
-   {
-      field :: non_neg_integer(),
-      values :: list(any()),
-      head :: boolean()
-   }
-).
-
--record
-(
-   update_indexed,
-   {
-      field :: non_neg_integer(),
-      ix :: non_neg_integer(),
-      ops :: list(db_query_op())
-   }
-).
-
--record
-(
-   set_read_perm,
-   {
-      perm :: shr_db_user:permission()
-   }
-).
-
--record
-(
-   set_write_perm,
-   {
-      perm :: shr_db_user:permission()
-   }
-).
-
--record
-(
-   set_val,
-   {
-      val :: any()
-   }
-).
-
--record
-(
-   db_query,
-   {
-      db :: atom(),
-      id :: any(),
-      user :: shr_db_user:user(),
-      ops :: list(db_query_master_op())
-   }
-).
-
--type db_query_op() ::
-   (#set_field{} | #add_to_field{} | #update_indexed{} | #set_val{}).
--type db_query_master_op() ::
-   (db_query_op() | #set_read_perm{} | #set_write_perm{}).
-
--type db_query() :: #db_query{}.
-
--type op() :: db_query_master_op().
--type type() :: db_query().
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export_type([type/0, op/0]).
-
--export
-(
-   [
-      new/4,
-      set_field/2,
-      add_to_field/3,
-      update_indexed/3,
-      set_value/1,
-      set_read_permission/1,
-      set_write_permission/1
-   ]
-).
--export
-(
-   [
-      get_database/1,
-      get_entry_id/1
-   ]
-).
--export([apply_to/2]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec get_user (db_query()) -> shr_db_user:user().
-get_user (#db_query{ user = Result }) -> Result.
-
--spec apply_update_indexed (#update_indexed{}, any()) -> any().
-apply_update_indexed (Op, Elem) ->
-   FieldNumber = Op#update_indexed.field,
-   IX = Op#update_indexed.ix,
-   Ops = Op#update_indexed.ops,
-
-   IndexedFieldValue = element(FieldNumber, Elem),
-   ArrayValue = array:get(IX, IndexedFieldValue),
-   UpdatedArrayValue = lists:foldl(fun apply_op_to/2, ArrayValue, Ops),
-   UpdatedIndexedFieldValue =
-      array:set(IX, UpdatedArrayValue, IndexedFieldValue),
-
-   setelement(FieldNumber, Elem, UpdatedIndexedFieldValue).
-
--spec apply_add_to_field (#add_to_field{}, any()) -> any().
-apply_add_to_field (Op, Elem) ->
-   FieldNumber = Op#add_to_field.field,
-   NewValues = Op#add_to_field.values,
-   AddToHead = Op#add_to_field.head,
-
-   CurrentValues = element(FieldNumber, Elem),
-   UpdatedValues =
-      case AddToHead of
-         true -> (NewValues ++ CurrentValues);
-         _ -> (CurrentValues ++ NewValues)
-      end,
-
-   setelement(FieldNumber, Elem, UpdatedValues).
-
--spec apply_set_field (#set_field{}, any()) -> any().
-apply_set_field (Op, Elem) ->
-   FieldNumber = Op#set_field.field,
-   NewValue = Op#set_field.value,
-
-   setelement(FieldNumber, Elem, NewValue).
-
--spec apply_op_to (db_query_op(), any()) -> any().
-apply_op_to (Op, Elem) when is_record(Op, set_field) ->
-   apply_set_field(Op, Elem);
-apply_op_to (MOp, _Elem) when is_record(MOp, set_val) ->
-   NewVal = MOp#set_val.val,
-   NewVal;
-apply_op_to (Op, Elem) when is_record(Op, add_to_field) ->
-   apply_add_to_field(Op, Elem);
-apply_op_to (Op, Elem) when is_record(Op, update_indexed) ->
-   apply_update_indexed(Op, Elem).
-
--spec apply_master_op_to
-   (
-      db_query_master_op(),
-      shr_db_item:type()
-   )
-   -> shr_db_item:type().
-apply_master_op_to (MOp, Elem) when is_record(MOp, set_read_perm) ->
-   NewPerm = MOp#set_read_perm.perm,
-
-   shr_db_item:set_read_permission(NewPerm, Elem);
-apply_master_op_to (MOp, Elem) when is_record(MOp, set_write_perm) ->
-   NewPerm = MOp#set_write_perm.perm,
-
-   shr_db_item:set_write_permission(NewPerm, Elem);
-apply_master_op_to (MOp, Elem) ->
-   OldValue = shr_db_item:get_value(Elem),
-   NewValue = apply_op_to(MOp, OldValue),
-
-   shr_db_item:set_value(NewValue, Elem).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec new (atom(), any(), shr_db_user:user(), list(op())) -> type().
-new (DBName, ObjectID, User, Ops) ->
-   #db_query
-   {
-      db = DBName,
-      id = ObjectID,
-      user = User,
-      ops = Ops
-   }.
-
--spec set_field (non_neg_integer(), any()) -> op().
-set_field (Field, Value) ->
-   #set_field { field = Field, value = Value }.
-
--spec set_value (any()) -> op().
-set_value (Value) -> #set_val { val= Value }.
-
--spec set_read_permission (shr_db_user:permission()) -> op().
-set_read_permission (Perm) -> #set_read_perm { perm = Perm }.
-
--spec set_write_permission (shr_db_user:permission()) -> op().
-set_write_permission (Perm) -> #set_write_perm { perm = Perm }.
-
--spec add_to_field (non_neg_integer(), list(any()), boolean()) -> op().
-add_to_field (Field, Values, IsPrefix) ->
-   #add_to_field { field = Field, values = Values, head = IsPrefix}.
-
--spec update_indexed
-   (
-      non_neg_integer(),
-      non_neg_integer(),
-      list(op())
-   )
-   -> op().
-update_indexed (Field, IX, Updates) ->
-   #update_indexed { field = Field, ix = IX, ops = Updates}.
-
--spec get_database (db_query()) -> atom().
-get_database (#db_query{ db = Result }) -> Result.
-
--spec get_entry_id (db_query()) -> any().
-get_entry_id (#db_query{ id = Result }) -> Result.
-
--spec apply_to
-   (
-      db_query(),
-      shr_db_item:type()
-   )
-   -> ({'ok', shr_db_item:type()} | 'error').
-apply_to (DBQuery, DBItem) ->
-   ObjectWPerm = shr_db_item:get_write_permission(DBItem),
-   User = get_user(DBQuery),
-
-   io:format("~p accessing obj with ~p perm.~n", [User, ObjectWPerm]),
-
-   true = shr_db_user:can_access (ObjectWPerm, User),
-
-   MOps = DBQuery#db_query.ops,
-   {ok, lists:foldl(fun apply_master_op_to/2, DBItem, MOps)}.
-
diff --git a/src/shared/struct/shr_db_user.erl b/src/shared/struct/shr_db_user.erl
deleted file mode 100644
index dcd8685..0000000
--- a/src/shared/struct/shr_db_user.erl
+++ /dev/null
@@ -1,39 +0,0 @@
--module(shr_db_user).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type db_named_user() :: {'user', any()}.
--type db_user() :: (db_named_user() | 'admin' | 'any' | 'janitor').
--type db_permission() :: (list(db_named_user()) | 'any' | 'janitor').
-
-
--type user() :: db_user().
--type permission() :: db_permission().
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export_type([user/0, permission/0]).
-
--export([can_access/2, player/1]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec player (shr_player:id()) -> db_user().
-player (ID) -> {user, ID}.
-
--spec can_access (permission(), user()) -> boolean().
-can_access (_, admin) -> true;
-can_access (any, _) -> true;
-can_access (janitor, janitor) -> true;
-can_access (List, {user, User}) ->
-   lists:member({user, User}, List);
-can_access (List, janitor) ->
-   lists:member(janitor, List);
-can_access (List, User) ->
-   can_access(List, {user, User}).