[nio-cvs] r112 - branches/home/psmith/restructure/src/protocol/yarpc

[psmith at common-lisp.net]

Author: psmith
Date: Thu Apr 26 16:43:14 2007
New Revision: 112

Modified:
   branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp
   branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp
Log:
Allow configurable timeout

Modified: branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp
==============================================================================
--- branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp	(original)
+++ branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp	Thu Apr 26 16:43:14 2007
@@ -37,5 +37,5 @@
 	     test-rpc test-rpc-list test-rpc-string execute-call defremote process-timeout
 	     
 	     ;;yarpc-client-state-machine
-	     yarpc-client-state-machine remote-execute simulate-connection
+	     yarpc-client-state-machine remote-execute simulate-connection +rpc-timeout+
 	     ))

Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp
==============================================================================
--- branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp	(original)
+++ branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp	Thu Apr 26 16:43:14 2007
@@ -48,11 +48,13 @@
 	      :reader start-time
 	      :documentation "The (floating point) start time")   
    (timeout :initarg :timeout
-	    :initform 15
 	    :reader timeout
 	    :documentation "The time in seconds before a timeout should occur, abviously we dont guarantee that this will be honored, it depends on other processing but should be close.")))
 
-(defun remote-job(callback &key (timeout 15))
+(defparameter +rpc-timeout+ 60
+  "The number of seconds before a remote call is considered timedout")
+
+(defun remote-job(callback &key (timeout +rpc-timeout+))
   (make-instance 'remote-job :callback callback :timeout timeout))