- % écoute des nouveaux messages
- case subscribe(minichat, 2) of
- erreur = E ->
- E;
- _ ->
- % demande des conversations
- Conversations = conversations_detailees(Racines, N, D, P),
- % si les conversations sont vides alors on attend un nouveau message
- Vide = not any(
- fun(C) ->
- case C of
- {[], _} -> false;
- {_, [], _, _} -> false;
- _ -> true
- end
- end,
- Conversations
- ),
- Conversations_mises_en_forme = mise_en_forme_conversations(
- if Vide ->
- attend_nouveau_message(),
- conversations_detailees(Racines, N, D, P);
- true ->
- Conversations
+ Conversations = conversations_detailees(Racines, N, D, P),
+ % si les conversations sont vides alors on attend un nouveau message
+ Vide = not any(
+ fun(C) ->
+ case C of
+ {[], _} -> false;
+ {_, [], _, _} -> false;
+ _ -> true