let process_timer_request msg req =
         log_output Debug "In Rcomm.From_transport.process_timer_request";
         begin match msg with
         |  Set_timer event ->
               process_set_timer_message event req 
         |  Cancel_timer id ->
               process_cancel_timer_message id req 
         |  _ ->
               raise(Invalid_argument
                  ("In Rcomm.From_transport.process_timer_request: "^
                  (string_of_message msg)))
         end