From 26eebb2bb949cb17cdffc8477224fcb3b7aa7f6d Mon Sep 17 00:00:00 2001 From: Simon MacMullen Date: Fri, 5 Dec 2014 12:53:10 +0000 Subject: Upgrade --- src/rabbit_queue_index.erl | 39 ++++++++++++++++++++++++++++++++++++--- 1 file changed, 36 insertions(+), 3 deletions(-) diff --git a/src/rabbit_queue_index.erl b/src/rabbit_queue_index.erl index a78dacec..08c20ce2 100644 --- a/src/rabbit_queue_index.erl +++ b/src/rabbit_queue_index.erl @@ -21,7 +21,7 @@ publish/5, deliver/2, ack/2, sync/1, needs_sync/1, flush/1, read/3, next_segment_boundary/1, bounds/1, start/1, stop/0]). --export([add_queue_ttl/0, avoid_zeroes/0, store_msg_size/0]). +-export([add_queue_ttl/0, avoid_zeroes/0, store_msg_size/0, store_msg/0]). -define(CLEAN_FILENAME, "clean.dot"). @@ -186,6 +186,7 @@ -rabbit_upgrade({add_queue_ttl, local, []}). -rabbit_upgrade({avoid_zeroes, local, [add_queue_ttl]}). -rabbit_upgrade({store_msg_size, local, [avoid_zeroes]}). +-rabbit_upgrade({store_msg, local, [store_msg_size]}). -ifdef(use_specs). @@ -1204,10 +1205,42 @@ store_msg_size_segment(< stop. +store_msg() -> + foreach_queue_index({fun store_msg_journal/1, + fun store_msg_segment/1}). + +store_msg_journal(<>) -> + {<>, Rest}; +store_msg_journal(<>) -> + {<>, Rest}; +store_msg_journal(<>) -> + {<>, Rest}; +store_msg_journal(_) -> + stop. + +store_msg_segment(<>) -> + {<>, Rest}; +store_msg_segment(<>) -> + {<>, + Rest}; +store_msg_segment(_) -> + stop. -%%---------------------------------------------------------------------------- -%% TODO here? + + +%%---------------------------------------------------------------------------- foreach_queue_index(Funs) -> QueuesDir = queues_dir(), -- cgit v1.2.1