Anubis / Xlib

Commit 54906678d08d2a7ab773eee6ab95cdd77c7da2d6

Authored by Cédric RICARD
1 parent 90f8df96

Configurable timeout for netservice client

Showing 1 changed file with 4 additions and 2 deletions   Show diff stats
Inline Side-by-side
calexium_lib/net_services/CXM_generic_client.anubis
  Show/Hide comments   View file @5490667
... ... @@ -66,12 +66,13 @@ define Maybe($T)
66 66 generic_handler
67 67 (
68 68 MessageQueue queue,
  69 + Int32 timeout,
69 70 Message msg_to_send,
70 71 (Message) -> Maybe($T) handler,
71 72 (String) -> One logger
72 73 )=
73 74 queue.add_Message_to_send(msg_to_send);
74   - if queue.get_next_received_Message(10) is
  75 + if queue.get_next_received_Message(timeout) is
75 76 {
76 77 timeout then logger("["+queue.get_name(unique)+"]: receive timeout");failure,
77 78 closed then logger("["+queue.get_name(unique)+"]: socket closed");failure,
... ... @@ -95,12 +96,13 @@ define Maybe($T)
95 96 public define (MessageQueue) -> Maybe($T)
96 97 make_generic_handler
97 98 (
  99 + Int32 timeout,
98 100 Message msg_to_send,
99 101 (Message) -> Maybe($T) handler,
100 102 (String) -> One logger
101 103 ) =
102 104 (MessageQueue queue) |->
103   - generic_handler(queue, msg_to_send, handler, logger).
  105 + generic_handler(queue, timeout, msg_to_send, handler, logger).
104 106  
105 107 define Maybe($T)
106 108 generic_request_for_service
... ...