MOD optimisation de la fonction parents_id

[euphorik.git] / modules / erl / euphorik_bd.erl

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 196a26e..dff71db 100755 (executable)
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -190,7 +190,11 @@ user_by_cookie(Cookie) ->
 user_by_id(ID) ->\r
    resultat_transaction(mnesia:transaction(\r
       fun() ->\r
-         case e(q([E || E <- mnesia:table(user), E#user.id =:= ID]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of\r
+%         case e(q([E || E <- mnesia:table(user), E#user.id =:= ID]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of\r
+%            [User] -> {ok, User};\r
+%            _ -> erreur\r
+%         end\r
+         case mnesia:read({user,  ID}) of\r
             [User] -> {ok, User};\r
             _ -> erreur\r
          end\r
@@ -378,15 +382,14 @@ message_by_id(Id) ->
    resultat_transaction(mnesia:transaction(\r
       fun() ->\r
          case mnesia:read({minichat, Id}) of\r
-            [] -> erreur;\r
-            [M] ->\r
-               {ok, M#minichat{contenu = contenu_message(M)}}\r
+            [M] -> {ok, M#minichat{contenu = contenu_message(M)}};\r
+            _ -> erreur\r
          end\r
       end\r
    )).\r
    \r
    \r
-% Renvoie le contenu d'un message donnée, à utiliser à l'intérieur d'une transaction.\r
+% Renvoie le contenu d'un message donnée en fonction du troll associé, à utiliser à l'intérieur d'une transaction.\r
 % TODO : Cette fonction pourrait être remplacé par un "outer-join", est-ce possible avec qlc ?\r
 contenu_message(E) ->\r
    case mnesia:read({troll, E#minichat.troll_id}) of\r
@@ -452,18 +455,20 @@ enfants(M_id) ->
    )).\r
    \r
    \r
-% Renvoie les parents d'un message M (les messages auquels répond M)\r
+% Renvoie les id des parents d'un message M (les messages auquels répond M)\r
 % ordrés du plus petit au plus grand..\r
+% On évite d'utiliser qlc pour des raisons de performance\r
 % @spec parents_id(integer()) -> [integer()]\r
-parents_id(M) ->\r
+parents_id(M_id) ->\r
    resultat_transaction(mnesia:transaction(fun() ->\r
-      e(\r
-         qlc:sort(\r
-            q([E#reponse_minichat.cible || E <- mnesia:table(reponse_minichat), E#reponse_minichat.repondant =:= M]),\r
-            [{order, ascending}]\r
-         ),\r
-         [{tmpdir, ?KEY_SORT_TEMP_DIR}]\r
-      )\r
+      case mnesia:read({reponse_minichat, M_id}) of\r
+         Parents when is_list(Parents) ->\r
+            lists:sort(lists:map(\r
+               fun(#reponse_minichat{cible = Cible}) -> Cible end,\r
+               Parents\r
+            ));\r
+         _ -> []            \r
+      end\r
    end)).\r
    \r
    \r
@@ -483,33 +488,47 @@ enfants_id(M) ->
      \r
 \r
 % Est-ce que le message Id_mess est une réponse d'une message de Id_user ?\r
+% On evite d'utiliser qlc (ce qui était fait avant) pour des raisons de performance.\r
 est_une_reponse_a_user(Id_user, Id_mess) ->\r
-   case mnesia:transaction(\r
-            fun() ->\r
-               e(q([\r
-                  M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),\r
-                  M#minichat.auteur_id =:= Id_user, M#minichat.id =:= R#reponse_minichat.cible, R#reponse_minichat.repondant =:= Id_mess\r
-               ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}])\r
-            end\r
-         ) of\r
-      {atomic, [_]} -> true;\r
-      _ -> false\r
-   end.\r
+   resultat_transaction(mnesia:transaction(\r
+      fun() ->\r
+         case mnesia:read({reponse_minichat, Id_mess}) of\r
+            [] -> false;\r
+            Cibles ->\r
+               lists:any(\r
+                  fun(#reponse_minichat{cible = Cible}) ->\r
+                     case mnesia:read({minichat, Cible}) of\r
+                        [#minichat{auteur_id = Id_user}] -> true;\r
+                        _ -> false\r
+                     end\r
+                  end,\r
+                  Cibles\r
+               )\r
+         end\r
+      end\r
+   )).\r
 \r
    \r
 % Est-ce que Id_user à répondu au message Id_mess\r
+% On evite d'utiliser qlc (ce qui était fait avant) pour des raisons de performance.\r
 a_repondu_a_message(Id_user, Id_mess) ->\r
-   case mnesia:transaction(\r
-            fun() ->\r
-               e(q([\r
-                  M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),\r
-                  R#reponse_minichat.cible =:= Id_mess, R#reponse_minichat.repondant =:= M#minichat.id, M#minichat.auteur_id =:= Id_user\r
-               ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}])\r
-            end\r
-         ) of\r
-      {atomic, [_]} -> true;\r
-      _ -> false\r
-   end.\r
+   resultat_transaction(mnesia:transaction(\r
+      fun() ->\r
+         case mnesia:match_object({reponse_minichat, '_', Id_mess}) of\r
+            [] -> false;\r
+            Reponses ->\r
+               lists:any(\r
+                  fun(#reponse_minichat{repondant = Reponse}) ->\r
+                     case mnesia:read({minichat, Reponse}) of\r
+                        [#minichat{auteur_id = Id_user}] -> true;\r
+                        _ -> false\r
+                     end\r
+                  end,\r
+                  Reponses\r
+               )\r
+         end\r
+      end\r
+   )).\r
    \r
    \r
 % Est-ce que Id_user possède Id_mess ?\r