message.scm (service-req:service): New procedure.

* src/message-func.c (get_service_req): New procedure.
  (guile_ssh_message_get_req): Handle SSH_REQUEST_SERVICE.
* src/message.scm (service-req:service): New procedure.