Packages

erlang_behaviour_trees

0.5.10
0.5.22 0.5.21 0.5.20 0.5.18 0.5.17 0.5.16 0.5.15 0.5.14 0.5.13 0.5.12 0.5.11 0.5.10 0.5.9 0.5.8 0.5.7 0.5.6 0.5.5 0.5.4 0.5.3 0.5.2 0.5.1 0.5.0 0.4.5 0.4.4 0.4.3 0.4.2 0.4.1 0.4.0 0.3.1 0.3.0 0.2.0 0.1.0

An implementation of behaviour trees in erlang.

Current section

Files

Jump to
Readme
32 Versions
3 Dependencies
Dependants
Files
Activity
erlang_behaviour_trees src bt_engine bt_helper.erl
Raw

src/bt_engine/bt_helper.erl 

-module(bt_helper).

-include("bt_nodes.hrl").



-export([

  make_task/3,

  make_decorator/3,

  make_erl_tree/2,

  decorate/2

]).





make_task(Module, Args, Name) ->

  #task{

    name = Name,

    module = Module,

    args = Args

  }.



%% child will be set later using bt_helper:decorate

make_decorator(Module, Args, Name) ->

  #decorator{

    name = Name,

    module = Module,

    args = Args

  }.



make_erl_tree(BtErlTree, Args) when is_record(BtErlTree, bt_erl_tree) ->

  BtErlTree#bt_erl_tree{args = Args}.



%% single decorator passed

decorate(Node, Decorator) when is_record(Decorator, decorator) ->

  decorate_internal(Node, [Decorator]);

%% reverse list since more intuitive to specify higher decorator before lower decorator

decorate(Node, DecoratorList) when is_list(DecoratorList) ->

  decorate_internal(Node, lists:reverse(DecoratorList)).



decorate_internal(Node, []) ->

  Node;

decorate_internal(Node, [Decorator | RestOfDecorators]) when is_record(Decorator, decorator) ->

  DecoratedOnce = Decorator#decorator{

    child = Node

  },

  decorate_internal(DecoratedOnce, RestOfDecorators).