- resultat_transaction(mnesia:transaction(F)).
-
-get_tuples_avant(Table, Id, N) ->
- get_tuples_avant(Table, Id, N, []).
-get_tuples_avant(_, '$end_of_table', _, Tuples) -> Tuples;
-get_tuples_avant(_, _, 0, Tuples) ->
- Tuples;
-get_tuples_avant(Table, Id, N, Tuples) ->
- [T] = mnesia:read({Table, Id}),
- get_tuples_avant(Table, mnesia:prev(Table, Id), N - 1, [T | Tuples]).
-
-reculer(_, '$end_of_table' = Fin, _) -> Fin;
-reculer(_, Id, 0) -> Id;
-reculer(Table, Id, N) ->
- reculer(Table, mnesia:prev(Table, Id), N - 1).
- \r
+ resultat_transaction(mnesia:transaction(F)).\r
+\r
+\r
+get_tuples(Table, First_id, N) ->\r
+ lists:foldr(\r
+ fun(Id, Acc) ->\r
+ case mnesia:read({Table, Id}) of\r
+ [T] -> [T | Acc];\r
+ _ -> Acc\r
+ end\r
+ end,\r
+ [],\r
+ lists:seq(First_id, First_id + N - 1)\r
+ ).\r
+\r