Re-organizing shr_ structs.

1 files changed, 73 insertions, 0 deletions

diff --git a/src/shared/struct/inventory/shr_portrait.erl.m4 b/src/shared/struct/inventory/shr_portrait.erl.m4
new file mode 100644
index 0000000..fefc434
--- /dev/null
+++ b/src/shared/struct/inventory/shr_portrait.erl.m4
@@ -0,0 +1,73 @@
+-module(shr_portrait).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-type id() :: binary().
+
+-record
+(
+   portrait,
+   {
+      id :: id(),
+      name :: binary(),
+      body_id :: binary(),
+      icon_id :: binary()
+   }
+).
+
+-opaque type() :: #portrait{}.
+
+-export_type([type/0, id/0]).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%% Accessors
+-export
+(
+   [
+      get_id/1,
+      get_name/1,
+      get_body_id/1,
+      get_icon_id/1
+   ]
+).
+
+-export
+(
+   [
+      from_id/1,
+      default/0
+   ]
+).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%% Accessors
+-spec get_id (type()) -> id().
+get_id (Pt) -> Pt#portrait.id.
+
+-spec get_name (type()) -> binary().
+get_name (Pt) -> Pt#portrait.name.
+
+-spec get_body_id (type()) -> binary().
+get_body_id (Pt) -> Pt#portrait.body_id.
+
+-spec get_icon_id (type()) -> binary().
+get_icon_id (Pt) -> Pt#portrait.icon_id.
+
+-spec from_id (id()) -> type().
+m4_include(__MAKEFILE_DATA_DIR/portrait/global.m4.conf)m4_dnl
+m4_include(__MAKEFILE_DATA_DIR/portrait/basic.m4d)m4_dnl
+from_id(_) ->
+   default().
+
+-spec default () -> type().
+default () -> from_id(<<"cat">>).