From 7e5121be583a78ecd2cca8553717959d121df226 Mon Sep 17 00:00:00 2001 From: Greg Burri Date: Sun, 27 Jul 2008 10:47:13 +0000 Subject: [PATCH] MOD optimisation des fonctions est_une_reponse_a_user et a_repondu_a_message du module euphorik_bd --- modules/erl/euphorik_bd.erl | 71 +++++++++++++++++++------------ modules/erl/euphorik_requests.erl | 2 +- modules/erl/euphorik_test.erl | 8 ++-- 3 files changed, 49 insertions(+), 32 deletions(-) diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl index 196a26e..1cd534e 100755 --- a/modules/erl/euphorik_bd.erl +++ b/modules/erl/euphorik_bd.erl @@ -190,7 +190,11 @@ user_by_cookie(Cookie) -> user_by_id(ID) -> resultat_transaction(mnesia:transaction( fun() -> - case e(q([E || E <- mnesia:table(user), E#user.id =:= ID]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of +% case e(q([E || E <- mnesia:table(user), E#user.id =:= ID]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of +% [User] -> {ok, User}; +% _ -> erreur +% end + case mnesia:read({user, ID}) of [User] -> {ok, User}; _ -> erreur end @@ -378,15 +382,14 @@ message_by_id(Id) -> resultat_transaction(mnesia:transaction( fun() -> case mnesia:read({minichat, Id}) of - [] -> erreur; - [M] -> - {ok, M#minichat{contenu = contenu_message(M)}} + [M] -> {ok, M#minichat{contenu = contenu_message(M)}}; + _ -> erreur end end )). -% Renvoie le contenu d'un message donnée, à utiliser à l'intérieur d'une transaction. +% Renvoie le contenu d'un message donnée en fonction du troll associé, à utiliser à l'intérieur d'une transaction. % TODO : Cette fonction pourrait être remplacé par un "outer-join", est-ce possible avec qlc ? contenu_message(E) -> case mnesia:read({troll, E#minichat.troll_id}) of @@ -483,33 +486,47 @@ enfants_id(M) -> % Est-ce que le message Id_mess est une réponse d'une message de Id_user ? +% On evite d'utiliser qlc (ce qui était fait avant) pour des raisons de performance. est_une_reponse_a_user(Id_user, Id_mess) -> - case mnesia:transaction( - fun() -> - e(q([ - M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat), - M#minichat.auteur_id =:= Id_user, M#minichat.id =:= R#reponse_minichat.cible, R#reponse_minichat.repondant =:= Id_mess - ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}]) - end - ) of - {atomic, [_]} -> true; - _ -> false - end. + resultat_transaction(mnesia:transaction( + fun() -> + case mnesia:read({reponse_minichat, Id_mess}) of + [] -> false; + Cibles -> + lists:any( + fun(#reponse_minichat{cible = Cible}) -> + case mnesia:read({minichat, Cible}) of + [#minichat{auteur_id = Id_user}] -> true; + _ -> false + end + end, + Cibles + ) + end + end + )). % Est-ce que Id_user à répondu au message Id_mess +% On evite d'utiliser qlc (ce qui était fait avant) pour des raisons de performance. a_repondu_a_message(Id_user, Id_mess) -> - case mnesia:transaction( - fun() -> - e(q([ - M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat), - R#reponse_minichat.cible =:= Id_mess, R#reponse_minichat.repondant =:= M#minichat.id, M#minichat.auteur_id =:= Id_user - ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}]) - end - ) of - {atomic, [_]} -> true; - _ -> false - end. + resultat_transaction(mnesia:transaction( + fun() -> + case mnesia:match_object({reponse_minichat, '_', Id_mess}) of + [] -> false; + Reponses -> + lists:any( + fun(#reponse_minichat{repondant = Reponse}) -> + case mnesia:read({minichat, Reponse}) of + [#minichat{auteur_id = Id_user}] -> true; + _ -> false + end + end, + Reponses + ) + end + end + )). % Est-ce que Id_user possède Id_mess ? diff --git a/modules/erl/euphorik_requests.erl b/modules/erl/euphorik_requests.erl index efe2e06..f497382 100755 --- a/modules/erl/euphorik_requests.erl +++ b/modules/erl/euphorik_requests.erl @@ -23,7 +23,7 @@ -module(euphorik_requests). --export([out/1]). +-export([out/1, traiter_donnees/2]). -include_lib("xmerl/include/xmerl.hrl"). -include_lib("yaws/include/yaws_api.hrl"). -include("../include/euphorik_defines.hrl"). diff --git a/modules/erl/euphorik_test.erl b/modules/erl/euphorik_test.erl index 8b8dbfb..b705fc6 100644 --- a/modules/erl/euphorik_test.erl +++ b/modules/erl/euphorik_test.erl @@ -73,18 +73,18 @@ mot_rand(L, Mot) -> % Tire au hasard de 0 à 3 messages sur les 10 derniers postés, renvoie une liste de int() % répartition : -% 0 : 0.5 -% 1 : 0.3 +% 0 : 0.1 +% 1 : 0.7 % 2 : 0.15 % 3 : 0.05 messages_id_rand() -> R = random:uniform(), - if R =< 0.5 -> + if R =< 0.1 -> []; true -> Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(8)), if - R > 0.5 andalso R =< 0.8 -> + R > 0.1 andalso R =< 0.8 -> tire_element_rand(1, Messages); R > 0.8 andalso R =< 0.95 -> tire_element_rand(2, Messages); -- 2.45.2