projects
/
euphorik.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
874e1ea
)
MOD mini optimisation
author
Greg Burri
<greg.burri@gmail.com>
Mon, 2 Jun 2008 18:39:04 +0000
(18:39 +0000)
committer
Greg Burri
<greg.burri@gmail.com>
Mon, 2 Jun 2008 18:39:04 +0000
(18:39 +0000)
modules/erl/euphorik_minichat_conversation.erl
patch
|
blob
|
history
diff --git
a/modules/erl/euphorik_minichat_conversation.erl
b/modules/erl/euphorik_minichat_conversation.erl
index
06fad7f
..
7f6082c
100755
(executable)
--- a/
modules/erl/euphorik_minichat_conversation.erl
+++ b/
modules/erl/euphorik_minichat_conversation.erl
@@
-44,6
+44,10
@@
% Message est le message de type #minichat et Parents une liste d'Id.
% Plus est un bool. Si Plus vaut true alors il y a encore des messages.
% Si il n'y a pas de nouveaux message alors vide est renvoyé.
% Message est le message de type #minichat et Parents une liste d'Id.
% Plus est un bool. Si Plus vaut true alors il y a encore des messages.
% Si il n'y a pas de nouveaux message alors vide est renvoyé.
+% Chaque racine est un tuple {N, P, D}
+% N : le nombre de message
+% D : le dernier message connu, 0 si aucun
+% P : la page souhaité, la premier est la 1
% @spec conversations([{integer(), integer(), integer()}], integer(), integer(), integer()) -> [Conversation()]
conversations(Racines, N, D, P) ->
Conversations = conversations_detailees(Racines, N, D, P),
% @spec conversations([{integer(), integer(), integer()}], integer(), integer(), integer()) -> [Conversation()]
conversations(Racines, N, D, P) ->
Conversations = conversations_detailees(Racines, N, D, P),
@@
-101,7
+105,10
@@
mise_en_forme_conversation(Messages) ->
conversations_detailees(Racines, N, D, P) ->
Conversations = map(fun({Racine, P_conv, Dernier}) -> conversation(Racine, N, Dernier, P_conv) end, Racines),
Conversation_principale = resultat_transaction(transaction(fun() ->
conversations_detailees(Racines, N, D, P) ->
Conversations = map(fun({Racine, P_conv, Dernier}) -> conversation(Racine, N, Dernier, P_conv) end, Racines),
Conversation_principale = resultat_transaction(transaction(fun() ->
- Curseur = qlc:cursor(q([E#minichat.id || E <- qlc:sort(table(minichat), [{order, descending}])]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
+ Curseur = qlc:cursor(
+ qlc:sort(q([E#minichat.id || E <- table(minichat)]), [{order, descending}]),
+ [{tmpdir, ?KEY_SORT_TEMP_DIR}]
+ ),
{CP, Plus} = conversation_principale(Curseur, Conversations, N, P),
qlc:delete_cursor(Curseur),
{[M || M <- CP, M > D], Plus} % filtre en fonction de D
{CP, Plus} = conversation_principale(Curseur, Conversations, N, P),
qlc:delete_cursor(Curseur),
{[M || M <- CP, M > D], Plus} % filtre en fonction de D