message_decoder <xml, html> decoder = <> .;

vb source, pchar source' = alloc (T_CHARS, max_length);
vb target, pchar target' = alloc (T_CHARS, max_length);

translate (&target, &source, decoder), 
{ 
  read_dev_message (&source, slot_id, hardware_id) 
};