[erlang-questions] How to abstract out common receive clauses?

[Torben Hoffmann]

That will guard you from many lines of repetitive code!

On Fri, May 6, 2011 at 13:12, Ivan Uemlianin <ivan@REDACTED> wrote:

> Thanks!  I knew there would be something.  Time for me to start using
> guards.
>
> Best wishes
>
> Ivan
>
>
>
> On 06/05/2011 11:54, Torben Hoffmann wrote:
>
>> -module(ivan).
>>
>> -compile(export_all).
>>
>>
>> process(This,That,State) ->
>>
>>    receive
>>    {From, do1} ->
>>        From ! do1,
>>        process(This,That,State);
>>    {From, do2 } ->
>>        From ! do2,
>>        process(This,That,State);
>>    {From, do3} when State=:=a ->
>>        From ! do3,
>>        process(This,That,b);
>>    {From, do4} when State=:=b ->
>>        From ! do4,
>>        process(This,That,a)
>>    end.
>>
>> listen(P) ->
>>    receive
>>    {send,M} ->
>>        P ! {self(),M},
>>        listen(P);
>>    M ->
>>        io:format("listen got: ~p~n",[M]),
>>        listen(P)
>>    end.
>>
>> Cheers,
>> Torben
>>
>>
>> On Fri, May 6, 2011 at 11:31, Ivan Uemlianin <ivan@REDACTED <mailto:
>> ivan@REDACTED>> wrote:
>>
>>    Dear All
>>
>>    % I have a process running continuously in a receive loop.  It
>>    should act slightly differently depending on one of its state
>>    parameters.  At the moment I have it like this:
>>
>>    process(This, That, a) ->
>>       receive
>>           {From, do1} ->
>>               do1,
>>               process(This, That, a);
>>           {From, do2} ->
>>               do2,
>>               process(This, That, a);
>>           {From, do3} ->
>>               do3,
>>               process(This, That, a)
>>       end;
>>
>>    process(This, That, b) ->
>>       receive
>>           {From, do1} ->
>>               do1,
>>               process(This, That, b);
>>           {From, do2} ->
>>               do2,
>>               process(This, That, b);
>>           {From, do4} ->
>>               do4,
>>               process(This, That, b)
>>       end.
>>
>>
>>    % Most of the receive clauses are common to both versions of
>>    process/3 (the real code is more complicated).  Is there a way to
>>    abstract out the common parts?  An "object oriented" language
>>    might use inheritance.  Prolog might use backtracking, perhaps a
>>    bit like this:
>>
>>    iProcess(This, That, a) ->
>>       receive
>>           {From, do3} ->
>>               do3,
>>               iProcess(This, That, a)
>>       end;
>>
>>    iProcess(This, That, b) ->
>>       receive
>>           {From, do4} ->
>>               do4,
>>               iProcess(This, That, b)
>>       end;
>>
>>    iProcess(This, That, Other) ->
>>       receive
>>           {From, do1} ->
>>               do1,
>>               iProcess(This, That, Other);
>>           {From, do2} ->
>>               do2,
>>               iProcess(This, That, Other)
>>       end.
>>
>>
>>    % A case would perhaps work, with the proviso that 'generic'
>>    receives would be evaluated first:
>>
>>    cProcess(This, That, Other) ->
>>       receive
>>           {From, do1} ->
>>               do1,
>>               cProcess(This, That, Other);
>>           {From, do2} ->
>>               do2,
>>               cProcess(This, That, Other)
>>       end,
>>       case Other of
>>           a ->
>>               receive
>>                   {From, do3} ->
>>                       do3,
>>                       cProcess(This, That, Other)
>>               end;
>>           b ->
>>               receive
>>                   {From, do4} ->
>>                       do4,
>>                       cProcess(This, That, Other)
>>               end
>>       end.
>>
>>
>>    % Is there a canonical way of dealing with this problem (other
>>    than copy-and-paste)?
>>
>>    With thanks and best wishes
>>
>>    Ivan
>>
>>    --     ============================================================
>>    Ivan A. Uemlianin
>>    Speech Technology Research and Development
>>
>>    ivan@REDACTED <mailto:ivan@REDACTED>
>>    www.llaisdy.com <http://www.llaisdy.com>
>>    llaisdy.wordpress.com <http://llaisdy.wordpress.com>
>>
>>    www.linkedin.com/in/ivanuemlianin
>>    <http://www.linkedin.com/in/ivanuemlianin>
>>
>>
>>       "Froh, froh! Wie seine Sonnen, seine Sonnen fliegen"
>>                        (Schiller, Beethoven)
>>    ============================================================
>>
>>    _______________________________________________
>>    erlang-questions mailing list
>>    erlang-questions@REDACTED <mailto:erlang-questions@REDACTED>
>>
>>    http://erlang.org/mailman/listinfo/erlang-questions
>>
>>
>>
>>
>> --
>> http://www.linkedin.com/in/torbenhoffmann
>>
>
>
> --
> ============================================================
> Ivan A. Uemlianin
> Speech Technology Research and Development
>
>                    ivan@REDACTED
>                     www.llaisdy.com
>                         llaisdy.wordpress.com
>                     www.linkedin.com/in/ivanuemlianin
>
>    "Froh, froh! Wie seine Sonnen, seine Sonnen fliegen"
>                     (Schiller, Beethoven)
> ============================================================
>
>


-- 
http://www.linkedin.com/in/torbenhoffmann
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://erlang.org/pipermail/erlang-questions/attachments/20110506/93e8e866/attachment.htm>