Tasks #563: Implement cause vector in cl - Robotics Service Bus - Open Source Collaboration Platform

Tasks #563

Enhancement #498: Integrate causal vector for events

Status:

Resolved

Start date:

09/08/2011

Priority:

Urgent

Due date:

Assignee:

% Done:

100%

Category:

Common Lisp

Estimated time:

1.00 hour

Target version:

Description

I don't feel like I am able to do this.

Related issues

Adapted to protocol changes in src/transport/spread/fragmentation.lisp
refs #563

src/transport/spread/fragmentation.lisp
(merge-fragment assembly-pool t): adapted to changed protocol
(%make-key): likewise

Adapted to protocol changes in test/transport/spread/fragmentation.lisp
refs #563

test/transport/spread/fragmentation.lisp
(test suite fragmentation-root): adapted local function
`make-notification' to changed protocol

Added causes vectors to event class
fixes #563

src/event.lisp (event::causes): new slot; stores a set of id of
causing events
(event=): added keyword parameter compare-causes?; compare causes if
requested
src/package.lisp (package rsb): added exported symbol event-causes
src/transport/spread/conversion.lisp (one-notification->event):
copy causes from notification to event
(event->notifications): pass causes to `make-notification'
(make-notification): copy specified causes into notification
test/event.lisp (test event-root::comparison): tests comparison with
and without comparing causes

Improved make-event in src/event.lisp
refs #563

src/event.lisp (make-event): added keyword parameter causes;
specified causes are added to the new event

Added even-id type in src/types.lisp
refs #563

src/types.lisp (event-id): new type; an object that uniquely
identifies an event
src/event.lisp (event::causes): adjusted documentation string
(event-id->uuid): new function; derive a UUID from an event id
(%maybe-set-event-id): use `event-id->uuid'
src/package.lisp (package rsb): added exported symbol event-id->uuid

Added event-id= in src/event.lisp
refs #563

src/event.lisp (event=): use `event-id='
(event-id=): new function; compare event ids for equality
src/package.lisp (package rsb): added exported symbol event-id=

Added event-id/opaque in src/protocol.lisp
refs #563

src/protocol.lisp (event-id/opaque): new generic function; return an
object uniquely identifying an event
src/event.lisp (event-id/opaque event): new method; return a unique
event id object
(%maybe-set-event-id): use `event-id/opaque'
src/package.lisp (package rsb): added exported symbol
event-id/opaque

Support causes in send methods in src/informer.lisp
refs #563