From 984709bff5f865aa66f5430839f192138efa09c2 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Wed, 24 Apr 2019 19:12:09 +0200 Subject: TODO: Optimize sequences. --- src/ataxic.erl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/ataxic.erl') diff --git a/src/ataxic.erl b/src/ataxic.erl index 8f91696..64de668 100644 --- a/src/ataxic.erl +++ b/src/ataxic.erl @@ -116,6 +116,8 @@ -export([apply_to/2, matches/2]). +-export([optimize/1]). + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -211,7 +213,6 @@ neg (V) -> #neg{ param = V }. -spec list_cons (basic()) -> basic(). list_cons (V) -> #list_cons{ param = V}. - -spec sequence_meta (list(meta())) -> meta(). sequence_meta (List) -> #mseq{ ops = List }. @@ -227,6 +228,11 @@ update_write_permission (OP) -> #write_perm{ op = OP }. -spec update_value (basic()) -> meta(). update_value (OP) -> #value{ op = OP }. +-spec optimize (basic()) -> basic(). +optimize (OP) -> OP. +% TODO: +% - Merge relevant upfield in sequences. + %%%%% APPLY TO %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -spec apply_to (meta(), ataxia_entry:type()) -> ataxia_entry:type(). apply_to (#value{ op = OP }, Entry) -> -- cgit v1.2.3-70-g09d2