Changeset 30 for branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp

Timestamp:

01/07/07 20:08:46 (18 years ago)

Author:

psmith

Message:

Start of remote authorization

File:

• branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp (modified) (2 diffs)

branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp ¶

@@ -39 +39 @@
 ;; Escape character is '^]'.
 ;; (test-rpc "who" 2 's)
-;; response - who 2 'S ∑
+;; response - who 2 'S
 ;;
 (defclass yarpc-state-machine (async-fd)())
@@ -59 +59 @@
     (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))