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

[psmith at common-lisp.net]

Author: psmith
Date: Sun Jan  7 15:08:46 2007
New Revision: 30

Modified:
   branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp
Log:
Start of remote authorization

Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp
==============================================================================
--- branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp	(original)
+++ branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp	Sun Jan  7 15:08:46 2007
@@ -38,7 +38,7 @@
 ;; Connected to 127.0.0.1.
 ;; Escape character is '^]'.
 ;; (test-rpc "who" 2 's)
-;; response - who 2 'S ∑
+;; response - who 2 'S
 ;;
 (defclass yarpc-state-machine (async-fd)())
 
@@ -58,8 +58,17 @@
          (rpc-call-list (read-from-string call-string )))
     (apply (first rpc-call-list) (rest rpc-call-list))))
 
-(defun test-rpc-list()
+
+(defmacro defremote (name args &rest body)
+  `(defun ,name (, at args) , at body))
+
+
+(defremote test-rpc-list()
   (list 3 "as" 's (code-char #x2211)))
 
-(defun test-rpc-string(a b c)
+(defremote test-rpc-string(a b c)
   (format nil "response - ~A ~A ~A ~A~%" a b c (code-char #x2211)))
+
+
+(defremote my-remote-fn (arg1 arg2) 
+  (format t "~A~A~%" arg1 arg2))
\ No newline at end of file