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 (,@args) ,@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