Ada and CANopen

Is there any (other) project using Ada to communicate over the CAN-Bus
via CANopen?

My project is in an automotive niche area.

My focus is on the object dictionary and the PDO list.
and I started specifying them in my own XML dialect,
formally described using RELAX-NG.

My approach is to derive all the (Ada, ...) code from that central
data structure,
all the code, that has been hand-written traditionally.

A lot of 'unsigned ints' in the object dictionary are actually records
with rep. specs,
and I extended my object dictionary definition by such records rep.
specs;
the "extra value" from that is to derive / generate record component
accessors from that.

Of course, the object dictionary can also be made use of to specify
GUIs from them,
implemented in a script language.
Such a GUI can ease in the assembly of a PDO to be sent
resp. in the disassembly of a PDO received.
That's good for manual, interactive testing,
maybe even for future GUI interfaces.

A by-product can also be scripted testing.