summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2019-10-12 22:46:42 +0200
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2019-10-12 22:46:42 +0200
commit98162b14fe010a50912e1a07ff6c905671b293b7 (patch)
treec7a36c1af09a255f56d1d603f6c889f5083b86bf
parentb61187648d6acfd683b69e9f4b43bd96e4957807 (diff)
downloadataxia-98162b14fe010a50912e1a07ff6c905671b293b7.zip
ataxia-98162b14fe010a50912e1a07ff6c905671b293b7.tar.bz2
Exposes basic_apply_to/2.
-rw-r--r--src/ataxic.erl10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/ataxic.erl b/src/ataxic.erl
index 4e011c6..09cf22e 100644
--- a/src/ataxic.erl
+++ b/src/ataxic.erl
@@ -72,13 +72,17 @@
]
).
--export([apply_to/2, matches/2]).
+-export([basic_apply_to/2, apply_to/2, matches/2]).
-export([is_constant/1]).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-spec basic_apply_to (basic(), any()) -> any().
basic_apply_to (#upfield{ ix = IX, op = OP}, Val) ->
setelement(IX, Val, basic_apply_to(OP, element(IX, Val)));
@@ -120,10 +124,6 @@ basic_apply_to (#neg{ param = V }, Val) ->
basic_apply_to (#list_cons{ param = V }, Val) ->
[basic_apply_to(V, Val)|Val].
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-spec update_field (non_neg_integer(), basic()) -> basic().
update_field (IX, OP) -> #upfield{ ix = IX, op = OP }.