From 8ed3e625a5576b6f43b966ee77e0f6de282a074e Mon Sep 17 00:00:00 2001 From: nsensfel Date: Tue, 27 Feb 2018 17:19:59 +0100 Subject: ... --- src/struct/player_turn.erl | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'src/struct/player_turn.erl') diff --git a/src/struct/player_turn.erl b/src/struct/player_turn.erl index e49156e..7795f35 100644 --- a/src/struct/player_turn.erl +++ b/src/struct/player_turn.erl @@ -7,11 +7,15 @@ ( player_turn, { - number, - player_ix + number :: non_neg_integer(), + player_ix :: non_neg_integer() } ). +-opaque struct() :: #player_turn{}. + +-export_type([struct/0]). + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -39,6 +43,7 @@ %% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%% Accessors +-spec new (non_neg_integer(), non_neg_integer()) -> struct(). new (Number, PlayerIX) -> #player_turn { @@ -46,6 +51,8 @@ new (Number, PlayerIX) -> player_ix = PlayerIX }. +-spec get_number (struct()) -> non_neg_integer(). get_number (PlayerTurn) -> PlayerTurn#player_turn.number. +-spec get_player_ix (struct()) -> non_neg_integer(). get_player_ix (PlayerTurn) -> PlayerTurn#player_turn.player_ix. -- cgit v1.2.3-70-g09d2