From 85b1e04a22e7564b702aa27c5f6467ad4d5f4416 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Fri, 15 Feb 2019 18:18:54 +0100 Subject: Re-organizing shr_ structs. --- src/shared/struct/shr_portrait.erl.m4 | 73 ----------------------------------- 1 file changed, 73 deletions(-) delete mode 100644 src/shared/struct/shr_portrait.erl.m4 (limited to 'src/shared/struct/shr_portrait.erl.m4') diff --git a/src/shared/struct/shr_portrait.erl.m4 b/src/shared/struct/shr_portrait.erl.m4 deleted file mode 100644 index fefc434..0000000 --- a/src/shared/struct/shr_portrait.erl.m4 +++ /dev/null @@ -1,73 +0,0 @@ --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">>). -- cgit v1.2.3-70-g09d2